vb复习计算题.doc

1、下列程序段的执行结果为_4 6_。Dim a(10) As Integer, b() As IntegerDim i As IntegerReDim b(5)For i = 1 To 10 a(i) = i If i Mod 2 = 0 Then b(i/2) = a(i) End IfNext iPrint a(4); b(3)2、执行下列程序段，输出结果为 _7 0 _。Dim a(10) As IntegerDim i As IntegerFor i = 1 To 10 a(i) = 2 * i - 1Next iPrint a(4);Erase aPrint a(4)执行下列程序段，输出结果为 _出错Dim a() As IntegerDim i As IntegerReDim a(10)For i = 1 To 10 a(i) = 2 * i - 1Next iPrint a(4);Erase aPrint a(4)3、执行下面的程序，输出结果是_18 30_。 Option Explicit Private Sub Form_Click() Dim M As Integer,N As Integer M=1:N=2 Print M+N+F(M,N) M=2:N=1 Print F(M,N)+F(M,N); End Sub Private Function F(X As Integer,Y As Integer) X=X+Y Y=X+3 F=X+Y End Function4、下面程序段中，在窗体上显示的结果为_5 15_。 Private Sub Command1_Click() Dim b As Integer, k As Integer b = 1 For k = 1 To 5 b = b * k If b = 15 Then Exit For Else k = k + 1 End If Next k Print k, b End Sub5、执行以下程序段， 第一行输出结果是_6 5 4 3，第二行输出结果是 123_。 Private Sub Form_Click() Dim a Dim i As Integer a = Array(1, 2, 3, 4, 5, 6, 7, 8, 9) For i = 0 To 3 Print a(5 - i); Next Print a = Array(abc, 123, def) Print a(1) End Sub6、执行以下程序，单击命令按钮后，输出结果是0 1 2 3 4 5 6 7 8 9 10_。 Private Sub Command1_Click() Dim a(10) As Integer Dim b For i = 1 To 10 a(i) = i Next i For Each b In a Print b; Next b End Sub7、运行如下程序后，输出结果为_21 27_。 Dim i As Integer, y As Integer For i = 3 To 15 Step 3 y = y + i i = i + 3 Next i Print i; y8、运行以下程序，单击命令按钮后在窗体上输出内容_0_。Private Sub Command1_Click() Dim a() As Integer Dim i As Integer, j As Integer ReDim a(3, 4) For i = 1 To 3 For j = 1 To 4 a(i, j) = (i - 1) * 10 + j Next j Next i ReDim a(4, 5) Print a(2, 3)End Sub9、下列程序段的执行结果为 _0 2 2 3 _。Dim M(2)For i=1 To 2 M(i)=0Next iK=2For i=1 To k For j=1 TO k M(j)=M(i)+1 Print M(k); Next jNext i10、运行下面程序，输出结果是_8 _。 Private Sub Command1_Click() Dim a As Integer, b As Integer, c As Integer Dim d As Integer a = 5 b = -3 c = 8 d = IIf(a b And a c, a, IIf(b c, b,c) print d End Sub11、阅读下列程序，输出结果是_30_0_。 Private Sub Command1_Click() Dim i As Integer For i = 10 To 1 Step -2 s = s + i Next i Print s,i End Sub12、阅读下面程序，当单击窗体后，窗体上输出的是_17 13 3_。 Private Sub Form_Click() Dim i As Integer, k As Integer Dim a As Integer, b As Integer a = 5: b = 1 For i = 1 To a + b Step b i = i + 1 a = a + i b = b + i k = k + 1 Next i Print a; b; k End Sub13、运行下面的程序，当单击窗体时，窗体上显示的内容为_31 63_。 Private Sub Test(x As Integer) x = x * 2 + 1 If x 8 Then Call Test(x) End If x = x * 2 + 1 Print x; End Sub Private Sub Form_Click() Test 3 End Sub14、执行下面的程序段，输出结果是_ABCBCD_。 Dim str1 As String, str2 As String str1 = abc str1 = UCase(str1) For i = 1 To 3 str2 = Chr(Asc(str1) + i) str1 = str1 & str2 Next i Print str115、执行以下程序段，则第一行输出结果是_5 3 _，第二行输出结果是 -3 0_。Dim a(-3 To 5) As SingleDim b(3, 4) As IntegerPrint UBound(a), UBound(b, 1)Print LBound(a), LBound(b, 2)16、执行下列语句:16、运行如下程序段，输出结果为_16_。 Private Sub command1_click() a = 1: b = 2: c = 3 a= a + b: b = b + a: c = b + a If a 3 Or b 3 Then a = b - a: b = c - a: c = b + a End If Print a + b + cEnd Sub17、运行以下程序，单击命令按钮后，如果用户从键盘上输入6、5、4、3、2、1，则窗体上输出内容为_9_。Private Sub Command1_Click() Dim a() As Integer Dim i As Integer, j As Integer ReDim a(6) For i = 5 To 10 a(10 - i + 1) = InputBox(input number) Next i ReDim Preserve a(10) a(10) = a(5) + a(4) Print a(10)End Sub18、运行如下程序后，输出结果为_19_。 For m = 1 To 4 a = 0 For j = 1 To 5 a = 1 For k = 1 To 6 a = a + 3 Next k Next j Next m Print a19、下列程序段的执行结果为_12 2 4_。 n = 0 For i = 1 To 3 For j = 5 To i Step -1 n = n + 1 Next j Next i Print n; j; i20、运行下面的程序，第二行显示结果是11 22 33_。 Option Base 1 Private Sub Form_Click() Dim a, b(), i, j, k a = Array(11, 12, 13, 21, 22, 23, 31, 32, 33) ReDim b(3, 3) Call read(a, b) Call prt(b) End Sub Private Sub read(a, b) For i = 1 To 3 For j = 1 To 3 k = k + 1 b(i, j) = a(k) Next j Next i End Sub Private Sub prt(b) For i = 1 To 3 For j = 1 To 3 p = b(i, j) Mod 3 + 1 q = b(j, i) Mod 3 + 1 Print b(p, q); Next j Print Next i End Sub21、执行以下程序，单击命令按钮后，窗体上的输出结果是_-1_。 Private Sub Command1_Click() Dim a As Integer a = True * 6 + 5 Print a End Sub22、下列程序段的执行结果为_11_3_。Dim M(10), N(10)i = 3For j = 1 To 5 M(j) = j N(i) = 2 * i + jNext jPrint N(i); M(i)23、有如下程序 a = 100 Do s = s + a a = a + 1 Loop While a 120 Print a运行后的输出结果为_101_。24、运行如下程序后，输出结果为_30_。 a = 0 For j = 1 To 30 Step 2 a = a + j mod 5 Next j Print a25、执行下列程序，单击命令按钮在窗体上输出结果为_5_6_3_。 Option Base 1 Private Sub Command1_Click() Dim a(3, 3) As Integer, k As Integer Dim i As Integer, j As Integer, n As Integer n = UBound(a, 1) For i = 1 To n - 2 For j = i To n - i a(i, j) = k + 1 a(j, n + 1 - i) = k + 2 a(n + 1 - i, n + 1 - j) = k + 3 a(n + 1 - j, i) = k + 4 k = k + 4 Next j Next i If n Mod 2 0 Then a(n + 1) / 2, (n + 1) / 2) = k + 1 End If Print a(1, 2); a(2, 3); a(3, 3) End Sub26、执行以下程序，单击命令按钮后在窗体上的输出内容是_2_0_0_。 Private Sub Command1_Click() Dim a As Integer, b As Integer, c As Integer a = 2 c = b = a Print a, b, c End Sub27、在窗体上画一个名称为Command1的命令按钮和两个名称分别为Text1、Text2的文本框，然后编写如下事件过程： Private Sub Command1_Click() N = Text1.Text Select Case N Case 1 To 20 X = 10 Case 2, 4, 6 X = 20 Case Is = 5 Then i = i + 4: Exit For j = j + 1 k = k + 1 Next j If i 8 Then Exit For Next i Print i; j; k34、运行下列程序，依次点击第一个和第二个按钮，结果为_10 0_。 Dim a As Integer 在窗体通用部分定义a为窗体模块级的变量 Private Sub Command1_Click() Dim b As Integer a = 10 b = 20 End Sub Private Sub Command2_Click() Dim b As Integer Print a; Print b End Sub35、下列程序段的执行结果为_182 2_。 j = 0: n = 5 Do j = (j + 1) * (j + 2) n = n - 1 Loop Until n 3 Print j; n36、运行以下程序，单击窗体后，如果依次输入20和40，则输出内容是 2040_。 Private Sub Form_Click() x = InputBox(请输入变量x的值, 输入窗口) y = InputBox(请输入变量y的值, 输入窗口) Print x + y End Sub37、在窗体上画一个命令按钮和一个文本框，其名称分别为Command1和Text1，把文本框的Text属性设置为空白，然后编写如下事件过程：Private Sub Command1_Click() A = Inputbox(Enter An Integer) B = Inputbox(Enter An Integer) Text1.Text = B + AEnd Sub程序运行后，单击命令按钮，如果在输入对话框中分别输入4和56，则文本框中显示的内容是_564_。在窗体上画一个命令按钮和一个文本框，其名称分别为Command1和Text1，把文本框的Text属性设置为空白，然后编写如下事件过程：Private Sub Command1_Click() Dim A As Integer A = Inputbox(Enter An Integer) B = Inputbox(Enter An Integer) Text1.Text = B + AEnd Sub程序运行后，单击命令按钮，如果在输入对话框中分别输入4和56，则文本框中显示的内容是_60_。38、如果依次输入75,55,45,70,30,25,40,15,20,5,下列程序段的执行结果为_330_。 Dim c As Integer, k As Integer, d As Integer c = 70 For k = 11 To 20 x = InputBox(输入X的数值:) If x 3 Then Exit For Next i For j = 1 To 6 i = i + j Next j Print i, j End Sub43、运行下面的程序，第二行显示结果是_2 3 4 5 6 _ 。 Private Sub Command1_Click() Dim a(5) As Integer For i = 1 To 5 a(i) = i Print a(i); Next i Print f a For i = 1 To 5 Print a(i); Next i End Sub Private Function f(b() As Integer) For i = LBound(b) To UBound(b) b(i) = b(i) + 1 Next i End Function44、执行以下语句后，k的值为_2.45 4 _。 Dim i As Single For i = 0.45 To 2 Step 0.5 k = k + 1 Next i Print i;k45、运行以下程序，单击命令按钮后，如果用户从键盘上输入6、5、4、3、2、1，则窗体上输出内容为_9_。Private Sub Command1_Click() Dim a() As Integer Dim i As Integer, j As Integer ReDim a(6) For i = 5 To 10 a(10 - i + 1) = InputBox(input number) Next i ReDim Preserve a(10) a(10) = a(5) + a(4) Print a(10)End Sub46、执行以下程序，单击命令按钮后，如果从键盘上输入5，则第一行输出结果是_1 2 3 4 5_，第二行输出结果是_0 0 0 0 0 0 0 0 0 0 _。 Private Sub Command1_Click() Dim a() As Integ