1、国家二级 VB机试（上机操作）模拟试卷 186及答案与解析 一、基本操作题 1 请根据以下各小题的要求设计 Visual Basic应用程序 (包括界面和代码 )。 (1)在名称为 Forml的窗体上画一个文本框，名称为 Text1，内容为 “VB程序设计 ”；再画两个命令按钮，其名称分别为 Command1和 Command2，标题分别为 “扩大 ”和 “缩小 ”，如图 2 1所示，编写适当的事件过程。程序运行后，每单击 Commandl命令按钮一次，文本框中文本的字体扩大 1 2倍；每单击 Command2单选按钮一次，文本框中文本的字 体缩小 1 2倍。注意：存盘时必须存放在考生文件夹下
2、，工程文件名为 sjt1 vbp，窗体文件名为 sit1 frm。 (2)在名称为 Forml的窗体上画一个列表框，其名称为 List1，通过属性窗口向列表框中输入 9个项目，分别为 10、 20、 30、 40、 50、 60、 70、 80、 90；画一个文本框，其名称为 Textl，初始内容为空白；再画一个水平滚动条，其名称为 HScrolll， Min属性和 Max属性分别为 0和 100，如图 2 2(a)所示，编写适当的事件过程。程序运行后，如果单击列表框中的某个项目，则在文本框中显示 该项目内容，并把滚动条的滚动框移到相应的位置，如图 22(b)所示。要求：不得使用任何变量。 注
3、意：存盘时必须存放在考生文件夹下，工程文件名为 sjt2 vbp，窗体文件名为sit2 frm。 二、简单应用题 2 (1)在考牛目录下有一个工程文件 sit3 vbp，有两个名称分别为 Forml和 Form2的窗体， Forml为启动窗体，程序执行时 Form2不显示。 Forml中有菜单 (如图2 50(a)所示 )，程序运行时，若单击 “格式 ”菜单项，则显示 Form2窗体 (如图2 50(b)所示 )，选中一种字号和字体后 单击 “确定 ”按钮，则可改变 Forml上文本框的字号和字体，并使 Form2窗体消失。若单击 “退出 ”菜单项，则结束程序的运行。 文件中已经给出了所有控件
4、和程序，但程序不完整，要求： 1)利用属性窗口设置适当的属性，使 Forml窗体标题栏右上角的最火化按钮、最小化按钮消失 (如图 2 50(a)所示 )： 2)利用属性窗口把 Form2窗体的标题设置为 “格式 ”(如图 2 50(b)所示 )； 3)请去掉程序中的沣释符，把程序中的 ?改为正确的内容。 注意：不能修改程序中的其他部分和其他控件的属性。最后把修改后的文件按原文件名存 盘。 (2)在考生目录下有一个工程文件 sjt4 vbp，包含了所有控件和部分程序。程序运行时，请按以下顺序操作： 1)单击 “读入数据 ”按钮，可把考生目录下的文件 in4 dat中的 100个整数读到数组 a中
5、： 2)从名称为 Combol的组合框中选中一项 (如图 2 51所示 )。 3)甲击 “计算 ”按钮，则可按该选项的要求对 a中的数计算平均值 (四舍五入取整或截尾取整 )并放到文本框中。 4)单击窗体右上角的关闭按钮结束程序。 “读入数据 ”按钮的Click事件过程已经给出，请为 “计算 ”按钮编写适当的事什过程实现上述功能。 提示：存放前 n个数之和的变量应使用 Long类型。注意：不得修改已经存在的程序，在结束程序运行之前，必须进行一次计算，且必须用窗体右上角的关闭按钮结束程序，否则无成绩。最后，程序按原文件名存盘。三、综合应用题 3 在考生文件夹下有一个工程文件 sit5 vbp，窗
6、体上有两个标题分别是 “读数据 ”和“统计 ”的命令按钮。请画两个标签，名称分别为 Labell和 Label2，标题分别为 “出现次数最多的字母是 ”和 “它出现的次数为 ”；再画两个名称分别为 Text1和 Text2、初始值为空的文本框，如图 2 167所示。 程序功能如下： 单击 “读数据 ”按钮，则将考生文件夹下 in5 dat文件的内容读到变量 s中 (此过程已给出 )： 单击 “统计 ”按钮，则自动统计 in5 dat文件中所含各字母 (不区分大小写 )出现的次数，并将出现次数最多的字母显示在 Text1文奉框内，它所出现的次数显示在 Text2文本框内。 “读数据 ”按钮的 C
7、lick事件过程已经给出，请为 “统计 ”按钮编写适当的事件过程以实现上述功能。 注意：考生不得修改窗体文件中已经存在的控件和程序，在结束程序运行之前，必须进行统计，且必须用窗体右上角的关闭按钮结束程序，否则无成绩。最后，程序按原文件名存盘。 国家二级 VB机试 （上机操作）模拟试卷 186答案与解析 一、基本操作题 1 【正确答案】 第 1小题 【操作步骤】 步骤 1：新建一个 “标准 EXE”工程，在窗体 Forml中加入一个文本框和两个命令按钮，其相关属性设置如表 31所示。步骤 2：打开代码编辑窗口，输入如下代码： 参考代码： Private Sub CommandlClick() T
8、extl FontSize=Textl FontSize * 1 2 End Sub Private Sub Command2一 Click() Textl FontSize=Textl FontsiZe 1 2 End Sub 步骤 3：按要求将文件保存至考生文件夹中。 第 2小题 【操作步骤】 步骤 1：新建一个 “标准 EXE”工程，在窗体上画一个列表框、一个文本框和一个水平滚动条，按表 32设置其相关属性。步骤 2：在打开的代码编辑窗口中，编写列表框的单击事件代码： 参考代码： Private Sub Listl一 C1ick() Textl Text=LiStl Text HSCro
9、ll1 ValUe=Val(LiStl Text) End Sub 步骤 3：按要求将文件保存至考生文件夹中 。 二、简单应用题 2 【正确答案】 第 1小题 【操作步骤】 步骤 1：打开考生文件夹中的本题工程文件 sjt3 vbp，按表 3 31在窗体中画出控件并设置其相关属性。步骤 2：在代码编辑窗口，去掉程序中的注释符一 ”，将问号 “?”改为正确的内容。 参考代码： Form2 ShOW Form1 Textl FontSize； Listl Text Forml Textl FontName=List2 List(List2 LiStIndex) Form2 Visible=Fals
10、e 步骤3：按要求将文件保存至 考生文件夹中。 第 2小题 【操作步骤】 步骤 1：打开考生文件夹中的本题工程文件 sit4 vbp，双击 “计算 ”按钮，打开代码编辑窗口编辑计算按钮的单击事件。 参考代码： Private Sub Command2一 Click() Dim i， j As Long If Combol Text=“前 50个数 ”Then j=0 For i=1 To 50 j=j+a(i) Next j=Round(j 50， 0) Text1 Text=j End If If Combol Text=“前 80个数 ”Then j=0 For i=1 To 80 j =
11、 j +a(i) Next j =Round(j 80， 0) Textl Text=j End If If Combol Text=”所有数 ”Then j=0 For i=1 TO 100 j=j+a(i) Next j=Round(j 100， 0) Textl Text=j End If End Sub 步骤2：按要求将文件保存至考生文件夹中。 步骤 3：运行程序，单击 “读入数据 ”按钮。然后在列表框中选中一项，并单击 “计算 ”按钮获得一个结果，然后使用窗体右 二角的 “关闭 ”按钮 结束程序。 三、综合应用题 3 【正确答案】 【操作步骤】 步骤 1：打开考生文件夹下的本题工程文
12、件sjt5 vbp，如表 388在窗体 Forml中画出控件，并分别设置它们的相关属性。步骤 2：在代码编辑窗口的指定位置，编写 “统计 ”按钮的单击事什过程。 参考代码： Private Sub Command2一 Click() 考生编写 Dim a(26)As Integer n=Len(s) For i=1 To n c=UCase(Mid(S， i，1) If C=“A”And CMax Then Max=a(i) t=Chr(AsC(“A”)+i一 1) End If Next i Text1 Text=t Text2 Text=Max End Sub 步骤 3：按要求将文件保存至考生文件夹中。 步骤 4：按键运行程序，先单击 “读数据 ”按钮，接着单击 “统计 ”按钮，然后单击窗体右上角的关闭按钮结束程序。
