[计算机类试卷]VB机试模拟试卷106及答案与解析.doc

1、VB机试模拟试卷 106及答案与解析 一、基本操作题（ 30分） 1 (1)在名称为 Forml的窗体上画两个文本框，名称分别为 Textl和 Text2，初始情况下都没有内容。请编写适当的事件过程，使程序运行时，在 Textl中输入字符的同时， Text2也立即显示出 Textl中的字符，如图 511所示。程序中不得使用任何变量。 注意：存盘时必须存放在考生文件夹下，工程文件名为 sjl vbp，窗体文件名为 sjl frm。 (2)在名称为 Forlml的窗体上画一个图片框，名称为 Picl；再画一个命令按钮，名称为 Commandl、标题为 “置顶 ”，程序运行时的窗体界面如图 512所

2、示。请编写适当的事件过程，使运行界面在运行时单击“置顶 ”按钮，则图片框垂直移动到窗体的最顶端，如图 513所示。程序中不得使用任何变量。注意：存盘时必须存放在考生文件夹下，工程文件名为 sj2 vbp，窗体文件名为sj2 frm。 二、简单应用题（ 40分） 2 (1)在考生文件夹下有一个工程文件 sj3 vbp，相应的窗体文件为 sj3 frm。其功能是在 Text1文本框中输入一个数 N，单击命令按钮计算从 O到 N的所有素数的和，并在 Text2中 显示出来。运行程序如图 7 3所示。 注意：去掉程序中的注释符 “”，把程序中的 “?”改为正确的内容，使其实现上述功能，但不能修改程序中

3、的其他部分。最后把修改后的文件按原文件名存盘。 (2)在考生文件夹下有工程文件sj4 vbp及窗体文件 sj4 frm，该程序是不完整的。本程序的功能为当用户单击窗体上的命令按钮 “输人 ”时，可以输入 6个数值，随后程序对这 6个数值进行升序排序，单击按钮 “输出 ”则把大于平均值的数显示出来，程序运行时的窗体如图 74所示。 注意：请在有 “?”号的地方填入正确内容，然后删除 “?”及代 码前的所有注释符 (即 “”号 )，但不能修改其他部分。存盘时不得改变文件名和文件夹。 三、综合应用题（ 30分） 3 在考生文件夹下有工程文件 sj5 vbp及窗体文件 sj5 frm，该程序是不完整的

4、。在名称为 Forml、标题为 “支持率 ”的窗体上，有 4个 Picture控件、 4个 Label控件和 5个 Command控件。具体描述如下： Picl和 Pic2分别为 Personl和 Person2的红色， Pic3和 Pic4为绿色； Picl和 Pic3重叠， Pic2和 Pic4重叠。单击 Commandl和Command3按钮时， Labe2和 label4减少。当 Labe2或 Label4的值为 0时，相对应的 Commandl和 Command3按钮失效 (变灰 )；按 Command2和 Command4时，Label2和 Label4增加； Command5是关

5、闭程序。程序启动时两者均为绿色，两人当中票数高的是红色，另一个是绿色，如图 635所示。如果两者的票数一样高，则两者都为红色。 注意：请在有 “?”的地方填入正确内容，然后删除 “?”及代码前的所有注释符 (即 “”号 )，但不能修改其他部分。存盘时不得改变文件名和文件夹。 VB机试模拟试卷 106答案与解析 一、基本操作题（ 30分） 1 【正确答案】 (1)文本框的文本内容由 Text属性设置。题目要求在 Textl中输入任何字符时，立即在 Text2中显示，这就触发了文本框的 Change事件。 根据题意，新建 “标准 EXE”工程，将两个文本框控件添加到窗体中，名称分别为 Textl和

6、Text2、 Caption属性都为空。双击 Textl进人代码编写窗口，补充后的代码如下： Private Sub Textl_Change() Text2 Text=Textl Text End Sub 单击 按钮运行程序 ，并按要求保存。 (2)本题考查控件位置的改变，控件的位置由控件的 Left属性和 Top属性决定， Left属性表示控件与所在窗体的左边之间的距离， Top属性表示控件与所在窗体的顶边之间的距离。 根据题意，新建 “标准 EXE”工程，将一个PictureBox控件和一个命令按钮添加到窗体中， PictureBox的名称为 Picl，命令按钮的名称为 Commandl

7、、 Caption属性为 “置顶 ”。双击 Commandl进入代码窗口，补充如下代码： Private Sub Commandl_Click() Picl Top=0 End Sub 单击 按钮运行程序，并按要求保存。 二、简单应用题（ 40分） 2 【正确答案】 (1)判断一个数是否为素数的准则：就是看该数是否除了 1及其本身外别无其他约数 (即从 2到 n-l之间没有可以将其整除的数 )即可。 根据题意，在窗体上添加两个 Text控件和一个 Command控件， Text的名称分别为 Textl和Text2、 Text属性均为空， Command的名称为 Commandl、 Captio

8、n属性为 “计算 ”。双击 Commandl命令按钮，编写如下代码 (本书答案解析部分的代码中，若无特殊说明， 加下划线的代码则表明是需要考生补充的代码 )： Private Sub Command1_Click() Dim total As Long Dim i As Integer total=0 For i=1 To Val(Textl Text) If isPrimeNum(i)=True Then调用 isPrimeNum函数判断是否是素数 total=tota1+i如果是，则进行求和 End If Next 1 Text2 Text=total 将结果在 Text2中显示 End

9、Sub Func tion isPrimeNum(num As Integer)As Boolean 判断输入的数是否为素数 isPrimeN um=True Dim i AS Integer For i=2 To num-1 If num Mod i=0 Then如果能被除 1及其本身以外的数整除 isPrimeNum=False则此数不是素数 Exit For End If Next i End Function 单击 按钮运行程序，并按要求保存。 (2)根据题意，在窗体上添加一个 Text控件和两个 Command控件， Text的名称为 Textl、 Text属性为空， Command

10、的名称分别为 Commandl和 Command2， Caption属性分别为 “输入 ”和 “输出 ”。双击 Commandl命令按钮，编写如下代码： Dim a(6)As Integer Private Sub Commandl_Click() Dim i As Integer Dim j As Integer Dim k As Integer Dim tmp As Integer For i=1 To 6 a(i)=Val(InputBox(”请输入 ”) Next i For i=1 To 6升序序排列 temp=a(i) For j=1 To i If a(j)temp Then读取

11、的数据比原位置的数据大则偏移 For k=i To j+1 Step-1上下限 a(k)=a(k-1) 数据向后偏移一个 Next k a(j)=temp Exit For End If Next j Next i End Sub Private Sub Command2 Click() Dim arg As Integer Dim str As String Dim j As Integer arg=0 Dim i As Integer str=“ For i=1 To 6 arg=arg+a(i)求总和 Next i arg=arg 6求平均值 For i=1 To 6 If a(i)ar

12、g Then当大于平均值时则写入字符串 str=str+CStr(a(i)+“ End If Next i Textl Text=str将结果显示在 Textl中 End Sub 单击 按钮运行程序，并按要求保存。 三、综合应用题（ 30分） 3 【正确答案】 控件是否可用由其 Enabled属性决定，当该属性值为 True时可用，为 False时不可用 (灰色 )；控件是否可见由其 Visible属性决定，该值为 True时，控件可见，为 False时控件不可见。 根据题意，将 4个图片控件、 4个标签和5个命令按钮添加到窗体中，图片控件的名称分别为 Picl、 Pic2、 Pic3和 Pi

13、c4，背景色分别为红色，红色，绿色和绿色，标签的 Caption属性分别为 “Personl”、“Person2”、 “0”和 “0”，名称分别为 Labell、 Label2、 Label3和 Label4，命令按钮的名称分别为 Commandl、 Command2、 Command3、 Command4和 Command5，Caption属性分别为 “减 l票 ”、 “加 1票 ”、 “减 1票 ”、 “加 1票 ”和 “关闭 ”。双击Commandl进入代码编写窗口，补充后的具体代码如下： Dim pernuml As IntegerPersonl得到的票数 Dim pernum2 As

14、 IntegerPerson2得到的票数 Private Sub Commandl_Click() pernuml=pernuml-1 proj调用 proj函数 End Sub Private Sub Command2_Click() pernuml=pernuml+1 proj调用 proj函数 End Sub Private Sub Command3_Click() pernum2=pernum2-1 proj调用 proj函数 End Sub Private Sub Command4_Click() pernum2=pernum2+1 proj调用 proj函数 End Sub Pri

15、vate Sub Command5_Click() Unload Me关闭窗口 End Sub Private Sub Form_Load() 初始化窗口 Label3 Caption=0 Label4.Caption=0 Commandl Enabled=False Command3 Enabled=False Picl Visible=False Pic2 Visible=False Pic3 Visible=True Pic4.Visible=True pernuml=0票数 都为 0pernum2=0 End Sub Private Function proj() 每个命令按钮都要调用

16、该函数 If pernumlpernum2 Then当Personl的票数大于 Person2时 Picl Visible=TruePersonl为红色 Pic2 Visible=False Pic3 Visible=False Pic4 Visible=TruePerson2为绿色 Else If pernuml=pernum2 Then Picl Visible=True Pic2 Visible=True Pic3 Visible=False Pic4 Visible=False Else Picl Visible=False Pic2 Visible=True Pic3 Visible

17、=True Pic4 Visible=False End If End If If pernuml=0 Then Commandl Enabled=False当 pernuml为 0时，Commandl变为不可用 Else Commandl Enabled=True当 pernuml为非 0时，Commandl变为可用 End If If pernum2=0 Then Command3.Enabled=False当 pernum2为 0时， Command3变为不可用 EIse Command3.Enabled=True当 pernum2为非 0时， Command3变为可用 End If Label3 Caption=pernuml Label4 Caption=pernum2 End Function 单击 按钮运行程序，并按要求保存。