Cls
Dim n As Integer
Dim xier(15) As Integer
n = 1
While n <= 15
xier(n) = Int(Rnd * 1000)
n = n + 1
Wend
n = 1
While n <= 15
Print xier(n)
n = n + 1
Wend
Dim n As Integer
Dim xier(15) As Integer
n = 1
While n <= 15
xier(n) = Int(Rnd * 1000)
n = n + 1
Wend
n = 1
While n <= 15
Print xier(n)
n = n + 1
Wend
End Sub
1.不要忘记 xier(15) 的 数字
2. n=n+1
扫一扫
640
被折叠的 条评论
为什么被折叠?
到【灌水乐园】发言
