vb操作题

为"学分等级"和"帮助"，名称分别为vbMenu和vbHelp，其中"学分等

级"菜单包括"等级A"、"等级B"、"等级C"三个子菜单，名称分别为

vbMenu1、vbMenu2、vbMenu3。要求程序运行后，如果在"学分等级"的下

拉菜单中选择"等级A"，则在文本框内显示："85分以上"；如果选择

"等级B"，则在文本框内显示："75分至85分"；如果选择"等级C"，

则在文本框内显示："60分至75分"（要求：不能使用任何变量，直接显

示字符串）。

*注意：

保存时必须存放在考生文件夹下，窗体文件名为wy5.frm，工程文件名

为wy5.vbp。

***********************************************************************

（2）在考生文件夹中有文件wy6.vbp及其窗体文件wy6.frm，该程序是不完整的，请在有？号的地方填入正确内容，然后删除？及所有注释符（即'号），但

不能修改其它部分。存盘时不得改变文件夹和文件名。

本题描述如下：

窗体上有一个名称为Text1的文本框；两个复选框，名称分别为Ch1和Ch2，

标题分别为"英语班"和"计算机班"；一个名称为C1、标题为"确定"

命令按钮。要求程序运行后，如果只选中Ch1，单击"确定"命令按钮，则

在文本框中显示："报名参加英语班"；如果只选中Ch2，单击"确定"命

令按钮，则在文本框中显示："报名参加计算机班"；如果同时选中 Ch1

和Ch2，然后单击"确定"命令按钮，则在文本框中显示："报名参加英语

班和计算机班"；如果Ch1和Ch2都不选，然后单击"确定"命令按钮，则

在文本框中什么都不显示。

别为"商品类别"、"帮助"，名称分别为vbMenu和vbHelp，其中"商

品类别"菜单包括"百货"、"食品"、"家电"三个子菜单，名称分别

为vbMenu1、vbMenu2、vbMenu3。程序运行后，如果在"商品类别"的下拉

菜单中选择"百货"，则在文本框内显示："大类核算"；如果选择"食

品"，则在文本框内显示："中类核算"；如果选择"家电"，则在文本

框内显示："小类核算"（要求：不能使用任何变量，直接显示字符串）。

*注意：

保存时必须存放在考生文件夹下，窗体文件名为wy5.frm，工程文件名

为wy5.vbp。

***********************************************************************

（2）在考生文件夹中有文件wy6.vbp及其窗体文件wy6.frm，该程序是不完整的，请在有？号的地方填入正确内容，然后删除？及所有注释符（即'号），但

不能修改其它部分。存盘时不得改变文件夹和文件名。

本题描述如下：

窗体上有一个名称为Text1的文本框；两个复选框，名称分别为Ch1和Ch2，

标题分别为"爱心社"和"学通社"。要求程序运行后，如果只选中Ch1，

单击窗体，则在文本框中显示"报名参加爱心社"；如果只选中Ch2，然后

单击窗体，则在文本框中显示"报名参加学通社"；如果同时选中 Ch1 和

Ch2，单击窗体，则在文本框中显示"报名参加爱心社和学通社"；如果

Ch1和Ch2都不选取，在单击窗体后，则在文本框中什么都不显示。

3（1）在名称为Form1的窗体上放置两个列表框，名称分别为List1和List2。在 List1中添加"第一题"、"第二题"…"第八题"，并设置MultiSelect

属性为2（要求在控件属性中设置实现）。再放置一个名称为Cmd1，标题

为"复制"的命令按钮。程序运行后，如果单击"复制"按钮，将 List1

中选中的内容(至少两项)复制到List2中。如果选择的项数少于2项，用消

息框提示"请选择至少两项"。

*注意：

保存时必须存放在考生文件夹下，窗体文件名为wy1.frm，工程文件名

为wy1.vbp。

**********************************************************************

（2）在名称为Form1的窗体上放置一个名称为Text1的文本框。程序运行后，用

户在文本框中输入的英文字母一律用大写显示（要求焦点在最右端）。

*注意：

保存时必须存放在考生文件夹下，窗体文件名为wy2.frm，工程文件名

为wy2.vbp。

4

窗体上有一个名称为Text1的文本框；两个复选框，名称分别为Ch1和Ch2，

标题分别为"羽毛球"和"乒乓球"；一个名称为C1、标题为"确定"的命

令按钮。要求程序运行后，如果只选中Ch1，单击"确定"命令按钮，则在

文本框中显示："报名参加羽毛球比赛"；如果只选中Ch2，然后单击"确

定"命令按钮，则在文本框中显示："报名参加乒乓球比赛"；如果同时选

中Ch1和Ch2，单击"确定"命令按钮，则在文本框中显示："报名参加羽毛

球和乓乓球比赛"；如果Ch1和Ch2都不选，然后单击"确定"命令按钮，则

在文本框中什么都不显示。

Option Explicit

Private Sub C1_Click()

Text1.Text = ""

If Ch1.Value And Not Ch2.Value Then Text1.Text = "报名参加羽毛球比赛" If Ch1.Value = False And Ch2.Value Then Text1.Text = "报名参加乒乓球比赛"

If Ch1.Value And Ch2.Value = Then Text1.Text = "报名参加羽毛球和乒乓球比赛"

End Sub