理论2012-带答案

VB理论汇编

A、 11 C、 123 222 D、 0 3333 11

B、 1 222 22 3333 333

57、 窗体上有文本框Text1和命令按钮Command1，编写如下事件过程： Private Sub Command1_Click() If i > 10 Then Exit For Dim i%, x% Next i For i = 1 To 100 Text1.Text = Str$(x) i = i + 2 End Sub x = x + 2

运行后，单击按钮，Text1显示（ ）。

A、 6 C、 10 B、 8 D、 100

58、 窗体上有一个命令按钮Command1，编写如下事件过程： Private Sub Command1_Click() Case 2, 4 a = 1 a = a + 2 For i = 1 To 3 End Select Select Case i Next i Case 1, 3 Print a a = a + 1 End Sub 运行时，单击命令按钮，窗体上将显示（ ）。

A、 3 C、 5 B、 4 D、 6 59、 设有以下程序段： For i = 1 To 4 For j = 6 To 1 Step -1 Print i * j Next j, i

则语句Print i * j的执行次数是（ ）

A、 12 C、 24 B、 13 D、 25 60、 下列程序段的执行结果是（ ）。 For i = 3 To 1 Step -1 Print Spc(5 - i); For j = 1 To 2 * i - 1 Print \ Next j Print Next i

A、 * C、 *****

*** *** ***** * B、 ***** D、 *****

*** *** * *

48

VB理论汇编

第七章理论复习题

1、阅读下列程序： Private Sub Form_Click() Dim m As Integer Static n As Integer For i = 1 To 3 n = n + i

m = m + i ^ 2 Next

Print m, n End Sub

运行时两次单击窗体结果为（）。

A、 14 6 C、 14 6

14 6 28 6 B、 14 6 D、 14 6

14 12 28 12

2、窗体上的命令按钮编写如下事件过程： Private Sub Command1_Click() Dim array1(10, 10) As Integer Dim i, j As Integer For i = 2 To 4 For j = 3 To 5

array1(i, j) = i * j Next j Next i

Print array1(2, 4) + array1(3, 4) End Sub

运行时，单击命令按钮后输出的结果是（）。

A、 9 C、 程序出错 B、 13 D、 20 5、以下数组声明语句中数组a包含的元素个数为（）。 Dim a(3,-2 to 1,5)

A、 96 C、 60 B、 75 D、 13

6、有声明Dim a(-3 to 1,3) As Integer，则下列叙述中正确的是（）。

A、 数组a是二维动态数组 C、 a（0,0）不是该数组的元素 B、 数组a共有20个元素 D、 a（1,1）是该数组的第十个元素 7、下列叙述中错误的是（）。

A、 控件数组的每一个元素共享同样的事件过程

B、 控件数组的每一个元素都有与之相关联的下标值

C、 控件数组的每一个元素都有不同的name属性作为标识 D、 可在运行过程中删除控件数组的某个元素

8、能使一维数组arr(6)元素个数加1，但保留数组中原有元素的语句是（）。

A、 ReDim arr(7) B、 ReDim Preserve arr(7)

49