|
2005年4月等级考试二级VB真题(附答案)(7)
arr(i) = i + i
Next
fun arr, n
Text1.Text = Str(n)
End Sub
程序运行后,单击命令按钮,则在文本框中显示的内容是
A)30
B)25
C)20
D)15
二、填空题(每空2分，共30分)
请将每一个空的正确答案写在答题卡【1】～【15】序号的横线上，答在试卷上不得分。注意：以命令关键字填空的必须拼写完整。
(1) 某二*树中度为2的结点有18个，则该二*树中有 【1】 个叶子结点。
(2) 在面向对象方法中，类的实例称为 【2】 。
(3) 诊断和改正程序中错误的工作通常称为 【3】 。
(4) 在关系数据库中，把数据表示成二维表，每一个二维表称为 【4】 。
(5) 问题处理方案的正确而完整的描述称为 【5】 。
(6)以下语句的输出结果是: 【6】
Print Int(12345.6789*100+0.5)/100
(7)在窗体上画一个文本框和一个图片框,然后编写如下两个事件过程:
Private Sub Form_Click()
Text1.Text = "VB程序设计"
End Sub
Private Sub Text1_Change()
Picture1.Print "VBProgramming"
End Sub
程序运行后,单击窗体,在文本框中显示的内容是【7】,而在图片框中显示的内容是【8】
(8)阅读下面的程序
Private Sub Form_Click()
Dim Check As Boolean, Counter As Integer
Check = True
Counter = 5
Do
Do While Counter < 20
Counter = Counter + 1
If Counter = 10 Then
Check = False
Exit Do
End If
Loop
Loop Until Check = False
Print Counter
End Sub
程序运行后,单击窗体,输出结果是【9】
(9)设有如下程序
Private Sub Form_Click()
Dim a As Integer, s As Integer
n = 8
s = 0
Do
s = s + n
n = n - 1
Loop While n > 0
Print s
End Sub
以上程序的功能是【10】,程序运行后,单击窗体,输出结果为【11】
(10)设有如下程序:
Option Base 1
Private Sub Command1_Click()
Dim arr1
Dim Min As Integer, i As Integer
arr1 = Array(12, 435, 76, -24, 78, 54, 866, 43)
Min = 【12】
|
