第十九套
一（1） 通过菜单编辑器建立一个主菜单，在菜单编辑器的标题处输入“操作”，名称处输入Op，在该菜单下有二个子菜单，在菜单编辑器的标题处分别输入“显示”和“清除”，名称处分别输入Dis和Clea。
单击“操作”菜单中的“显示”命令： Private Sub Dis_Click() Print \等级考试\End Sub
单击“操作”菜单中的“清除”命令： Private Sub Clea_Click() Cls End Sub
一（2） 画一个标签控件，通过其属性窗口将名称设为Lab1。画一个列表框控件，通过其属性窗口将名称设为L1，向列表框中添加项目（List属性），添加的项目具体内容不限，每个项目为一行。
双击列表框（即运行DblClick事件过程）： Private Sub L1_DblClick()
Lab1.Caption = L1.ListCount End Sub 二（1） 需在该窗体上画二个框架控件，通过其属性窗口将名称分别设为F1、F2，标题（Caption属性）分别设为“交通工具”和“到达目标”。在F1框架中画二个单选按钮控件，通过其属性窗口将名称分别设为Op1、Op2，标题（Caption属性）分别设为“汽车”和“轮船”。在F2框架中画二个单选按钮控件，通过其属性窗口将名称分别设为Op3、Op4，标题（Caption属性）分别设为“青岛”和“大连”。画一个文本框控件，通过其属性窗口将名称设为Text1。 单击文本框控件： Private Sub Text1_Click() If Op1 And Op3 Then
Text1.Text = \坐汽车去青岛\ ElseIf Op1 And Op4 Then
Text1.Text = \坐汽车去大连\ ElseIf Op2 And Op3 Then
Text1.Text = \坐轮船去青岛\ ElseIf Op2 And Op4 Then
Text1.Text = \坐轮船去大连\ End If End Sub
二（2） 画二个文本框，通过其属性窗口将名称分别设为Text1、Text2，文本框内容（Text属性）分别设置为“等级考试”、“计算机”。画一个标签，通过其属性窗口将名称设为Lab1，高度（Height属性）设为375，宽度（Width属性）设为2000。再画二个单选按钮，通过其属性窗口将名称分别设为Op1、Op2，标题内容（Caption属性）分别设置为“交换”、“连接”。 单击窗体：
Private Sub Form_Click() If Op1 Then
Lab1.Caption = Text1.Text Text1.Text = Text2.Text Text2.Text = Lab1.Caption Lab1.Caption = \交换成功\ ElseIf Op2 Then
Lab1.Caption = Text1.Text & Text2.Text End If End Sub
三 需在该窗体上画三个命令按钮控件，通过其属性窗口将名称分别设为C1、C2和C3，标题（Caption属性）分别设为“读入数据”、“计算”和“存盘”。 单击“读入数据”按钮： Private Sub C1_Click() ReadData1 ReadData2 End Sub
单击“计算”按钮： Private Sub C2_Click()
Dim Arr3(20) As Integer Sum = 0
For i = 1 To 20
Arr3(i) = Int(Arr1(i) / Arr2(i)) Sum = Sum + Arr3(i) Next i
Print \End Sub
单击“存盘”按钮： Private Sub C3_Click()
WriteData \End Sub
变量Sum存放和的结果，它在几个事件过程中都要使用，所以定义成全局变量，即在声明部分加入语句： Dim Sum As Integer 第十八套
一（1） 画一个文本框控件，通过其属性窗口将名称设为Text1。通过菜单编辑器建立一个主菜单，在菜单编辑器的标题处输入“操作”，名称处输入Op，在该菜单下有二个子菜单，在菜单编辑器的标题处分别输入“显示”和“清除”，名称处分别输入Dis和Clea。 单击“操作”菜单中的“显示”命令： Private Sub Dis_Click()
Text1.Text = \等级考试\End Sub
单击“操作”菜单中的“清除”命令：
Private Sub Clea_Click() Text1.Text = \End Sub
一（2） 画一个文本框，将名称设为Text1，（Text属性）设为空白。画一个列表框，将名称设为L1，向列表框中添加项目（List属性），添加的项目分别为“AAAA”、“BBBB”、“CCCC”和“DDDD”，每个项目为一行。 双击列表框中的任一项（即运行DblClick事件过程），在DblClick事件过程中加入语句：L1.AddItem Text1.Text。 二（1）需在该窗体上画二个框架控件，通过其属性窗口将名称分别设为F1、F2，标题（Caption属性）分别设为“交通工具”和“到达目标”。在F1框架中画二个单选按钮控件，通过其属性窗口将名称分别设为Op1、Op2，标题（Caption属性）分别设为“飞机”和“火车”。在F2框架中画二个单选按钮控件，通过其属性窗口将名称分别设为Op3、Op4，标题（Caption属性）分别设为“广州”和“昆明”。画一个标签控件，通过其属性窗口将名称设为Lab1。 单击单选按钮（即运行Click事件过程），在每个单选按钮Click事件过程中加入语句：Fun
标签显示的通用过程Fun()，在该过程中加入语句： Private Sub Fun()
If Op1 And Op3 Then
Lab1.Caption = \坐飞机去广州\ ElseIf Op1 And Op4 Then
Lab1.Caption = \坐飞机去昆明\ ElseIf Op2 And Op3 Then
Lab1.Caption = \坐火车去广州\ ElseIf Op2 And Op4 Then
Lab1.Caption = \坐火车去昆明\ End If End Sub
二（2） 画二个文本框，通过其属性窗口将名称分别设为Text1和Text2，文本框中的初始内容（Text属性）分别设为“等级考试”和“计算机”。画一个标签，通过其属性窗口将名称设为Lab1，标签的高度（Height属性）设为375，宽度（Width属性）设为2000。画两个单选按钮，通过其属性窗口将名称分别设为Op1和Op2，标题（Caption属性）分别设为“交换”和“连接”，再画一个命令按钮，通过其属性窗口将名称设为C1，标题（Caption属性）设为“确定”。
选择相关单选按钮，然后单击“确定”按钮： Private Sub C1_Click() If Op1 Then
Lab1.Caption = Text1.Text Text1.Text = Text2.Text Text2.Text = Lab1.Caption Lab1.Caption = \交换成功\ ElseIf Op2 Then
Lab1.Caption = Text1.Text & Text2.Text End If End Sub
另外特别需要注意的是在结束程序时必须用窗体右上角的关闭按钮来结束程序，否则该部分将没有成绩。
三 在窗体上画三个命令按钮控件，通过其属性窗口将名称分别设为C1、C2、C3，标题（Caption属性）分别设为“读入数据”、“计算”和“存盘”。 单击“读入数据”按钮： Private Sub C1_Click() ReadData1 ReadData2 End Sub
单击“计算”按钮： Private Sub C2_Click()
Dim Arr3(20) As Integer Sum = 0
For i = 1 To 20
Arr3(i) = Int(Arr1(i) / 10) * Int(Arr2(i) / 10) Sum = Sum + Arr3(i) Next i
Print \End Sub
单击“存盘”按钮： Private Sub C3_Click()
WriteData \End Sub
变量Sum存放和的结果，它在几个事件过程中都要使用，所以定义成全局变量，即在声明部分加入语句： Dim Sum As Integer 第十七套
一（1） 画一个文本框控件，通过其属性窗口将名称设为Text1。画一个命令按钮，通过其属性窗口将名称设为C1，标题（Caption属性）设为“显示”，TabIndex属性设为0，Cancel属性（用来指示命令按钮是否为取消按钮）设为True。 命令按钮的Cancel属性设置为取消按钮，则按Esc键就调用C1的Click事件，在该Click事件过程中加入语句： Private Sub C1_Click()
Text1.Text = \等级考试\End Sub
一（2） 画一个文本框控件，通过其属性窗口将名称设为Text1。需在该窗体上建立一个主菜单，选择Visual Basic菜单栏中的“工具”菜单下的“菜单编辑器”选项，在“菜单编辑器”的“标题”处输入“操作”，在“名称”处输入Op，这样就建立了一个主菜单，然后单击“下一个”按钮，则进入下一个菜单项的设置，若此时单击一次向右的箭头，则框中此项的标题向内缩进，即
为上一菜单项的子菜单项。此时在“菜单编辑器”的“标题”处输入“显示”，在“名称”处输入Dis，这样就建立了一个“操作”菜单下的“显示”子菜单。依此方法在“菜单编辑器”的“标题”处输入“隐藏”，在“名称”处输入Hid，这样又建立了一个“操作”菜单下的“隐藏”子菜单。 单击“操作”菜单下的“显示”命令，即在该Click事件过程中加入语句：Text1 = \等级考试\，这样即可在 Text1 中显示所需的字符。
单击“操作”菜单下的“隐藏”命令，即在该Click事件过程中加入语句：Text1.Visible = False，这样文本框就隐藏了。 二（1） 需在该窗体上画二个框架控件，通过其属性窗口将名称分别设为F1、F2，标题（Caption属性）分别设为“交通工具”和“到达目标”。在F1框架中画二个单选按钮控件，通过其属性窗口将名称分别设为Op1、Op2，标题（Caption属性）分别设为“飞机”和“火车”。在F2框架中画二个单选按钮控件，通过其属性窗口将名称分别设为Op3、Op4，标题（Caption属性）分别设为“广州”和“昆明”。画一个标签控件，通过其属性窗口将名称设为Lab1，高（Height属性）设置为375，宽（Width属性）设置为3000。 单击“确定”按钮（即运行Click事件过程），在该Click事件过程中加入语句： Private Sub C1_Click() If Op1 And Op3 Then
Lab1.Caption = \坐飞机去广州\ ElseIf Op1 And Op4 Then
Lab1.Caption = \坐飞机去昆明\ ElseIf Op2 And Op3 Then
Lab1.Caption = \坐火车去广州\ ElseIf Op2 And Op4 Then
Lab1.Caption = \坐火车去昆明\ End If End Sub
二（2） 需在该窗体上画三个文本框控件，通过其属性窗口将名称分别设为Text1、Text2和Text3，标题（Caption属性）分别设为“等级考试”、“计算机”和空白。再画二个单选按钮控件，通过其属性窗口将名称分别设为Op1、Op2，标题（Caption属性）分别设为“交换”和“连接”。
单击窗体（即运行Click事件过程）： Private Sub Form_Click() If Op1 Then
Text3.Text = Text1.Text Text1.Text = Text2.Text Text2.Text = Text3.Text Text3.Text = \交换成功\ ElseIf Op2 Then
Text3.Text = Text1.Text & Text2.Text End If End Sub
三 在窗体的Private Sub Form_Click()事件过程中