国家二级VB机试（上机操作）模拟试卷316
基本操作题
1.(1)在名称为Form1的窗体上画两个标签(名称分别为Label1和Label2，标题分别为“姓名”和“年龄”)、两个文本框(名称分别为Text1和Text2，初始内容均为空)和一个命令按钮(名称为Command1，标题为“显示”)。然后编写命令按钮的Click事件过程。程序运行后，在两个文本框中分别输入姓名和年龄，然后单击“显示”按钮，则在窗体上显示两个文本框中的内容，如图所示。要求程序中不得使用任何变量。
注意：存盘时必须存放在考生文件夹下，工程文件名保存为sjt1．vbp，窗体文件名保存为sjt1．frm。
(2)在名称为Form1的窗体上画一个图片框，其名称为Picture1，一个水平滚动条，名称为HScroll1，一个命令按钮，名称为Command1，标题为“设置属性”，通过属性窗口在图片框中装入一个图形(文件名为picl．jpg，位于考生目录下)，图片框的高度与图形的高度相同，图片框的宽度任意(如图1所示)。编写适当的事件过程，程序运行后，如果单击命令按钮，则设置水平滚动条的属性如下：
Min 100
Max 1500
LargeChange 100
SmallChange 10
之后就可以通过移动滚动条上的滚动块来放大或缩小图片框。程序运行后的窗体如图2所示。要求程序中不得使用任何变量。
注意：存盘时必须存放在考生文件夹下，工程文件名为sjt2．vbp，窗体文件名为sjt2．frm。
(1) 【操作步骤】
步骤1：新建一个窗体，按照题目要求建立控件并设置相应属性，程序中用到的控件及属性如表3．16所示。
[*]
步骤2：打开代码编辑窗口，在指定位置编写如下代码。
Private Sub Command1_Click()
Forml．Print Text1．Text＆”，现年”＆
Text2．Text＆”岁”
End Sub
步骤3：调试并运行程序，关闭程序后按题目要求存盘。
(2)
【操作步骤】
步骤1：新建一个窗体，添加控件并设置相应的属性。程序中用到的控件及其属性见表3．17。
[*]
步骤2：打开代码编辑窗口，在指定位置编写如下代码。
Private Sub Command1_Click()
HScrol11．Max=1500’设置滚动条的最大值、最小值、最大改变值、最小改变值
HScroll1．Min=100
HScroll1．LargeChanqe=100
HScroll1．SmallChange=10
End Sub
Private Sub HScroll1_Change()
Picture1．Width=HSCroll1．Value
’将图片的width与滚动条的Value保持一致
End Sub
步骤3：调试并运行程序，关闭程序后按题目要求存盘。
解析：
简单应用题
2.(1)在考生文件夹下有一个工程文件sjt3．vbp。窗体上有一个名称为List1的列表框，且已有若干个项目，如图(a)所示。“部分反序”命令按钮的名称为Command1。程序运行时，单击“部分反序”按钮，列表框中除最前面的一个项目不动外，其他项目的顺序反向显示，如图(b)所示。文件中已经给出了所有控件和程序，但程序不完整，请去掉程序中的注释符，把程序中的?改为正确的内容。
注意：不能修改程序中的其他部分和各控件的属性。最后把修改后的文件按原文件名存盘。
(2)在考生文件夹下有一个工程文件sjt4．vbp。其功能是：
1)单击“产生数据”按钮，产生10个随机整数，并显示在Picture1图片框的第1行；
2)在Text1文本框中输入要清0的第1个数的位置，在Text2文本框中输入要清0的个数，然后单击“清0”按钮，则把清0后的数据显示在图片框的下一行。如图所示。
其他约束：
a)若输入的第1个数位置大于10，则认为从第10个数开始；
b)若不输入第1个数位置，则认为从第1个数开始；
c)若不输入清0个数，则认为一直清0到最后一个数；
d)若输入的清0个数超出了最后1个数，则清0到最后一个数为止。
在窗体文件中已经给出了全部控件，但程序不完整，要求去掉程序中的注释符，把程序中的?改为正确的内容。
注意：不能修改程序中的其他部分和控件的属性。最后把修改后的文件按原文件名存盘。
(1)
【操作步骤】
步骤1：打开本题项目工程。
步骤2：打开代码编辑窗口，去掉程序中的注释符“’”，将问号改为正确的内容。
Private Sub Command1_Click()
Dim k％．s$
For k=1 To(Listl．ListCount一1) 2
s$=List1．List(k)
List1．List(k)=List1．List(List1.ListCount-k)
List1．List(List1．ListCount—k)=s
Next
End Sub
步骤3：调试并运行程序，关闭程序后按题目要求存盘。
(2)
【操作步骤】
步骤1：打开本题项目工程。
步骤2：打开代码编辑窗口，去掉程序中的注释符“’”，将问号改为正确的内容。
Option Base 1
Dim a(10)As Integer
Private Sub Commandl_Click()
Randomize
For k=1 To 10
a(k)=Int(Rnd*99)+1
Picture1.Print a(k)；
Next k
Picture1．Print
End Sub
Private Sub Command2_Click()
Dim start As Integer，n As Integer
本文档预览：3600字符，共5135字符，源文件无水印，下载后包含无答案版和有答案版，查看完整word版点下载
