1、国家二级 VB机试（上机操作）模拟试卷 195及答案与解析 一、基本操作题 1 请根据以下各小题的要求设计 Visual Basic应用程序 (包括界面和代码 )。 (1)在名称为 Form1、标题为 “列表框练习 ”的窗体上画一个名称为 List1的列表框，表项内容依次输入 xxx、 ddd、 mmm和 aaa，且以宋体 14号字显示表项内容，如图2 93(a)所示。最后设置相应属性，使运行后列表框中的表项按宁母升序方式排列，如图 2 93(b)所示。 注意：存盘时，将文件保存至考生文件夹下，且窗体文件名为 sjt1 frm，上程文 件名为 sjt1 vbp。(2)在名称为 Form1的窗体
2、上，画一个名称为 Labell的标签，其标题为 “计算机等级考试 ”，字体为宋体，字号为 12号，且能根据标题内容自动调整标签的大小。再画两个名称分别为Command1、 Command2，标题分别为 “缩小 ”和 “还原 ”的命令按钮 (如图 2 94所示 )。 要求：编写适当的事件过程，使得单击 “缩小 ”按钮，Labell中所显示的标题内容自动减小两个字号：单击 “还原 ”按钮， Labell所显示的标题内容的大小自动恢复到 12号。 注意：存盘时，将文件保存至考生文件夹下，窗 体文仲名为 sjt2 frm，工程文件名为 sjt2 vbp。要求程序中不得使用变量，每个事件过程中只能写一条
3、语句。 二、简单应用题 2 (1)在考生文件夹下有一个工程文件 sjt3 vbp，相应的窗体文件为 sjt3 frm。在窗体上有一个名称为 Commandl、标题为 “计算 ”的命令按钮；两个水甲滚动条，名称分别为 Hscroll1和 Hscroll2，其 Max属性均为 100， Min属性均为 1；四个标签，名称分别为 Label1、 Label2、 Label3和 Label4，标题分别为 “运算数 1”、 “运算数 2”、 “运算 结果 ”和空白：此外还有一个包含四个单选按钮的控件数组，名称为Optionl，标题分别为 “+”、 “ ”、 “*”和 “ ”，如图 2 75(a)所示。程
4、序运行后，移动两个滚动条中的滚动框，用滚动条的当前值作为运算数，如果选中一个单选按钮，然后单击计算按钮，相应的计算结果将显示在 Label4中，程序运行情况如图2 75所示。这个程序不完整，请把它补充完整，并能正确运行。 要求：去掉程序中的注释符，把程序中的 ?改为正确的内容，使其能正确运行，但不能修改程序中的其他部分，也不能修改控件的属性。最后川原来的文件名保存工程文 件和窗体文件。 (2)在考生文件夹下有一个上柙文件 sit4 vbp，相应的窗体文件为 sjlt4 frm。在窗体上有一个命令按钮，其名称为 Commandl，标题为 “输入显示 ”；此外还有一个文本框，其名称为 Text1，
5、初始内容为空白。程序的功能是，程序运行后，单击命令按钮，显示输入对话框，在对话框中输入某个月份的数值 (1 12)，然后单击 “确定 ”按钮，即可在文本框中输出该月份所在的季节。例如输入 5，将输出 “5月份是夏季 ”，如图2 76所示。程序不完整，请补充完整。 要求：去掉程序中的注释符，把程序中的 ?改为 正确的内容。使其能正确运行，但不能修改程序中的其他部分。最后用原来的文件名保存工程文件和窗体文件。 三、综合应用题 3 在考生文件夹下有一个工程文件 sjt5 vbp，在该工程中为考生提供了一个通用过程，考生可以直接调用。请在窗体上画一个名称为 Textl的文本框：画一个名称为C1、标题为
6、 “计算 ”的命令按钮：再画两个单选按钮，名称分别为 Op1、 Op2，标题分别为 “求 500到 600之间能被 7整除的数之和 ”、 “求 500到 600之问能被 3整除的数之和 ”(如图 2 172所示 )。请编写适当的事件过程，使得在运行时，选中一个单选按钮，再单击 “计算 ”按钮，就可以按照单选按钮后的文字要求计算，并把计算结果放入文本框中，最后把已经修改的工程文 件和窗体文件以原来的文件名存盘。 注意：考生不得修改窗体文件中已经存在的程序，退出程序时必须通过单击窗体右上角的关闭按钮。在结束程序运行之前，必须至少要进行一种计算，否则不得分。国家二级 VB机试（上机操作）模拟试卷 1
7、95答案与解析 一、基本操作题 1 【正确答案】 第 1小题 【操作步骤】 步骤 1：新建一个 “标准 EXE”工程。如表3-52存窗体中画出控件并设置其相关属性。步骤 2：按要求将文件保存至考生文件夹中。 第 2小题 【操作步骤】 步骤 1：新建一个 “标准 EXE”工程，如表3 53在窗体中画出 控件并设置其相关属性。步骤 2：打开代码编辑窗口，编写两个命令按钮的 Click事什过程。 参考代码： Private Sub CommandlClick() Labell FontSize=Labell FontSiZe一 2 End Sub Private Sub Command2一Click
8、() Labell FontSiZe=12 End Sub 步骤 3：按要求将文件保存至考生文件夹中。 二、简单应用题 2 【正确答案】 第 1小题 【操作步骤】 步骤 1：打开考生文件夹中的本题工 程文件 sjt3 vbp，在代码编辑窗口，去掉程序中的注释符 “”，将问号 “?”改为正确的内容。 参考代码： If Optionl(i)=True Then Select Case opt Label4 Caption=Str(Hsbl Value) ” opt&Str(Hsb2 Value) ”=” Str(Result) 步骤 2：按要求将文件保存至考生文件夹中。 第 2小题 【操作步骤】
9、步骤 1：打开考生文件夹中的小题工程文件 sjt4 vbp， 在代码编辑窗口，去掉程序中的注释符 “”，将问号 “?”改为正确的内容。 参考代码： Loop Until n0 And n13 Select Case n Select Case m 步骤 2：按要求将文件保存至考生文件夹中。 三、综合应用题 3 【正确答案】 【操作步骤】 步骤 1：打开考生文件夹下的本题上程文件sjt5 vbp，如表 392所列在商体 Forml中画出控件，分别设置它们的相关属性。步骤 2：打开代码编辑窗口，编写 “计算 ”按钮的单击事件过程。 参 考代码： PriVate Sub C1一 Click() If Opl Value Then Textl Text=fun(7) End If If Op2 Valme Then Textl Text=fun(3) End If End Sub 步骤 3：按要求将文件保存至考生文件夹中。
