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