注意:下面出现的“考生文件夹”均为c:\wexam\25160001。
(1)在窗体上建立一个名称为Text1的文本框,然后建立两个主菜单,其标题分别为“商品类别”和“帮助”,名称分别为vbMenu和vbHelp,其中“商品类别”菜单包括“百货”、“食品”和“家电”三个子菜单,名称分别为vbMenu1、vbMenu2和vbMenu3。程序运行后,如果在“商品类别”的下拉菜单中选择“百货”,则在文本框内显示“大类核算”;如果选择“食品”,则在文本框内显示“中类核算”;如果选择“家电”,则在文本框内显示“小类核算”。程序中不能使用任何变量,直接显示字符串。程序运行界面如图6-3所示。
注意:保存时必须存放在考生文件夹下,窗体文件名为sjt3.frm,工程文件名为sjt3.vbp。
图6-3 图6-4
(2)在考生文件夹中有文件sjt4.vbp及其窗体文件sjt4.frm,该程序是不完整的,请在有 号的地方填入正确内容,然后删除 及所有注释符(即’号),但不能修改其他部分。存盘时不得改变文件夹和文件名。
本题描述如下:
窗体上有一个名称为Text1的文本框:两个复选框,名称分别为Ch1和Ch2,标题分别为“英语班”和“计算机班”。要求程序运行后,如果只选中Ch1,单击窗体,则在文本框中显示“报名参加英语班”;如果只选中Ch2,然后单击窗体,则在文本框中显示“报名参加计算机班”:如果同时选中Ch1和Ch2,单击窗体,则在文本框中显示“报名参加英语班和计算机班”;如果Ch1和Ch2都不选取,在单击窗体后,则在文本框中什么都不显示。程序运行界面如图6-4所示。
参考答案: 在窗体上建立好控件后,先设置控件属性,再编写事件过程。
在Visual Basic中,菜单也被看作控件,具有属性和事件。菜单的建立在菜单编辑器中完成,菜单的级数通过内缩符号来表示,第一级菜单没有内缩符号,第二级菜单的内缩符号为1:文本框的内容由Text属性设置。解题步骤:
第一步:建立界面并设置控件属性。程序中用到的控件及其属性见表6-3。
[*]
第二步:编写程序代码。
参考代码:
Private Sub vbMenu1_Click()
Text1.Text="大类核算"
End Sub
Private Sub vbMenu2_Click()
Text1.Text="中类核算"
End Sub
Private Sub vbMenu3_Click()
Text1.Text="小类核算"
End Sub
第三步:调试并运行程序。
第四步:按题目要求存盘。
(2) 在窗体上建立好控件后,先设置控件属性,再编写事件过程。
在Visual Basic中,复选按钮的标题由Caption属性设置,Value属性用来表示复选框的状态,复选框的Value属性有0、 1或2三种取值,其作用为:
0:表示未选中;
1:表示选中该复选框;
2:表示该复选框被禁止(灰色)。解题步骤:
第一步:建立界面并设置控件属性。程序中用到的控件及其属性见表6-4。
[*]
第二步:编写程序代码。
程序提供的代码:
Option Explicit
Private Sub Form_Click()
Text1.Text = ""
’If Ch1.Value = Then
Text1.Text = Text1.Text + "英语班"
End If
If Ch2.Value Then
’If Text1.Text <> "" Then Text1.Text = + "和"
Text1.Text = Text1.Text + "计算机班"
End If
If Text1.Text <> "" Then
Text1.Text = "报名参加" + Text1.Text
End If
End Sub
参考代码:
Option Explicit
Private Sub Form_Click()
Text1.Text = ""
If Ch1.Value = 1 Then
Text1.Text = Text1.Text + "英语班"
End If
If Ch2.Value Then
If Text1.Text <> "" Then Text1.Text = Text1.Text + "和"
Text1.Text = Text1.Text + "计算机班"
End If
If Textl.Text <> "" Then
Text1.Text = "报名参加" + Text1.Text
End If
End Sub
第三步:调试并运行程序。
第四步:按题目要求存盘。