For i = m - 1 To 1 Step -1 For j = 1 To b(i) a(t) = a(i) t = t - 1 Next j Next i
从你上面的这段程序来看,有许多语法错误 如:Private Sub Form_Load()0D 0A Dim i As Integer, j As Integer, k As Integer, t As Integer, m As Integer a(1) = 1: a(2) 3D 2: a(3) = 4: a(4) = 3: a(5) = 3: m 3D 1 0A For j = 1 To b(i) t = t + 10D 0A Next j
For j = 1 To b(i)
a(t) = a(i)
t = t - 1
Next j
Next i
如:Private Sub Form_Load()0D
0A Dim i As Integer, j As Integer, k As Integer, t As Integer, m As Integer
a(1) = 1: a(2) 3D 2: a(3) = 4: a(4) = 3: a(5) = 3:
m 3D 1
0A For j = 1 To b(i)
t = t + 10D
0A Next j