1、国家二级 VB机试（上机操作）模拟试卷 123及答案与解析 一、基本操作题 1 在名称为 Form1的窗体上添加一个名称为 Command1的命令按钮，标题为 “打开文件 ”，再添加一个名称为 CD1的通用对话框。程序运行后，如果单击命令按钮，则弹出打开文件对话框，请按下列要求设置属性和编写代码： 设置适当属性，使对话框的标题为 “打开文件 ”； 设置适当属性，使对话框的 “文件类型 ”下拉式组合框中有两项可供选择： “文本文件 ”、 “所有文件 ”(如图所示 )，默认的类型是 “所有文件 ”； 编写命令按钮的事件过程，使得单击按钮可以弹 出 “打开文件 ”对话框。要求：程序中不得使用变量，事
2、件过程中只能写入一条语句。注意：存盘时必须存放在考生文件夹下，工程文件名保存为 sjt1 vbp，窗体文件名保存为 sjt1 frm。2 在名称为 Form1的窗体上添加一个名称为 Command1的命令按钮，其标题为 “移动本按钮 ”，如图所示。要求编写适当的事件过程，使得程序运行时，每单击按钮一次，按钮向左移动 100。要求：程序中不得使用变量，事件过程中只能写入一条语句。注意：存盘时必须存放在考生文件夹下，工程文件名保存为 sjt2 vbp，窗体文件名保存为 sjt2 frm。二、简单应用题 3 在名称为 Form1的窗体上添加一个名称为 Label1、标题为 “添加项目 ”的标签；添加
3、一个名称为 Text1的文本框，初始内容为空；添加一个名称为 Combo1的下拉式组合框，并通过属性窗口输入若干项目 (不少于 3个，内容任意 )；再添加两个命令按钮，名称分别为 Command1、 Command2，其标题分别为 “添加 ”、 “统计 ”。在程序运行时，向 Text1中输入字符，单击 “添加 ”按钮后，则将 Text1中的内容作为一个列表项被添加到组合框的列表中；单击 “统计 ”按钮，则在窗体空白处 显示组合框中列表项的个数，如图所示。请编写两个命令按钮的 Click事件过程。注意：程序中不得使用变量，也不能使用循环结构。存盘时必须存放在考生文件夹下，工程文件名保存为 sjt
4、3 vbp，窗体文件名保存为 sit3 frm。4 在考生文件夹下有一个工程文件 sjt4 vbp，其窗体如图所示。该程序用来对在上面的文本框中输入的英文字母串 (称为 “明文 ”)加密，加密结果 (称为 “密文 ”)显示在下面的文本框中。加密的方法为：选中一个单选按钮，单击 “加密 ”按钮后，根据选中的单选按钮后面的数字 n，将 “明文 ”中的每个字母改 为它后面的第 n个字母 (“z”后面的字母认为是 “a”， “Z”后面的字母认为是 “A”)，如图所示。窗体中已经给出了所有控件和程序，但程序不完整，请去掉程序中的注释符，把程序中的 ?改为正确的内容。 注意：不得修改程序中的其他部分和控件
5、的属性。最后将修改后的文件按原文件名存盘。 三、综合应用题 5 考生文件夹下有一个工程文件 sjt5 vbp，窗体上有两个文本框，名称分别为Text1、 Text2，都可以多行显示。还有三个命令按钮，名称分别为 C1、 C2、 C3，标题分别为 “取数 ”、 “排序 ”、 “存盘 ”。 “取数 ”按钮的功 能是将考生文件夹下的in5 dat文件中的 50个整数读到数组中，并在 Text1中显示出来； “排序 ”按钮的功能足对这 50个数按升序排序，并显示在 Text2中； “存盘 ”按钮的功能是把排好序的 50个数存到考生目录下的 out5 dat文件中，如图所示。在窗体中已经给出了全部控件和
6、部分程序代码，要求阅读程序并去掉程序中的注释符，把程序中的 ?改为正确的内容，并编写 “排序 ”按钮的 Click事件过程，使其实现上述功能，但不能修改程序中的其他部分，也不能修改控件的属性。最后将修改后的文件按原文件名存盘。 国家二级 VB机 试（上机操作）模拟试卷 123答案与解析 一、基本操作题 1 【正确答案】 操作步骤 步骤 1：新建一个窗体，按照要求建立控件并设置其属性，如图 3 21所示。程序中用到的控件及属性见表 3 13。步骤 2：打开代码编辑窗口，在指定位置编写如下代码。参考代码 Private Sub Command1_Slick()CD1 ShowOpen显示打开文件对
7、话框 End Sub步骤 3：调试并运行程序，关闭程序后按题目要求存盘。 2 【正确答案】 操作步骤 步骤 1：新建一个窗体，按照要求建立控件并设置相应属性如表 3 14所示。步骤 2：打开代码编辑窗口，在指定位置编写如下代码。参考代码 Private sub Command1_Click()Command1 Left=Command1 Left100End Sub步骤 3：调试并运行程序，关闭程序后按题目要求存盘。 二、简单应用题 3 【正确答案】 操作步骤 步骤 1：新建一个窗体，按照题目要求建立控件并设置控件属性，如图 3 22所示。程序中用到的控件及属性设置见表 3 15。步骤 2：打
8、开代码编辑窗口，在指定位置编写如下代码。参考代码 Private Sub Command1 Click()Combo1 AddItem Text1End SubPrivate Sub Command2_Click()Print Combo1 LiStCountEnd Sub步骤 3：调试并运行程序，关闭程序后按题目要求存盘。 4 【正确答案】 操作步骤 步骤 1：打开本题工程文件。 步骤 2：打开代码编辑窗口，去掉程序中的注释符 “”，将问号改为正确的内容。 参考代码 (画下划线部分是需填入的内容 ) Private Sub Command1_Click() Dim n As Integer，
9、 k As Integer， m As Integer Dim c As String， a As String For k=0 To 2 If OD1(k) Value Then n=Val(Op1(k) Caption) End If Next k m=Len(Text1 Text) a=“ For k=1 Tom c=Mid$(Text1 Text， k， 1) c=String(1， Asc(c)+n) IfC “z“Or c “Z“And c “a“Then c=String(1， Asc(C-26) End If a=a+c Next k Text2 Text=a End Sub
10、步骤 3：调试并运行程序，关闭程序后按题目要求存盘。 三、综合应用题 5 【正确答案】 操作步骤 步骤 1：打开本题工程文件。 步骤 2：打开代码编辑窗口，去掉程序中的注释符 “”，将问号改为正确的内容，并编写代码。 参考代码 (画下划线部分是需填入的内容 ) Dim a(50)As Integer Private Sub C1_Click() Dim k As Integer， ch As String Open“5in5 dat“For Input As#1 ch=“ For k=1 To 50 Input： #1， a(k)将取出的数据存入数组 a中 ch=ch+Str(a(k)+“将数
11、据存入 ch Next k Close #1 Text1 Text=ch在 Text1文本框中显示文件内容 End Sub Private Sub C2_Click() End Sub Private Sub C3_Click() Open“out5 dat“For Output； As #1 Print#1， Text2 Text； Close#1 End Sub 需编写的 “排序 ”按钮的代码 Private Sub C2_Click() Dim t As Integer Dim i As Integer Dim j As Integer Dim ch As String ch=“ For i=50 To 2 Step-1使用冒泡算法从小到大排序 For j=1 To 49 If a(j) a(j+1)Then两两比较 t=a(j+1) a(j+1)=a(j) a(j)=t End If Next； j Next i For j=1 To 50将排序后的数组重新赋给 ch ch=ch+Str(a(j)+“ Next； j Text2 Text=ch End Sub 步骤 3：调试并运行程序，关闭程序后按题目要求存盘。
