全国计算机等级考试三级笔试样题VisualBasic语言.docx
《全国计算机等级考试三级笔试样题VisualBasic语言.docx》由会员分享，可在线阅读，更多相关《全国计算机等级考试三级笔试样题VisualBasic语言.docx（20页珍藏版）》请在冰豆网上搜索。
全国计算机等级考试三级笔试样题VisualBasic语言
2002年全国计算机等级考试三级笔试样题（VisualBasic语言程序设计）
（考试时间90分钟，满分100分
一、选择题
（1）—（35）题每题2分，共70分。
下列各题A）、B）、C）、D）四个先项中,只有一个选择是正确的,请将正确选项涂写在答题卡相应位置上,答在试卷上不得分。
（1） 下列不能打开属性窗口的操作是 。
A） 执行“视图”菜单中的“属性窗口”命令
B） 按F4键
C） 按Ctrl+T
D） 单击工具栏上的“属性窗口”按钮 。
（2） 下列可以打开立即窗口的操作是 。
A） Ctrl+D B） Ctrl+E C） Ctrl+F D） Ctrl+G
（3） inputBox函数反回值的类型为 。
A） 数值 B） 字符串
C） 变体 D） 数值或字符串（视输入的数据而定）
（4） 可以同时删除字符串前导和尾部空白的函数是 。
A） Ltrim B） Rtrim C） Trim D） Mid
（5） 表达式4+5 \ 6 * 7 / 8 Mod 9 的值是
A） 4 B） 5 C） 6 D） 7
（6） 如果在立即窗口中执行以下操作：
a=8 （是回车键，下同）
b=9
print a>b
则输出结果是 。
A） -1 B） 0 C） False D） True
（7） 以下语句的输出结果是 。
Print Format $（32548.5,“000,000.00”）
A） 32548.5 B） 32,548.5 C） 032,548.50 D） 32,548.50
（8） 执行以下程序段后，变量c$的值为
a$=“Visual Basic Programing”
b$=“Quick”
c$=b$ & UCase（Mid$（a$,7,6）） & Right $ （a$,11）
A） Visual BASIC Programing
B） Quick Basic Programing
C） QUICK Basic Programing
D） Quick BASIC Programing
（9） 为了在按下回车键时执行某个命令按钮的事件过程，需要把该命令按钮的一个属性设置为True，这个属性是 。
A） Value B） Default C） Cancel D） Enabled
（10） 为了把焦点移到某个指定的控件，所使用的方法是
A） SetFocus B） Visible C） Refresh D） GetFocus
（11） 设a=6，则执行 x=IIf（a>5,-1,0）后，x 的值为 。
A） 5 B） 6 C） 0 D） -1
（12） 执行下面的程序段后，x 的值为 。
x=5
For i=1 To 20 Step 2
x=x+i\5
Next i
A） 21 B） 22 C） 23 D） 24
（13） 在窗体上画一个命令按钮，然后编写如下事件过程：
Private Sub Command1_Click（）
For i=1 To 4
x=4
For j =1 To 3
x=3
or k=1 To 2
x=x+6
Next k
Next j
Next i
Print x
End Sub
程序运行后，单击命令按钮，输出结果是 。
A） 7 B） 15 C） 157 D） 538
（14） 在窗体上画一个命令按钮，然后编写如下事件过程：
Prevate Sub Command1_Click（）
x=0
Do Until x=-1
a = InputBox（“请输入A的值”）
a = Val（a）
b = InputBox（“请输入B的值”）
b = Val（b）
x = InputBox（“请输入x的值”）
x = Val（x）
a = a+b+x
Loop
Print a
End Sub
程序运行后，单击命令按钮，依次在输入对话框中输入5、4、3、2、1、-1，则输出结果为 。
A） 2 B） 3 C） 14 D） 15
（15）在窗体（Name属性为Form1）上画两个文本框（其Name属性分别为Text1和Text2）和一个命令按钮（Name 属性为Command1），然后编写如下两个事件过程：
Private Sub Command1_Click（）
a=Text1.Text+Text2.Text
Print a
End Sub
Private Sub Formm_Load（）
Text1 Text=""
Text2 Text=""
End sub
程序运行后，在第一个文本框（Text1）和第二个文本框（Text2）中分别输入123和321，然后单击命令按钮，则输出结果为 。
A） 444 B） 321123 C） 123321 D） 132231
（16）阅读下面的程序段：
For i=1 To 3
For j=1 To i
For k=j To 3
a=a+1
Next k
Next j
Next i
执行上面的三重循环后，a 的值为 。
A） 3 B） 9 C） 14 D） 21
（17）在窗体上画一个文本框（其中Name属性为Text1），然后编写如下事件过程：
Private Sub Form_Load（）
Ttext1.Text="">
Text1.SetFocus
For i=1 To 10
Sum=Sum+i
Next i
Text1.Text=Sum
End Sub
上述程序的运行结果是 。
A） 在文本框Text1中输出55
B） 在文本框Text1中输出0
C） 出错
D） 在文本框Text1中输出不定值
（18）在窗体上画两个文本框（其Name 属性分别为Text1和Text2）和一个命令按钮（其Name属性为Command1），然后编写如下事件过程：
Private Sub Command1_Click（）
x=0
Do While x<50
x=（x+2）*（x+3）
n=n+1
Loop
Text1.Text=Str（n）
Text2.Text=Str（x）
End Sub
程序运行后，单击命令按钮，在两个文本框中显示的值分别为
A） 1和0 B） 2和72 C） 3和50 D） 4和168
（19）用下面语句定义的数组的元素个数是 。
Dim A （-3 To 5） As Integer
A） 6 B） 7 C） 8 D） 9
（20）以下程序的输出结果是
Option Base 1
Private Sub Command1_Click（）
Dim a（10）,p（3） As Integer
k=5
For i=1 To 10
a（i）=i
Next i
For i=1 To 3
p（i）=a（i*i）
Next I
For i=1 To 3
k=k+p（i）*2
Next i
Print k
End sub
A） 33 B） 28 C） 35 D） 37
（21）在窗体上面画一个命令按钮，然后编写如下事件过程：
Option Base 1
Private Sub Commandl_Click（）
Dim a
a = Array（1,2,3,4）
j = 1
For i = 4 To Step -1
s = s + a（i）*j
j =j*10
Next i
Print s
End Sub
运行上面的程序，单击命令按钮，其输出结果是 。
A） 4321 B） 12 C） 34 D） 1234
（22）在窗体上面一个命令按钮（其Name属性为Commandl），然后编写如下代码：
Option Base 1
Private Sub Commandl_Click（ ）
Dim a（4,4）
For i =1 To 4
For j =1 To 4
a（i,j） = （i-1）*3+j
Next j
Next i
For i =3 To 4
For j =3 To 4
Print a（j,i）;
Next j
Print
Next i
End Sub
程序运行后，单击命令按钮，其输出结果为 。
A） 6 9 B） 7 10 C） 8 11 D） 9 12
7 10 8 11 9 12 10 13
（23）假定有如下的Sub过程：
Sub S（x As Single,y As Single）
t = x
x =t/y
y =t Mod y
End Sub
在窗体上画一个命令按钮，然后编写如下事件过程：
Private Sub Commandl_Click （ ）
Dim a As Single
Dim b As Single
a =5
b =4
S a,b
Print a,b
End Sub
程序运行后，单击命令按钮，输出结果为 。
A） 5 4 B） 1 1 C） 1.25 4 D） 1.25 1
（24）阅读程序：
Function F（a As Integer）
b = 0
Static c
b = b+1
c = c+1
f = a+b+c
End Function
Private Sub Commandl_Click （）
Dim a As Integer
a =2
For i =1 To 3
Print F（a）
Next i
End Sub
运行上面的程序，单击命令按钮，输出结果为 。
A） 4 B） 4 C） 4 D） 4
4 5 6 7
4 6 8 9
（25）阅读程序：
Sub subP（b（） As Integer）
For i =1 To 4
b（i）=2*i
Next i
End Sub
Private Sub Commandl_Click（）
Dim a（1 To 4）As Integer
a
（1）=5
a
（2）=6
a （3）=7
a （4）=8
subP a （）
For i =1 To 4
Print a（i）
Next i
End Sub
运行上面的程序，单击命令按钮，输出结果为 。
A）2 B）5 C）10 D）出错
4 6 12
6 7 14
8 8 16
（26）下列不能打开菜单编辑器的操作是 。
A）按Ctrl+E
B）单击工具栏中的“菜单编辑器”按钮
C）执行“工具”菜单中的“菜单编辑器”命令
D）按Shift + Alt + M
（27）假定有一个菜单项，名为MenuItem，为了在运行时使该菜单项失效（变灰），应使用的语句为 。
A） MenuItem. Enabled=False
B） MenuItem. Enabled=True
C） MenuItem. Visible=True
D） Menultem. Visible=False
（28）在程序运行期间，如果拖动滚动条上的滚动块，则触发的滚动条事件是 。
A） Move B） Change C） Scroll D） GetFocus
（29）假定窗体上有一个标签，名为Labell，为了使该标签透明并且没有边框，则正确的属性设置为 。
A） Label1. BackStyle=0
Label1.Borderstyle=0
B） Label1.BackStyle=1
Label1.Borderstyle=1
C） Label1.BackStyle=True
Label1.BorderStyle=True
D） Label1.BackStyle=False
Label1.Borderstyle=False
（30）在窗体上画一个列表框和一个文本框，然后编写如下两个事件过程：
Private Sub Form_Load （）
List1.AddItem"357"
List1.AddItem"246"
List1.AddItem"123"
Listl.AddItem"456"
Text1.Text=""
End Sub
Private Sub List1_ DblClick （ ）
a =List1.Text
Print a+Text1.Text
End Sub
程序运行后，在文本框中输入“789”（见图1），然后双击列表框中的"456"，则输出结果为 。
A） 1245 B） 456789 C） 789456 D） 0
（31）为了暂时关闭计时器，应把该计时器的某个属性设置为False ，这个属性是 。
A） Visible B） Timer C） Enabled D） Interval
（32）为了把一个记录型变量的内容写入文件中指定的位置，所使用的语句的格式为 。
A）Get文件号，记录号，变量名
B）Get文件号，变量名，记录号
C）Put文件号，变量名，记录号
D）Put文件号，记录号，变量名
（33）对窗体编写如下事件过程：
Private Sub Form _MouseDown（Button As Integer, _
Shift As Integer, X As Single Y As Single）
If Button =2 Then
Print "AAAAA"
End If
End Sub
Private Sub Form _ MouseUp（Button As Integer, _
Shift As Integer, X As Single, Y As Single）
Print "BBBBB"
End Sub
程序运行后，如果单击鼠标右键，则输出结果为 。
A） AAAAA B） BBBBB C） AAAAA D） BBBBB
BBBBB AAAAA
（34）为了在运行时能显示窗体左上角的控制框（系统菜单），必须 。
A） 把窗体的Contro1Box 属性设置为Fale,其他属性任意
B） 把窗体的ControlBox 属性设置为True,并且把Boder Style属性设置为1-5
C） 把窗体的ControlBox 属性设置为False,同时把BoderStyle属性调协为非0值
D） 把窗体的ControlBox 属性设置为True,同时把BoderStyle属性设置为0值
（35）对窗体编写如下代码：
Option Base 1
Private Sub Form_KeyPress（KeyAscii As Integer）
a = Array（237,126,87,48,498）
m1 = a
（1）
m2 = 1
If KeyAscii = 13 Then
For i =2 To 5
If a（i）>ml Then
m1 =a（j）
m2 =i
End If
Next i
End If
Print m1
Print m2
End Sub
程序运行后，按回车键，输出结果为
A） 48 B） 237 C） 498 D） 498
4 1 5 4
二、填空题（每空２分，共30分）
请将每空的正确答案写在答题卡[1]—[15]序号的横线上，答在试卷上不得分。
（1）设有如下的Visual Basic表达式：
5 * x^2 – 3 * x – 2 * Sin（a）/3
它相当于代数式【1】 。
（2）执行下面的程序段后，s的值为 【2】 。
s = 5
For i = 2.6 To 4.9 Step 0.6
s = s+1
Next i
（3）表达式Fix（-32.68）+Int（-23.02）的值为【3】 。
（4）为了在运行时把图形文件picfile. jpg装入图片框Picture1,所使用的语句为【4】 。
（5）在窗体上画一个命令按钮，然后编写如下事件过程：
Private Sub Command1_Click（）
a = InputBox（"请输入一个整数"）
b = InputBox（"请输入一个整数"）
Print a + b
End Sub
程序运行后，单击命令按钮，在输入对话框中分别输入321和456，输出结果为 【5】。
（6） 执行下面的程序段后，b的值为【6】。
a=300
b=20
a=a+b
b=a-b
a=a-b
（7） 以下程序段的输出结果是【7】 。
num=0
While num<=2
num=num+1
Print num
Wend
（8） 在窗体画一个命令按钮，然后编写如下事件过程：
Private Sub Command1_Click（）
Dim a（1 To 10）
Dim p（1 To 3）
k=5
For i=1 To 10
a（i）=i
Next i
For i=1 To 3
p（i）=a（i*i）
Next i
For i=1 To 3
k=k+p（i）*2
Next i
Print k
End Sub
程序运行后，单击命令按钮，输出结果是【8】 。
（9） 下面的程序用“冒泡”法将数组a中的10个整数按升序排列，请在【9】、【10】、【11】处将程序补充完整。
Option Base 1
Private Sub Command1_Click（）
Dim a
a=Array（678,45,324,528,439,387,87,875,273,823）
For i=【9】
For j=【10】
If a（i）【11】 a（j） Then
a1=a（i）
a（i）=a（j）
a（j）=a1
End If
Next j
Next i
For i=1 To 10
Print a（i）
Next i
End Sub
（10） 在窗体画一个命令按钮，然后编写如下过程：
Function fun（ByVal num As Long）As Long
Dim k As Long
k=1
num=Abs（num）
Do While num
k=k*（num Mod 10）
num=num\10
Loop
fun=k
End Function
Private Sub Command1_Click（）
Dim n As Long
Dim r As Long
n=InputBox（"请输入一个数"）
n=CLng（n）
r=fun（n）
Print r
End Sub
程序运行后，单击命令按钮，在输入对话框中输入234，输出结果为【12】 。
（11） 如果要将某个菜单项设计为分隔线，则该菜单项的标题应设置为【13】。
（12） 假定建立了一个工程，该工程包括两个窗体，其名称（Name 属性）分别为Form1和Form2，启动窗体为Form1。
在Form1画一个命令按钮Command1，程序运行后，要求当单击该命令按钮时，Form1窗体消失，显示窗体Form2，请在【14】和【15】处将程序补充完整。
Private Sub Command1_Click（）
【14】 Form1
Form2. 【15】
End Sub
二级笔试样卷Visual Basic语言程序设计答案
一、选择题
（1）C
（2）D
（3）B
（4）C
（5）B
（6）C
（7）C
（8）D
（9）B
（10）A
升级会员 