第4章 VB程序结构

下拉式菜单设计1．下拉式菜单的组成（如图4.2所示）（1）下拉式菜单由主菜单、主菜单项、子菜单等组成。

（2）子菜单可分为一级子菜单、二级子菜单直到五级子菜单。

（3）每级子菜单由菜单项、快捷键、分隔条、子菜单提示符等组成。

图4.2 下拉式菜单的组成①菜单项：所有子菜单的基本元素就是菜单项，每个菜单项代表一条命令或子菜单标题。

②分隔条：分隔条为一条横线，用于在子菜单中区分不同功能的菜单项组，使菜单项功能一目了然，并且方便操作。

③快捷键：为每个最底层的菜单项设置快捷键后，可以在不用鼠标操作菜单项的情况下，通过快捷键直接执行相应的命令。

④热键：热键是在鼠标失效时，为用户操作菜单项提供的按键选择，使用热键时，须与<Alt>键同时使用。

⑤子菜单提示符：如果某个菜单项后有子菜单，则在此菜单项的右边出现一个向右指示的小三角子菜单提示符。

2．菜单编辑器的启动执行菜单命令：工具| 菜单编辑器，即可打开菜单编辑器，如图4.3所示。

菜单编辑器分为上下两部分：上半部分用于设置菜单项的属性，下半部分用于显示用户设置的主菜单项与子菜单项内容。

图4.3 菜单编辑器3．菜单编辑器的使用方法（1）标题栏（Caption）：输入菜单项的标题、设置热键与分隔条；①标题：直接输入标题内容，如“文件”。

②热键：在菜单项中某个字母前输入“&”后该字母将成为热键，如在图4.3的文件主菜单项中输入“文件（&F）”。

③分隔条：在标题框中键入一个连字符“－”即可。

（2）名称栏（Name）：用于输入菜单项内部惟一标识符，如图4.3 “File”等，程序执行时不会显示名字栏内容。

注意：分隔符也要输入名称，且不能重复命名。

（3）快捷键下拉列表框（Shortcut Key）：用于选择菜单项的快捷键，用鼠标单击列表框的下拉按钮，在列表框中可选择不同的快捷键。

（4）下一个按钮（Next）：当用户将一个菜单项的各属性设置完后，单击“下一个”按键可新建一个菜单项或进入下一个菜单项。

数据输入输出
例1：MsgBox "请确认交易金额",33,"交易 确认"
例2：MsgBox "请确认交易金额",52,"交易 确认"
MsgBox按钮设置
分组
内部常数 VBOkOnly VBOkCancel VBAboutRetryIgnore VBYesNoCancel VBYesNo VBRetryCancel VBCritical
数据输入输出
1、标签和文本框 说明：标签利用它的Caption属性；文本框利 用它的Text属性。 例如： a%=Val（Text1） ’完成数据输入 c！=5/9*（a-32） Text2=c ’完成数据输出 Label1.Caption=3.14*r*r
数据输入输出
2、输入对话框InputBox函数 功能:打开一个对话框，等待用户输入，返回 字符串类型的输入值。 例: InputBox("请输入数值")
If 条件语句
2、双分支结构
形式： （1）If <表达式> Then <语句块1> Else <语句块2> End if
（2）If <表达式> Then
T 表达式 F
语句块 1
语句块 2
<语句1>
Else
<语句 2>
例：下列哪一段代码是正确的？
1) if a>1 then k=0 else k=1 2) if a>1 then k=0 end if 错误 3) if a>1 then k=0 else k=1
Visual Basic 程序设计教程
第四章 VB控制结构

V B第4章F-(1)习 题一、 选择题1. 设分段函数y (x )的表达式为：y ＝⎩⎪⎨⎪⎧ x ＋1x>0x －1x ≤0，则能正确实现该分段函数计算的语句为( D )。

A. If x>0 Then y ＝x ＋1B. y ＝x ＋1y ＝x －1 If x<＝0 Then y ＝x －1C. If x>0D. If x>0 Theny ＝x ＋1 y ＝x ＋1Else Elsey ＝x －1 y ＝x －1End If End If2. 有如下程序段：xcase ＝1t ＝InputBox (“请输入一个数：”)Select Case tCase Is>0Y ＝xcase ＋1Case Is ＝0Y ＝xcase ＋2Case ElseY ＝xcase ＋3End SelectPrint xcase ； Y若输入－1，输出结果为( A )。

A. 1 4B. 1 3C. 1 2D. 1 13. 下列循环语句执行后，X 的值等于( A )。

X ＝5For i ＝1 To 20 Step 2X ＝ X ＋ i \5Next iX ＝iA. 21B. 22C. 23D. 244. 执行以下程序段时，( C )。

x ＝1Do While x<>0x ＝x*xPrint x ；LoopA. 循环体将执行1次B. 循环体将执行0次C. 循环体将执行无限次D. 系统将提示语法错误5. 设窗体中包含一个命令按钮Command1，一个标签Label1，并有以下的事件过程。

程序运行后，单击Command1按钮，标签中显示的内容是(C)。

Private Sub Command1_Click()Dim i As Integer，n As Integeri＝1： n＝0Do While i<10n＝n＋ii＝i*(i＋1)LoopLabel1＝i & ″－″ & nEnd SubA. 6－3B. 24－9C. 42－9D. 6－96. 有如下循环结构：Do循环体Loop While 条件则以下叙述中错误的是(A)。

– –
Dim A (-1 To 2 ) A（-1）、A（0）、A（1）、A（2）
24
3.6.2 静态数组与动态数组

静态数组 动态数组
–
在编译时就分配内存区的数组

在运行时可以改变大小的数组 使用Dim语句和 Redim语句可声明动态数组 在修改数组的大小时，使用了Preserve关键字以保 留该数组中原有的内容 例：Dim MyArray(25) ... Redim Preserve MyArray(30)
14
下面是for循环声明的一般形式:
For variable_1 = start to end For variable_2 = start to end For variable_3 = start to end Next variable_3 Next variable_2 Next variable_1
15
Private Sub Form_Click() Dim i As Integer, j As Integer t = "ABCD" s = "abcd" ' i=1 Do While i < 5 j=1 Print Tab(10); Do While j < 5 Print " " + Mid$(t, i, 1) + Mid$(s, j, 1); j=j+1 Loop i=i+1 Print Loop End Sub

32
3.7 过程
VB应用程序是由过程组成的，使用过程是实现
结构化程序设计思想的重要方法。
除了事件过程外， VB 还包括 Sub 过程（子程序
过程）和Function过程（函数过程），通常称其 为“通用过程”，它可以单独建立，供事件过程 或其他通用过程调用。