vb

子菜单命令的 Click事件过程分别为： Private Sub shape1_Click() = 1 End Sub Private Sub shape2_Click() = 3 End Sub 按要求保存文件即完成本题。 3. 综合应用（ 1小题，计 30分） 注意：下面出现的 考生文件夹 均为 C:\WEXAM\00000000\ 在考生目录下有一个工程文件 ， 其窗体如图所示。

3）单击 退出 按钮，则结束程序运行。 要求： 请去掉程序中的注释符，把程序中的。 改为正确的内容，使 其实现上述 功能，但不能修改窗体文件中已经存在的控件和程序。 最后把修改后的 文件按原文件名存盘。 第 1小题： 本题主要考查了 ListBox控件的 AddItem方法和 Option控件的 Value属性、 Caption属性。 ： item[, index]。 这里 object为

值，并将结果显示在标签 Label1中，否则没有成绩。 最后，程序按原文件名存盘。 ********************************************************************** （ 2）在考生文件夹下有一个工程文件 ，其窗体上有三个标签、三个文 本框和两个命令按钮，均使用默认名称。 程序的功能是： 1）如果单击 读数据 命令按钮，则把考生文件夹下

************************************************************ （ 1）在考生目录下有一个工程文件。 程序的功能是：通过键盘向文本框 中输入数字，如果输入的是非数字字符，则提示输入错误，且文本框中不显 示输入的字符。 单击名称为 Command标题为 添加 的命令按钮，则将文 本框中的数字添加到名称为 Combo1的组合框中。

***************************** （ 2）在窗体上建立一个名称为 Text1的文本框，再建立一个名称为 Cmd1，标题为 计算 的命令按钮（如图所示）。 要求程序运行后，单击命令按钮， 将 计算 100200之间所有素数之和，在文本框中显示结果，同时把结果存入文 件。 （在考生文件夹中有标准模块 ,其中的 putdata过程 可以把结果存入文件，而

ox控件图标，然后在窗体上分别拖拉出两个文本框 ,通过属性窗口设置名为 Text1的文本框的 PasswordChar属性为“ *”。 打开代码窗口，输入如下的代码： Private Sub Text1_Change() = End Sub 按要求保存文件即完成本题。 2. 简单应用（ 2小题，每题 20分，计 40分） 注意：下面出现的“考生文件夹”均为 C:\WEXAM\00000000\

小写字母串“ red”；如果单击“蓝色”菜单项，则在文本框内显示小写字 母串“ blue”； 如果单击“黄色”菜单项，则在文本框内显示小写字母串 “ yellow”（要求：不能使用任何变量 ，直接显示字符串）。 *注意： 保存时必须存放在考生文件夹下，窗体文件名为 ，工程文件名 为。

********************************************************************** （ 2）在考生文件夹下有一个工程文件 ，请在窗体上画三个文本框，其 名称分别为 Text Text2和 Text3，文本框内容分别设置为“等级考试”、 “计算机”和空白。 然后画两个单选按钮 ，其名称分别为 Op1和 Op2，标题 分别为“交换”和“连接”

的属性。 最后把修改后的 文件以原来的文件名存盘。 ********************************************************************** （ 2）在考生文件夹下有一个工程文件 ，请在窗体上画一个文本框，名 称为 Text1；画一个命令按钮，名称为 C1，标题为“确定”；再画三个单 选按钮，名称分别为 Op Op Op3，标题分别为“飞机”

下拉菜单中选择“张三”，则在文本框内显示“张三”；如果选择“李四” 则在文本框内显示“李四”；如果选择“王五”则在文本框内显示“王五”。 *注意： 保存时必须存 放在考生文件夹下，窗体文件名为 ，工程文件名 为。 *********************************************************************** （ 2）在考生文件夹中有文件