国家二级VB机试（上机操作）模拟试卷449
基本操作题
1.(1)在名称为Form1的窗体上画两个标签(名称分别为Label1和Label2，标题分别为“姓名”和“年龄”)、两个文本框(名称分别为Text1和Text2，初始内容均为空)和一个命令按钮(名称为Command1，标题为“显示”)。然后编写命令按钮的Click事件过程。干旱序运行后，在两个文本框中分别输入姓名和年龄，然后单击“显示”按钮，则在窗体上显示两个文本框中的内容，如图所示。要求程序中不得使用任何变量。
注意：存盘时必须存放在考生文件夹下，工程文件名保存为sjt1．vbp，窗体文件名保存为sjt1．frm。
(2)在名称为Form1的窗体上画一个图片框，其名称为Picturel，一个水平滚动条，名称为HScrolll，一个命令按钮，名称为Command1，标题为“设置属性”，通过属性窗口在图片框中装入一个图形(文件名为picl．jpg，位于考生目录下)，图片框的高度与图形的高度相同。图片框的宽度任意(如图1所示)。编写适当的事件过程，程序运行后，如果单击命令按钮，则设置水甲滚动条的属性如下：
Mjn 100
Max 1500
LargeChange 100
SmallChange 10
之后就可以通过移动滚动条上的滚动块来放大或缩小图片框。程序运行后的窗体如图2所示。要求程序中不得使用任何变量。
注意：存盘时必须存放在考生文件夹下，工程文件名为sjt2．vhp，窗体文件名为sjt2．frm。
(1)步骤1：新建一个窗体，按照题目要求建立控件并设置相应属性，程序中用到的控件及属性如表3．16所示。
[*]
步骤2：打开代码编辑窗口，在指定位置编写如下代码。
参考答案
Private Sub Command1_Click()
Form1．Print Text1．Text &\\
解析：(1)通过标签的Name和Caption属性设置标签的名称和标题，通过文本框Name和Text属性设置文本框的名称和文本，通过命令按钮的Name和Caption属性设置命令按钮的名称和标题，“&”和“+”运算符均可将两个表达式作为字符串连接。在窗体上输出文本内容可使用Pnnt方法。
(2)在设计阶段通过Picture属性为图片框指定显示的图片，通过Width属性来设定或修改图片框的宽度。通过调整滚动条滑块的位置即可改变其Value属性的值，滚动条的Max和Min属性限定了滚动条所能表示的最大值和最小值，LargeChange属性用于设置当单击滑块与两侧箭头间区域时Value属性值的改变量，SmallChange属性用于设置当单击滚动条两侧箭头时Value属性值的改变量。当改变滚动条滑块位置后将触发其Change事件。
简单应用题
2.(1)考生文件夹下有一个工程文件sjt3．vbp，其功能是：
①单击“读数据”按钮，则将考生文件夹下in3．dat文件中的100个0～999的整数读入剑数组a中；
②单击“计算”按钮，则找出这100个整数中的所有水仙花数，并将它们的最大值与最小值分别显示在文本框Texll、Text2中(注：当一个数的值等于该数中的各位数字的立方和时，此数被称为水仙花数。如：153=13+53+33，所以153就是一个水仙花数)，
在窗体文件中已经给出了全部控件(如图所示)和“读数据”命令按钮的事件过程以及判断一个数是否为水仙花数的通用过程。要求编写“计算”命令按钮的事件过程。
注意：考生不得修改窗体文件中已经存在的控件和程序，在结束程序运行前，必须进行“计算”，并且必须通过单击窗体右上角的“关闭”按钮结束程序，否则无成绩。最后，程序按原文件名存盘。
(2)在考生文件夹下有一个工程文件sjt4．vbp。请在窗体上添加一个组合框，名称为ch1，并输入二个列表项：“3”、“7”、“11”(列表项的顺序不限，但必须是这三个数字)；添加一个名为Text1的文本框；再添加一个标题为“计算”、名称为C1的命令按钮，如图所示。请编写适当的事件过程，使得住程序运行时，在组合框中选定一个数字后，单击“计算”按钮，则计算5000以内能够被该数整除的所有数之和，并放入Text1中。最后，按原文件名存盘。
提示：由于计算结果较大，应使用长整型变量。
注意：考生不得修改窗体文件中已经存在的程序，在结束程序运行之前，必须至少进行一次计算。并且必须用窗体右上角的关闭按钮结束程序，否则无成绩。
(1)步骤1：按照题目要求打开工程文件。
步骤2：打开代码编辑窗口，在指定位置编写如下代码。
参考答案
Dim i As Integer
Dim max As Integer，min As Integer
max=一1
min=1 00 0
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 Hod n=0 Then
sum=sum+i判断是否能被该数整除并求和
End If
Next i
Text1．Text=sum’在Text1中显示
End Sub
本文档预览：3600字符，共5021字符，源文件无水印，下载后包含无答案版和有答案版，查看完整word版点下载
