国家二级VB机试（上机操作）模拟试卷412
基本操作题
1.(1)在名称为Form1的窗体上添加两个名称分别为Text1和Text2的文本框，它们的高、宽分别为300、2400和1200、2400。窗体的标题为“窗口”。请通过属性窗口设置适当的属性，满足如下要求：
①Text2可以显示多行文本，并且有垂直和水平两个滚动条；
②程序运行时在Text1中显示输入的字符为“*”。
程序运行后的窗体如图所示。
注意：存盘时必须存放在考生文件夹下，工程文件名保存为sjt1．vbp，窗体文件名保存为sjt1．frm。
(2)在名称为Form1的窗体上添加一个名称为Image1的图像框，其高、宽分别为1900、1700，通过属性窗口把考生文件夹下的图像文件pic1．bmp载入图像框；再画两个命令按钮控件，名称分别为C1、C2，标题分别为“放大”、“缩小”，如图所示。
要求：
①请编写适当的事件过程，程序运行后，如果单击“放大”按钮，则将图像框的高度、宽度均增加100；单击“缩小”按钮，则将图像框的高度、宽度均减少100，要求程序中不得使用任何变量。
②通过属性窗口设置图像框的适当属性，使得在放大、缩小图像框时，其中的图像也自动放大、缩小。
注意：存盘时必须存放在考生文件夹下，工程文件名保存为sjt2．vbp，窗体文件名保存为sjt2．frm。
(1)【操作步骤】
步骤1：新建一个窗体，按照题目要求建立文本框控件并设置其属性，程序中涉及的控件及属性见表3．8和表3．9。
[*]
步骤2：调试并运行程序，关闭程序后按题目要求存盘。
(2)【操作步骤】
步骤1：新建一个窗体，按照题目要求建立控件并设置图像框相应属性，如图3．17所示。
[*]
步骤2：按照步骤1设置其他控件相关属性，程序中涉及的控件及属性见表3．10。
[*]
步骤3：打开代码编辑窗口，在指定位置编写如下代码。
参考答案
Private Sub Cl Click() ’当单击\\
解析：
简单应用题
2.(1)考生文件夹下有一个工程文件sjt3．vbp，其功能是：
①单击“读数据”按钮，则将考生文件夹下in3．dat文件中的100个0～999的整数读入到数组a中；
②单击“计算”按钮，则找出这100个整数中的所有水仙花数，并将它们的最大值与最小值分别显示在文本框Text1、Text2中(注：当一个数的值等于该数中的各位数字的立方和时，此数被称为水仙花数。如：153＝13＋53＋33，所以153就是一个水仙花数)。
在窗体文件中已经给出了全部控件(如图所示)和“读数据”命令按钮的事件过程以及判断一个数是否为水仙花数的通用过程。要求编写“计算”命令按钮的事件过程。
注意：考生不得修改窗体文件中已经存在的控件和程序，在结束程序运行前，必须进行“计算”，并且必须通过单击窗体右上角的“关闭”按钮结束程序，否则无成绩。最后，程序按原文件名存盘。
(2)在考生文件夹下有一个工程文件sjt4．vbp。请在窗体上添加一个组合框，名称为cb1，并输入三个列表项：“3”、“7”、“11”(列表项的顺序不限，但必须是这三个数字)；添加一个名为Text1的文本框；再添加一个标题为“计算”、名称为C1的命令按钮，如图所示。请编写适当的事件过程，使得在程序运行时，在组合框中选定一个数字后，单击“计算”按钮，则计算5000以内能够被该数整除的所有数之和，并放入Text1中。最后，按原文件名存盘。
提示：由于计算结果较大，应使用长整型变量。
注意：考生不得修改窗体文件中已经存在的程序，在结束程序运行之前，必须至少进行一次计算。并且必须用窗体右上角的关闭按钮结束程序。否则无成绩。
(1)【操作步骤】
步骤1：按照题目要求打开工程文件。
步骤2：打开代码编辑窗口，在指定位置编写如下代码。
参考答案
Dim i As Integer
Dim max As Integer，min As Integer
max＝－1
min＝1000
For i＝1 To 100
If isnarc(a(i))Then ’调用isnarc判断是否为水仙花数
If max＜＝a(i)Then max＝a(i)
If min＞＝a(i)Then min＝a(i)
’求水仙花数中的最大值与最小值
End If
Next i
Text1＝max
Text2＝min
步骤3：按照题目要求调试并运行程序，如图3．18所示。
[*]
步骤4：关闭程序后，按题目要求存盘。
(2)【操作步骤】
步骤1：打开本题工程文件，按照题目要求建立控件并设置组合框控件属性，如图3．19所示。程序中用到的控件及属性见表3．11。
[*]
步骤2：打开代码编辑窗口，在代码编辑窗口指定位置编写以下代码。
参考答案
Private Sub C1 Click()
Dim sum As Long
Dim n As Integer
Dim i As Integer
n＝Val(cb1．Text) ’读取选中的数字并通过函数Val转换为数值
For i＝n To 5000 ’从本身开始循环查找
If i Mod n＝0 Then
sum＝sum＋i ’判断是否能被该数整除并求和
End If
Next i
Text1．Text＝sum ’在Text1中显示
End Sub
步骤3：调试并运行程序，关闭程序后按题目要求存盘。
解析：
综合应用题
3.在考生文件夹下有一个工程文件sjt5．vbp，其名称为Form1的窗体上已有三个文本框Text1、Text2、Text3，以及部分程序代码，请完成以下工作。
①在属性窗口中修改Text3的适当属性，使其在运行时不显示，作为模拟的剪贴板使用，窗体如图所示。
本文档预览：3600字符，共4469字符，源文件无水印，下载后包含无答案版和有答案版，查看完整word版点下载
