该文章转载自无忧考网：http://www.51test.net/show.asp?id=385392&Page=3im i As Integer, j As Integer For i = 2 To 4 For j = 2 To 4 arr(i, j) = i * j Next j Next i
Label1.Caption = Str(arr(2, 2) + arr(3, 3)) End Sub
程序运行后，单击窗体，在标签中显示的内容是（ ）。 A．12 B．13 14 D．15
（29）在窗体上画一个名称为Command1的命令按钮，然后编写如下通用过程和命令按钮的事件过程： Private Function fun(ByVal m As Integer) If m Mod 2 = 0 Then fun = 2 Else fun = 1 End If
End Function
Private Sub Command1_Click() Dim i As Integer, s As Integer s = 0
For i = 1 To 5 s = s + fun(i) Next Print s
End Sub
程序运行后，单击命令按钮，在窗体上显示的是（ ）。 A．6 B．7 C．8 D．9
（30）阅读程序： Option Base 1
Dim arr() As Integer
Private Sub Form_Click() Dim i As Integer, j As Integer ReDim arr(3, 2) For i = 1 To 3 For j = 1 To 2 arr(i, j) = i * 2 + j
Next j Next i
ReDim Preserve arr(3, 4) For j = 3 To 4 arr(3, j) = j + 9 Next j
Print arr(3, 2) + arr(3, 4) End Sub
程序运行后，单击窗体，输入结果为（ ）。 A．21 B．13 C．8
D．25 （31）在窗体上画一个名称为Command1的命令按钮，然后编写如下程序： Option Base 1
Private Sub Command1_Click() Dim c As Integer, d As Integer d = 0 c = 6
x = Array(2, 4, 6, 8, 10, 12) For i = 1 To 6 If x(i) > c Then d = d + x(i) c = x(i) Else d = d - c End If Next Print d End Sub
程序运行后，如果单击命令按钮，则在窗体上输出的内容为（ ）。 A． 10 B． 16 C．12 D． 20
（32）设有如下程序：
Private Sub Command1_Click() Dim c As Integer, d As Integer c = 4
d = InputBox(\请输入一个整数\ Do While d > 0 If d > c Then c = c + 1 End If
d = InputBox(\请输入一个整数\
Loop
Print c + d End Sub
程序运行后，单击命令按钮，如果在输入对话框中依次输入1、2、3、4、5、6、7、8、9、0，则输出结果是（ ）。 A．12 B．11 10 D．9 （33）在窗体上画一个名称为Command1的命令按钮和一个名称为Text1的文本框，在文本框中输入以下字符串：Microsoft Visu 该文章转载自无忧考网：http://www.51test.net/show.asp?id=385392&Page=4al Basic Programming 然后编写如下事件过程： Private Sub Command1_Click()
Open \ For i = 1 To Len(Text1.Text) c = Mid(Text1.Text, i, 1)
If c >= \ Print #1, LCase(
End If Next i Close End Sub
程序运行后，单击命令按钮，文件outf.txt中的内容是（ ）。 A．MVBP B．mvbp C．M D．m V v B b P p
（34）在窗体上画一个名称为Command1的命令按钮，然后编写如下程序： Dim SW As Boolean
Function func(X As Integer) As Integer If X < 20 Then Y = X Else
Y = 20 + X End If func = Y End Function
Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) SW = False End Sub
Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
SW = True End Sub
Private Sub Command1_Click() Dim intNum As Integer intNum = InputBox(\ If SW Then
Print func(intNum) End If End Sub
程序运行后，单击命令按钮，将显示一个输入对话框，如果在输入对话框中输入25，则程序的执行结果为（ A．输出0 B．输出25 输出45
D．无任何输出
35）设有如下通用过程：
Public Sub Fun(a() As Integer, x As Integer) For i = 1 To 5 x = x + a(i) Next End Sub
在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮。然后编写如下的事件过程： Private Sub Command1_Click() Dim arr(5) As Integer, n As Integer For i = 1 To 5 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_
。 ） （
该文章转载自无忧考网：http://www.51test.net/show.asp?id=385392&Page=5Click() Text1.Text = \程序设计\ End Sub
Private Sub Text1_Change()
Picture1.Print \ 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 n 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】 。程序运行后，单击窗体，输出结果为 （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】
11】 。 【
2017年全国计算机二级考试试卷 历年考试真题演练
