国家二级VB机试（上机操作）模拟试卷413
基本操作题
1.(1)在名称为Form1的窗体上添加一个名称为Command1的命令按钮，标题为“打开文件”，再添加一个名称为CD1的通用对话框。程序运行后，如果单击命令按钮，则弹出打开文件对话框，请按下列要求设置属性和编写代码：
①设置适当属性，使对话框的标题为“打开文件”；
②设置适当属性，使对话框的“文件类型”下拉式组合框中有两项可供选择：“文本文件”、“所有文件”(如图所示)，默认的类型是“所有文件”；
③编写命令按钮的事件过程，使得单击按钮可以弹出“打开文件”对话框。
要求：程序中不得使用变量，事件过程中只能写入一条语句。
注意：存盘时必须存放在考生文件夹下，工程文件名保存为sjt1．vbp，窗体文件名保存为sjt1．frm。
(2)在名称为Form1的窗体上添加一个名称为Command1的命令按钮，其标题为“移动本按钮”，如图所示。
(1)【操作步骤】
步骤1：新建一个窗体，按照要求建立控件并设置其属性，如图3．21所示。程序中用到的控件及属性见表3．13。
[*]
步骤2：打开代码编辑窗口，在指定位置编写如下代码。
参考答案
Private sub Command1_Click()
CD1．Show Open ’显示打开文件对话框
End Sub
步骤3：调试并运行程序，关闭程序后按题目要求存盘。
(2)【操作步骤】
步骤1：新建一个窗体，按照要求建立控件并设置相应属性如表3．14所示。
[*]
步骤2：打开代码编辑窗口，在指定位置编写如下代码。
参考答案
Private sub Command1_Click()
Command1．Left＝Command1．Left－100
End Sub
步骤3：调试并运行程序，关闭程序后按题目要求存盘。
解析：
简单应用题
2.(1)在名称为Form1的窗体上添加一个名称为Label1、标题为“添加项目”的标签；添加一个名称为Text1的文本框，初始内容为空；添加一个名称为Combol的下拉式组合框，并通过属性窗口输入若干项目(不少于3个，内容任意)；再添加两个命令按钮，名称分别为Command1、Command2，其标题分别为“添加”、“统计”。在程序运行时，向Text1中输入字符，单击“添加”按钮后，则将Text1中的内容作为一个列表项被添加到组合框的列表中；单击“统计”按钮，则在窗体空白处显示组合框中列表项的个数，如图所示。请编写两个命令按钮的Click事件过程。
注意：程序中不得使用变量，也不能使用循环结构。存盘时必须存放在考生文件夹下，工程文件名保存为sjt3．vbp，窗体文件名保存为sjt3．frm。
(2)在考生文件夹下有一个工程文件sjt4．vbp，其窗体如图所示。该程序用来对在上面的文本框中输入的英文字母串(称为“明文”)加密，加密结果(称为“密文”)显示在下面的文本框中。加密的方法为：选中一个单选按钮，单击“加密”按钮后，根据选中的单选按钮后面的数字n，将“明文”中的每个字母改为它后面的第n个字母(“z”后面的字母认为是“a”，“z”后面的字母认为是“A”)，如图所示。窗体中已经给出了所有控件和程序，但程序不完整，请去掉程序中的注释符，把程序中的?改为正确的内容。
(1)【操作步骤】
步骤1：新建一个窗体，按照题目要求建立控件并设置控件属性，如图3．22所示。
[*]
程序中用到的控件及属性设置见表3．15。
[*]
步骤2：打开代码编辑窗口，在指定位置编写如下代码。
参考答案
Private Sub Command1_Click()
Combo1．AddItem Text1
End Sub
Private Sub Command2_Click()
Print Combo1．ListCount
End Sub
步骤3：调试并运行程序，关闭程序后按题目要求存盘。
(2)【操作步骤】
步骤1：打开本题工程文件。
步骤2：打开代码编辑窗口，去掉程序中的注释符“’”，将问号改为正确的内容。
参考答案
Private Sub Command1_C1ick()
Dim n As Integer，k As Integer，m As Integer
Dim c As String，a As String
For k＝0 To 2
If Op1(k)．Value Then
n＝Val(Op1(k)．Caption)
End工f
Next k
m＝Len(Text1．Text)
a＝\\
解析：
综合应用题
3.考生文件夹下有一个工程文件sjt5．vbp，窗体上有两个文本框，名称分别为Text1、Text2，都可以多行显示。还有三个命令按钮，名称分别为C1、C2、C3，标题分别为“取数”、“排序”、“存盘”。“取数”按钮的功能是将考生文件夹下的in5．dat文件中的50个整数读到数组中，并在Text1中显示出来；“排序”按钮的功能是对这50个数按升序排序，并显示在Text2中；“存盘”按钮的功能是把排好序的50个数存到考生目录下的out5．dat文件中，如图所示。在窗体中已经给出了全部控件和部分程序代码，要求阅读程序并去掉程序中的注释符，把程序中的?改为正确的内容，并编写“排序”按钮的Click事件过程，使其实现上述功能，但不能修改程序中的其他部分，也不能修改控件的属性。最后将修改后的文件按原文件名存盘。
【操作步骤】
步骤1：打开本题工程文件。
步骤2：打开代码编辑窗口，去掉程序中的注释符“’”，将问号改为正确的内容，并编写代码。
参考答案
Dim a(50) As Integer
Private Sub C1_C1ick()
Dim k As Integer，ch As String
本文档预览：3600字符，共3632字符，源文件无水印，下载后包含无答案版和有答案版，查看完整word版点下载
