国家二级VB机试（上机操作）模拟试卷456
基本操作题
1.(1)在名称为Form1的窗体上添加一个名称为C1、标题为“改变颜色”的命令按钮，窗体标题为“改变窗体背景色”。编写程序，使得单击命令按钮时，将窗体的背景颜色改为红色(&HFF&)。运行程序后的窗体如图所示。
要求：程序中不得使用变量，每个事件过程中只能写一条语句。存盘时必须存放在考生文件夹下，工程文件名为sjt1．vbp，窗体文件名为sjt1．frm。
(2)在名称为Form1的窗体上添加一个名称为Shape1的形状控件，在属性窗口中将其形状设置为圆形。添加一个名称为List1的列表框，并在属性窗口中设置列表项的值分别为1、2、3、4、5。将窗体的标题设为“图形控件”。单击列表框中的某一项，则将其值作为形状控件的填充参数。例如，选择3，则形状控件中被竖线填充，如图所示。
(1)步骤1：建立界面，添加相应的控件并设置控件的属性。程序中涉及的控件及属性见表3．59。
[*]
步骤2：打开代码编辑窗口，在指定位置编写如下代码。
参考答案
Private Sub C1_Click()
Form1．BackCo1or=&HFF&
End Sub
步骤3：调试并运行程序，关闭程序后按题目要求存盘。
(2)步骤1：建立界面，将窗体Form1的Caption属性设置为“图形控制”，然后添加相应的控件并设置控件的属性。程序中用到的控件及属性见表3．60。
[*]
步骤2：打开代码编辑窗口，在指定位置编写如下代码。
参考答案
Private Sub List1_Click()
Shape1．FiiiStyle=List1．Text
End Sub
步骤3：调试并运行程序，关闭程序后按题目要求存盘。
解析：(1)通过命令按钮的Name和Caption属性设置命令按钮的名称和标题，通过窗体的Caption属性设置窗体的标题，在C1_Click事件过程中，通过设置窗体的BackCobr属性实现单击命令按钮时将窗体的背景颜色改为红色。
(2)通过形状控件的Name和Shape属性设置形状控件的名称和形状，通过列表框的Name和List属性设置列表框的名称和列表项，单击列表框中的某一项，通过List1的Text属性确定选中的值，并将其值作为形状控件的填充参数，FillStyle属性用于返回／设置一个形状控件的填充样式。
简单应用题
2.(1)在考生文件夹下有一个工程文件sjt3．vbp。程序的功能是通过键盘向文本框中输入大、小写字母和数字。单击标题为“统计”的命令按钮，分别统计输入字符串中大写字母、小写字母及数字字符的个数，并将统计结果分别在标签控件数组x中显示，如图所示。
在给出的窗体文件中已经添加了全部控件，但程序不完整。要求：去掉程序中的注释符，把程序中的?改为正确的内容。
注意：不能修改程序的其他部分和控件属性，最后将修改后的文件按原文件名进行存盘。
(2)考生文件夹下的工程文件sjt4．vhp中有两个名称分别为List1、List2的列表框控件，两个名称分别为Command1、Command2，标题分别为“>>”、“<<”的命令按钮。请在List1中添加“文本框”、“标签”、“列表框”、“单选钮”等选项，如图所示。
程序的功能是：
单击“>>”，将List1中的表项添加到L,ist2中，同时将List1中选中的表项清空；单击“<<”，将List2中的表项添加到List1处中，同时将L,ist2中选中的表项清空。程序已给出，但是不完整。请将程序中的注释符去掉，把?改为正确的内容，实现上述的功能。
注意：不能修改程序的其他部分和控件属性，最后将修改后的文件按原文件名进行存盘。
(1)步骤1：打开本题工程文件。
步骤2：打开代码编辑窗口，去掉程序中的注释符“’”，将问号改为正确的内容。
参考答案
Private Sub Command1_Click()
Dim n As Integer
Dim b As Integer
Dim a(3)As Integer
s=RTrim(Text1．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：调试并运行程序，关闭程序后按题目要求存盘。
(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 Sub
priVate sub Command2_Click()
Call remove(List2，List1)
End Sub
步骤3：调试并运行程序，关闭程序后按题目要求存盘。
解析：(1)单击标题为“统计”的命令按钮，其中RTrim()函数用于去掉字符串右边的空格
本文档预览：3600字符，共5259字符，源文件无水印，下载后包含无答案版和有答案版，查看完整word版点下载
