第五讲 VB语言基础（3）.

Presentation on theme: "第五讲 VB语言基础（3）."— Presentation transcript:

1 第五讲 VB语言基础（3）

2 本讲教学内容 3.4 VB程序构成与VB基本语句 3.5 输入/输出设计实例

3 3.4 VB程序构成与VB基本语句 一、VB程序构成 二、VB基本语句

4 一、VB程序构成 1. VB程序中允许使用的字符 VB程序中允许使用西文字符和中文字符，键盘上可以打出来的字符几乎都可以使用。

5 3. VB语句 VB程序是由语句组成的，语句可以定义为： 语句定义符 语句体
　　语句定义符　语句体 　语句定义符是个关键字，代表当前要执行的操作，语句体是执行的内容，必须符合操作的语法规则，语句定义符和操作符号必须是西文字符。

6 4. VB程序 (1) VB程序是以行为单位编写的，由若干语句行组成。
(2) 通常情况下，VB程序代码每行写一条语句，每个语句写在一行中，一行中最多容纳254个字符，并按Enter键结束。 (3) 如果需要在同一行内写多条语句时需要使用冒号”:”作为分隔符。 (4) 如果一条语句很长或其他原因需要写成多行时，要使用续行标记”_”，是一个空格加一个下划线字符。

7 二、VB基本语句 1. 变量定义语句(Dim) (1) 语句格式：
Dim <变量1> [AS <类型>][,<变量2> [AS <类型>]] (2) 作用：为每个变量命名、指定类型。 (3) 说明：定义的变量只是在运行时才在内存中分配相应的空间，如果没有定义，同时系统又可以默认时，变量的类型是变体类型，可以根据具体使用的情况转换为对应的类型。

8 (4) 举例说明 　　Dim a As Integer, b As String 　　Dim n, k, m As Integer

9 2. 赋值语句(Let) (1) 格式：[Let] 变量名 = 表达式 (2) 功能：将表达式的值赋给变量或某个带有属性的对象。

10 (3) 说明： 变量名为变量或属性的名称。 “=”是赋值号，不是数学中的等号。 先计算表达式的值，然后再将结果赋给变量。
“=”两边的类型必须一致或相容。 如果变量是Variant类型，则表达式可以是任何类型。 例如：n1= s1=“姓名” l1=false lable1.Caption=s1 Text1.Text=“请输入：”+s1

11 3. 打印语句(Print) (1) 格式：[对象名称.]Print [表达式表][,|;]
(2) 功能：在窗体、图片框、打印机等对象中输出信息。 (3) 说明： 与打印语句一起使用的分隔符号有“;”、“,”和函数Tab(n)、Space(n)、Chr(10)、Chr(13)。 “;”分隔是紧凑打印方式，就是用“;”分隔的两项内容输出时紧靠在一起。 “,”分隔是分区打印方式，就是按照一定的分区宽度输出，通常每区的宽度是15列。

12 Tab(n)是定宽输出函数，就是指定Tab(n)前一项的输出宽度为n个位置，使用Tab(n)函数的间隔符必须是“;”。
Space(n)是定宽输出函数，就是指定Space(n)前后两项输出内容之间的间隔是n个位置，使用Space(n)函数的间隔符必须是“;”。 Chr(10)和chr(13)是实现回车和换行。 如果输出内容末尾没有“,”或“;”则自动换到下一行打印；如果有“,”或“;”则打印完本行内容后不换行，后面的Print在同一行输出。

13 (4) 举例：P－64的例题 Form1.FontSize = 15 Print "1"; "2"; "3" Print 1; 2; 3 Print "1", "2", "3" Print 1, 2, 3 Print 1, Print 2, Print 3 Print Tab(8); 1; Tab(16); 2; Tab(24); 3 Print 1; Space(5); 2; Space(8); 3 Print 1; Chr(10); 2; Chr(13); 3

14 4. 注释语句(Rem或‘) (1) 格式：Rem 注释内容 或 ‘注释内容 (2) 作用：是对程序适当增加一些说明以便阅读理解程序。
　　　或 ‘注释内容 (2) 作用：是对程序适当增加一些说明以便阅读理解程序。 (3) 说明：注释语句是非执行语句，也就是说注释语句的出现不会影响到程序的运行。

15 5. 清除语句(Cls) (1) 格式：[对象.]Cls (2) 作用：在相应的对象上清除打印语句和绘图语句等形成的输出。 (3) 说明：对象可以是窗体、图片框和立即窗口，若省略对象则在窗体上清除。

16 3.5 输入输出设计实例 一、输入设计 1. 直接赋初值 是在程序中使用赋值语句给变量或控件属性赋值。 2. 通过文本框(Text)控件传送初值 　　通过文本框输入数据，然后用变量接收或直接参加处理。

17 就是利用输入对话框（InputBox）输入数据。
3. 交互方式赋初值 　就是利用输入对话框（InputBox）输入数据。 (1) 格式：InputBox(提示[，标题][，默认输入值][，<x ，y>]) (2) 功能： 　 打开一个对话框，等待用户输入内容，当用户单击“确定”或按回车键，函数返回输入的值。函数返回字符类型。

18 提示： 字符表达式，作为提示信息；该项不能省略。
(3) 函数中各参数的含义： 提示： 字符表达式，作为提示信息；该项不能省略。 标题： 字符表达式，作为对话框标题； 默认：字符表达式，当在输入对话框中无输入时，则该默认值作为输入内容。 <x,y>: 给出输入对话框在窗体中的位置

19 (4) 举例：P－67的例题 Dim xm As String xm = InputBox(“请输入你的学号：” + _ Chr(13) + Chr(10) + " 输入后请按确认" + _ Chr(13) + Chr(10) + " 放弃请按取消", "输入对话框", " ") Print xm

20 二、输出设计 1. 直接打印输出和绘图输出 通过使用Print命令和绘图命令输出。 2. 通过Text和Label控件输出
　具体方法是给文本框的Text属性或标签的Caption属性赋值。 3. 通过交互式方式输出 　　就是使用MsgBox语句或MsgBox( )函数产生一种系统提供的预定义的“消息对话框”进行输出。

21 变量[%] = MsgBox(提示[,按钮][，标题]) 语句形式： MsgBox 提示[,按钮][,标题] 其中：
（1）消息框的格式 　 函数形式： 变量[%] = MsgBox(提示[,按钮][，标题]) 　 语句形式： MsgBox 提示[,按钮][,标题] 其中： 提示： 字符表达式，作为提示信息；该项不能省略。 标题： 字符表达式，作为对话框标题； 按钮：整型表达式，决定信息框按钮的数目和类型及出现在信息框上的图标类型

22 (2)消息框的功能：是打开一个信息框，等待用户选择一个按钮。
　　MsgBox函数返回所选按钮的整数值，其意义见表2；若不需要返回值，则可作为MsgBox语句使用。

23 表1：“按钮”设置值

24 表2： 函数返回所选按钮整数值

25 在窗体上设置一个命名为Mssgbox的命令按钮，编写单击Msgbox事件的事件代码如下：
举例说明：P-69 　　 在窗体上设置一个命名为Mssgbox的命令按钮，编写单击Msgbox事件的事件代码如下： MsgBox "how are you!", vbAbortRetryIgnore, "test" Text1 = MsgBox("first", , "first") Text2 = MsgBox("second", vbCritical + vbAbortRetryIgnore, "second") Text3 = MsgBox("third", vbYesNoCancel + vbQuestion, "third") Text4 = MsgBox("fourth", vbOKCancel + vbExclamation + vbApplicationModal, "fourth") Text5 = MsgBox("fifth", vbRetryCancel + vbInformation + vbSystemModal, "fifth")

26 (1) 建立一个空窗体，然后在窗体上建立如下图所示的控件。
操作步骤如下： (1) 建立一个空窗体，然后在窗体上建立如下图所示的控件。 (2) 对msgbox命令按钮编制单击事件过程代码。 (3) 运行程序，单击Msgbox命令按钮。

27 单击事件过程代码如下： Text1 = MsgBox("first", , "first")
MsgBox "how are you!", vbAbortRetryIgnore, "test" Text1 = MsgBox("first", , "first")

28 Text2 = MsgBox("second", vbCritical + vbAbortRetryIgnore, "second")
Text3 = MsgBox("third", vbYesNoCancel + vbQuestion, "third")

29 Text4 = MsgBox("fourth", vbOKCancel + vbExclamation + vbApplicationModal, "fourth")
Text5 = MsgBox("fifth", vbRetryCancel + vbInformation + vbSystemModal, "fifth")

30