VB机试模拟试卷113 (题后含答案及解析)
题型有：1. 基本操作题 2. 简单应用题 3. 综合应用题
基本操作题（30分）
1． (1)在名称为Forml的窗体上画两个文本框和两个单选按钮。文本框的名称分别为Textl和Text2，初始时内容为Text1和Text2。单选按钮的名称分别为Optionl、Option2，标题分别为“文本框Textl可用”和“文本框Text2可用”。编写适当的事件过程，使得程序运行时，初始状态单选按钮都未被选中，如果单击Optionl按钮，则文本框Text1可用，Text2不可用；如果单击Option2按钮。则文本框Text 2可用，Text 1不可用。程序中不得使用任何变量。程序运行时的窗体界面如图26—1所示。 注意：考生完成程序编写后，将工程文件与窗体文件保存到考生文件夹下，文件名分别为sjl．vbp与sjl．frm。 (2)在名称为Forml的窗体上画一条直线，名称为Linel。同时，在窗体上画一个水平滚动条，名称为HScrolll。编写适当的事件过程，程序运行后，根据水平滚动条的长度改变Linel的长度。不得使用任何变量。程序运行时的窗体界面如图26—2所示。 注意：存盘时必须存放在考生文件夹下，工程文件名为sj2．vbp，窗体文件名为sj2．frm。
正确答案：(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 Optionl_Click( ) Textl．Enabled=True’选中Optionl，则Textl可用 Text2．Enabled=False’Text2不可用 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，Bm’derWidth属性为4。双击HScrolll，进入代码窗口，编写如下代码： Private Sub HScrolll_Change( ) Linel．X2=Linel．X1+HScrolll．Value’通过HScrolll来改变Line的长度 End Sub 单击按钮运行程序，并按要求保存。
简单应用题（40分）
2． (1)在考生目录下有一个工程文件sj3．vbp，窗体中有一个命令按钮，标题为“开始”，名
称为Commandl；有一个图片框，名称为Picl，还有一个计时器，名称为Timer1。并给出了两个事件过程，但并不完整，要求： 设置计时器的属性，使其每隔3秒调用Timerl事件过程一次，改变Picl的背景(红、绿、蓝3)。 去掉程序中的注释符“‘”，把程序中的“?”改为正确的内容，使得在运行时单击“开始”按钮，则Picl每隔3秒改变一次背景，由红变绿，由绿变蓝，再由蓝变红，如图23—3所示。 注意：不能修改程序中的其他部分。最后把修改后的文件按原文件名存盘。 (2)在窗体上绘制一个命令按钮，名称为Commandl，标题分别为“计算”，一个名称为Textl的文本框。请编写适当的事件过程，在Textl中输出30以内满足勾股定理的整数组合。注：勾股定理中3个数的关系是：a2+b2=c2。例如3、4、5就是一个整数组合，即32+42=52。如图23—4所示。 注意：编写程序，去掉程序中的注释符“‘”，把程序中的“?”改为正确的内容，不能修改程序中的其他部分。最后把修改后的文件按原文件名存盘。
正确答案：(1)本题主要考查Timer控件的属性设置和图片框控件的属性设置。计时器的Interval属性用于设置每次触发计时器的Timer事件的时间间隔，单位为毫秒，它可以在属性窗口中设置，也可以通过代码设置。图片框控件既可用于显示图片，也可用于在上面绘图，由于本题只要求改变颜，所以只需控制其背景颜属性即可。根据题意，补充后的代码如
下： 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 aBackColor=RGB(255，0，O) ‘背景为红 ElseIf a>=3 And aBackColor=RGB(O，255，0) ‘背景为绿 Else’其他情况 Picl．BackColor=RGB(0，0，255)’背景为蓝 End If End Sub 单击按钮运行程序，并按要求保存。 (2)本题只要明白勾股定理的含义就不难了，即a+b=c。程序中利用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遍历到30 If i+j=k Then’满足勾股定理 str=str+CStr(i)+”，”+CStr(j)+”，vb开始按钮代码”+CStr(k)+vbCrLf’将获得的3个数通过字符串形式记录 End If Next k Next j Next i Textl．Text=str’在Textl中显示结果 End Sub 单击按钮运行程序，并按要求保存。
综合应用题（30分）
3． 在考生文件夹下有一个工程文件sj5．vbp，在该工程中为考生提供了一个通用过程，考生可以直接调用。请在窗体上画一个名称为Textl的文本框；画一个名称为Commandl、标题为“计算显示”的命令按钮；再画两个单选按钮，名称分别为Optionl和Option2、标题分别为“求100到250之间能被5整除的数的个数”和“求300到400之间能被6整除的数的个数”，如图62—5所示。 请编写适当的事件过程，使得在运行时，选中一个单选按钮，再单击“计算显示”按钮，就可以按照单选按钮后的文字要求计算，并把计算结果放入文本框中，最后把已经修改的工程文件和窗体文件以原来的文件名存盘。 注意：考生不得修改窗体文件中已经存在的程序，退出程序时必须通过单击窗体右上角的关闭按钮来完成。在结束程序运行之前，必须至少要进行一种计算，否则不得分。
正确答案：根据题意，将一个文本框控件，两个单选按钮控件和一个命令按钮添加到窗体中，文本框的名称为Textl，单选按钮的名称：分别为Optionl和Option2，Caption分别为“求100到250之间能被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单击按钮运行程序，并按要求保存。
版权声明：本站内容均来自互联网，仅供演示用，请勿用于商业和其他非法用途。如果侵犯了您的权益请与我们联系QQ:729038198，我们将在24小时内删除。
发表评论