1、国家二级 VB机试（上机操作）模拟试卷 232及答案与解析 一、基本操作题 1 请根据以下各小题的要求设计 Visual Basic应用程序 (包括界面和代码 )。 (1)在名称为 Forml的窗体上画一个名称为 C1、标题为 “改变颜色 ”的命令按钮，窗体标题为 “改变窗体背景色 ”。编写程序，使得单击命令按钮时，将窗体的背景颜色改为红色 (&HFF&)。运行程序后的窗体如图 2-21所示。 要求：程序中不得使用变量，每个事件过程中只能写一条语句。存盘时必须存放在考生文件夹下，工程文件名为sitl vbp，窗体文件名为 sjtl frm。 (2)在名称为 Forml的窗体上画一个名称 Sha
2、pel的形状控件，在属性窗口中将其设置为圆形。画一个名称为 Listl的列表框，并在属性窗口中设置列表项的值分别为 1、 2、 3、 4、 5。将窗体的标题设为 “图形控件 ”。单击列表框中的某一项，则将所选的值作为形状控件的填充参数。例如，选择 3，则形状控件中被竖线填充。如图 2 22所示。 要求：程序中不得使用变量，每个事件过程中只能写一条语句。存盘时必须存放在考生文件夹下，工程文件名为sjt2 vbp，窗体文件名为 sjt2 frm。二、简单应用题 2 (1)在名称为 Forml的窗体上画一个名称为 Text1的文本框，再建立一个名称为Format的弹出式菜单，含三个菜单项，标题分别为
3、 “加粗 ”、 “斜体 ”、 “下划线 ”，名称分别为 M1、 M2、 M3。请编写适当的事件过程，在运行时当用鼠标右键单击窗体时，弹出此菜单，选中一个菜单项后，则按所选菜单标题设置义本框中文本的格式，如图 2一 145所示。 注意：存盘时必须存放在考生文件夹下，工程文件名为sit3 vbp，窗体文件名为 sjt3 frm。 (2)在考生文件夹下有一个工程文件 sjt4 vbp，含有 Forrnl和 Form2两个窗体， Forml为肩动窗体，窗体上的控件如图 2 146(a)所示。程序运行后，在 Forml窗体的文本框中输入有火信息 (“密码 ”框中显示 “*”字符 )，然后单击 “提交 ”
4、按钮则弹出 “确认 ”对话框(即 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、 intT、 intD中，同时显示在文本框 Text2中 (显示格式不限 )。单击 “保存 ”按钮，可将 intR、 int
6、T、 intD中的数据保存到考生文件夹下 out5 txt文件中。 要求： 1)去掉 “显示 ”按钮事件过程中的注释，把程序中的 ?改为能实现上述要求的正确内容。 2)编写统计字母 R、 T、 D出现次数的事件过程。 3)不要改动各控件的属性设置和程序的其他部分。最后把 修改后的文件用原文件名存盘。国家二级 VB机试（上机操作）模拟试卷 232答案与解析 一、基本操作题 1 【正确答案】 【操作步骤】 步骤 1：新建一个 “标准 EXE”工程，在窗体 Form1中画一个命令按钮，设置相关属性，其属性及值如表 3 14所示。步骤 2：打开代码编辑窗口，编写按钮的 Click事件过程中。 参考代码
7、： Private Sub C1一 C1ick() Forml BackColor= HFF& End Sub 步骤 3：按要求将文件保存至考生文件夹中。 第 2小题 【操作步骤】 步骤 1：新建一个 “标准 EXE”工程。 步骤 2：在窗体Form1中加入一个列表框和。个形状控件，并分别如表 3-15设置它们的相关属性。 步骤 3： 打开代码编辑窗口，编写列表框的 Click事件过程： 参考代码： Private Sub ListlClick() Shapel FiliStyle=Listl Text End Sub 步骤 4：按要求将文件保存至考生文件夹中。 二、简单应用题 2 【正确答案
8、】 第 1小题 【操作步骤】 步骤 1：新建一个 “标准 EXE”上程，选择【工具】 【菜单编辑器】命令，打开菜单设计器，如表 3 77中的设置建立菜单项。 步骤 2：在窗体中画一个文本框，取名为 Textl。 步骤 3：打开代码编辑窗口，分别编写 “加粗 ”、 “斜体 ”和 “下划线 ”菜单项的事件过程。 参考代码： 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
9、Private Sub mlC1iCk() Textl Font Bold=True End Sub Private Sub m3一 C1ick() Textl Font Underiine=True End Sub Private Sub m2一 C1ick() Textl Font ItaliC=True End Sub 步骤 4：按要求将文件保存至考生文件夹中。 【特别提示】文奉框不具有 PopupMenu方法。 第 2小题 【操作步骤】 步骤 1：打开考生文件夹下的本题工程文件 sjr4 Vbp。 步骤 2：设置两个窗体的相关属性，其属性及值如表 3 78所示。步骤 3：打开 Form
10、l的代码编辑窗门，去掉程序中的注释符 “*”，将问号 “?”改为正确的内容。 参考代码： Form2 Show Fore2.Print Forml Framel Caprion”： ”； If Forml Opl(k) Value Then Text2 PasswordChar=” ” 步骤 4：按要求将文件保存至考生文件夹中。 三、综合应用题 3 【正确答案】 【操作步骤】 步骤 1：打开考生文件夹中的本题工程文件 sjts vbp，在代码编辑窗口，去掉程序中的注释符 “*，将问号 “?”改为正确的内容。 参考代码： Line Input#1， strl Textl Text=strl 步骤
11、 2：按指定位置编写 “统计 ”按钮的单击事件过程。 参考代码： Private Sub Command2一 Click() Dim i As Integer intR=0： intT=0： intD=0 For i=i To Len(Strl) 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：按要求将文件保存至考生文件夹中。
