1．在窗体上画一个名称为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, 3) + arr(4, 3))
　　End Sub 　　程序运行后,单击窗体,在标签中显示的内容是

3. 执行以下程序段
　　Dim x As Integer, i As Integer
　　x=0
　　For i = 16 To 1 Step -2
　　 x = x + i \ 5
　　Next i
程序运行后，x的值为：
4．Private Sub Command1_Click()
　　c = "ABCD"
　　For n = 4 To 1 step -1
　　 Print Mid(c,n,1)；
　Next n
End Sub
程序运行后，单击命令按钮，要求在窗体上显示如下内容：
5．在窗体上画一个名称为Command1的命令按钮,然后编写如下程序:
　　Option Base 1
　　Private Sub Command1_Click()
　　Dim c As Integer, d As Integer
　　d = 0
　　c = 9
　　x = Array(3,5,7,9,11,13)
　　For i = 1 To 6
　　 If x(i) > c Then
　　 d = d + x(i)
　　 c = x(i)+4
　　 Else
　　 d = d - c
　　 End If
　　Next i
　　Print d
　　End Sub
程序运行后,如果单击命令按钮,则在窗体上输入的内容为： 

大神们救命呀~~~~没有人会么》

哎~~~

0.0~~~

我只是选了这门课~~~并没有去学~~~~所以不会~~~~~让你们骂骂也可以~~