1、1,任课教师：段淑敏 Tel: 13849126866 QQ: 8505974 Email: ,Visual Basic 程序设计,2,第三章 Visual Basic程序控制结构,3.1 顺序结构,3,3.1 顺序结构,顺序结构： 编写程序时，我们一条一条地书写指令，如果按照指令的书写顺序执行程序，这种结构就是顺序结构。,指令一,指令二,指令三,4,赋值语句Let是VB程序最常用、最基本的语句，它能为变量提供数据。另外，若要在程序代码中设置对象的属性，也要使用赋值语句。赋值语句格式： Let =Let 表示赋值，通常省略。 x=2 把2赋给x 是变量或属性的名称 可以是算数表达式、字符串表达
2、式、关系表达式或逻辑表达式，其类型应与变量名的类型一致，否则会出现“类型不匹配”的错误。当同时为数值型但精度不同时，强制转换成“=”左边的精度。,3.1.1 赋值语句,5,赋值语句的作用是：首先计算“=”右边表达式的值，然后将该值赋给“=”左边的变量或对象的属性。 赋值号不是数学上的等号。语句a=2，应读作“将数值2赋给变量a”或“使变量a的值等于2”例：x=2 把2赋给xy=x*3 计算x*3的值，得6，把6赋给yx=x+1 计算x+1的值，得3，把3赋给xa= “Hello“ 把“Hello”赋给aText1.Text = “你好“ 把“你好”赋给Text1的Text属性,6,数据输出,一
3、个没有输出操作的程序没有什么实用价值。 VB的输出操作包括文本信息的输出和图形图像的输出。1. 使用Print方法实现数据输出。可以在窗体上输出文本字符串或表达式的值，并可在其他图形对象或打印机上输出信息。,3.1.2 数据输入和输出,7,语法格式: .Print;|, 使用Print方法将数据输出到窗体，应先使用Show（显示）方法，否则输出数据不可见。 : 窗 体 如 Form1.Print “Hello“图片框 如 Picture1.Print “Hello“ 打印机 如 Printer.Print “Hello“立即窗口 如 Debug.Print “Hello“省略: 默认为当前窗体
4、。 :一个或多个表达式使用逗号或分号隔开。 输出多个表达式时，各表达式之间用分隔符 , 或 ; 隔开。 分号: 后一项紧跟前一项输出。数值型数据后多一个空格，字符串后没有空格。 逗号: 以14个字符宽度为单位把一个输出行分成若干区段。,8,Private Sub Form_Load() Show Print “12345678901234567890“ Print “2+4=“; 2 + 4 Print “2-4=“, 2 - 4 End Sub,例：,9,Private Sub Form_Load() Show Print “12345678901234567890“ Print “2+4=
5、“; 2 + 4, Print “2-4=“; Print 2 - 4 End Sub,如果语句行末尾用逗号分隔符，则下一个Print 输出的内容将在当前Print所输出信息的下一个分区显示； 如果语句行末尾用分号分隔符，则下一个Print 输出的内容将紧跟在当前Print 所输出信息后面； 如果省略语句末尾的分隔符，则Print 方法将自动换行。,例：,10,Private Sub Form_Load() Form1.Show Print “12345678901234567890“ Print 产生空行 Print “2+4=“; 2 + 4, Print 取消上面一句末尾逗号的作用 Pr
6、int “2-4=“; Print 2 - 4 End Sub,输入Print时可用?代替， VB将其自动转换成Print,Print方法具有计算和输出的双重功能,对于表达式,总是先计算后输出。 Private Sub Form_Load() Show x = 2: y = 3 Print (x + y) * 2 End Sub,例：,11,练习： 用Print方法实现数据输出到窗体上。 Private Sub Form_Load() Show Print “aa“ 30 + 60 End Sub,12,练习：用Print方法在窗体中直接输出字符或数值表达式的值Private Sub Comm
7、and1_Click() Print Print “2*3+4=“; 2 * 3 + 4 Print Print “祝您好运！“ Print Print , “Visual“ Print , , “Basic“ Print Print Print “ 祝您好运，哈哈！“, Print “Visual“; “Basic“ End Sub,13,2.与Print方法有关的函数 （1）Tab函数格式: Tab(n)功能: 在指定的第n个位置上输出数据。参数n: 数值表达式，其值为一整数。要输出的内容放在Tab函数后面，并用分号隔开。 n输出行宽度: 打印位置为n Mod行宽省略: 打印位置为下一个打
8、印区的起点 (每14个字符为一个打印区),14,例 使用Tab函数对齐输出。Private Sub Form_click() Show FontSize = 10 Print Print Tab(10); “姓 名“; Tab(25); “性别“; Tab(40); “年龄“ Print Print Tab(10); “牛晓磊“; Tab(25); “男“; Tab(40); “18“ Print Tab(10); “史春雷“; Tab(25); “男“; Tab(40); “18“ Print Tab(10); “徐建梅“; Tab(25); “女“; Tab(40); “18“ Print
9、 Tab(10); “马燕珍“; Tab(25); “女“; Tab(40); “18“ End Sub,15,（2）Spc函数,格式: Spc(n)功能: 提供n个空格。n为数值表达式，其值为一整数。Spc函数与输出项之间用分号隔开。例: Print “HOW“; Spc(3); “ABOUT“结果: HOWABOUTPrivate Sub Form_Load() Show Print “HOW“; Spc(3); “ABOUT“ End Sub,16,当Print方法与不同大小的字体一起使用时，使用Spc函数打印的空格字符的宽度总是等于选用字体内以磅数为单位的所有字符的平均宽度。Spc函数
10、与Tab函数的作用类似，可以互相代替。注意，Tab函数从对象的左端开始记数，而Spc函数只表示两个输出项之间的间隔。,17,格式：space(n) 功能: 返回n个空格 例：Private Sub Form_click() Show FontSize = 10 Print A = “a“ + Space(4) + “b“ Print A End Sub,（3）空格函数Space,18,（4）格式输出函数Format,使用格式： Format（，）功能：按用户指定格式返回表达式，常常用在print方法中。表达式：可以是数值、日期或字符型表达式。格式字符串：表示输出表达式时采用的输出格式。不同数据
11、类型所采用的格式字符串是不同的。,19,表 常用的数值型格式说明字符,20,Private Sub Command1_Click() Print Format(123.45, “#.#“) Print Print Format(123.45, “0000.000“) Print Print Format(1234, “0000.00“) Print Print Format(1234.5, “#，#.#“) Print Print Format(0.12345, “0.00%“) End Sub,例,21,使用对话框,在图形用户界面中，对话框（DialogBox）是程序与用户交互的另一种主要途
12、径。 对话框分为 输入框（InputBox）：可以输入信息。 消息框（ MsgBox ）：可以显示信息。,22,1.输入框函数 格式: =InputBox(,) 功能: 提示对话框，等待用户输入正文或按下按钮，并返回包含文本框内容的字符串。: 在对话框中出现的文本。使用硬回车符Chr(13)可以使文本换行。对话框的高度和宽度随着的增加而增加，最多可有1024个字符。: 用来指定对话框的标题。: 可以指定输入框的文本框中显示的默认文本。若用户单击“确定”按钮，文本框中的文本将返回到中；若用户单击“取消”按钮，返回的将是一个0长度的字符串。返回值: 字符串(在对话框中单击取消则返回“),23,单击
13、“确定”，返回文本框中的文本到变量R中 单击“取消”，返回一个零长度的字符串,例: Private Sub Form_Activate()Dim R As String, AREA As SingleR = InputBox(“请输入半径“, “计算面积“, “1“)AREA = 3.14 * Val(R) 2Print Val(R), AREAEnd Sub,24,2.消息框函数：用消息框(MsgBox)输出数据 （1）消息框的语法格式及使用说明 执行VB提供的MsgBox函数，可以在屏幕上出现一个消息框，消息框通知用户消息并等待用户来选择消息框中的按钮，MsgBox函数返回一个与用户所选按
14、钮相对应的整数。,格式: =MsgBox(,) 功能: 在对话框中显示消息，等待用户单击按钮，并返回一个整数告诉用户单击了哪个按钮。 :为在对话框中出现的文本。使用硬回车符Chr(13)可以使文本换行。对话框的高度和宽度随着的增加而增加，最多可有1024个字符。 : 用来指定对话框中出现的按钮和图标，一般有三个参数：出现按钮+图标类型+默认按钮 (见下页 表) : 用来指定对话框的标题。,25,26,MsgBox函数的返回值是一个整数，这个整数与所选择的按钮有关。见表,27,MsgBox返回的值指明了在对话框中选择哪一个按钮。 代码中的值可以是数值也可以是常量。 如果省略了某些可选项，其间的逗
15、号分隔符不可省略。 若不需要返回值，可以使用下面命令格式：MsgBox , ,Msg = MsgBox(“请确认输入的数据是否正确！“, 3 + 32 + 0, “数据检查“) Print msg,28,例: Private Sub Command1_Click()A = MsgBox(“提示信息“)End Sub,例: 换行Private Sub Command1_Click()A=MsgBox(“第一行“ & Chr(13) & “第二行“)End Sub,例: Private Sub Command1_Click()A = MsgBox(“提示信息“, , “标题内容“)End Sub,
16、例: 按钮类型0到5或符号常量Private Sub Command1_Click()A = MsgBox(“提示信息“, 1, “标题内容“)End Sub,29,例: 图标类型16、32、48、64或符号常量Private Sub Command1_Click()A = MsgBox(“提示信息“, 16, “标题内容“)End Sub,例: 默认按钮0，256，512 见P51Private Sub Command1_Click()a = MsgBox(“提示信息“, 2 + 256, “标题内容“)Print aEnd Sub,按回车打印4,30,1. 注释语句Rem 为提高程序的可读
17、性，通常在程序的适当位置加上必要的注释。 在VB中用英文单引号“”或Rem关键字来标识一条注释语句，格式为： | Rem 指要包括的任何注释文本。在Rem关键字与注释内容之间要加一个空格。,3.1.3 注释、暂停与程序结束语句,31,如果在其他语句行后使用Rem关键字，必须用冒号“：”与前面语句隔开。若使用单引号，则在其他语句行后不必加冒号 Private Sub Form_Activate()Rem 本程序用于计算圆的面积Dim R As String, AREA As Single R为半径R = InputBox(“请输入半径“, , “1“): Rem 输入半径AREA = 3.14
18、* Val(R) 2 以下将半径和面积输出到窗体上Print Val(R), AREA End Sub例：Rem 2007年编写Private Sub Form_click（）Dim a 定义一个字符串变量a=“Visual Basic6.0中文版“ 为变量赋值print a 打印a的内容End Sub,32,Stop语句用来暂停程序的执行,2.暂停语句（Stop）,End语句除用来结束程序外，在不同的环境下还有其他一些用途，包括：,End语句通常用来结束一个程序的执行。可以把它放在事件过程中。,3.结束语句（End）,End Sub 结束一个Sub过程 End Function 结束一个Function过程 End If 结束一个If语句块 End Type 结束记录类型的定义 End Select 结束情况语句,33,谢 谢！,
