国家二级VB机试（上机操作）模拟试卷440
基本操作题
1.(1)在名称为：Form1的窗体上画一个标题为“直辖市”、名称为Framel的框架，在框架中画一个名称为Combol的组合框，其编辑域为空，有如图所示的4个列表项，外观风格也与图中相同。
注意：存盘时必须存放在考生文件夹下，工程文件名为sjt1．vbp，窗体文件名为sjt1．frm。
(1)步骤1：新建一个窗体Form1。
步骤2：向窗体上添加一个Frame控件，并按照表4．13设置控件的属性。
[*]
步骤3：向Frame控件中添加一个ComboBox控件，按照表4．14设置控件的属性，设置完成后结果如图4．11所示。
[*]
步骤4：调试并运行程序，关闭程序后按题目要求存盘。
(2)步骤1：新建一个窗体Foiml。
步骤2：向窗体中添加一个命令按钮，按照表4．15设置控件的属性。
[*]
步骤3：向窗体中添加一个计时器控件，按钮表4．16设置控件的属性，设置完成后结果如图4．12所示。
[*]
步骤4：添加按钮的Click事件过程。
参考答案
Private Sub Command1_Click()
Timer1．Enaled=True
End Sub
步骤5：添加计时器的Timer事件过程
参考答案
Private Sub Timerl_Timer()
Command1．Caption=Val(Command1．Caption)+2
End Sub
步骤：6：调试并运行程序，关闭程序后按题目要求存盘。
解析： (1)新建一个窗体，然后向窗体中添加一个Frame控件，设置控件的Caption属性；再向Frame控件中添加一个ComboBox控件，设置控件的List属性、Style属性和Text属性。
(2)新建一个窗体，向窗体中添加一个命令按钮和一个计时器控件，通过属性窗体设置按钮的Caption属性和计时器的Enabled属性，在按钮的C1：iek事件过程中设置计时器的Enabled属性为True，在计时器的Timer事件过程中将按钮的Caption属性值加2。
简单应用题
2.(1)在考生文件夹下有一个工程文件sjt3．vbp，在程序运行时，单击“输入整数”按钮，输入一个整数，并在窗体上显示此整数的所有不同因子和因子个数。图1是输入53后的结果，图2是输入100后的结果。已经给出了全部控件和程序，但程序不完整。
要求：请去掉程序中的注释符，把程序中的?改为正确的内容。不能修改程序中的其他部分，也不能修改控件的属性。最后用原来的文件名保存工程文件和窗体文件。
(2)在考生文件夹下有一个工程文件sjt4．vbp。在其窗体中“待选城市”下的List1列表框中有若干个城市名称。程序运行时，选中List1中料干个列表项(如图1所示)，单击“选中”按钮则把选中的项目移到List2中，单击“显示”，则在Text1文本框中显示这些选中的城市(如图2所示)。已经给出了所有控件和程序，但程序不完整。
要求：请上掉程序中的注释符，把程序中的?改为正确的内容，使其能正确运行，但不能修改程序中的其他部分和控件属性。最后用原来的文件名保存工程文件和窗体文件。
(1)步骤1：打开本题工程文件。
步骤2：打开代码编辑窗口，去掉程序中的注释符，将问号改为正确的内容。
参考答案
Private Sub Command1_Click()
Dim n As Integer
Cls’清空窗体
鬟=InputBox(\\
解析：(1)通过InputBox()函数实现对话框中显示提示，等待用户输入正文或按下按钮，并返回包含文本框内容的String。
通过Function fun()过程函数，实现对因子数的确定和查找，Mod()函数用来判断是否能够整除，即判断是否为因子数。
(2)Selected属性是一个与List数组中的各个元素相对应的一维数组，记录List数组中每个项目是否被选取。例如，如果List(1)被选取，则Selected(1)的值为True，如果List(1)未被选取，则Selected(1)的值为False。List属性是一个一维数组，数组中元素的值就是在执行时看到的列表项。设计时可以在属性窗口中通过List属性来建立列表项，运行时对List数组从0到ListCount一1依次取值，可以获得列表的所有项目。通过对Selected属性返回值的判断，可以得知列表项是否被选中，从而进行删除和添加操作。
综合应用题
3.以下数列：1．1．2．3．5．8．13．21…的规律是从第3个数开始，每个数都是其前面两个数之和。
在考生文件夹下有一个工程文件sjt5．vhp。窗体中已经给出了所有控件，如图所示。请编写适当的事件过程完成如下功能：选中一个单选按钮后，单击“计算”按钮，则计算出上述数列第n项的值，并在文本框中显示，n是选中的单选按钮后面的数值(提示，因计算结果较大，应使用长整型变量)。
注意：不能修改已经给出的程序和已有的控件的属性；在结束程序运行之前，必须选中一个单选按钮，并单击“计算”按钮以获得-个结果；必须使用窗体右上角的关闭按钮结束程序，否则无成绩。最后把修改后的文件按原文件名存盘。
步骤1：打开本题工程文件。
步骤2：打开代码编辑窗口，在指定位置编写如下代码。
参考答案
Private Sub Command1_Click()
Dim a() As Long
Dim i As Integer
Dim n As Integer
’Op1．Count是单选按钮数目，这里用的是控件数组
For i=0 To Op1．Count一1
’判断哪一项被选择，把它后面的数值赋给n，确定n值
If Op1(i)．Value=True Then
n=Val(Op1(i)．Caption)
Exit For
End If
Next
ReDim a(n)’重新申请空间，这里是动态申请
a(1)=1
a(2)=1’数列第一项、第二项值确定
For i=3 To n
a(i)=a(i一1)+a(i一2)’后一项值是前两项值之和
本文档预览：3600字符，共3929字符，源文件无水印，下载后包含无答案版和有答案版，查看完整word版点下载
