几个 VB 题目 分数以后赚了会再给你们的 求救啊SOS

Dim a(3, 2) As Integer
Dim b(3) As Integer
s = 2
For i = 1 To 3
For j = 1 To 2
a(i, j) = s
s = s + 2
Next j
Next i
For i = 1 To 3
b(i) = (a(i, 1) + a(i, 2)) / 2
Print b(i);
Next i
End Sub

阅读下面程序，写出执行结果（ A ）。
Private Sub Form_Click()
a = 1: b = 1
For i = 1 To 5
c = a + b
a = b: b = c
Print c;
Next i
End Sub

阅读下面程序，写出执行结果（ A ）。
Private Sub Form_Click()
n = 1
a$ = "AaBbCcDdEe"
b$ = "12345"
For i = 1 To 10 Step 2
c$ = Mid$(a$, i + 1, 1) + Left$(Right$(b$, n), 1)
Print c$;
n = n + 1
Next i
End Sub

下面程序是产生16个[20，50]之间的整数组成一个四行四列的数组a，并输出该数组的上三角数组。
Private Sub Form_Click()
Dim a(3, 3) As Integer
For i = 0 To 3
For j = 0 To 3
Randomize
a(i, j) = In

vb的几个题目 求教几个VB题目 请教几个VB题目！ *****关于VB的几个题目！ 请解释下面几个VB的题目.. 分数题目 VB的几个经典题目，高手帮忙看看 vb 分数约分 vb编程 分数统计 分数应用题题目