VB中1到20的数相互交换1和20换,2和19换

只要天空有星星 1年前 已收到1个回答 举报

山的女儿528 花朵

共回答了19个问题采纳率:89.5% 举报

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 Su

1年前

9
可能相似的问题
Copyright © 2024 YULUCN.COM - 雨露学习互助 - 17 q. 0.189 s. - webmaster@yulucn.com