国家二级VB机试（上机操作）模拟试卷439
基本操作题
1.(1)在名称为Form1的窗体上添加一个名称为Command1的命令按钮，标题为“打开文件”，再添加一个名称为CD1的通用对话框。程序运行后，如果单击命令按钮，则弹出打开文件对话框，请按下列要求设置属性和编写代码：
①设置适当属性，使对话框的标题为“打开文件”；
②设置适当属性，使对话框的“文件类型”下拉式组合框中有两项可供选择：“文本文件”、“所有文件”(如图所示)，默认的类型是“所有文件”；
③编写命令按钮的事件过程，使得单击按钮可以弹出“打开文件”对话框。
要求：程序中不得使用变量，事件过程中只能写入一条语句。
注意：存盘时必须存放在考生文件夹下，工程文件名保存为sjt1．vbp，窗体文件名保存为sjt1．frm。
(2)在名称为Form1的窗体上添加一个名称为Command1的命令按钮，其标题为“移动本按钮”，如图所示。
要求编写适当的事件过程．使得程序运行时，每单击按钮一次，按钮向左移动100。
要求：程序中不得使用变量，事件过程中只能写入一条语句。
注意：存盘时必须存放在考生文件夹下，工程文件名保存为sjt2．vbp，窗体文件名保存为sjt2．frm。
(1)步骤1：新建一个窗体，按照要求建立控件并设置其属性，如图3．21所示。程序中用到的控件及属性见表3．13。
[*]
步骤2：打开代码编辑窗口，在指定位置编写如下代码。
参考答案
PriVate sub Command1_Click()
CDI．ShowOpen’显示打开文件对话框
End Sub
步骤3：调试并运行程序，关闭程序后按题目要求存盘。
(2)步骤1：新建一个窗体，按照要求建立控件并设置相应属性如表3．14所示。
[*]
步骤2：打开代码编辑窗口，在指定位置编写如下代码。
参考答案
PriVate sub Command1_Click()
Command1．Left=Command1．Left一100
End Sub
步骤3：调试并运行程序，关闭程序后按题目要求存盘。
解析：(1)通用对话框是一种ActiveX控件，在一般情况下，启动Visual Basic后，在工具箱中没有通用对话框控件。为了把通用对话框控件加到工具箱中，其操作步骤如下：执行“工程”菜单中的“部件”命令，打开“部件”对话框，在对话框中，选择“控件”选项卡，然后在控件列表框中，选择“MicrosoftCommon Dialog Control 6．0”，再单击“确定”按钮，通用对话框立即被加到工具箱中。通用对话框的属性可以在属性窗口中直接设置。
当通用对话框显示为“打开”或“另存为”类型时，其FileName属性用于返回或设置所选的文件的路径和文件名。Filter(过滤器)属性用于指定在对话框的文件列表中显示文件的类型。语法为“对象名．Filter=‘描述|文件扩展名’”。
打开顺序文件的基本格式为“Open FileNameFor Mode As #FileNumber”。FileName表示要打开的文件的路径；Mode为打开模式，OutPut用于输出、Append用于追加写入、Input用于读取；FileNumber为打开文件时指定的句柄。
(2)在Visual Basic中，通过代码使命令按钮向左移动100，需要用到按钮的Left属性，使其值在每单击一次按钮时减去100。
简单应用题
2.(1)在考生文件夹下有一个工程文件sjt3．vbp。窗体上有一个名称为List1的列表框，且已有若干个项目，如图(a)所示。“部分反序”命令按钮的名称为Command1。程序运行时，单击“部分反序”按钮，列表框中除最前面的一个项目不动外，其他项目的顺序反向显示，如图(b)所示。文件中已经给出了所有控件和程序，但程序不完整，请去掉程序中的注释符，把程序中的?改为正确的内容。
注意：不能修改程序中的其他部分和各控件的属性。最后把修改后的文件按原文件名存盘。
(2)在考生文件夹下有一个工程文件sjt4．vbp。其功能是：
1)单击“产生数据”按钮，产生10个随机整数，并显示在Picturel图片框的第1行；
2)在Text1文本框中输入要清0的第1个数的位置，在Text2文本框中输入要清0的个数，然后单击“清0”按钮，则把清0后的数据显示在图片框的下一行。如图所示。
其他约束：
a)若输入的第1个数位置大于10，则认为从第10个数开始；
b)若不输入第1个数位置，则认为从第1个数开始；
c)若不输入清0个数，则认为一直清0到最后一个数；
d)若输入的清0个数超出了最后1个数，则清0到最后一个数为止。
在窗体文件中已经给出了全部控件，但程序不完整，要求去掉程序中的注释符，把程序中的?改为正确的内容。
注意：不能修改程序中的其他部分和控件的属性。最后把修改后的文件按原文件名存盘。
(1)步骤l：打开本题项目工程。
步骤2：打开代码编辑窗口，去掉程序中的注释符“’”，将问号改为正确的内容。
参考答案
Private Sub Command1_Click()
Dim k％，s$
For k=1 To f List1．ListCount—1) 2
s$=List1．List(k)
List1．List(k)=List1．List(List1．List Count-k)
List1．Listf List1．ListCount—k)=s
Next
End Sub
步骤3：调试并运行程序，关闭程序后按题目要求存盘。
(2)步骤1：打开本题项目工程。
步骤2：打开代码编辑窗口，去掉程序中的注释符“’”，将问号改为正确的内容。
参考答案
Option Base 1
Dim a(10)As Integer
Private Sub Command1_Click()
Randomize
For k=1 To 10
a(k)=Int(Rnd*99)+1
Picture1．Print a(k)；
Next k
Picturel．Print<
本文档预览：3600字符，共5802字符，源文件无水印，下载后包含无答案版和有答案版，查看完整word版点下载
