国家二级VB机试（上机操作）模拟试卷431
基本操作题
1.(1)在名称为Form1的窗体上画1个名称为Frame1、标题为“学位”的框架；框架内有1个名称为Option1的控件数组，该控件数组含有4个标题分别为“学士”、“硕士”、“博士”和“其他”的单选按钮，它们的：Index属性分别为0、1、2、3，且标题为“硕士”的单选按钮为选中状态。运行后的窗体如图所示。
注意：存盘时必须存放在考生文件夹下，工程文件名为sjt1．vbp，窗体文件名为sjt1．frm。
(2)在名称为Form1、标题为“练习”的窗体上，画1个名称为Image1的图像框，该图像框能自动调整其中图片内容的大小，并装入考生文件夹下名称为“风景”的图片文件。再画2个名称分别为Command1和Command2，标题分别为“加宽”和“加高”的命令按钮。如图所示。
要求：编写两个按钮适当的事件过程，使得单击“加宽”按钮时，Image1的宽度增加15；单击“加高”按钮时，Image1的高度增加15。在程序中不得使用变量，每个事件过程中只能写一条语句。
注意：存盘时必须存放在考生文件夹下，工程文件名为sjt2．vbp，窗体文件名为sjt2．frm。
(1)【操作步骤】
步骤1：新建一个窗体，在窗体上添加一个框架控件，并按照表4．1设置控件的属性，结果如图4．1所示。
[*]
步骤2：在建立好的框架控件上依次添加4个单选按钮，并按照表4．2设置控件属性，结果如图4．2所示。为了使“硕士”单选按钮处于选中状态，需要将其的value属性值设置为True。
[*]
步骤3：调试并运行程序，关闭程序后按题目要求存盘。
(2)【操作步骤】
步骤1：新建一个窗体，并设置窗体的相关属性，如表4．3所示。
[*]
步骤2：在建立好的窗体上添加一个Image控件，并按照表4．4设置控件属性，结果如图4．3所示。
[*]
步骤3：向窗体上添加两个按钮控件，按钮名称分别为Command1和Command2，并按照表4．5设置两个按钮控件的相关属性，运行结果如图4．4所示。
[*]
步骤4：双击“加宽”按钮，打开代码编辑窗口，在代码编辑窗口指定位置编写以下代码。
编写程序代码如下：
参考答案
Private Sub Command1_Click()
Image1．Width＝Image1．Width＋15
End Sub
步骤5：双击“加高”按钮，打开代码编辑窗口，在代码编辑窗口指定位置编写以下代码。
编写程序代码如下：
参考答案
Private Sub Command2_Click()
Image1．Height＝Image1．Height＋15
End Sub
步骤5：调试并运行程序，关闭程序后按题目要求存盘。
解析：
简单应用题
2.(1)在考生文件夹下有工程文件sjt3．vbp，其窗体上有1个标题为“计算”的命令按钮，1个标题为“无理数e的近似值”的标签。请再画1个初始内容为空的文本框Text1，如图所示。程序功能为：单击“计算”命令按钮，则计算无理数e的近似值，并将结果显示在Text1文本框中。近似公式如下：e＝＋1／1!＋1／2!＋1／3!＋…＋1／n!＋…请将程序代码中的注释符去掉，把?改为正确内容，以实现上述程序功能。
注意：考生不得修改窗体文件中已经存在的控件和程序，最后，程序按原文件名存盘。
(2)在考生文件夹下有一个工程文件sjt4．vbp。其窗体中有1个名称为Command1，标题为“查找”的命令按钮；3个初始内容为空的文本框Text1、Text2和Text3，其中Text1允许显示多行内容，且有垂直滚动条，如图所示。程序功能为：首先在Text1中输入原始字符串，在Text2中输入要查找的单个字符，然后单击“查找”按钮，则在Text3中显示查找的结果。图示为某一次的运行效果。
请将“查找”命令按钮Click事件过程中的注释符去掉，把?改为正确内容，以实现上述程序功能。
注意：考生不得修改窗体文件中已经存在的控件和程序，最后，程序按原文件名存盘。
(1)【操作步骤】
步骤1：打开本题项目工程，并在窗体中添加文本控件Text1，
并按照表4．6设置文本控件Text1的属性，结果如图4．5所示。
[*]
步骤2：打开代码编辑窗口，去掉程序中的注释符“’”，将问号改为正确的内容。
参考答案
Private sub Command1_Click()
Dim e As Single，x As Single
Dim i As Integer
e＝0：i＝0
x＝1
Do While x＞0．00001
e＝e＋x
i＝i＋1
x＝1／jc(i)
Loop
Text1．Text＝e
End Sub
Function jc(n As Integer)As Long
Dim i As Integer
Dim t As Long
t＝1
For i＝1 To n
t＝t * i
Next
jc＝t
End Function
步骤3：调试并运行程序，关闭程序后按题目要求存盘。
(2)【操作步骤】
步骤1：打开本题工程文件。
步骤2：打开代码编辑窗口，去掉程序中的注释符“’”，将问号改为正确的内容。
参考答案
Private Sub Command1_Click()
Dim x As String
Dim num As Integer，i As Integer
i＝1
num＝0
Do While i＜＝Len(Text1)
If Mid(Text1,i,1)＝Text2．Then
num＝num＋1
End If
i＝i＋1
Loop
I
本文档预览：3600字符，共4618字符，源文件无水印，下载后包含无答案版和有答案版，查看完整word版点下载
