Question

哭泣计算机高手帮小弟解答一下这几道vb习题！不胜感激......

（12）在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写如下事件过程：
　　Private Sub Command1_Click()
　　 Dim array1(10, 10) As Integer
　　 Dim i As Integer, j As Integer
　　 For i = 1 To 3
　　 For j = 2 To 4
　　 array1(i, j) = i + j
　　 Next j
　　 Next i
　　 Text1.Text = array1(2, 3) + array1(3, 4)
　　End Sub
　　 程序运行后，单击命令按钮，在文本框中显示的值是
　A 12 B 13 C 14 D 15
　（13）在窗体上画一个命令按钮，其名称为Command1，然后编写如下事件过程：
　　Private Sub Command1_Click()
　　 Dim a1(4, 4), a2(4, 4)
　　 For i = 1 To 4
　　 For j = 1 To 4
　　 a1(i, j) = i + j
　　 a2(i, j) = a1(i, j) + i + j
　　 Next j
　　 Next i
　　 Print a1(3, 3); a2(3, 3)
　　End Sub
　　 程序运行后，单击命令按钮，在窗体上输出的是
　A 6 6 B 10 5 C 7 21 D 6 12
（14）在窗体上画一个命令按钮，然后编写如下事件过程：
　　Private Sub Command1_Click()
　　 Dim a(5) As String
　　 For i = 1 To 5
　　 a(i) = Chr(Asc("A") + (i -1))
　　 Next i
　　 For Each b In a
　　 Print b;
　　 Next
　　End Sub
　　 程序运行后，单击命令按钮，输出结果是
　(A) ABCDE (B) 1 2 3 4 5 (C) abcde (D) 出错信息
（15）在窗体上画一个命令按钮和一个文本框，其名称分别为Command1和Text1，把文本框的Text属性设置为空白，然后编写如下事件过程：
　　Private Sub Command1_Click()
　　 a = InputBox("Enter an integer")
　　 b = InputBox("Enter an integer")
　　 Text1.Text = b + a
　　End Sub
　　程序运行后，单击命令按钮，如果在输入对话框中分别输入8和10，则文本框中显示的内容是
　A 108 B 18 C出错 D 810
16、在窗体上画一个名称为Label1的标签,然后编写如下事件过程:
Private Sub Form_Click()
Dim arr(10, 10) As Integer
Dim 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 C)14 D)15
(17) 以下叙述中错误的是
A 一个工程可以包括多种类型的文件
B Visual Basic应用程序既能以编译方式执行，也能以解释方式执行
C 程序运行后，在内存中只能驻留一个窗体
D 对于事件驱动型应用程序，每次运行时的执行顺序可以不一样
　（18）在窗体上画一个文本框，然后编写如下事件过程：
Private Sub Form_Click()
x = InputBox("请输入一个整数")
Print x + Text1.Text
End Sub
程序运行时，在文本框中输入456，然后单击窗体，在输入对话框中输入123，单击“确定”按钮后，在窗体上显示的内容是：
A)123 B)456 C)579 D)123456

Answer 1

12. A 12
13. D 6 12
14. A ABCDE
15. A 108
16. B 13
17. C 程序运行后，在内存中只橡并能驻留一个窗体
18. D 123456
其前搏中，15题和18题是一样的类型，因为文本框中默认的梁悔迹返回值类型为字符串类型，中间的"+"被看作是连接符

Answer 2

(12)
array1(2, 3)=2+3
array1(3, 4)=3+4
答安 A.12
(13)
a1(3, 3)=3+3
a2(3, 3)=6+3+3
答橡猛案：模如橡旦旁D. 6 12
(14) A
(15) D
(16) B
(17) C
(18) D