Visual Basic 程序设计教程

Visual Basic 程序设计教程 侯妙乐 2004 年 9月

第4章顺序结构程序设计 4.1 赋值语句 4.2 数据输入 4.3 数据输出 4.4 注释、暂停与程序结束语句 4.5 应用举例

4.1 赋值语句 • 格式: <变量名>=<表达式> • 或 [<对象名>.]<属性名>=<表达式> • 功能：先计算“=”右边的表达式的值,将其赋给左边. • 说明: • <变量名>最好是事先定义好的变量; • <表达式>可以是常量、变量、表达式及带有属性的对象； • <对象名>缺省时为当前窗体

注意事项： • “=”是赋值号：x=x+1； • 赋值号左边必须是变量或对象属性，不可以是表达式； • 变量名或对象属性名的类型应与表达式的类型相容； • 变量未赋值时，数值型变量的值为0，字符型变量的值为空串；

4.2 数据输入 • 4.2.1 用输入框 (InputBox)输入数据 • 4.2.2 文本框 (TextBox)输入数据

4.2.1 InputBox • 格式: InputBox (<提示信息>[,<对话框标题>] [,<默认值>]) • 说明: • <提示信息> ：为字符串表达式，在对话框内显示提示信息; • <对话框标题>：为字符串表达式，可选项，在标题栏显示当前的应用程序名; • <默认值>：为字符串表达式，可选项，显示在对话框上的文本框;

4.2.2 TextBox • 属性: Text, MultiLine, BackColor, ForeColor,等等 • 事件和方法： • 鼠标的Click和DbClick • Change, GotFocus, LostFocus, KeyPress和SetFocus(学生自己练习例4-2到例4-5) • 焦点和tab键序： • <默认值>：为字符串表达式，可选项，显示在对话框上的文本框;

4.2.3 焦点和Tab键序 • 焦点: 表示控件接收用户鼠标或键盘的能力。 • 将焦点赋予对象的方法： • 运行时用Tab键移序； • 在代码中用SetFocus方法 • 使对象失去焦点的方法： • 运行时用Tab键移序； • 对另一个对象使SetFocus方法;

4.2.3 焦点和Tab键序 • Tab键序: 按Tab键可以依次移动焦点： • 控件的TabIndex属性决定了它在Tab键序中的位置； • 默认状态下，按照建立空间先后顺序来定； • 编号从0开始 • 要跳过某个控件，则将其的值设为1

4.3 数据输出 • 4.3.1 用Print方法 • 4.3.2 消息框 (MsgBox)函数或语句 • 4.3.3 文本框 (TextBox)控件 • 4.3.4 标签 (Label)控件

4.3.1 Print方法 • 格式: [<对象名>.]Print[<表达式表>] [;1,] • 功能: Print方法可以在窗体、图片框、打印机和立即窗口等对象上输出数据。 • 说明: • <对象名> 可以是窗体、图片框、打印机和立即窗口; • 如：Form1.print “aaa” • <表达式表> 中的表达式可以是算术表达式、字符串表达式、关系表达式或者布尔表达式，多个表达式之间用逗号或分号隔开;

4.3.1 Print方法 • Print方法具有计算和输出双重功能。对于表达式，先计算表达式的值，然后输出。输出时，数值型数据前面有一个符号位，后面留一个空格位；字符型原样输出。 • x=5 : y=8 • Print “hello” hello • Print x+y 13 • Print x=y; false

4.3.1 Print方法 • Print方法在Form_Load事件过程中不起作用。若要在Form_Load事件中显示数据，必须使用Show方法或者把AutoRedraw的属性设置为True • Tab(n)函数: 在指定的第n个位置上输出数据 • Spc(n)函数: 跳过n个空格

4.3.2 用消息框(MsgBox)输出数据 • 格式: MsgBox(<提示信息>[，按钮类型][，对话框标题]) • 功能: 在对话框中显示消息。 • 说明: • <提示信息> ：字符串表达式； • <按钮类型> ：数值表达式0-5，省略但不能省略逗号； • <对话框标题> ：字符串表达式；

4.3.3 用文本框(TextBox)输出数据 • 学生自己练习例4-6

4.3.4 用标签(Label)输出数据 • 属性：学生自己练习例4-6 • 事件： • 方法：Move • 学生自己练习例4-7

4.4 注释、暂停与结束语句 • 注释语句 ‘ |Rem • 暂停语句 stop • 结束语句 End

4.5 应用举例 • 例1 • 例2

数据输入 【例1】输入球体的半径，然后计算并输出球体的体积和表面积。分析：设球的半径为r，球体积和球表面积分别为：v和f，依题义可得计算公式：设计步骤如下： (1) 建立应用程序用户界面。选择“新建”工程，进入窗体设计器，增加两个命令按钮Command1～Command2、3个标签Label1～Label3和3个文本框Text1～Text3。 1. 使用文本框控件

编写程序代码。 编写命令按钮Command1的Click事件代码： Private Sub Command1_Click() Dim r As Single, v As Single, f As Single Const pi = 3.14159 r = Val(Text1.Text) v = 4 / 3 * pi * r ^ 3 : f = 4 * pi * r ^ 2 Text2.Text = v : Text3.Text = f End Sub 编写命令按钮Command2的Click事件代码： Private Sub Command2_Click() Unload Me End Sub

2.输入数据——输入框（InputBox） 【例2】编制华氏温度和摄氏温度相互转换的程序。利用输入框输入温度. 设计步骤如下： (1) 建立应用程序用户界面与设置对象属性。选择“新建”工程，进入窗体设计器，增加两个命令按钮Command1～Command2和一个标签Label1。

图3-26 温度的转换

(2) 编写事件代码。 编写“摄氏转华氏”命令按钮Command1的Click事件代码： Private Sub Command1_Click() c = Val(InputBox("请输入摄氏温度值：", "摄氏转华氏", 0)) f = 32 + 9 * c / 5 Label1.Caption = "摄氏" & c & "度 = 华氏" & Format(f, "####.##") & "度" End Sub

编写“华氏转摄氏”命令按钮Command2的Click事件代码：编写“华氏转摄氏”命令按钮Command2的Click事件代码： Private Sub Command2_Click() f = Val(InputBox("请输入华氏温度值：", "华氏转摄氏", 0)) c = 5 * (f – 32) / 9 Label1.Caption = "华氏" & f & "度 = 摄氏" & Format(c, "####.##") & "度" End Sub

4.6 小结考试（共20） • p64 例4-9（5分） • p65 例4-11 （5分） • p67 实习4-1 （5分） • p67 实习4-3 （5分） • 自由发挥，任选2道（ 5分）

Visual Basic 程序设计教程