1、国家二级 VB机试（上机操作）模拟试卷 139及答案与解析 一、基本操作题 1 在名称为 Form1的窗体上添加一个名称为 C1、标题为 “改变颜色 ”的命令按钮，窗体标题为 “改变窗体背景色 ”。编写程序，使得单击命令按钮时，将窗体的背景颜色改为红色 (&HFF&)。运行程序后的窗体如图所示。要求：程序中不得使用变量，每个事件过程中只能写一条语句。存盘时必须存放在考生文件夹下，工程文件名为 sjt1 vbp，窗体文件名为 sjt1 frm。 2 在名称为 Form1的窗体上添加一个名称为 Shape1的形状控件，在属性窗口 中将其形状设置为圆形。添加一个名称为 List1的列表框，并在属性窗
2、口中设置列表项的值分别为 1、 2、 3、 4、 5。将窗体的标题设为 “图形控件 ”。单击列表框中的某一项，则将其值作为形状控件的填充参数。例如，选择 3，则形状控件中被竖线填充，如图所示。 要求：程序中不得使用变量，每个事件过程中只能写一条语句。存盘时必须存放在考生文件夹下，工程文件名保存为 sjt2 vbp，窗体文件名保存为 sjt2 frm。 二、简单应用题 3 在考生文件夹下有一个工程文件 sjt3 vbp。程序的功能是通过键盘输入正整数到文本框中。 在 “除数 ”框架中选择一个单选按钮，然后单击 “处理数据 ”命令按钮，将大于文本框中的正整数，并且能够被所选除数整除的 5个数添加到
3、列表框 List1中，如图所示。在窗体文件中已经给出了全部控件，但程序不完整。要求：请去掉程序中的注释符，把程序中的 ?改为正确的内容，使其实现上述功能，但不能修改程序的其他部分和控件属性，最后将修改后的文件按原文件名进行存盘。4 在考生文件夹下有一个工程文件 sjt4 vbp。程序运行后，单击 “开始 ”按钮，图片自上而下移动，同时滚动条的滑块随之移动。每隔 0 5秒移动一次，当图片顶端移 动到距窗体下边界的距离少于 200时，则再回到窗体的顶部，重新向下移动，如图所示。在窗体文件中已经给出了全部控件，但程序不完整。要求：请去掉程序中的注释符，把程序中的 ?改为正确的内容，使其实现上述功能，
4、但不能修改程序的其他部分和控件属性，最后将修改后的文件按原文件名进行存盘。 三、综合应用题 5 在考生文件夹下有一个工程文件 sjt5 vbp，窗体如图所示。运行程序时，从考生文件夹数据文件中读取学生的成绩 (均为整数 )。要求编写程序，统计总人数，同时统计不及格、 60 69、 70 79、 80 89及 90 100各分数段的人数，将统计结果显示在相应的文本框中。结束程序之前，必须单击 “保存 ”按钮，保存统计结果。注意：不能修改程序的其他部分和控件属性。程序调试通过后，运行程序，将统计结果显示在文本框中，再按 “保存 ”按钮，否则将没有成绩，最后将修改后的文件按原文件名进行存盘。 国家二
5、级 VB机试（上机操作）模拟试卷 139答案与解析 一、基本操作题 1 【正确答案】 操作步骤 步骤 1：建立界面，添加相应的控件并设置控件的属性。程序中涉及的控件及属性见表 3 59。步骤 2：打开代码编辑窗口，在指定位置编写如下代码。 参考代码 Private Sub C1_Click()Form1 BackColor=&HFF&End Sub步骤 3：调试并运行程序，关闭程序后按题目要求存盘。 2 【正确答案】 操作步骤 步骤 1：建立界面，将窗体 Form1的 Caption属性设置为 “图形控制 ”，然后添加相应的控件并设置控件的属性。程序中用到的控件及属性见表 3 60。 步骤 2
6、：打开代码编辑窗口，在指定位置编写如下代码。参考代码 Private Sub List1_Click()Shape1 FiliStyle=List1 TextEnd Sub步骤 3：调试并运行程序，关闭程序后按题目要求存盘。 二、简单应用题 3 【正确答案】 操作步骤 步骤 1：打开本题工程文件。 步骤 2：打开代码编辑窗口中，去掉程序中的注释符 “”，将问号改为正确的内容。 参考代码 (画下划线部分是需填入的内容 ) Private Sub Command1_Click() Dim y As Integer For i=0 To 2循环三个单选按钮 IfOption1(i) Value=Tr
7、ue Then当某个按钮被选 y=Val(Optionl(i) Captiion)提取按钮名并转换为数值 End If Next Call calc(y)调用子函数 End Sub Private Sub calc(y As Integer) ClearList执行子函数 i=1 X=Val(Text1 Text)+1 Do While i =5只需要显示 5个数 If x Mod y=0 Then判断 x是否能被 y整除 List1 AddItemx添加满足条件的数至表 i=i+1统计 End If x=Xx+1自加，判断下次循环 Loop End Sub Private Sub Clear
8、List()清空列表框的项目 For k=List1 ListCount-1 To 0 Step-1 LiSt1 RemoveItem k Next k End Sub 步骤 3：调试并运行程序，关闭程序后按题目要求存盘。 4 【正确答案】 操作步骤 步骤 1：打开本题工程文件。 步骤 2：打开代码编辑窗口，去掉程序中的注释符 “”，将问号改为正确的内容。 参考代码 (画下划线部分是需填入的内容 ) Private Sub Command1_Click() Timer1 Enabled=True End Snb Private Sub Command2_Click() Timer1 Enabl
9、ed=False End Sub Private Sub Form Load() Timer1 Interval=500设置 Timer1执行间隔数，以毫秒计算 End Sub Private Sub Timer1_Timer() Picture1 Top=Picture1 Top+200顶端位置 保持一致VScroll1 Value=Picture1 Top滚动条滑块的位置与图片顶端位置保持一致 If VScroll1 Value+200 =Form1 Height-200Then Picture1 Top=0当图片顶端移动到距窗体下边界距离少于 200时，则图片重新向下移动 End If
10、End Sub 步骤 3：调试并运行程序，关闭程序后按题目要求存盘。 三、综合应用题 5 【正确答案】 操作步骤 步骤 1：打开本题工程文件。 步骤 2：打开代码编辑窗口，在代码编 辑窗口指定位置编写以下代码。 参考代码 For i=1 To n循环判断分数的范围，当满足某个条件时则分别统计 If arr(i) 60 Then Text2=Val fText2)+1 Elself arr(i) =60 And arr(i) 70 Then Text3=Val(Text3)+1 ElseIf arr(i) =70 And arr(i) 80 Then Text4=Val(Text4)+1 ElseIf arr(i) =80 And arr(i) 90 Then Text5=Val(Text5)+1 Elself arr(i) =90 And arr(i) =100 Then Text6=Val(Text6)+1 End If Text1=Val(Textl)+1显示统计人数 Next 步骤 3：调试并运行程序，关闭程序后按题目要求存盘。
