国家二级VB机试（上机操作）模拟试卷607
基本操作题
1.在名称为Forml的窗体上添加一个名称为Cl、标题为“改变颜色”的命令按钮，窗体标题为“改变窗体背景色”。编写程序，使得单击命令按钮时，将窗体的背景颜色改为红色(&HFF&)。运行程序后的窗体如图所示。
要求：程序中不得使用变量，每个事件过程中只能写一条语句。存盘时必须存放在考生文件夹下，工程文件名为sjtl．vbp，窗体文件名为sjtl．frm。
【操作步骤】
步骤l：建立界面，添加相应的控件并设置控件的属性。程序中涉及的控件及属性见表4．59。
[*]
步骤2：打开代码编辑窗口，在指定位置编写如下代码。
参考答案
Private Sub Cl_Click()
Forml．BackColor=&HFF&
End Sub
步骤3：调试并运行程序，关闭程序后按题目要求存盘。
解析：通过命令按钮的Name和Caption属性设置命令按钮的名称和标题，通过窗体的Cap-tion属性设置窗体的标题，在Cl_Click事件过程中，通过设置窗体的BackColor属性实现单击命令按钮时将窗体的背景颜色改为红色。
2. 在名称为Forml的窗体上添加一个名称为Shapel的形状控件，在属性窗口中将其形状设置为圆形。添加一个名称为Listl的列表框，并在属性窗口中设置列表项的值分别为1、2、3、4、5。将窗体的标题设为“图形控件”。单击列表框中的某一项，则将其值作为形状控件的填充参数。例如，选择3，则形状控件中被竖线填充，如图所示。
要求：程序中不得使用变量，每个事件过程中只能写一条语句。存盘时必须存放在考生文件夹下，工程文件名保存为sjt2．vbp，窗体文件名保存为sjt2．frm。
【操作步骤】
步骤1：建立界面，将窗体FonM的Caption属性设置为“图形控制”，然后添加相应的控件并设置控件的属性。程序中用到的控件及属性见表4．60。
[*]
步骤2：打开代码编辑窗口，在指定位置编写如下代码。
参考答案
Private Sub Listl_Click()
Shapel．FillStyle=Listl．Text
End Sub
步骤3：调试并运行程序，关闭程序后按题目要求存盘。
解析：通过形状控件的Name和Shape属性设置形状控件的名称和形状，通过列表框的Name和List属性设置列表框的名称和列表项，单击列表框中的某一项，通过List]的Text属性确定选中的值，并将其值作为形状控件的填充参数，FilIStvIe属性用于返回／设置一个形状控件的填充样式。
简单应用题
3.在考生文件夹下有一个工程文件sjt3．vbp。程序的功能是通过键盘输入正整数到文本框中。在“除数”框架中选择一个单选按钮，然后单击“处理数据”命令按钮，将大于文本框中的正整数，并且能够被所选除数整除的5个数添加到列表框Listl中，如图所示。在窗体文件中已经给出了全部控件，但程序不完整。
要求：请去掉程序中的注释符，把程序中的?改为正确的内容，使其实现上述功能，但不能修改程序的其他部分和控件属性，最后将修改后的文件按原文件名进行存盘。
【操作步骤】
步骤l：打开本题工程文件。
步骤2：打开代码编辑窗口中，去掉程序中的注释符“．”，将问号改为正确的内容。
参考答案(阴影部分是需考生填入的内容)
Private Sub Commandl_Click()
Dim Y As Integer
For i=0 To 2′循环三个单选按钮
IfOptionl(i).Value=True
Then′当某个按粗被选
y=Val(Optionl(i)．
Cation)′提取按钮名并转换为数值
End If
Next
Call calc(y)′调用子函数
End Sub
Private Sub calc(Y As Integer)
ClearList ′执行子函数
i=1
x=Val(Textl．Text)+1
Do While i＜=5′只需要显示5个数
If X Mod Y=0 Then′判断x是否能被y整除
Listl．AddItem x′添加满足条件的数至表
i=i+1′统计
End If
x=x+1′自加，判断下次循环
Loop
End Sub
Private Sub ClearList()′清空列表框的项目
For k=Listl．ListCount-1 To 0
Step-1
Listl．RemoveItem k
Next k
End Sub
步骤3：调试并运行程序，关闭程序后按题目要求存盘。
解析：calc()函数实现将大于文本框中的正整数，并且能够被所选除数整除的5个数添加到列表框Listl中，首先调用ClearList()函数清空列表框，运用Val()函数使Textl的值由字符转化为数值，Do While语句控制产生整数的个数为5个，通过Mod()函数和If语句判断是否能被所选数整除。并用列表框的Addhem方法，把能被整除的数添入列表框中。在Commandl_Click事件过程中，向文本框中输入正整数，并运用Val(Optionl(i)．Caption)语句提取单选按钮数组中所选的数值，再通过调用talc()函数实现数据的处理过程。
4.在考生文件夹下有一个工程文件sjt4．vbp。程序运行后，单击“开始”按钮，图片自上而下移动，同时滚动条的滑块随之移动。每隔0．5秒移动一次，当图片顶端移动到距窗体下边界的距离少于200时，则再回到窗体的顶部，重新向下移动，如图所示。在窗体文件中已经给出了全部控件，但程序不完整。
要求：请去掉程序中的注释符，把程序中的?改为正确的内容，使其实现上述功能，但不能修改程序的其他部分和控件属性，最后将修改后的文件按原文件名进行存盘。
【操作步骤】
步骤l：打开本题工
本文档预览：3600字符，共5792字符，源文件无水印，下载后包含无答案版和有答案版，查看完整word版点下载
