国家二级VB机试（上机操作）模拟试卷598
基本操作题
1.在名称为Forml的窗体上添加一个名称为Framel、标题为“框架”的框架，在框架内添加两个名称分别为Optionl、Option2的单选按钮，其标题分别为“第一项”、“第二项”。要求通过设置控件的属性将“第二项”初始值设置为被选中，框架为不可用。运行程序后的窗体如图所示。
注意：存盘时必须存放在考生文件夹下，工程文件名保存为sjt1．vbp，窗体文件名保存为sjtl．frm。
【操作步骤】
步骤1：建立界面，添加相应的控件并设置控件的属性。程序中用到的控件及属性见表4．38。
[*]
步骤2：调试并运行程序，关闭程序后按题目要求存盘。
解析：通过框架的Name、Caption和Ena．bled属性设置框架的名称、标签以及是否可用。通过单选按钮的Name、Caption和Value属性设置单选按钮的名称、标签以及是否被选中。
2.在名称为Forml的窗体上添加一个名称为Drivel的驱动器列表框，一个名称为Dirl的目录列表框，一个名称为Filel的文件列表框，名称为Labell、标题为“文件名”的标签和名称为Label2、BorderStyle为l的标签。将窗体的标题设置为“文件系统控件”，如图所示。请编写适当的程序，使得这三个文件系统控件可以同步变化，即当驱动器列表框中显示的内容发生变化时，目录列表框和文件列表框中显示的内容同时发生变化。单击文件列表框时，将在Label2中显示选中的文件名。
注意：要求程序中不得使用变量，事件过程中只能写一条语句。
存盘时必须存放在考生文件夹下，工程文件名保存为sjt2．vbp，窗体文件名保存为sjt2．frm。
【操作步骤】
步骤I：新建一个窗体，按照题目要求建立驱动器列表框、目录列表框和文件列表框控件并设置其属性，如图4．28所示。
[*]
程序中用到的控件及属性见表4．39和表4．40。
[*]
步骤2：打开代码编辑窗口，在指定位置编写如下代码。
参考答案
Private Sub Dirl_Change()
Filel．Path=Dirl．Path’使目录列表框Dirl与文件列表框Filel同步
End Sub
Private Sub Drivel ()_Change
Dirl．Path=Drivel．Drive′使驱动列表框Drive 1与目录列表框Dirl同步
End Sub
Private Sub Filel—C1ick()
Label2=Filel．FileName′显示Filel中的文件名
End Sub
步骤3：调试并运行程序，关闭程序后按题目要求存盘。
【易错提示】在编写代码时，“l”(L)和1比较相似，注意不要混淆。
解析：在实际应用中，驱动器列表框、目录列表框和文件列表框通常需要同步操作，这可以通过Path属性的改变引发Change事件来实现。
简单应用题
3.考生文件夹下有一个工程文件sjt3．vbp。程序的功能是：通过键盘向文本框中输入数字，如果输入的是非数字字符，则提示输入错误，且文本框中不显示输入的字符。单击名称为Commandl、标题为“添加”的命令按钮，则将文本框中的数字添加到名称为Combol的组合框中。在给出的窗体文件中已经添加了全部控件，但程序不完整。要求去掉程序中的注释符，把程序中的?改为正确的内容。
注意：不能修改程序中的其他部分和其他控件的属性。最后把修改后的文件按原文件名存盘。
【操作步骤】
步骤1：打开本题工程文件。
步骤2：打开代码编辑窗口，去掉程序中的注释符“′”，将问号改为正确的内容。
参考答案(阴影部分是需考生填入的内容)
Private Sub Commandlclick()
Combol．AddItem Text.Text′将Textl中的内容加入Combol中
Textl．Text=＂＂’同时将Textl内容清除
End Sub
Private Sub Textl_KeyPress(KeyAscii
As Integer)
If KeyAscii＞57 Or KeyAscii＜48
Then′数字的Ascii码值下界
MsgBox＂请输入数字!＂
KeyAscii=0′清空
End If
End Sub
步骤3：调试并运行程序，关闭程序后按题目要求存盘。
解析：单击命令按钮，运用组合框的List属性将文本框中的数字添加到组合框中，通过ASCII码来判断输入的是否为数字字符。
4.在考生文件夹下有一个工程文件sjt4．vbp。该程序的功能是计算M!+(M+1)!+(M+2)!+…+N!之和。窗体上有名称分别为Textl、Text2的两个文本框，用于接收输入的M和N(要求M＜N)。单击名称为Commandl、标题为“计算”的命令按钮，计算M!+(M+1)!+(M+2)!+…+N!的值，并将计算结果显示在标签lblResuh中。
在给出的窗体文件中已经有了全部控件，但程序不完整，要求去掉程序中的注释符，把程序中的?改为正确的内容。
注意：不能修改程序的其他部分和控件属性。最后把修改后的文件按原文件名存盘。
【操作步骤】
步骤l：打开本题工程文件。
步骤2：打开代码编辑窗口，去掉程序中的注释符，将问号改为正确的内容。
参考答案(阴影部分是需考生填入的内容)
Private Sub Commandl_Click()
Dim m As Integer
Dim n As Integer
Dim S As Long
Dim i As Integer
m=Val(Textl．Text)
′将文本框中的字符转换成数值型
n=Val(Text2．Text)
S=0
For i=mTo n—m
t=f(i)′调用函数得到N的阶乘
s=s+t
Next
iblResult．Caption：S
End Sub
Private Function f(ByRef x As Inte-
ger)As Long′ByRef为传址传递
Dim t As Long
t=1
本文档预览：3600字符，共4892字符，源文件无水印，下载后包含无答案版和有答案版，查看完整word版点下载
