《Visual Basic.NET程序设计教程》第4章 顺序结构程序设计

第4章顺序结构程序设计本章要点：赋值语句数据输入数据输出注释、暂停与程序结束语句顺序结构程序应用举例1事件过程的执行顺序：由事件驱动过程内部的执行顺序：由过程的内部语句结构决定。三种基本的语句结构：顺序结构选择结构循环结构结构化程序的三种基本结构2顺序结构：按语句出现的先后次序执行。即按从上到下，从左到右的次序执行。输入计算、处理输出设计思路：34.1赋值语句1.格式

变量名=表达式或:

[对象名.]属性名=表达式2.功能计算表达式的值,再将此值赋给变量或对象的属性。例：A=pi*R^2

TextBox3.Text=Format(A,"0.00")43.说明（1）变量名：应符合标识符的命名约定（2）表达式：常量、变量、表达式、属性。（3）对象名：默认值为当前窗体。（4）赋值号“=”：与数学中的等号意义不同。例：

X=X+1（5）赋值号左边必须是变量或对象属性。5例：正确的赋值语句：DimAAsIntegerDimBAsStringA=42B="VisualBasic.NET"Button1.Text="确定"错误的赋值语句:A+1=A5=A6（6）当“表达式”的值类型与赋值号左边的变量（或属性）的类型不一致时，需要进行类型转换，包括：扩大转换：高精度型变量=低精度型表达式扩大转换总是允许的收缩转换低精度型变量=高精度型表达式收缩转换可能会丢失精度，甚至溢出（7）变量未赋值时，数值型变量初始化为0;Object、字符串类型初始化为Nothing;布尔型变量初始化为False。7（8）复合赋值运算符。设：

DimcAsDouble=4,dAsString="He"复合赋值运算符示例等价表示结果+=c+=5c=c+59-=c-=5c=c-5-1*=c*=5c=c*520/=c/=5c=c/50.8\=c\=5c=c\50^=c^=3c=c^364&=d&="llo"d=d&"llo"Hello8【例4-1】设变量A中存放5，变量B中存放8，交换两个变量的值，使变量A中存放8，变量B中存放5。ABC代码如下:

A=5B=8C=AA=BB=CC=A①A=B②B=C③94.2数据输入把数据或信息从某种外部设备(例如键盘)取到内存中，称为输入。直接赋值输入框(InputBox)文本框(TextBox)……输入104.2.1用InputBox函数输入数据1.InputBox函数的格式

InputBox(提示信息[,对话框标题][,默认值])2.功能提示一对话框，等待用户输入正文或按下按钮，并返回包含文本框内容的字符串。3.说明

提示信息:字符串表达式。可用Chr(13)、

Chr(10)、Chr(13)&Chr(10)、vbCrLf换行。对话框标题:字符串表达式，缺省为当前程序名。默认值:字符串表达式，省略时默认为空。返回值:字符串。11例：r=Val(InputBox("请输入半径","计算面积","1"))例：r=Val(InputBox("请输入半径"))12例：r=Val(InputBox("请输入半径"

,,"1"))134.2.2用TextBox控件输入数据用文本框输入数据时，也就是将文本框的Text属性的内容赋给某个变量。例：将文本框TextBox1中输入的字符串赋给字符串变量MyStr。

DimMyStrAsString

MyStr=TextBox1.Text例：将在文本框TextBox1中输入的内容作为数值赋给整型变量A。

DimAAsInteger

A=

Val(TextBox1.Text)14【例4-2】编程序实现，运行时，用文本框输入三门课的成绩，求平均成绩，用文本框显示平均成绩。要求：

1）单击“计算”按钮求平均成绩。

2）当输入成绩的文本框获得焦点时，选中其中的文本。

3）当输入成绩的文本框中的任何一个内容发生变化时，清除平均成绩。

4）单击“清除”按钮清除所有文本框的内容，并将焦点定位在第一个输入成绩的文本框中。

5）单击“退出”按钮结束程序的运行。15TextBox4TextBox1TextBox2TextBox3Button1Button2Button3设TextBox4的ReadOnly

属性为True界面设计：161）单击“计算”按钮计算平均值PrivateSubButton1_Click(…)HandlesButton1.ClickDimA,B,CAsShortA=Val(TextBox1.Text)B=Val(TextBox2.Text)C=Val(TextBox3.Text)TextBox4.Text=(A+B+C)/3EndSub代码设计：172）当输入成绩的文本框获得焦点时选中其中的文本

PrivateSubTextBox1_GotFocus(ByValsenderAsObject,ByValeAsSystem.EventArgs)HandlesTextBox1.GotFocus,TextBox2.GotFocus,TextBox3.GotFocus,TextBox1.MouseUp,TextBox2.MouseUp,TextBox3.MouseUp

sender.SelectAll()EndSub183）当输入成绩的文本框内容发生变化时，清除TextBox4的内容PrivateSubTextBox1_TextChanged(…)HandlesTextBox1.TextChanged,TextBox2.TextChanged,TextBox3.TextChangedTextBox4.Clear()EndSub194）单击“清除”按钮，清除所有文本框的内容，并将焦点定位在文本框TextBox1中。PrivateSubButton2_Click(…)HandlesButton2.ClickTextBox1.Clear():TextBox2.Clear()TextBox3.Clear():TextBox4.Clear()

'将焦点定位在文本框TextBox1中

TextBox1.Focus()EndSub5）在“退出”按钮Button3的Click事件过程中输入End语句，结束程序的运行。204.3数据输出对输入的数据进行加工后，往往需要将处理结果、提示信息等呈现给用户，即输出。输出文本框标签消息框(MsgBox

、MessageBox.Show)其他方法214.3.1用TextBox控件输出数据用文本框输出数据时，也就是将数据赋给文本框的Text属性。例：用文本框TextBox1输出一个字符串

TextBox1.Text="Hello"例：用文本框TextBox1输出一个数值型数据

X=3:Y=5TextBox1.Text=Str(X)TextBox2.Text=Format(X/Y,"0.000")TextBox3.Text=X*Y.ToString例：用文本框TextBox1输出两个数据X=3:Y=5TextBox1.Text=Str(X)&Str(Y)或

TextBox1.Text=Str(X)&vbCrLf&Str(Y)22【例4-3】编程序实现：用文本框输入任意一个英文字母，用另一个文本框显示该英文字母及其ASCII码值。TextBox1TextBox2Button1界面设计：23PrivateSubButton1_Click(…)HandlesButton1.Click

DimeCharAsChar

'变量eChar为字符型

eChar=TextBox1.Text'输入字母

'显示eChar及其ASCII码值

TextBox2.AppendText(Space(5)&eChar&Space(15)&Str(Asc(eChar))&vbCrLf)

'将焦点设置在TextBox1中,选中其中内容

TextBox1.Focus()TextBox1.SelectAll()EndSub代码设计：244.3.2用Label控件输出数据用标签输出数据时，也就是将数据赋给标签的Text属性。例：用标签Label1输出一个字符串

Label1.Text="Hello"例：用标签Label1输出一个数值型数据

X=3

Label1.Text=Str(X)例：用标签Label1输出两个数。X=3:Y=5Label1.Text="X="&Str(X)&"Y="&Str(Y)

或：

Label1.Text="X="&Str(X)&vbCrLf

&_"Y="&Str(Y)25【例4-4】已知三角形的三条边a、b、c的长度，用海伦公式求三角形的面积s，海伦公式：界面设计：TextBox1TextBox2TextBox3Label2Button126代码设计：PrivateSubButton1_Click(…)HandlesButton1.ClickDimA,B,C,P,SAsSingleA=Val(TextBox1.Text)B=Val(TextBox2.Text)C=Val(TextBox3.Text)P=(A+B+C)/2S=Math.Sqrt(P*(P-A)*(P-B)*(P-C))

'用标签输出面积S，保留两位小数Label2.Text=Format(S,"0.00")EndSub274.3.3用消息框输出数据在Windows中，如果操作有误，通常会在屏幕上显示一个消息框（对话框），提示用户进行选择，然后根据选择确定其后的操作。1.使用MsgBox函数显示消息框使用Microsoft.VisualBasic.Interaction类中的MsgBox函数可以显示消息框。281）格式

MsgBox(提示信息[,按钮类型][,标题])2）功能打开一个消息框，在消息框中显示指定的消息，等待用户单击按钮，并返回一个整数告诉用户单击了哪个按钮。3）说明提示信息:字符串表达式。可用换行符换行。按钮类型:取Microsoft.VisualBasic命名空间下的MsgBoxStyle枚举值。P82表4-2

按钮类型+图标类型+默认按钮按钮类型

Or

图标类型

Or

默认按钮如果省略，则默认为029标题：指定对话框的标题，字符串表达式。若省略，则显示当前应用程序名。返回值:由在对话框中按下哪种按钮决定。值为Microsoft.VisualBasic命名空间下的MsgBoxResult枚举值。见P83表5-3例：“提示信息”

MsgBox("提示信息")30例：“提示信息”换行

MsgBox("提示信息"&vbCrLf&"换行显示")例:“对话框标题”

MsgBox("提示信息",,"标题内容")31例:“按钮类型”—0到5或符号常量见P82

MsgBox("提示信息",1,"标题内容")例：“图标类型”—16,32,48,64或符号常量见P82

MsgBox("提示信息",

16,"标题内容")MsgBoxStyle.CriticalMsgBoxStyle.OkCancel32例：“默认按钮”—0,256,512或符号常量见P82

PrivateSubButton1_Click(…)HandlesButton1.ClickDimaa=MsgBox("提示信息",2+256,"标题内容")

Debug.Print(a)EndSub在消息框按回车，则该语句打印4332.使用MessageBox类的Show方法显示消息框

VB.NET在System.Windows.Forms命名空间中提供了MessageBox类，使用其Show方法，也可以实现MsgBox函数的功能。1）格式MessageBox.Show(提示信息,对话框标题,按钮类型,图标类型,默认按钮)2）说明各参数的作用与MsgBox函数中对应的参数作用相同34按钮类型：是System.Windows.Forms命名空间下的MessageBoxButtons枚举值图标类型：是System.Windows.Forms命名空间下的MessageBoxIcon枚举值默认按钮：是System.Windows.Forms命名空间下的MessageBoxDefaultButton枚举值返回值：是System.Windows.Forms命名空间下的DialogResult枚举值35例:PrivateSubButton1_Click(…)HandlesButton1.ClickDimaa=MessageBox.Show("提示信息","标题",MessageBoxButtons.OKCancel)

Debug.Print(a)EndSub在消息框按回车，该语句打印1364.3.4用其他方法输出数据使用System.Diagnostics.Debug类下的Print、Write、WriteLine方法可以实现在即时窗口上输出数据。1.Print方法格式：Print(字符串)功能：将指定的字符串以及一个行结束符打印到即时窗口中。例：Debug.Print("欢迎"&Space(3)&"使用")

Debug.Print("y="&Math.Sqrt(9))372.Write方法格式：Write(字符串)功能：在即时窗口打印指定的字符串。例如：

Debug.Write("欢迎"&Space(3)&"使用")

Debug.Write("y="&Math.Sqrt(9))383.WriteLine方法格式：WriteLine(字符串)功能：将指定的字符串以及一个行结束符打印到即时窗口中。例如：

Debug.WriteLine("欢迎"&Space(3)&"使用")

Debug.WriteLine("y="&Math.Sqrt(9))394.4注释、暂停与程序结束语句1.注释语句格式：'|Rem

注释内容功能：给语句或程序段加上注释，以提高可读性。说明:

Rem与“注释内容”之间至少空一个空格。若将以Rem开始的注释语句放在语句行的最后，则Rem和被注释的语句间至少要有一个空格。40例如:PrivateSubForm1_Load(…)HandlesMe.Load

REM本程序用于计算圆的面积

DimR,AREAAsSingle'R表示半径,AREA表示面积

R=Val(InputBox("请输入半径",,"1"))REM输入半径

AREA=3.14*R^2'计算面积

'将半径和面积输出到窗体上

Debug.Print(CStr(R)&Space(2)&CStr(AREA))EndSub选择一行或多行代码，单击“编辑”工具栏上“注释”按钮和“取消注释”按钮，可以添加或移除某段代码的注释符412.暂停语句

格式：

Stop

功能：暂停程序的执行。

说明：用于程序调试。类似于执行“运行”菜单中的“中断”命令3.结束语句

格式：

End

功能：结束程序的执行。424.5顺序结构程序应用举例【例4-5】鸡兔同笼。已知笼中鸡兔总头数为h，总脚数为f，问鸡兔各有多少只？分析：设鸡有x只，兔有y只，则方程式如下：x+y=h2x+4y=f

x=(4h-f)/2y=(f-2h)/2解方程。解出求x和y的具体公式为：43TextBox1TextBox2Button1Label5Label6界面设计：44代码设计：PrivateSubButton1_Click(…)HandlesButton1.ClickDimh,f,x,yAsInteger

'输入

h=Val(TextBox1.Text)f=Val(TextBox2.Text)'计算

x=(4*h-f)/2y=(f-2*h)/2'输出

Label5.Text=CStr(x)'相当于Format(x)Label6.Text=CStr(y)'相当于Format(y)EndSub45*【例4-6】编程序实现：根据系统的具体日期和时间，设计一个倒计时程序。要求：1）能在界面上显示当前时间。2）能在界面上显示目标时间。3）能显示距离目标时间还有多少天、多少小时。界面设计：TextBox1~TextBox5TextBox6TextBox7TextBox846代码设计：PrivateSubTimer1_Tick(