二、基本操作题

请根据以下各小题的要求设计Visual Basic应用程序（包括界面和代码）。

（1）在名称为Form1的窗体上建立一个名称为Command1、标题为"输出"的命令按钮，以及一个名为Text1的文本框，编写适当的事件过程。程序运行后，如果单击"输出"按钮，则在文本框中显示"模拟考试"，如图12-1所示。程序中不能使用任何变量，直接显示字符串。

图12-1

注意：保存时必须存放在考生文件夹下，窗体文件名为sj1.frm，工程文件名为sj1.vbp。

（2）在Form1的窗体上画一个列表框，名称为List1，通过属性窗口向列表框中添加4个项目，分别为"Item1"、"Item2"、"Item3"和"Item4"。编写适当的事件过程，过程中只能使用一条命令。程序运行后，如果双击列表框中的某一项，则把该项删除掉。程序的运行界面如图12-2所示。

图12-2

注意：存盘时必须存放在考生文件夹下，工程文件名为sj2.vbp，窗体文件名为sj2.frm。

【解析】（1）根据题意，新建“标准EXE”工程，将一个Command控件和一个Text控件添加到窗体上，Command的名称为Command1、Caption属性为“输出”，Text的名称为Text1、Text属性为空。双击Command1命令按钮，编写如下代码：

Private Sub Command1_Click()

Text1.Text="模拟考试"

End Sub

单击按钮运行程序，并按要求保存。

（2）根据题意，新建“标准EXE”工程，将一个ListBox控件添加到窗体上，其名称为List1，在其List属性中添加以下4项：“Item1”、“Item2”、“Item3”和“Item4”。双击List1进入代码窗口，编写如下代码：

Private Sub List1_DblClick()'双击List调用的函数

List1.RemoveItem List1.ListIndex

End Sub

单击按钮运行程序，并按要求保存。

三、简单应用题

（1）在考生文件夹下有一个工程文件sj3.vbp，窗体上有两个单选按钮，标题为"Item1"和"Item2"；两个标题分别为"按钮1"和"按钮2"的命令按钮，如图12-3所示。程序的功能是：运行时，如果选中单选按钮Item1后，"按钮1"可用，"按钮2"不可用，如果选中单选按钮Item2后，则相反，单击可用按钮，在窗口上打印该按钮的标题。

图12-3

要求：设初始选中的是"Item1"；去掉程序中的注释符"'"，把程序中的"?"改为正确的内容，使其实现上述功能，但不能修改程序中的其他部分，也不能修改控件的其他属性。最后把修改后的文件按原文件名存盘。

（2）在考生文件夹下有一个工程文件sj4.vbp，相应的窗体文件为sj4.frm，在窗体上有一个命令按钮和两个文本框。程序运行后，单击计算按钮，即可计算出大于Text1中输入的数且能被3、5和7同时整除的最小整数，并在文本框Text2中显示出来，如图12-4所示。在窗体的代码窗口中，已给出了部分程序。

图12-4

要求：去掉程序中的注释符"'"，把程序中的"?"改为正确的内容，使其实现上述功能，但不能修改程序中的其他部分，也不能修改控件的其他属性。最后把修改后的文件按原文件名存盘。

【解析】（1）本题主要考查命令按钮的属性设置及单选按钮的单击事件，补充后的代码如下：

Private Sub Command1_Click()

Cls

Print"按钮1"'显示“按钮1”

End Sub

Private Sub Command2_Click()

Cls

Print"按钮2"'显示“按钮2”

End Sub

Private Sub Form_Load()

Command1.Enabled=True'按钮1可用

Command2.Enabled=False'按钮2不可用

End Sub

Private Sub Option1_Click()

Command1.Enabled=True