作业帮VB中1到20的数相互交换1和20换,2和19换
来源：学生作业帮助网 编辑：作业帮 时间：2024/09/02 23:06:22
x) szcӎ
Fg< OvMzkɳEO' :F@%eTO&;2
(,K,IU.MRpMK1wL+pUH02QHQ`A"L[C|#$jdj3~%P\WP (dL&X@AWE*-W0lo隗~qAb ( #ћg
VB中1到20的数相互交换1和20换,2和19换
VB中1到20的数相互交换1和20换,2和19换
VB中1到20的数相互交换1和20换,2和19换
Private Sub Command1_Click()
Dim a(20), b(20)
For i = 1 To 20
a(i) = i
Next i
For j = 0 To 10
t = a(j)
a(j) = a(20 - j)
a(20 - j) = t
Print a(j)
Next j
End Sub