1、国家二级 VB 机试（上机操作）-试卷 92 及答案解析(总分：6.00，做题时间：90 分钟)一、基本操作题(总题数：1，分数：2.00)1.请根据以下各小题的要求设计 VisualBasic 应用程序(包括界面和代码)。 (1)在名称为 Forml 的窗体上画一个名称为 C1、标题为“改变颜色”的命令按钮，窗体标题为“改变窗体背景色”。编写程序，使得单击命令按钮时，将窗体的背景颜色改为红色(&HFF&)。运行程序后的窗体如图 2-21 所示。 要求：程序中不得使用变量，每个事件过程中只能写一条语句。存盘时必须存放在考生文件夹下，工程文件名为sitlvbp，窗体文件名为 sjtlfrm。 (
2、2)在名称为 Forml 的窗体上画一个名称 Shapel 的形状控件，在属性窗口中将其设置为圆形。画一个名称为 Listl 的列表框，并在属性窗口中设置列表项的值分别为1、2、3、4、5。将窗体的标题设为“图形控件”。单击列表框中的某一项，则将所选的值作为形状控件的填充参数。例如，选择 3，则形状控件中被竖线填充。如图 222 所示。 要求：程序中不得使用变量，每个事件过程中只能写一条语句。存盘时必须存放在考生文件夹下，工程文件名为 sjt2vbp，窗体文件名为 sjt2frm。 （分数：2.00）_二、简单应用题(总题数：1，分数：2.00)2.(1)在名称为 Forml 的窗体上画一个名
3、称为 Text1 的文本框，再建立一个名称为 Format 的弹出式菜单，含三个菜单项，标题分别为“加粗”、“斜体”、“下划线”，名称分别为 M1、M2、M3。请编写适当的事件过程，在运行时当用鼠标右键单击窗体时，弹出此菜单，选中一个菜单项后，则按所选菜单标题设置义本框中文本的格式，如图 2 一 145 所示。 注意：存盘时必须存放在考生文件夹下，工程文件名为sit3vbp，窗体文件名为 sjt3frm。 (2)在考生文件夹下有一个工程文件 sjt4vbp，含有Forrnl 和 Form2 两个窗体，Forml 为肩动窗体，窗体上的控件如图 2146(a)所示。程序运行后，在Forml 窗体的
4、文本框中输入有火信息(“密码”框中显示“*”字符)，然后单击“提交”按钮则弹出“确认”对话框(即 Form2 窗体)，并在 Form2 中显示输入的信息，如图 2-1460)所示。单击“确认”按钮则程序结束，单击“重输”按钮，则 Form2 消失，同到 Forml 窗体。在给出的窗体文件中已经给出了程序，但不完整。 要求： 把 Forml 的标题改为“注册”，把 Form2 的标题改为“确认”； 设置适当的属性，使 Form2 标题栏上的所有按钮消失(如图 2146(b)所示)： 去掉程序中的注释符，把程序中的?改为正确的内容。 注意：不能修改程序中的其他部分，标题等属性的修改只能在属性窗口中
5、进行。最后把修改后的义件按原文件名存盘。 （分数：2.00）_三、综合应用题(总题数：1，分数：2.00)3.在考生文件夹下有一个工程文件 sjt5vbp，相应的窗体文件为 sjt5frm。窗体上三个命令按钮的名称分别是 Command1、Command2 和 Command3，标题分别是“显示”、“统计”和“保存”。运行程序时，单击“显示”按钮，从文件 in5txt 中读取文本，并显示在文本框 Text1 中，如图 210 所示。单击“统计”按钮，则统计 Text1 中字母 R、T、D(不区分大小写)出现的次数，统计结果分别保存在窗体变量intR、intT、intD 中，同时显示在文本框 T
6、ext2 中(显示格式不限)。单击“保存”按钮，可将intR、intT、intD 中的数据保存到考生文件夹下 out5txt 文件中。 要求： 1)去掉“显示”按钮事件过程中的注释，把程序中的?改为能实现上述要求的正确内容。 2)编写统计字母 R、T、D 出现次数的事件过程。 3)不要改动各控件的属性设置和程序的其他部分。最后把修改后的文件用原文件名存盘。（分数：2.00）_国家二级 VB 机试（上机操作）-试卷 92 答案解析(总分：6.00，做题时间：90 分钟)一、基本操作题(总题数：1，分数：2.00)1.请根据以下各小题的要求设计 VisualBasic 应用程序(包括界面和代码)。
7、 (1)在名称为 Forml 的窗体上画一个名称为 C1、标题为“改变颜色”的命令按钮，窗体标题为“改变窗体背景色”。编写程序，使得单击命令按钮时，将窗体的背景颜色改为红色(&HFF&)。运行程序后的窗体如图 2-21 所示。 要求：程序中不得使用变量，每个事件过程中只能写一条语句。存盘时必须存放在考生文件夹下，工程文件名为sitlvbp，窗体文件名为 sjtlfrm。 (2)在名称为 Forml 的窗体上画一个名称 Shapel 的形状控件，在属性窗口中将其设置为圆形。画一个名称为 Listl 的列表框，并在属性窗口中设置列表项的值分别为1、2、3、4、5。将窗体的标题设为“图形控件”。单击
8、列表框中的某一项，则将所选的值作为形状控件的填充参数。例如，选择 3，则形状控件中被竖线填充。如图 222 所示。 要求：程序中不得使用变量，每个事件过程中只能写一条语句。存盘时必须存放在考生文件夹下，工程文件名为 sjt2vbp，窗体文件名为 sjt2frm。 （分数：2.00）_正确答案：(正确答案：【操作步骤】 步骤 1：新建一个“标准 EXE”工程，在窗体 Form1 中画一个命令按钮，设置相关属性，其属性及值如表 314 所示。 步骤 2：打开代码编辑窗口，编写按钮的Click 事件过程中。 参考代码： Private Sub C1 一 C1ick() FormlBackColor=
9、HFF& End Sub 步骤3：按要求将文件保存至考生文件夹中。 第 2 小题 【操作步骤】 步骤 1：新建一个“标准 EXE”工程。 步骤 2：在窗体 Form1 中加入一个列表框和。个形状控件，并分别如表 3-15 设置它们的相关属性。 )解析：二、简单应用题(总题数：1，分数：2.00)2.(1)在名称为 Forml 的窗体上画一个名称为 Text1 的文本框，再建立一个名称为 Format 的弹出式菜单，含三个菜单项，标题分别为“加粗”、“斜体”、“下划线”，名称分别为 M1、M2、M3。请编写适当的事件过程，在运行时当用鼠标右键单击窗体时，弹出此菜单，选中一个菜单项后，则按所选菜单
10、标题设置义本框中文本的格式，如图 2 一 145 所示。 注意：存盘时必须存放在考生文件夹下，工程文件名为sit3vbp，窗体文件名为 sjt3frm。 (2)在考生文件夹下有一个工程文件 sjt4vbp，含有Forrnl 和 Form2 两个窗体，Forml 为肩动窗体，窗体上的控件如图 2146(a)所示。程序运行后，在Forml 窗体的文本框中输入有火信息(“密码”框中显示“*”字符)，然后单击“提交”按钮则弹出“确认”对话框(即 Form2 窗体)，并在 Form2 中显示输入的信息，如图 2-1460)所示。单击“确认”按钮则程序结束，单击“重输”按钮，则 Form2 消失，同到 F
11、orml 窗体。在给出的窗体文件中已经给出了程序，但不完整。 要求： 把 Forml 的标题改为“注册”，把 Form2 的标题改为“确认”； 设置适当的属性，使 Form2 标题栏上的所有按钮消失(如图 2146(b)所示)： 去掉程序中的注释符，把程序中的?改为正确的内容。 注意：不能修改程序中的其他部分，标题等属性的修改只能在属性窗口中进行。最后把修改后的义件按原文件名存盘。 （分数：2.00）_正确答案：(正确答案：第 1 小题 【操作步骤】 步骤 1：新建一个“标准 EXE”上程，选择【工具】【菜单编辑器】命令，打开菜单设计器，如表 377 中的设置建立菜单项。 步骤 2：在窗体中画
12、一个文本框，取名为 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 Private Sub mlC1iCk() TextlFontBold=True End Sub Private Sub m3 一 C1ick() TextlFontUnderiine=True
13、End Sub Private Sub m2 一 C1ick() TextlFontItaliC=True End Sub 步骤 4：按要求将文件保存至考生文件夹中。 【特别提示】文奉框不具有 PopupMenu 方法。 第 2 小题 【操作步骤】 步骤 1：打开考生文件夹下的本题工程文件 sjr4Vbp。 步骤 2：设置两个窗体的相关属性，其属性及值如表 378 所示。 )解析：三、综合应用题(总题数：1，分数：2.00)3.在考生文件夹下有一个工程文件 sjt5vbp，相应的窗体文件为 sjt5frm。窗体上三个命令按钮的名称分别是 Command1、Command2 和 Command3
14、，标题分别是“显示”、“统计”和“保存”。运行程序时，单击“显示”按钮，从文件 in5txt 中读取文本，并显示在文本框 Text1 中，如图 210 所示。单击“统计”按钮，则统计 Text1 中字母 R、T、D(不区分大小写)出现的次数，统计结果分别保存在窗体变量intR、intT、intD 中，同时显示在文本框 Text2 中(显示格式不限)。单击“保存”按钮，可将intR、intT、intD 中的数据保存到考生文件夹下 out5txt 文件中。 要求： 1)去掉“显示”按钮事件过程中的注释，把程序中的?改为能实现上述要求的正确内容。 2)编写统计字母 R、T、D 出现次数的事件过程。
15、3)不要改动各控件的属性设置和程序的其他部分。最后把修改后的文件用原文件名存盘。（分数：2.00）_正确答案：(正确答案：【操作步骤】 步骤 1：打开考生文件夹中的本题工程文件 sjtsvbp，在代码编辑窗口，去掉程序中的注释符“*，将问号“?”改为正确的内容。 参考代码： Line Input#1，strl TextlText=strl 步骤 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 Text2Text：intR”intT” ”intD End Sub 步骤 3：按键运行程序，先单击“显示”按钮，接着单击“统计”按钮，最后单击“保存”按钮。步骤 4：按要求将文件保存至考生文件夹中。)解析：
