1、国家二级 VB机试（上机操作）模拟试卷 99及答案与解析 一、基本操作题 1 请根据以下各小题的要求设计 Visual Basic应用程序 (包括界面和代码 )。 (1)在名称为 Forml的窗体上画一个名称为 Pic的图片框，通过属性窗口将考生文件夹下的文件 Tul一 1jpg添加到图片框，然后编写适当的事件过程。运行程序时，单击窗体，在图片框中显示 “VB等级考试 ”，如图 3-111所示。 注意：要求程序中不得使用变量，事件过程中只能写一条语句。存盘时必须存放在考生文件夹下，工程文件名为 sitl vbp，窗体文件名为 sjtl.frm。 (2)在名称为 Forml的窗体上画一个名称为
2、Commandl的命令按钮，标题为 “命令按钮 ”。然后建立一个菜单，标题为 “控件 ”，名称为 menu，包含两个子菜单项，一个是 “显示命令按钮 ”，名称为 subMenul；另一个是 “隐藏命令按钮 ”，名称为 subMenu2，如图3 112所示。 编写适当的事件过程，使得程序运行时，如果选择 “显示命令按钮 ”菜单命令，则显示命令按钮控件；而如果选择 “隐藏命令按钮 ”菜单命令，则隐藏命令按钮控件。注意：程序中不得使用变量，每个事件过程中只能写一条语句。存盘时必须存放在考 生文件夹下，工程文件名为 sit2 vbp，窗体文件名为 sjt2 frm。 二、简单应用题 2 (1)在名称为
3、 Forml的窗体上画一个名称为 Ll的标签，标题为 “口令 ”；画两个文本框，名称分别为 Text1、 Text2，都没有初始内容；再画三个命令按钮，名称分别为 C1、 C2、 C3，标题分别为 “显示口令 ”、 “隐藏口令 ”、 “复制口令 ”，在开始运行时，向 Textl中输入的所有字符，都显示 “*”，单击 “显示口令 ”按钮后，在 Textl中显示所有字符，再单击 “隐藏口令 ”后， Text1中的字符不变，但显示的都是 “?”，单击 “复制口令 ”后，把 Text1中的实际内容复制到 Text2中，如图 3 13所示。要求： 在属性窗口中，把窗体的标题改为 “口令窗口 ”。 建立适
4、当的事件过程，完成上述功能。每个过程中只允许写一条语句，且不能使用变量。存盘时，工程文件名为 sit3 vbp，窗体文件名为 sit3 frm。 (2)在名称为Forml的窗体上画一个名称为 P1的图片框，并利用属性窗口把考生目录中的图标文件 Open ico放到图片框中；再画一个通用对话框控件，名称为 CDl1，利用属性窗口设置相应属性，即打开对话框时：标题为 “打开文件 ”，文件类 型为 “Word文档 ”，初始目录为 C盘根目录。再编写适当的事件过程，使得在运行时，单击 P1图片框，可以打开上述对话框。运行后的窗体如图 3 14所示。注意：存盘时必须存放在考生文件夹下，工程文件名为 si
5、t4 vbp，窗体文件名为 sjt4-frm。程序中不得使用任何变量。 三、综合应用题 3 考生文件夹下有工程文件 sjt5 vbp。程序运行时，外观如图 3 187所示，单击“显示数据 ”按钮，则将考生文件夹下 in5 dat文件的内容读入到 5行 40列的二维数组 a中，并按 5行显示在 Textl文本框内；单击 “统计 “按 钮，则计算每行中小于50的数之和，及这些数的平均值 (平均值保留 2位小数，是否四舍五入不限 )，并将它们 (共 10个值 )分别显示在 Labell数组及 Text2数组中。单击 “保存 ”按钮，则保存计算结果。 “显示数据 ”和 “保存 ”按钮的 Click事件
6、过程已经给出，请编写 “统计 ”按钮的 Click事件过程实现上述功能。注意：考生不得修改窗体文件中已经存在的控件和程序，在结束程序运行之前，必须用 “统计 ”进行统计，且必须单击 “保存 ”按钮保存结果，否则无成绩。最后，程序按原文件名存盘。国家二级 VB机试（上机操作）模拟试卷 99答案与解析 一、基本操作题 1 【正确答案】 第 l小题 【操作步骤】 步骤 1：新建一个 “标准 EXE”工程，在窗体 Forml中画一个名称为 Pic的图片框，并设置其 Picture属性为 Tul.1 jpg。 步骤 2：双击窗体打开代码编辑窗口，在窗体的 Click事件过程中输入代码。 参考代码： Pr
7、ivate Sub Form Click() Pic Print”VB等级考试 End Sub 步骤 3：按要求将文件保存至考生文件夹中。 第 2小 题 【操作步骤】 步骤 1：新建一个 “标准 EXE”工程，按要求画出控件并设置属性。 步骤 2：选择【工具】 【菜单编辑器】命令，打开菜单设计器，按要求建立菜单项。 步骤 3：打开代码编辑窗口，编写菜单命令的单击事件过程。 参考代码： Private Sub subMenul Click() Commandl Visible=True End Sub Private Sub s1JbMenu2 Click() Commandl Visible=
8、False End Sub 步骤 4：按要求将文件保存至考生文件夹中。 二、简单应用题 2 【正确答案】 第 1小题【操作步骤】步骤 1：新建一个 “标准 EXE”工程，如表4 7在窗体中画出控件并设置其相关属性。步骤 2：在代码编辑窗口，分别编写三个按钮的单击事件过程。 参考代码： Private Sub C1 C1ick() Textl PaSswordChar=“”End SubPrivate Sub C2 Click() Textl PaSswordChar=“?”End SubPrivate Sub C3 Click() C3 Parent Text2 Text=Textl Text
9、End SubPrivate Sub Form Load()Text1 PaSSWOrdChar=“*”End Sub步骤 3：按要求将文件保存至考生文件夹中。第 2小题【操作步骤】步骤 1：新建一个 “标准 EXE”工程，如表 4 8在窗体中画出控件并设置其相关属性。步骤 2：打开代码编辑窗口，编写如下事件过程。参考代码： Private Sub P1 C1ick()CD1 ShowOpenEnd Sub步骤 3：按要求将文件保存至考生文件夹中。 三、综合应用题 3 【正确答案】 【操作步骤】 步骤 1：打开考生文件夹中的本题工程文件 sjt5 vbp，打开代码编辑窗口，在指定位置编写以下代码： 参考代码： For i=1 To 5 Sum=0 Counter=0 For j=1 To 4 0 If a(i， j)键运行程序，先单击 “显示数据 ”按钮，接着单击 “统计 ”按钮，然后单击 “保存 ”按钮保存结果。 步骤 3：按要求将文件保存至考生文件夹中。
