VB中1到20的数相互交换1和20换,2和19换
来源:学生作业帮助网 编辑:作业帮 时间:2024/09/02 23:06:22
![VB中1到20的数相互交换1和20换,2和19换](/uploads/image/z/4017113-17-3.jpg?t=VB%E4%B8%AD1%E5%88%B020%E7%9A%84%E6%95%B0%E7%9B%B8%E4%BA%92%E4%BA%A4%E6%8D%A21%E5%92%8C20%E6%8D%A2%2C2%E5%92%8C19%E6%8D%A2)
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