选择题填空题练习集(附答案)

（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 i 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 （C）10 （D）9

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 Command1_Click() Dim intNum As Integer intNum = InputBox(\) If SW Then

Print func(intNum) End If End Sub

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

程序运行后,单击命令按钮,将显示一个输入对话框,如果在对话框中输入25,则程序的执行结果是:

（A）输出0 （B）输出25 （C）输出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

二、填空题

请将每一个空的正确答案写在答题卡 【1】 ～ 【15】 序号的横线上，答在试卷上不得分。注意：以命令关键字填空的必须拼写完整。 6．以下语句的输出结果是： 【6】 12345.68

Print Int(12345.6789 * 100 + 0.5) / 100

7．在窗体上画一个文本框和一个图片框,然后编写如下两个事件过程: Private Sub Form_Click()

Text1.Text = \VB程序设计\ End Sub

Private Sub Text1_Change()

Picture1.Print \VB Programming\ End Sub

程序运行后,单击窗体,在文本框中显示的内容是 【7】 VB程序设计，而在图片框中显示的内容是【8】 VB Programming 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】 10 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】 计算8+7+6+5+4+3+2+1，程序运行后,单击窗体,输出结果为 【11】 36 。 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】 arr1(1) 或12 For i = 2 To 8

If arr1(i) < Min Then 【13】 Min=arr1(i) Next i

Print \最小值是: \; Min End Sub

以上程序的功能是用Array函数建立一个含有8个元素的数组,然后查找并输出该数组中的最小值，请填空。