1、国家二级 VB机试（上机操作）模拟试卷 210及答案与解析 一、基本操作题 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)考生文件夹中有工程文件 sit3 vbp。在窗体上有名称为 Combo1的组合框，请设置该组合框的属性，使该组合框只能用于选择操作，不能输入文本。窗体上还有两个标题分别为 “输入正整数 ”、 “判断 ”的命令按钮。程序运行时在组合框中选中一项，如图 2 210(a)所示，单击 “输入正整数 ”按钮，通过输入对话框输入一个止整数，再单击 “判断 ”按钮，则按照选定的选项内容，将判断结果显示 在信息框中。如图 2 210(b)所示的是输入 56且选中的组合框选项为 “判奇偶数 ”时显示的信息框。 在给出的窗体文件中已经有了伞部控件，但程序不完整，要求：按照题目要求
4、设置组合框的有关属性，去掉程序中的注释符，把程序中的 ?改为正确的内容。 注意：考生不得修改窗体文件中已经存在的程序。最后程序按原文件名存盘。(2)在考生目录下有一个工程文件 sit4 vbp窗体上有一大一小两个名称分别为 Shape2、 Shapel的 Shape控件。清在属性窗口中将 Shapel控件设置为圆形，并将其颜色设置为红色 (颜色值为&H000000FF&)，如图 2 211所示。 要求：当单击窗体时， Shapel移动到矩形 (即Shape2)左上角，再次单击窗体，则 Shapel移动到矩形的右下角。在给出的窗体文件中已经有了全部控件，但程序不完整。要求：在属性窗口中设置有关的
5、属性值，去掉程序中的注释符，把程序中的 ?改为正确的内容。 注意：不能修改程序的其他部分和控件属性。最后把修改后的文件按原文件名存盘。三、综合应用题 3 在考生文件夹下有一个工程文件 sit5 vbp，其窗体上有一个文本框，名称为Text1，可以多行显示：有一个名称为 CD1的通用对话框；还有三个命令按钮，名称分别为 C1、 C2、 C3，标题分别为 “打外文件 ”、 “转换 ”、 “存盘 ”，如图 2 235所示。命令按钮的功能是： “打开文件 ”：弹出打开文件对话框，默认打开文件的类型为 “文本文件 ”。选择考生文件夹下的 in5 txt文件后。该文件中的内容显示在Text1中； “转换
6、”：把 Text1中的所有小写英文字母转换成大写； “存盘 ”：把 Text中的内容存入考生文件夹下的 out5 dat文件中。 在窗体中已经给出了部分程序，要求： 请去掉程序中的注释符，把程序中的 ?改为正确的内容。既不能修改 程序中的其他部分，也不能修改控件的属性。 编写 “转换 ”按钮的 Click事件过程。最后把修改后的文件按原文件名存盘。 注意：考生不得修改已有的程序和控件的属性，必须对考生文件夹下的 in5 txt文件进行转换，并把转换结果通过单击 “存盘 ”按钮存入考生文件夹下的 out5 dat文件中，否则无成绩。国家二级 VB机试（上机操作）模拟试卷 210答案与解析 一、基
7、本操作题 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() Labell Fo
8、ntSiZe=12 End Sub 步骤 3：按要求将文件保存至 考生文件夹中。 二、简单应用题 2 【正确答案】 第 1小题 【操作步骤】 步骤 1：打开考生文件中的本题工程文件 sjr3 vbp，将组合框的 Style属性设置为 2。 步骤 2：在代码编辑窗口，去掉程序中的注释符 “”，将问号 “?”改为正确的内容。 参考代码： Select Case Combol LiStIndex MsgBox Str(x) f1(x) MsgBox Str(X) f2(X) Private Function f2(ByVal x As Integer)As String If x Mod 7=0 T
9、hen 步骤 3：按要求将文件保存至考生文件夹中。 第 2小题 【操作步骤】 步骤 1：打开考生文件中的本题工程文件 sjt4 vbp，将 Shapel控件的 Shape属性设置为 3，将 FillStyle设置为 0和 FillColor设置为 &H000000FF&。 步骤 2：在代码编辑窗口，去掉程序中的注释符 “”，将问号 “?”改为正确的内容。 参考代码： Private Flag As Boolean Shapel Top=Shape2 Top+Shape2 HeightShapel Height Shapel Left=Shape2 Left+Shape2 WidthShapel
10、 Width 步骤 3：按要求将文件保存至考生文件夹中。 三、综合应用题 3 【正确答案】 【操作步骤】 步骤 1：打开考生文件中的本题工程文件 sjt5 vbp，在代码编辑窗口，去掉程序中的注释符 “”，将问号 “?”改为正确的内容。 参考代码： CDI FilterIndx=2 Text1 Text=a CD1 Action=2 步骤 2：按指定位置编写 “转换 ”按钮的单击事件过程。 参考代码： Private Sub C2 Ciick() Dim a As String， b As Str2ng， c As String， k As Integer， n As Integer a=Textl TexL b=“” n=Asc(”a”) 一 Asc(”A”) For k=1 To Len(a) c=Mid$(a， k， 1) If c=“a”And c键运行程序，先单击 “打开文件 ”按钮，接着单击 “转换 ”按钮，最后单击 “存盘 ”按钮。
