国家二级VB机试（上机操作）模拟试卷608
基本操作题
1.在窗体上画1个标题为“文字属性”、名称为FrameI的框架控件，在框架中画一个名称为Checkl的复选框数组，含2个数组元素。按下标的前后顺序，其标题分别是“粗体”和“斜体”，并设置适当属性，使得“粗体”被选中，界面如图所示。
【操作步骤】
步骤1：新建一个窗体。
步骤2：在窗体上添加一个框架控件，根据表5．1设置控件的Caption属性，结果如图5．1所示。
[*]
步骤3：在框架控件上添加一个复选框控件，选中新增的复选框，复制并粘贴，创建一个复选框数组，根据表5．2设置控件的相关属性，结果如图5．2所示。
[*]
步骤4：调试并运行程序，关闭程序后按题目要求存盘。
解析：新建一个窗体，在窗体上添加一个框架控件，设置框架控件的Caption属性；冉在框架控件里添加一个复选框数组，该数组由两个复选框控件组成，按照数组的下标顺序设置下标为0的复选框的Caption属性和Value属性，设置下标为l的复选框的Caption属性。
2. 在窗体上画一个名称为CD1的通用对话框，并设置属性使得在打开文件对话框时，其标题为“文件操作”，默认路径为C盘根目录；再画2个命令按钮，名称分别为Commandl、Command2，标题分别为“读文件”、“选择颜色”。
请编写适当的事件过程，使得程序运行时，单击“读文件”按钮后，可以利用CDI弹出打开文件对话框，单击“选择颜色”按钮，可以弹出颜色对话框。设计模式下的窗体外观如图所示。
存盘时，工程文件名为sjt2．vbp，窗体文件名为sjt2．frm。
注意：要求程序中不得使用变量，每个事件过程中只能写一条语句。
【操作步骤】
步骤1：新建一个窗体。
步骤2：在窗体上添加一个通用对话框控件，根据表5．3设置控件的相关属性，结果如图5．3所示。
[*]
步骤3：在窗体上添加两个按钮控件，根据表5．4分别设置两个控件的Caption属性，结果如图5．4所示。
[*]
步骤4：双击“读文件”按钮，在Commandl的Click事件中根据题目要求编写代码(划线部分是需要填入的内容)。
Private Sub Commandl_Click()
CD1.ShowOpen
End Sub
步骤5：双击“选择颜色”按钮，在Command2的Click事件中根据题目要求编写代码(划线部分是需要填入的内容)。
Private Sub Command2_Click()
CD1.ShowColor
End Sub
步骤6：调试并运行程序，关闭程序后按题目要求存盘。
解析：新建一个窗体，在窗体上添加一个通用对话框控件，设置该控件的DialogTifle属性和InitDir。属性；再在窗体上添加两个按钮控件，分别设置按钮控件的Caption属性；最后分别在两个按钮的Click事件中编写代码实现题目要求。
简单应用题
3.在考生目录下有一个工程文件sjt3．vbp。窗体上有一个名称为List1的空列表框。程序运行时，单击Commandl按钮，则从键盘输入10个任意字符串，并按字典顺序添加到Listl中成为它的列表项。
给出的程序不完整。要求：去掉程序中的注释符，把程序中的?改为正确的内容。
注意：不能修改程序的其他部分和控件属性。最后把修改后的文件按原文件名存盘。
【操作步骤】
步骤1：打开本题工程文件。
步骤2：打开代码编辑窗口，去掉程序中的注释“′”，将问号改为正确的内容。
参考答案(划线部分是需要填入的内容)
Private Sub Commandl_Click()
Dim st$(10)
For k=1 To 10
st(k)=InputBox(”请输入一个字符串”)
Next k
For i=l To 9
k=i
For j=i+l To 10
If st(k)＞st(j)Then
k=1
End If
Nextj
List1．Addltem st(k)
st(k)=st(j)
Next i
List1.AddItem st(10)
End Sub
步骤3：调试并运行程序，关闭程序后按题目要求存盘。
解析：题目要求按字典顺序将随机输入的10个任意字符串添加到Listl列表框中，使用List1的Addltem方法向列表框中插入列表项，若未指定索引值，则新插入的列表项排列在原有项目的下方，故本题中最先插入数组中最小的值。
4.考生文件夹下有一个工程文件sjt4．vbp，窗体左端中有一个小的实心圆。程序运行时，单击窗体，圆将沿着正弦曲线的轨迹向右运动，运动一个正弦周期后。再沿着原来的轨迹退回到原来的位置。然后再沿正弦曲线的轨迹向右运动，如此周而复始。
给出的程序不完整。要求：去掉程序中的注释符，把程序中的?改为正确的内容。
注意：考生不得修改窗体文件中已经存在的控件和程序。最后，程序按原文件名存盘。
【操作步骤】
步骤l：打开本题工程文件。
步骤2：打开代码编辑窗口，去掉程序中的注释“′”，将问号改为正确的内容。
参考答案(划线部分是需要填入的内容)
Dim x0，y0，a，angle
Const PI=3．1415926
Private Sub Form_Click()
Timerl．Enabled=True
a=6
x0=50
y0=0
End Sub
Private Sub Form_Load()
Shapel．Top=1300
Shapel．Left=200
End Sub
Private Sub Timerl_Timet()
angle=angle+a
b=1000*Sin(angle*PI／180)
y0=1300－b
$hapel．Left=Shapel．Left+x0
Shapel．Top=y0
If angle=360 Orangle=0Then
本文档预览：3600字符，共5919字符，源文件无水印，下载后包含无答案版和有答案版，查看完整word版点下载
