1、VB 机试-试卷 104 及答案解析(总分：12.00，做题时间：90 分钟)一、基本操作题(总题数：2，分数：4.00)1.基本操作题（）（分数：2.00）_2.(1)在名称为 Forml 的窗体上画两个文本框和两个单选按钮。文本框的名称分别为 Textl 和 Text2，初始时内容为 Text1 和 Text2。单选按钮的名称分别为 Optionl、Option2，标题分别为“文本框 Textl 可用”和“文本框 Text2 可用”。编写适当的事件过程，使得程序运行时，初始状态单选按钮都未被选中，如果单击 Optionl 按钮，则文本框 Text1 可用，Text2 不可用；如果单击 Op
2、tion2 按钮。则文本框 Text 2 可用，Text 1 不可用。程序中不得使用任何变量。程序运行时的窗体界面如图 261 所示。 注意：考生完成程序编写后，将工程文件与窗体文件保存到考生文件夹下，文件名分别为 sjlvbp 与 sjlfrm。 (2)在名称为 Forml 的窗体上画一条直线，名称为 Linel。同时，在窗体上画一个水平滚动条，名称为HScrolll。编写适当的事件过程，程序运行后，根据水平滚动条的长度改变 Linel 的长度。不得使用任何变量。程序运行时的窗体界面如图 262 所示。 （分数：2.00）_二、简单应用题(总题数：2，分数：4.00)3.简单应用题（）（分数
3、：2.00）_4.(1)在考生目录下有一个工程文件 sj3vbp，窗体中有一个命令按钮，标题为“开始”，名称为Commandl；有一个图片框，名称为 Picl，还有一个计时器，名称为 Timer1。并给出了两个事件过程，但并不完整，要求： 设置计时器的属性，使其每隔 3 秒调用 Timerl 事件过程一次，改变 Picl 的背景色(红、绿、蓝 3 色)。 去掉程序中的注释符“”，把程序中的“?”改为正确的内容，使得在运行时单击“开始”按钮，则 Picl 每隔 3 秒改变一次背景色，由红变绿，由绿变蓝，再由蓝变红，如图 233 所示。 注意：不能修改程序中的其他部分。最后把修改后的文件按原文件名
4、存盘。 (2)在窗体上绘制一个命令按钮，名称为 Commandl，标题分别为“计算”，一个名称为 Textl 的文本框。请编写适当的事件过程，在 Textl中输出 30 以内满足勾股定理的整数组合。注：勾股定理中 3 个数的关系是：a 2 +b 2 =c 2 。例如3、4、5 就是一个整数组合，即 3 2 +4 2 =5 2 。如图 234 所示。 （分数：2.00）_三、综合应用题(总题数：2，分数：4.00)5.综合应用题（）（分数：2.00）_6.在考生文件夹下有一个工程文件 sj5vbp，在该工程中为考生提供了一个通用过程，考生可以直接调用。请在窗体上画一个名称为 Textl 的文本框
5、；画一个名称为 Commandl、标题为“计算显示”的命令按钮；再画两个单选按钮，名称分别为 Optionl 和 Option2、标题分别为“求 100 到 250 之间能被 5 整除的数的个数”和“求 300 到 400 之间能被 6 整除的数的个数”，如图 625 所示。 （分数：2.00）_VB 机试-试卷 104 答案解析(总分：12.00，做题时间：90 分钟)一、基本操作题(总题数：2，分数：4.00)1.基本操作题（）（分数：2.00）_解析：2.(1)在名称为 Forml 的窗体上画两个文本框和两个单选按钮。文本框的名称分别为 Textl 和 Text2，初始时内容为 Text
6、1 和 Text2。单选按钮的名称分别为 Optionl、Option2，标题分别为“文本框 Textl 可用”和“文本框 Text2 可用”。编写适当的事件过程，使得程序运行时，初始状态单选按钮都未被选中，如果单击 Optionl 按钮，则文本框 Text1 可用，Text2 不可用；如果单击 Option2 按钮。则文本框 Text 2 可用，Text 1 不可用。程序中不得使用任何变量。程序运行时的窗体界面如图 261 所示。 注意：考生完成程序编写后，将工程文件与窗体文件保存到考生文件夹下，文件名分别为 sjlvbp 与 sjlfrm。 (2)在名称为 Forml 的窗体上画一条直线，
7、名称为 Linel。同时，在窗体上画一个水平滚动条，名称为HScrolll。编写适当的事件过程，程序运行后，根据水平滚动条的长度改变 Linel 的长度。不得使用任何变量。程序运行时的窗体界面如图 262 所示。 （分数：2.00）_正确答案：(正确答案：(1)根据题意，新建“标准 EXE”工程，将两个 Text 控件和两个 Option 控件添加到窗体上，Text 的名称为 Textl、Text2、Text 属性分别为“Textl”和“Text2”，Option 的名称分别为Optionl、Option2、Caption 属性分别为“文本框 Textl 可用”和“文本框 Text2 可用”，
8、其中 Optionl的 Value 属性为 False，Text2 的 Enable 属性为 False。双击 Option 进入代码窗口，编写如下代码： Private Sub Optionl_Click() TextlEnabled=True选中 Optionl，则 Textl 可用 Text2Enabled=FalseText2 不可用 End Sub Private Sub Option2_Click() TextlEnabled=False Text2Enabled=True End Sub 单击 按钮运行程序，并按要求保存。 (2)根据题意，新建“标准EXE”工程，将一个 HScr
9、ollBar 控件添加到窗体上，其名称为 HScrolll，Max 属性为 2000，Min 属性为400，然后再用 Line 控件画一条直线，X2-X1 的值为 400，BmderWidth 属性为 4。双击 HScrolll，进入代码窗口，编写如下代码： Private Sub HScrolll_Change() LinelX2=LinelX1+HScrolllValue通过 HScrolll 来改变 Line 的长度 End Sub 单击 )解析：二、简单应用题(总题数：2，分数：4.00)3.简单应用题（）（分数：2.00）_解析：4.(1)在考生目录下有一个工程文件 sj3vbp，窗
10、体中有一个命令按钮，标题为“开始”，名称为Commandl；有一个图片框，名称为 Picl，还有一个计时器，名称为 Timer1。并给出了两个事件过程，但并不完整，要求： 设置计时器的属性，使其每隔 3 秒调用 Timerl 事件过程一次，改变 Picl 的背景色(红、绿、蓝 3 色)。 去掉程序中的注释符“”，把程序中的“?”改为正确的内容，使得在运行时单击“开始”按钮，则 Picl 每隔 3 秒改变一次背景色，由红变绿，由绿变蓝，再由蓝变红，如图 233 所示。 注意：不能修改程序中的其他部分。最后把修改后的文件按原文件名存盘。 (2)在窗体上绘制一个命令按钮，名称为 Commandl，标
11、题分别为“计算”，一个名称为 Textl 的文本框。请编写适当的事件过程，在 Textl中输出 30 以内满足勾股定理的整数组合。注：勾股定理中 3 个数的关系是：a 2 +b 2 =c 2 。例如3、4、5 就是一个整数组合，即 3 2 +4 2 =5 2 。如图 234 所示。 （分数：2.00）_正确答案：(正确答案：(1)本题主要考查 Timer 控件的属性设置和图片框控件的属性设置。计时器的Interval 属性用于设置每次触发计时器的 Timer 事件的时间间隔，单位为毫秒，它可以在属性窗口中设置，也可以通过代码设置。图片框控件既可用于显示图片，也可用于在上面绘图，由于本题只要求改
12、变颜色，所以只需控制其背景颜色属性即可。根据题意，补充后的代码如下： 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)本题只要明白勾股定理的含义就不难了，即
13、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 循环从
14、 i 遍历到 30 If i2+j2=k2 Then满足勾股定理 str=str+CStr(i)+“，“+CStr(j)+“，“+CStr(k)+vbCrLf将获得的 3 个数通过字符串形式记录 End If Next k Next j Next i TextlText=str在 Textl 中显示结果 End Sub 单击 )解析：三、综合应用题(总题数：2，分数：4.00)5.综合应用题（）（分数：2.00）_解析：6.在考生文件夹下有一个工程文件 sj5vbp，在该工程中为考生提供了一个通用过程，考生可以直接调用。请在窗体上画一个名称为 Textl 的文本框；画一个名称为 Command
15、l、标题为“计算显示”的命令按钮；再画两个单选按钮，名称分别为 Optionl 和 Option2、标题分别为“求 100 到 250 之间能被 5 整除的数的个数”和“求 300 到 400 之间能被 6 整除的数的个数”，如图 625 所示。 （分数：2.00）_正确答案：(正确答案：根据题意，将一个文本框控件，两个单选按钮控件和一个命令按钮添加到窗体中，文本框的名称为 Textl，单选按钮的名称：分别为 Optionl 和 Option2，Caption 分别为“求 100 到 250之间能被 5 整除的数的个数”和“求 300 到 400 之间能被 6 整除的数的个数”，命令按钮的名称
16、为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“AppPath&out5txt“For Output As#1 Print#1，TextlText Close#1 End Sub 单击 )解析：
