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

End Sub

程序运行后，单击命令按钮，窗体上显示的是

(A) 1 2 3 (B) 2 3 4 (C) 1 4 7 (D) 1 2 3 2 4 6 3 4 5 2 5 8 4 5 6 3 6 9 4 5 6 3 6 9 7 8 9

23．在窗体上画一个命令按钮，名称为Command1，然后编写如下代码： Option Base 0

Private Sub Command1_C1ick()

Dim A(4) As Integer, B(4) As Integer For k = 0 To 2

A(k + 1) = InputBox(\请输入一个整数\) B(3 - k) = A(k + 1) Next k Print B(k)

End Sub

程序运行后，单击命令按钮，在输入对话框中分别输入2、4、6，输出结果为 （A）0 （B）2 （C）3 （D）4

24．有以下程序： 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) 8 13 (B) 0 13 (C) 7 12 (D) 0 0

25．以下叙述中正确的是

(A) 一个Sub过程至少要有一个Exit Sub语句 (B) 一个Sub过程必须有一个End Sub语句

(C) 可以在Sub过程中定义一个Function过程，但不能定义Sub过程 (D) 调用一个Function过程可以获得多个返回值

26．有以下程序

Sub subP(b() As Integer) For i = 1 To 4 b(i) = 2 * i Next i End Sub

Private Sub Command1_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 27．设有如下通用过程

Public Function Fun(xStr As String) As String Dim tStr As String, strL As Integer tStr = \

strL = Len(xStr) i = 1

Do While i <= strL / 2

tStr = tStr & Mid(xStr,i，1) & Mid(xStr,strL – i + 1,1) i = i + 1 Loop

Fun = tStr End Function

在窗体上画—个名称为Text1的文本框和一个名称为Command1的命令按钮。然后编写如下的事件过程：

Private Sub Command1_Click() Dim S1 As String S1 =\abcdef\

Text1.Text = UCase(Fun(S1)) End Sub

程序运行后，单击命令按钮，则Text1中显示的是 （A）ABCDEF （B）abcdef （C）AFBECD （D）DEFABC

28．在窗体上画一个名称为TxtA的文本框，然后编写如下的事件过程： Private Sub TxtA_KeyPress(KeyAscii As Integer) EndSub

假定焦点已经位于文本框中，则能够触发KeyPress事件的操作是 （A）单击鼠标 （B）双击文本框 （C）鼠标滑过文本框

（D）按下键盘上的某个键

30．以下说法中正确的是

（A）任何时候都可以通过执行“工具”菜单中的“菜单编辑器”命令打开菜单编辑器 （B）只有当某个窗体为活动窗体时，才能打开菜单编辑器

（C）任何时候都可以通过单击标准工具栏上的“菜单编辑器”按钮打开菜单编辑器 （D）只有当代码窗口为活动窗口时，才能打开菜单编辑器

32．以下叙述中错误的是

（A）一个工程中可以包含多个窗体文件

（B）在一个窗体文件中用Public定义的通用过程不能被其他窗体调用 （C）窗体和标准模块需要分别保存为不同类型的磁盘文件 （D）用Dim定义的窗体层变量只能在该窗体中使用

33．以下叙述中错误的是

（A）语句“Dim a，b As Integer”声明了两个整型变量 （B）不能在标准模块中定义Static型变量 （C）窗体层变量必须先声明，后使用

（D）在事件过程或通用过程内定义的变量是局部变量

二、填空题

请将每空的正确答案写在答题卡【11】～【15】序号的横线上，答在试卷上不得分。 6．描述“X是小于100的非负整数”的Visual Basic表达式是 【6】 。x>=0 And x<100 7．在窗体上有一个名称为Command1的命令按钮和一个名称为Text1的文本框。程序运行后，Command1为禁用(灰色)，此时如果在文本框中输入字符，则命令按钮 Command1变为可用。请填空。

Private Sub Form_Load() Command1.Enabled = False EndSub

Private Sub Text1 【7】 () Change 或 KeyPress Command1.Enabled = True

End Sub

8．在窗体上画一个名称为“Command1”的命令按钮，然后编写如下事件过程： Private Sub Command1_Click() Dim a As String a = \123456789\ For i = 1 To 5

Print Space(6-i)；Mid$(a, 【8】 ，2 * i-1) 6-i Next i End Sub

程序运行后，单击命令按钮，窗体上的输出结果是 5 456 34567 2345678 123456789 请填空。

9．以下程序的功能是：将一维数组A中的100个元素分别赋给二维数组B的每个元素并打印出来，要求把A(1)到A(10)依次赋给B(1，1)到B(1，10)，把A(11)到A(20)依次赋给B(2,1)到B(2,10)，??，把A(91)到A(100)依次赋给B(10,1)到B(10,10)。请填空。 Option Base 1

Private Sub Form_Click()

Dim i As Integer,j As Integer Dim A(1 To 100) As Integer

Dim B(1 To 10，1 To 10) As Integer For i = 1 To 100

A(i) = Int(Rnd * 100) Next i

For i = 1 To 【9】 10 For j = 1 To 【10】 10

B(i,j) = 【11】 A((i-1)*10+j) Print B(i,j);

Next j Print Nexti

EndSub