sunshine的回答：代码如下： Private Sub Form_Click() Dim temp As Integer '申明变量 Cls '清理窗体 Dim a(1 To 10) '申明数组变量 Print "颠倒前：" For i = 1 To 10 Randomize a(i) = Int(Rnd * 61 + 20) Print a(i); Next i Print Print "颠倒后：" For i = 1 To 5 temp = a(i) a(i) = a(11 - i) a(11 - i) = temp Next i For i = 1 To 10 Print a(i); Next i End Sub sunshine的回答：代码如下： Private Sub Form_Click() Dim temp As Integer '申明变量 Cls '清理窗体 Dim a(1 To 10) '申明数组变量 Print "颠倒前：" For i = 1 To 10 Randomize a(i) = Int(Rnd * 61 + 20) Print a(i); Next i Print Print "颠倒后：" For i = 1 To 5 temp = a(i) a(i) = a(11 - i) a(11 - i) = temp Next i For i = 1 To 10 Print a(i); Next i End Sub |
