国家二级VB机试（上机操作）模拟试卷306
基本操作题
1.请根据以下各小题的要求设计Visual Basic应用程序(包括界面和代码)。
(1)在名称为Form1的窗体上画一个名称为List1的列表框，在属性窗口中为列表框添加三个选项：北京、上海、天津。再建立一个下拉菜单，菜单标题为“文件”，名称为File，此菜单下含有一个子菜单项，标题为“显示列表框”，名称为Show，初始状态为选中，运行时的效果如图3—165所示。
注意：存盘时，将文件保存至考生文件夹下，且窗体文件名为sjt1．frm，工程文件名为sjt1．vbp。
(2)新建一个名称为Form1，标题为“使用输入对话框”的窗体，该窗体上无任何控件。请编写适当的事件过程，使得运行程序并单击窗体时，出现输入对话框，该对话框的标题为“等级考试”，提示信息为“请输入”，默认值为“Basic”。如图3—166所示。
第1小题
步骤1：新建一个“标准EXE”工程，按要求画出控件并设置属性。
步骤2：新建一个“标准EXE”工程，选择[工具]→[菜单编辑器]命令，打开菜单设计器按要求设置建立菜单项。
步骤3：按要求将文件保存至考生文件夹中。
第2小题
步骤1：新建一个“标准EXE”工程，将窗体Form1的Caption属性设置为“使用输入对话框”。
步骤2：打开代码编辑窗口，编写以下事件过程。
参考代码：
Private Sub Form_Click()
InputBox\\
解析：第1小题：本题只需按要求画出控件和菜单并设置其相关属性即可。
第2小题：本题需在窗体的Click事件过程中，编写一行InputBox语句，其中Prompt参数值为“请输入”，Title参数值为“等级考试”，Default参数值为“Basic”。
简单应用题
2.(1)在考生文件夹下有一个工程文件sjt3．vbp。程序的功能是通过键盘向文本框中输入大、小写字母及数字。单击“统计”按钮，分别统计输入字符串中大写字母、小写字母及数字字符的个数，并将统计结果分别显示在标签控件数组x中，如图3—167所示。在给出的窗体文件中已经添加了全部控件，但程序不完整。
要求：去掉程序中的注释符，把程序中的“?”改为正确的内容。
注意：不能修改程序的其他部分和控件属性。最后把修改后的文件按原文件名存盘。
(2)考生文件夹下的工程文件sjt4．vbp中有两个名称分别为List1、List2的列表框控件，两个名称分别为Command1、Command2，标题分别为“＞＞”、“＜＜”的命令按钮。请在List1中添加“文本框”、“标签”、“列表框”、“单选钮”等表项，如图3—168所示。
程序的功能是：单击“＞＞”按钮，将List1中的表项添加到List2中，同时将List1清空；单击“＜＜”按钮，将List2中的表项添加到List1中，同时将List2清空。程序已给出，但是不完整。请将程序中的注释符去掉，把“?”改为正确的内容，实现上述功能。
注意：不能修改程序的其他部分和控件属性。最后把修改后的文件按原文件名存盘。
第1小题
步骤1：打开考生文件夹中的本题工程文件sjt3．vbp，在代码编辑窗口，去掉程序中的注释符“’”，将问号“?”改为正确的内容。
参考代码：
n=Len(Text1．Text)
b=Asc(Mid(s，i，1))
Select Case b
For i=0To2
x(i)=a(i)
步骤2：按要求将文件保存至考生文件夹中。
第2小题
步骤1：打开考生文件夹中的本题工程文件sjt4．vbp，通过List1列表框的List属性添加四个项目：文本框、标签、命令按钮、单选按钮。
步骤2：在代码编辑窗口，去掉程序中的注释符“’”，将问号“?”改为正确的内容。
参考代码：
For i=0To La．ListCount-1
Lb．AddItem La．List(i)
Next
La．Clear
步骤3：按要求将文件保存至考生文件夹中。
解析：第1小题：本题源程序在For循环体中(其中循环终值应为文本框的字符长度，即n=Len(Text1．Text))，用Mid函数逐一取出文本框中的每个字符，并用Asc函数返回其ASCII码。若取出字符的ASCII码在48～57之间，则记录数字个数的数组变量a(0)增1；若ASCII码在65～90之间，则记录大写字母个数的数组变量a(1)增1；若ASCII码在97～122之间，则记录小写字母个数的数组变量a(2)增1。
第2小题：本题列表框中列表项的移动功能，是通过调用remove过程来实现的，在remove过程中通过For循环(循环变量终值为La．ListCount-1)将列表框La中的各项逐一添加到列表框Lb中，全部项目添加完成后，用列表框的Clear方法清除该列表框中的所有项目。
综合应用题
3.在考生文件夹中有一个工程文件sjt5．vbp。窗体外观如图3—169所示。运行程序，单击“读数据”按钮，文件中的数据被读入字符串变量中并显示在Label2标签中。单击“排序”按钮时，对读入的数据从小到大排序，并将排序结果显示在窗体的Label4控件中。要求：工程文件中己给出部分程序，“读数据”命令按钮的事件过程不完整，请去掉程序中的注释符，把程序中的?改为正确的内容。请编写“排序”命令按钮的事件过程中的部分程序代码。
步骤1：打开考生文件夹中的本题工程文件sjt5．vbp，在代码编辑窗口，去掉程序中的注释符“’”，将问号“?”改为止确的内容。
参考代码：
Do While Not EOF(1)
s=s&str(a(i))
步骤2：在代码编辑窗口指定位置编写以下代码。
参考代码：
num=UBound(a)
For i=1To num-1
For j=iTo num
If a(i)＞a(j)Then
t=a(i)
a(i)=a(j)
a(j)=t
End If
Next
Next
步骤3：按＜F5＞键运行程序，先单击“读数据”按钮，再单击“排序”按钮，最后单击窗体右上角的关闭按钮结束程序。
步骤4：按要求将文件保存至考生文件夹中。
解析：设计思路：在“读数据”按钮的单击事件中，首先使用Do While当型循环结构从文件中读取全部数据，并以Not EOF(文件号)(非文件结尾)作为循环条件，通过Input#语句将打开文件中的数据逐一读出后赋值给a(i)，然后将数组连接起来显示在标签中。
在“排序”按钮的单击事件过程中，源程序利用“冒泡法”对记录数组中的元素从小到大进行排序。
本文档预览：3600字符，共3546字符，源文件无水印，下载后包含无答案版和有答案版，查看完整word版点下载
