1、国家二级 VB机试（上机操作）模拟试卷 26及答案与解析 一、基本操作题 1 请根据以下各小题的要求设计 Visual Basic应用程序 (包括界面和代码 )。在名称为Forml的窗体上画一个名称为 Commandl的命令按钮，标题为 ”打开文件 ”，再画一个名称为 CDl的通用对话框。程序运行后，如果单击命令按钮，则弹出打开文件对话框。请按下列要求设置属性和编写代码： 设置适当属性，使对话框的标题为 ”打开文件 ”； 设置适当属性，使对话框的 ”文件类型 ”下拉式组合框中有两行： ”文本文件 ”、 ”所有文件 ”(如图 2-142所示 )，默认的类型是 ”所有文件 ”； 编写命令按钮的事件
2、过程，使得单击按钮可以弹出打开文件对话框。要求：程序中不得使用变量，事件过程中只能写一条语句。注意：存盘时必须存放在考生文件夹下，工程文件名为 sjtl vbp，窗体文件名为 sjtl frm。2 在名称为 Forml的窗体上画一个命令按钮，名称为 Commandl，其标题为 ”移动本按钮 ”，如图 2-143所示。编写适当的事件过程，使得程序运行时，每单击按钮一次，按钮向左移动 100。 要求：程序中不得使用变量，事件过程中只能写一条语句。 注意：存盘时必须存放在考 生文件夹下，工程文件名为 sjt2 vbp，窗体文件名为 sjt2 frm。 二、简单应用题 3 在名称为 Forml的窗体上
3、画一个名称为 Labell、标题为 ”添加项目： ”的标签；画一个名称为 Textl的文本框，没有初始内容；画一个名称为 Combol的下拉式组合框，并通过属性窗口输入若干项目 (不少于三个，内容任意 )；再画两个命令按钮，名称分别为 Commandl、 Command2，标题分别为 ”添加 ”、 ”统计 ”。在运行时，向Textl中输入字符，单击 ”添加 ”按钮后，则 Textl中的内容作为一个列表项被添加到组合 框的列表中：单击 ”统计 ”按钮，则在窗体上显示组合框中列表项的个数，如图2-144所示。请编写两个命令按钮的 Click事件过程。注意：程序中不得使用变量，也不能使用循环。存盘时
4、必须存放在考生文件夹下，工程文件名为sjt3 vbp，窗体文件名为 sjt3 frm。 4 在考生文件夹下有一个工程文件 sjt4 vbp，其窗体如图 2-145所示。该程序用来对在上面的文本框中输入的英文字母串 (称为 ”明文 ”)加密，加密结果 (称为 ”密文 ”)显示在下面的文本框中。加密的方法是：选中一个单选按钮，单击 ”加密 ”按钮后，根据选中 的单选按钮后面的数字 n，把明文中的每个字母改为它后面的第 n个字母(“z”后面的字母认为是 ”a”， ”Z”后面的字母认为是 ”A”)，如图 2-145所示。窗体中已经给出了所有控件和程序，但程序不完整，请去掉程序中的注释符，把程序中的 ?
5、改为正确的内容。注意：不能修改程序中的其他部分和控件的属性。最后把修改后的文件按原文件名存盘。 三、综合应用题 5 在考生文件夹下有一个工程文件 sjt5 vbp，窗体上有两个文本框，名称为Textl、 Text2，都可以多行显示。还有三个命令按钮，名称分别为 C1、 C2、 C3，标题 分别为 ”取数 ”、 ”排序 ”、 ”存盘 ”。 ”取数 ”按钮的功能 是把考生目录下的in5 dat文件中的 50个整数读到数组中，并在 Textl中显示出来； ”排序 ”按钮的功能是对这 50个数按升序排序，并显示在 Text2中； ”存盘 ”按钮的功能是把排好序的 50个数保存到考生目录下的 out5
6、dat文件中。如图 2-146所示。在窗体中已经给出了全部控件和部分程序，要求阅读程序并去掉程序中的注释符，把程序中的 ?改为正确的内容，并编写 ”排序 ”按钮的 Click事件过程，使其实现上述功能，但不能修改程序中的其他部分，也不能修改控件的属性。最后把修改后的文件按原文件名存盘。 国家二级 VB机试（上机操作）模拟试卷 26答案与解析 一、基本操作题 1 【正确答案】 步骤 1：新建一个 ”标准 EXE”工程，选择 工程 部件 命令，打开 ”部件 ”对话框，从其列表中选中 ”MicroSoftCommonDialogConlrol6 0”项目，单击 ”确定 ”按钮。步骤 2：在窗体 Fo
7、rml中加入一个命令按钮和一个通用对话框，其相关属性设置如表 3-80所示。 步骤 3：在代码编辑窗口中，编写 ”打开文件 ”按钮的单击事件过程：参考代码： Private Sub Commandl_Click( )CD1 ShowOpen End Sub步骤 4：按要求将文件保存至考生文件夹中。 2 【正确答案】 步骤 1：新建一个 ”标准 EXE”工程，画出一个名为 Commandl的命令按钮，并且设置其 Caption属性为 ”移动本按钮 ”。 步骤 2：在代码编辑窗口编写命令按钮的单击事件过程。 参考代码： Private Sub Commandl_Click( ) Commandl
8、Left=Commandl Left-100 End Sub 步骤 3：按要求将文件保存至考生文件夹中。 二、简单应用题 3 【正确答案】 步骤 1：新建 一个 ”标准 EXE”工程，如表 3-8l在窗体中画出控件并设置其相关属性。 步骤 2：打开代码编辑窗口，编写两个命令按钮的 Click事件过程。参考代码： Private Sub Commandl_Click( )Combol AddItem Textl TextEnd SubPrivate Sub Command2_Click( )Print Combol ListCountEnd Sub步骤 3：按要求将文件保存至考生文件夹中。 4
9、【正确答案】 步骤 1：打开考生文件中的本题工程文件 sjt4 vbp，在代码编辑窗口，去掉程序中的注释符 ”“，将问号 ”?”改为正确的内容。 参考代码： n=Val(Opl(k) Caption) For k=1 To m c： Mid$(Textl Text， k， 1) a=a+c 步骤 2：按要求将文件保存至考生文件夹中。 三、综合应用题 5 【正确答案】 步骤 1：打开考生文件中的本题工程文件 sjt5 vbp，在代码编辑窗口的指定位置编写以下代码： 参考代码： Private Sub C1_Click( ) Dim k As Integer Dim ch As String Op
10、en App Path&” in5 dat”For Input As #1 ch=“ For k=1 To 50 Input#1， a (k ) ch=ch+Str(a(k)+” “ Next k Close#1 Textl Text=ch$ End Sub Private Sub C2 Click( ) Dim k As Integer， i As Integer， j As Integer Dim ch As String For i=1 To 4 9 k=i For j=i+1 To 50 If a(k) a(j)Then k=j End If Next j j=a(k) a(k)=a(i) a(i)=j Next i ch=“ For k=1 To 50 ch=ch+Str(a(k)+” “ Next k Text2 Text=ch End Sub 步骤 2：按要求将文件保存至考生文件夹中。 步骤 3：按 F5键运行程序，先单击 ”取数 ”按钮，再单击 ”排序 ”按钮，最后单击 ”存盘 ”按钮。
