国家二级VB机试（上机操作）模拟试卷414
基本操作题
1.(1)在名称为Form1的窗体上画两个标签(名称分别为Label1和Labe12，标题分别为“姓名”和“年龄”)、两个文本框(名称分别为Text1和Text2，初始内容均为空)和一个命令按钮(名称为Command1，标题为“显示”)。然后编写命令按钮的Click事件过程。程序运行后，在两个文本框中分别输入姓名和年龄，然后单击“显示”按钮，则在窗体上显示两个文本框中的内容，如图所示。要求程序中不得使用任何变量。
注意：存盘时必须存放在考生文件夹下，工程文件名保存为sjt1．vbp，窗体文件名保存为sjt1．frm。
(2)在名称为Form1的窗体上画一个图片框，其名称为Picturel，一个水平滚动条，名称为HScroll1，一个命令按钮，名称为Command1，标题为“设置属性”，通过属性窗口在图片框中装入一个图形(文件名为pic1．jpg，位于考生目录下)，图片框的高度与图形的高度相同，图片框的宽度任意(如图1所示)。编写适当的事件过程，程序运行后，如果单击命令按钮，则设置水平滚动条的属性如下：
Min 100
Max 1500
Large Change 100
Small Change 10
之后就可以通过移动滚动条上的滚动块来放大或缩小图片框。程序运行后的窗体如图2所示。要求程序中不得使用任何变量。
注意：存盘时必须存放在考生文件夹下，工程文件名为sjt2．vbp，窗体文件名为Sjt2．frm。
(1)【操作步骤】
步骤1：新建一个窗体，按照题目要求建立控件并设置相应属性，程序中用到的控件及属性如表3．16所示。
[*]
步骤2：打开代码编辑窗口，在指定位置编写如下代码。
参考答案
Private Sub Command1_Click()
Form1．Print Text1．Text ＆\\
解析：
简单应用题
2.(1)在考生文件夹下有一个工程文件sjt3．vbp(相应的窗体文件名为sjt3．frm)，在窗体上添加一个名称为List1的列表框和一个名称为Text1的文本框，如图1所示。编写窗体的Mouse Down事件过程。程序运行后，如果用鼠标单击窗体，则从键盘上输入要添加到列表框中的项目(内容任意，不少于三个)；如果用鼠标右键单击窗体，则从键盘上输入要删除的项目，将其从列表框中删除。程序的运行情况如图2所示。这个程序不完整，请把它补充完整，并能正确运行。
要求：去掉程序中的注释符，把程序中的?改为适当的内容，使其正确运行，但不能修改程序中的其他部分。最后将修改后的文件按原文件名存盘。
(2)在考生文件夹下有一个工程文件sjt4．vbp(相应的窗体文件名为sjt4．frm)，其功能是通过调用过程FindMin求数组的最小值。程序运行后，在4个文本框中各输入一个整数，然后单击命令按钮，即可求出数组的最小值，并在窗体上显示出来(如图所示)。
要求：去掉程序中的注释符，把程序中的?改为正确的内容，使其实现上述功能，但不能修改程序中的其他部分。最后把修改后的文件按原文件名存盘。
(1)【操作步骤】
步骤1：打开本题工程文件，按表3．18所列在窗体画出控件并设置其属性。
[*]
步骤2：打开代码编辑窗口，去掉程序中的注释符“’”，将问号改为正确的内容。
参考答案
Private Sub Form_MouseDown(Button As Integer,Shift As Integer,X As Single,Y As Single)
If Button＝1 Then
Text1．Text＝InputBox(\\
解析：
综合应用题
3.在窗体上建立三个菜单(名称分别为Read、Calc和Save，标题分别为“读入数据”、“计算并输出”和“存盘”)，然后再添加一个文本框，名称为Text1，MultiLine属性设置为True，ScrolIBars属性设置为2(如图所示)。程序运行后，如果执行“读入数据”命令，则读入考生文件夹下datain1．txt文件中的100个整数，放入一个数组中，数组的下界为1；如果单击“计算并输出”按钮，则把该数组中下标为偶数的元素在文本框中显示出来，求出它们的和，并把所求得的和在窗体上显示出来；如果单击“存盘”按钮，则把所求得的和存入考生文件夹下的dataout．txt文件中。
【操作步骤】
步骤1：打开本题工程文件，利用菜单设计器，按表中的设置建立菜单项，在窗体Fonn1中绘制一个文本框，其相关属性及其值见表3．19和表3．20。
[*]
步骤2：打开代码编辑窗口，在代码编辑窗口指定位置编写以下代码。
参考答案
’需要考生编写的内容
Dim sum As integer
’考生编写程序结束
’需要考生编写的内容
Private Sub Calc_Click()
Text1．Text＝\\
解析：
本文档预览：3600字符，共3003字符，源文件无水印，下载后包含无答案版和有答案版，查看完整word版点下载
