1、VB机试模拟试卷 113及答案与解析 一、基本操作题（ 30分） 1 (1)在名称为 Forml的窗体上画两个文本框和两个单选按钮。文本框的名称分别为Textl和 Text2，初始时内容为 Text1和 Text2。单选按钮的名称分别为 Optionl、Option2，标题分别为 “文本框 Textl可用 ”和 “文本框 Text2可用 ”。编写适当的事件过程，使得程序运行时，初始状态单选按钮都未被选中，如果单击 Optionl按钮，则文本框 Text1可用， Text2不可用；如果单击 Option2按钮。则文本框 Text 2可用， Text 1不可用。程序中不得使用任何变量。程序运行时的
2、窗体界面如图 261所示。 注意：考生完成程序编写后，将工程文件与窗体文件保存到考生文件夹下，文件名分别为 sjl vbp与 sjl frm。 (2)在名称为 Forml的窗体上画一条直线，名称为 Linel。同时，在窗体上画一个水平滚动条，名称为 HScrolll。编写适当的事件过程，程序运行后，根据水平滚动条的长度改变 Linel的长度。不得使用任何变量。程序运行时的窗体界面如图 262所示。注意：存盘时必须存放在考生文件夹下，工程文件名为 sj2 vbp，窗 体文件名为 sj2 frm。 二、简单应用题（ 40分） 2 (1)在考生目录下有一个工程文件 sj3 vbp，窗体中有一个命令按
3、钮，标题为 “开始 ”，名称为 Commandl；有一个图片框，名称为 Picl，还有一个计时器，名称为Timer1。并给出了两个事件过程，但并不完整，要求： 设置计时器的属性，使其每隔 3秒调用 Timerl事件过程一次，改变 Picl的背景色 (红、绿、蓝 3色 )。 去掉程序中的注释符 “”，把程序中的 “?”改为正确的内容，使得在运行时单击 “开始 ”按钮，则 Picl每隔 3秒改变一次背景色，由红变绿 ，由绿变蓝，再由蓝变红，如图233所示。 注意：不能修改程序中的其他部分。最后把修改后的文件按原文件名存盘。 (2)在窗体上绘制一个命令按钮，名称为 Commandl，标题分别为 “计
4、算 ”，一个名称为 Textl的文本框。请编写适当的事件过程，在 Textl中输出 30以内满足勾股定理的整数组合。注：勾股定理中 3个数的关系是： a2+b2=c2。例如 3、 4、 5就是一个整数组合，即 32+42=52。如图 234所示。注意：编写程序，去掉程序中的注释符 “”，把程序中的 “?”改为正确的内容，不能修改程序中的其他部分。 最后把修改后的文件按原文件名存盘。 三、综合应用题（ 30分） 3 在考生文件夹下有一个工程文件 sj5 vbp，在该工程中为考生提供了一个通用过程，考生可以直接调用。请在窗体上画一个名称为 Textl的文本框；画一个名称为Commandl、标题为
5、“计算显示 ”的命令按钮；再画两个单选按钮，名称分别为Optionl和 Option2、标题分别为 “求 100到 250之间能被 5整除的数的个数 ”和 “求300到 400之间能被 6整除的数的个数 ”，如图 625所示。请编写适当的事件过程，使得在运行时，选中一个单选按钮，再单 击 “计算显示 ”按钮，就可以按照单选按钮后的文字要求计算，并把计算结果放入文本框中，最后把已经修改的工程文件和窗体文件以原来的文件名存盘。 注意：考生不得修改窗体文件中已经存在的程序，退出程序时必须通过单击窗体右上角的关闭按钮来完成。在结束程序运行之前，必须至少要进行一种计算，否则不得分。 VB机试模拟试卷 1
6、13答案与解析 一、基本操作题（ 30分） 1 【正确答案】 (1)根据题意，新建 “标准 EXE”工程，将两个 Text控件和两个Option控件添加到窗体上， Text的名称为 Textl、 Text2、 Text属性分别为 “Textl”和“Text2”， Option的名称分别为 Optionl、 Option2、 Caption属性分别为 “文本框 Textl可用 ”和 “文本框 Text2可用 ”，其中 Optionl的 Value属性为 False， Text2的 Enable属性为 False。双击 Option进入代码窗口，编写如下代码： Private Sub Option
7、l_Click() Textl Enabled=True选中 Optionl，则 Textl可用 Text2 Enabled=FalseText2不可用 End Sub Private Sub Option2_Click() Textl Enabled=False Text2 Enabled=True End Sub 单击 按钮运行程序，并按要求保存。 (2)根据题意，新建 “标准 EXE”工程，将一个 HScrollBar控件添加到窗体上，其名称为 HScrolll， Max属性为 2000， Min属性为 400，然后再用 Line控件画一条直线， X2-X1的值为 400， BmderW
8、idth属性为 4。双击 HScrolll，进入代码窗口，编写如下代码： Private Sub HScrolll_Change() Linel X2=Linel X1+HScrolll Value通过 HScrolll来改变 Line的长度 End Sub 单击 按钮运行程序，并按要求保存。 二、简单应用题（ 40分） 2 【正确答案】 (1)本题主要考查 Timer控件的属性设置和图片框控件的属性设置。计时器的 Interval属性用于设置每次触发计时器的 Timer事件的时间间隔，单位为毫秒，它可以在属性窗口中设置，也可以通过代码设置。图片框控件既可用于显示图片，也可用于在上面绘图，由于
9、本题只要求改变颜色，所以只需控制其背景颜色属性即可。根据题意，补充后的代码如下： Dim a As Integer Private Sub Commandl_Click() Timerl Interval=1000开始后， Timer的间隔时间为 1秒 End Sub Private Sub Form_Load() a=0初始化计数 Picl BackColor=RtB(255， 0， O) End Sub Private Sub Timerl_Timer() a=(a+1)Mod 9 以 9为周期 If a=3 And a 按钮运行程序，并按要求保存。 (2)本题只要明白勾股定理的含义就不难
10、了，即a2+b2=c2。程序中利用 3重循环对 30以内的数进行遍历，每发现一组符合条件的数，就以逗号间隔显示在文本框中。窗体界面题中已设计好，只需补充相应的代码，补充后的代码如下： Private Sub Commandl_Click() Dim i As Integer Dim j As Integer Dim k As Integer Dim str As String str=“ For i=1 To 30 第 1个数用 For循环从 1遍历到 30 For j=i To 30第 2个数用 For循环从 i遍历到 30 For k=i To 30第 3个数用 For循环从 i遍历到 3
11、0 If i2+j2=k2 Then满足勾股定理 str=str+CStr(i)+“，“+CStr(j)+“， “+CStr(k)+vbCrLf将获得的 3个数通过字符串形式记录 End If Next k Next j Next i Textl Text=str在 Textl中显示结果 End Sub 单击 按钮运行程序，并按要求保存。 三、综合应用题（ 30分） 3 【正确答案】 根据题意，将一个文本框控件，两个单选按钮控件和一个命令按钮添加到窗体中，文本框的名称为 Textl，单选按钮的名称：分别为 Optionl和Option2， Caption分别为 “求 100到 250之间能被
12、5整除的数的个数 ”和 “求 300到400之间能被 6整除的数的个数 ”，命令按钮的名称为 Commandl， Caption属性为“计算显示 ”，设置完成后，双击 Commandl进入代码窗口，补充后的具体代码如下： Private Sub Commandl_Click() Dim rain As Integer下限 Dim max As Integer上限 Dim i As Integer循环计数 Dim mum As Integer个数 Dim tmp As Integer除数 If Optionl Value=True Then 选中 Optionl时 min=100 max=250 tmp=5 Else选中Option2时 rain=300 max=400 tmp=3 End If num=0 For i=min To max利用循环来逐个判断 If i Mod tmp=0 Then num=num+1 如果能被除数整除，则个数加 1 End If Next i Textl Text=hum在 Textl文本框中显示出来 Open“App Path& out5 txt“For Output As#1 Print#1， Textl Text Close#1End Sub单击 按钮运行程序，并按要求保存。
