1、研1,第五章 顺 序 结 构,事件驱动：将代码划分成一些过程 过程结构：过程内部代码由三种基本结构组成即：顺序结构、选择结构、循环结构 顺序结构：执行过程的次序从左到右，从上到下例：Private Sub Command1_Click()Const Pi = 3.14H = Val(Text1.Text)： R = Val(Text2.Text)Text3.Text = Pi * R 2 * HEnd Sub,研2,5.1 赋值语句Let,格式：Let = 功能：计算 值，将值赋给 说明： （1）= 号的含义:赋值 （2）=号左侧只能是变量变量可以是自定义变量或属性变量A=123.45Labe
2、l1.Caption=“标签“ （3）引用变量的值不会改变变量现行值 （4）变量未赋值时,数值变量值为0,字符变量值为“ （5）与应类型相容注:数值类型赋值结果为变量的类型,研3,例1: Dim a As Single, k As Integera = 3.14k = 3.6Print a, k输出结果： 3.14 4 例2：执行下列赋值语句后，变量A的数据类型（设A没有定义数据类型）A=6=5 A=5+3A=“5+3“A=“#11/26/99#“A=#11/26/99#A=NOT 58,用VarType函数可以测试变量的类型如: Print VarType(A),研4,5.2 输出数据:使用
3、标签、文本框、 Print方法、消息框 5.2.1 使用标签、文本框输出 方法：标签名.Caption= 文本框名.Text= 可设置标签的Backbolor,BorderStyle属性改变其外观 可将文本框的Locked属性设置成True，成为只读。 5.2.2 使用Print方法输出 1.格式： . Print , | ; :窗体 如 Form1.Print 1; 2; 3图片框 如 Picture1.Print 1; 2; 3打印机 如 Printer.Print 1; 2; 3立即窗口 如 Debug .Print 1; 2; 3省略时为当前窗体。 逗号：后面的内容在下一区段输出(每区
4、段14个字符) 分号：后面的内容紧接着输出。 对于数值，前面留一个符号位， 后面留一个空格位,研5,例1：Private Sub Form_Activate()Print “2+4=“; 2 + 4Print “2-4=“; 2 - 4End Sub 结果：2+4= 62-4=-2,如果将分号改成逗号：结果：2+4= 62-4= -2,例2：Private Sub Form_Load()Form1.ShowPrint “12345678901234567890“Print “2+4=“; 2 + 4,Print “2-4=“; 2 - 4End Sub 结果：12345678901234567
5、8902+4= 6 2-4=-2,输入Print时可以使用？代替，VB将其自动转换成Print,研6,2. 与Print方法有关的函数 (1)Tab(n):将当前输出位置设置为第n列，后跟分号当n小于当前显示位置时，自动移到下一行例：Print “12345678901234567890“Print “HOW“; Tab(6); “ABOUT“结果：12345678901234567890HOW ABOUT例：Print “12345678901234567890“Print “HOW“; Tab(3); “ABOUT“结果：12345678901234567890HOWABOUT(2) Sp
6、c(n)：跳过n个空格例： Print “HOW“; Spc(3); “ABOUT“结果：HOWABOUT,研7,3. CurrentX 和 CurrentY 属性(设计时不可用)CurrentX:下一次打印的 水平坐标(缇)CurrentY:下一次打印的垂直坐标(缇)坐标从对象（如窗体）的左上角开始测量,Private Sub Form_Click() CurrentX = 0 CurrentY = 0 Print “A“ CurrentX = 1500 CurrentY = 1000 Print “B“ End Sub,研8,例：Private Sub Form_Click()Curren
7、tX = 2000:CurrentY = 500Print “当前水平坐标为“; CurrentXPrint “当前垂直坐标为“; CurrentYEnd Sub,研9,5.2.3 使用消息框输出 一、消息对话框： 格式1：MsgBox , 格式2：=MsgBox(,) 功能：在对话框中显示消息，等待用户单击按钮，并返回一个 整数,告诉用户单击哪一个按钮。 ：要显示的文本，可以用Chr(13)换行 ：对话框标题内容 ：对话框中出现的按钮和图标按钮：P178表11-1图标：P178表11-2默认按钮：P178表11-3 返回值：P178表11-4,研10,例： Private Sub Comma
8、nd1_Click()a = MsgBox(“消息内容“)End Sub,例： 换行Private Sub Command1_Click()a = MsgBox(“消息内容1“ & Chr(13) & “消息内容2“)End Sub,研11,例：Private Sub Command1_Click()a = MsgBox(“消息内容“, , “标题内容“)End Sub,例：按钮0到5或符号常量Private Sub Command1_Click()a = MsgBox(“消息内容“, 1, “标题内容“)End Sub,研12,例： 图标16、32、48、64或符号常量Private Sub
9、 Command1_Click()a = MsgBox(“消息内容“, 16, “标题内容“)End Sub,例：默认按钮0，256，512Private Sub Command1_Click()a = MsgBox(“消息内容“, 2 + 256, “标题内容“)Print aEnd Sub,按回车打印4,研13,例11-6：设计如下图所示界面，输入各科成绩，求平均分。 当某项成绩为空时，给出警告，并根据用户回答确定”或“取消”做不同的处理。,研14,a=Val(Text1.Text) b=Val(Text2.Text) c=Val(Text3.Text) If Trim(Text1.Tex
10、t) = “ Or Trim(Text2.Text) = “Or Trim(Text3.Text) = “ Then x=MsgBox(“数据不全“ & Chr(13) & “按取消重输“& Chr(13) & “按确定默认为零“, 1 + 48, “请选择“)If x = 1 Then 返回1表示按“确定“按钮Text4.Text = (a + b + c) / 3Else 返回1表示按“确定“按钮Text1.SetFocusEnd If ElseText4.Text = (a + b + c) / 3 End If,研15,5.3 输入数据通过赋值语句、通过键盘输入 5.3.1 用文本框
11、5.3.2 用InputBox函数 格式：=InPutBox(,) 功能：在一对话框中显示提示，等待用户输入正文或按下按钮，并返回包含文本框内容的字符串。 ：要在对话框中显示的提示信息，可以用 Chr(13)换行 ：对话框标题内容 ：对话框中默认出现在输入文本框中的值 返回值：字符串,研16,例：Private Sub Form_Activate()Dim R As String, AREA As SingleR = InputBox(“请输入半径“, “计算圆的面积“, “1“)AREA = 3.14 * Val(R) 2Print Val(R), AREAEnd Sub,单击“确定”，文本
12、框中的文本返回到变量R中 单击“取消”，返回一个零长度的字符串,研17,5.4 其他语句 5.4.1 注释语句 格式：Rem| 功能：用于给程序加注解 说明：Rem与 之间至少空一个空格 例:Private Sub Form_Activate()Rem 本程序用于计算圆的面积Dim R As String, AREA As Single R为半径， R = InputBox(“请输入半径“, , “1“): Rem 输入半径AREA = 3.14 * Val(R) 2以下将半径和面积输出到窗体上Print Val(R), AREAEnd Sub 5.4.2 End语句格式：End 功能：终止执行、释放程序所占内存,研18,小结：顺序结构程序设计：,输入,计算,输出,赋值语句,文本框,IntputBox函数,赋值语句,标签,文本框,Print语句,MsgBox函数,研19,5.5 应用举例,例1：P71 例5-9 （输入固定，用赋值语句，输出用标签） 例2：P72例5-10 （输入用文本框，输出用标签） 例3：P73例5-11 （输入用文本框，输出用标签）,
