1、国家二级 VB机试（上机操作）模拟试卷 456及答案与解析 一、基本操作题 1 (1)在名称为 Form1的窗体上添加一个名称为 C1、标题为 “改变颜色 ”的命令按钮，窗体标题为 “改变窗体背景色 ”。编写程序，使得单击命令按钮时，将窗体的背景颜色改为红色 (&HFF&)。运行程序后的窗体如图所示。 要求：程序中不得使用变量，每个事件过程中只能写一条语句。存盘时必须存放在考生文件夹下，工程文件名为 sjt1 vbp，窗体文件名为 sjt1 frm。 (2)在名称为 Form1的窗体上添加一个名称为 Shape1的形状控件，在 属性窗口中将其形状设置为圆形。添加一个名称为 List1的列表框，
2、并在属性窗口中设置列表项的值分别为 1、 2、 3、 4、 5。将窗体的标题设为 “图形控件 ”。单击列表框中的某一项，则将其值作为形状控件的填充参数。例如，选择 3，则形状控件中被竖线填充，如图所示。 要求：程序中不得使用变量，每个事件过程中只能写一条语句。存盘时必须存放在考生文件夹下，工程文件名保存为 sjt2。 vbp，窗体文件名保存为 sjt2 frm。 二、简单应用题 2 (1)在考生文件夹下有一个工程文件 sjt3 vbp。程序的功能是通过键盘向文本 框中输入大、小写字母和数字。单击标题为 “统计 ”的命令按钮，分别统计输入字符串中大写字母、小写字母及数字字符的个数，并将统计结果分
3、别在标签控件数组 x中显示，如图所示。 在给出的窗体文件中已经添加了全部控件，但程序不完整。要求：去掉程序中的注释符，把程序中的 ?改为正确的内容。 注意：不能修改程序的其他部分和控件属性，最后将修改后的文件按原文件名进行存盘。(2)考生文件夹下的工程文件 sjt4 vhp中有两个名称分别为 List1、 List2的列表框控件，两个名称分别为 Command1、Command2，标题分别 为 “”、 “”，将 List1中的表项添加到 L,ist2中，同时将List1中选中的表项清空；单击 “ 三、综合应用题 3 在考生文件夹下有一个工程文件 sjt5 vbp，窗体上有三个文本框，其名称分别
4、为Text1、 Text2和 Text3，其中 Text1、 Text2可多行显示。请添加三个命令按钮，名称分别为 Cmd1、 Cmd2和 Cmd3，标题分别为 “产生数组 ”、 “统计 ”和 “退出 ”，如图所示。程序功能如下： 单击 “产生数组 ”按钮时，随机生成 20个 0 10之间 (不含0和 10)的数值，并将其保存到一维数组 a中 ，同时也将这 20个数值在 Text1文本框内显示。 单击 “统计 ”按钮时，统计出数组 a中出现频率最高的数值及其出现的次数，并将出现频率最高的数值在 Text2文本框内显示、出现频率最高的次数在Text3文本框内显示。 单击 “退出 ”按钮时，结束程
5、序运行。注意：不得修改窗体文件中已经存在的控件和程序，最后将修改后的文件按原文件名存盘。国家二级 VB机试（上机操作）模拟试卷 456答案与解析 一、基本操作题 1 【正确答案】 (1)步骤 1：建立界面，添加相应的控件并设置控件的属性。程序中涉及的控件及属性见表 3 59。步骤 2：打开代码编辑窗口，在指定位置编写如下代码。 参考答案 Private Sub C1_Click() Form1 BackCo1or=&HFF& End Sub 步骤 3：调试并运行程序，关闭程序后按题目要求存盘。 (2)步骤 1：建立界面，将窗体 Form1的 Caption属性设置为 “图形控制 ”，然后添加相
6、应的控件并设置控件的属性。程序中用到的控件及属性见表3 60。 步骤 2：打开代码编辑窗口，在指定位置编写如下代码。 参考答案 Private Sub List1_Click() Shape1 FiiiStyle=List1 Text End Sub 步骤 3：调试并运行程序，关闭程序后按题目要求存盘。 【试题解析】 (1)通过命令按钮的 Name和 Caption属性设置命令按钮的名称和标题，通过窗体的 Caption属性设置窗体的标题，在 C1_Click事件过程中，通过设置窗体的 BackCobr属性实现单击命令按钮时将窗体的背景颜色改为红色。 (2)通过形状控件的 Name和 Shap
7、e属性设置形状控件的名称和形状，通过列表框的 Name和 List属性设置列表框的名称和列表项，单击列表框中 的某一项，通过 List1的 Text属性确定选中的值，并将其值作为形状控件的填充参数， FillStyle属性用于返回设置一个形状控件的填充样式。 二、简单应用题 2 【正确答案】 (1)步骤 1：打开本题工程文件。 步骤 2：打开代码编辑窗口，去掉程序中的注释符 “”，将问号改为正确的内容。 参考答案 Private Sub Command1_Click() Dim n As Integer Dim b As Integer Dim a(3)As Integer s=RTrim(T
8、ext1 Text)将文本框中的内容取出并去掉右边空格 n=Len(Text1 Text)用 Len函数确定字符串长度 For i=1 To n b=Asc(Mid(s， i， 1)将取出的字符转换为 ASCII码值 Select Case b确定 b的范围，从而得知它的类型 Case 48 To 57 a(0)=a(0)+1 Case 65 To 90 a(1)=a(1)+1 Case 97 To 122 a(2)=a(2)+1 End Select Next For i=0 To 2 x(i)=a(i)将所得个数分别显示在标签控件数组 x中 Next End Sub 步骤 3：调试并运行程
9、序，关闭程序后按题目要求存盘。 (2)步骤 1：打开本题工程文件，在 List1中添加 “文本框 ”、 “标签 ”、 “列表框 ”和“单选钮 ”等选项。 步骤 2：打开代码编辑窗口，去掉程序中的注释符 “”，将问号改为正确的内容。 参考答案 Private Sub remove(La As ListBox， Lb As ListBox) For i=0 To La ListCount一 1 Lb AddItem La List(i) Next La Clear End Sub Private Sub Command1_Click() Call remove(List1， List2) End
10、Sub priVate sub Command2_Click() Call remove(List2， List1) End Sub 步骤 3：调试并运行程序，关闭程序后按题目要求存盘。 【试题解析】 (1)单击标题为 “统计 ”的命令按钮，其中 RTrim()函数用于去掉字符串右边的空格，把值赋给 s， s是没有空字符的字符串，即字符串中只有大、小写字母及数字， Len()函数用于获得字符串的长度，也就是字符串中的字符数，通过For循环语句和 Mid()函数遍历字符串获取字符串中的每一个字符，并运用 Asc()函数获取字符的 ASCII码进行判断，通过 SelectCase语句实现个数的统
11、计，将其装入数组 a中，通过 For循环语句将统计结果分别显示在标签控件数组 x中。 (2)通过列表框的 List属性在 List1中添加 “文本框 ”、 “标签 ”、 “列表框 ”和 “单选钮 ”等选项。 Sub remove()过程函数用于将一个列表框中的表项添加到另一个列表框中，同时将前一个列表框清空，运用 For循环语句和 Addhem方法添加列表项La List(i)，循环语句的上限为 La ListCount一 1，因为列表框数组下标是从 0开始的， ListCount表示列表框中列表项的项数，通过列表框的 Clear方法清除 La中的列表项。单击 “”，运用 Call语句调用 r
12、emove()函数，将 List1中的表项添加到 List2中，同时将 List1清空；同理单击 “ fmax Then fmax = b (i)该次得到的数出现频率与目前出现频率最多的数比较，若大于目前的数，则将最大的数改为该次得到的数 Next 1 For i=1 To 20 If b(i)=fmax Then从数组中找到与 fmax相同的值 Text2 Text =Text2 Text+Str(a(i) +Space(2) End If Next i Text3 Text=fmax End Sub Private sub Cmd3_Click() End 当单击 “结束 “按钮时，则退出
13、程序 End Sub 步骤3：调试并运行程序，关闭程序后按题目要求存盘。 【试题解析】 单击 “产生数组 ”按钮时，通过 Rnd函数随机生成 20个 0 10(不含0和 10)的数值，并将其保存到一维数组 a中，同时运用 Space()函数和 Str()函数将这 20个数值显示在 Text1文本框内。单击 “统计 ”按钮时，统计出数组 a中出现频率最高的数 值及其出现的次数，并把出现的次数赋值给数组 h，通过对数组 b中数值的排序，找出最高次数，并通过判断最高次数的值，找出出现频率最高的数值，并将其数值显示在 Text2文本框内，将出现次数显示在 Text3文本框内。单击“退出 ”按钮，运用 End语句结束程序运行。 Str函数将数值转化为字符串， Val()函数是将字符转换为数值。 Space(n)函数用于输入空格， n为空格的个数。 Fix()函数用于截尾取整，生成整数。
