1、国家二级 VB机试（上机操作）模拟试卷 201及答案与解析 一、基本操作题 1 请根据以下各小题的要求设计 Visual Basic应用程序 (包括界面和代码 )。 (1)在名称为 Forml的窗体上画一个名称为 Pic的图片框，通过属性窗口将考生文件夹下的文件 Tul-1jpg添加剑图片框，然后编写适当的事件过程。运行程序时，单击窗体，在图片框中显示 “VB等级考试 ”，如图 2 111所示。 注意：要求程序中小得使用变量，事件过程中只能写一条语句。存盘时必须存放在考生文件夹下，工程文件名为 sjtl vbp，窗体文件名为 sit1 frm。 (2)在名称为 Forml的窗体上画一个名称为C
2、ommandl的命令按钮，标题为 “命令按钮 ”。然后建立一个菜单，标题为 “控件 ”，名称为 menu，包含两个子菜单项，一个是 “显示命令按钮 ”，名称为 subMenul：另一个足 “隐藏命令按钮 ”，名称为 subMenu2，如图 2 112所示。编写适当的事件过程，使得程序运行时，如果选择 “显示命令按钮 ”菜单命令，则显示命令按钮控件；而如果选抒 “隐藏命令按钮 ”菜单命令，则隐藏命令按钮控件。 注意：程序中不得使用变量，每个事件过程中只能写一条语句。存盘时必须存 放在考生文件夹下，上程文件名为 sit2 vbp，窗体文件名为 sjt2 frm。二、简单应用题 2 (1)在名称为
3、Forml的窗体上画一个名称为 Text1的文本框，再建立一个名称为Format的弹出式菜单，含三个菜单项，标题分别为 “加粗 ”、 “斜体 ”、 “下划线 ”，名称分别为 M1、 M2、 M3。请编写适当的事件过程，在运行时当用鼠标右键单击窗体时，弹出此菜单，选中一个菜单项后，则按所选菜单标题设置义本框中文本的格式，如图 2一 145所示。 注意：存盘时必须存放在考生文件夹下，工程文件名为sit3 vbp，窗体 文件名为 sjt3 frm。 (2)在考生文件夹下有一个工程文件 sjt4 vbp，含有 Forrnl和 Form2两个窗体， Forml为肩动窗体，窗体上的控件如图 2 146(a
4、)所示。程序运行后，在 Forml窗体的文本框中输入有火信息 (“密码 ”框中显示 “*”字符 )，然后单击 “提交 ”按钮则弹出 “确认 ”对话框(即 Form2窗体 )，并在 Form2中显示输入的信息，如图 2-1460)所示。单击 “确认 ”按钮则程序结束，单击 “重输 ”按钮，则 Form2消失，同到 Forml窗体。在给出的窗体文件中已经给出了程序，但不完整。 要求： 把 Forml的标题改为 “注册 ”，把Form2的标题改为 “确认 ”； 设置适当的属性，使 Form2标题栏上的所有按钮消失 (如图 2 146(b)所示 )： 去掉程序中的注释符，把程序中的 ?改为正确的内容。
5、 注意：不能修改程序中的其他部分，标题等属性的修改只能在属性窗口中进行。最后把修改后的义件按原文件名存盘。三、综合应用题 3 在考生文件夹下有一个工程文件 sjt5 vbp，相应的窗体文件为 sjt5 frm。窗体上三个命令按钮的名称分别是 Command1、 Command2和 Command3，标题 分别是“显示 ”、 “统计 ”和 “保存 ”。运行程序时，单击 “显示 ”按钮，从文件 in5 txt中读取文本，并显示在文本框 Text1中，如图 2 10所示。单击 “统计 ”按钮，则统计Text1中字母 R、 T、 D(不区分大小写 )出现的次数，统计结果分别保存在窗体变量intR、 i
6、ntT、 intD中，同时显示在文本框 Text2中 (显示格式不限 )。单击 “保存 ”按钮，可将 intR、 intT、 intD中的数据保存到考生文件夹下 out5 txt文件中。 要求： 1)去掉 “显示 ”按钮事件过程中的注释，把程序中的 ?改为能实现上述要求的正确内 容。 2)编写统计字母 R、 T、 D出现次数的事件过程。 3)不要改动各控件的属性设置和程序的其他部分。最后把修改后的文件用原文件名存盘。国家二级 VB机试（上机操作）模拟试卷 201答案与解析 一、基本操作题 1 【正确答案】 第 1小题 【操作步骤】 步骤 1：新建一个 “标准 EXE”工程，仵窗体 Form中画
7、一个名称为 Pic的图片框，并设置其 Picture属性为 Tu1-1jpg。 步骤2：双击窗体打开代码编辑窗口，在窗体的 Click事件过程中输入代码。 参考代码： Private Sub FormClick() Pic Print-VB等级考试 ” End Sub 步骤 3：按要求将文件保存至考生文件夹中。 第 2小题 【操作步骤】 步骤 1：新建一个 “标准 EXE”工程，在窗体 FormI中画一个名称为 Commandl， Caption属性为 “命令按钮 ”的命令按钮。 步骤 2：选择【工具】 【菜单编辑器】命令，打开菜单设计器，如表3 63中的设置建立菜单项。 步骤3：打开代码编辑
8、窗口，编写菜单命令的单击事件过程。 参考代码： Private Sub subMenulClick() Commandl ViSible=True End Sub PrlVate Sub subMenu2一Click() Commandl Visible=False End Sub 步骤 4：按要求将文件保存至考生文件夹中。 二、简单应用题 2 【正确答案】 第 1小题 【操作步骤】 步骤 1：新建一个 “标准 EXE”上程，选择【工具】 【菜单编辑器】命令，打开菜单设计器，如表 3 77中的设置建立菜单项。 步骤 2：在窗体中画一个文本框，取名为 Textl。 步骤 3：打开代码编辑窗口，分
9、别编写 “加粗 ”、 “斜体 ”和 “下划线 ”菜单项的事件过程。 参考代码： Private Sub FormMouseDown(Button As Integer， Shift As Integer， X As Single， Y As Single) If Button； 2 Then PopupMenu format End If End Sub Private Sub mlC1iCk() Textl Font Bold=True End Sub Private Sub m3一 C1ick() Textl Font Underiine=True End Sub Private Sub
10、m2一 C1ick() Textl Font ItaliC=True End Sub 步骤 4：按要求将文件保存至考生文件夹中。 【特别提示】文奉框不具有 PopupMenu方法。 第 2小题 【操作步骤】 步骤 1：打开考生文件夹下的本题工程文件 sjr4 Vbp。 步骤 2：设置两个窗体的相关属性，其属性及值如表 3 78所示。步骤 3：打开 Forml的代码编辑窗门，去掉程序中的注释符 “*”，将问号 “?”改为正确的内容。 参考代码： Form2 Show Fore2.Print Forml Framel Caprion”： ”； If Forml Opl(k) Value Then
11、Text2 PasswordChar=” ” 步骤 4：按要求将文件保存至考生文件夹中。 三、综合应用题 3 【正确答案】 【操作 步骤】 步骤 1：打开考生文件夹中的本题工程文件 sjts vbp，在代码编辑窗口，去掉程序中的注释符 “*，将问号 “?”改为正确的内容。 参考代码： Line Input#1， strl Textl Text=strl 步骤 2：按指定位置编写 “统计 ”按钮的单击事件过程。 参考代码： Private Sub Command2一 Click() Dim i As Integer intR=0： intT=0： intD=0 For i=i To Len(St
12、rl) If Mid(strl， i， 1)=”R”Or Mid (Strl， i， 1)=”r”Then intR=intR+1 End If If Mid(Strl， i， 1)=”T”Or Mid (Strl， i， 1)=”t”Then intT=intT+1 End If If Mid(Strl， i， 1)=”D”Or Mid (strl， i， 1)=”d”Then intD=intD+1 End If Next Text2 Text： intR ” intT ” ” intD End Sub 步骤 3：按 键运行程序，先单击 “显示 ”按钮，接着单击 “统计 ”按钮，最后单击 “保存 ”按钮。 步骤 4：按要求将文件保存至考生文件夹中。
