vb2
2016-03-31 16:40
288 查看
很难
智商不够用了。。。。
Private Sub Command1_Click()
Cls
Font.Size = 20
Dim n As Integer
Dim xierdun(15) As Integer
n = 1
While n <= 15
xierdun(n) = Int(Rnd * 1000)
n = n + 1
Wend
n = 1
While n <= 15
Print xierdun(n)
n = n + 1
Wend
End Sub
智商不够用了。。。。
Private Sub Command1_Click()
Cls
Font.Size = 20
Dim n As Integer
Dim xierdun(15) As Integer
n = 1
While n <= 15
xierdun(n) = Int(Rnd * 1000)
n = n + 1
Wend
n = 1
While n <= 15
Print xierdun(n)
n = n + 1
Wend
End Sub
内容来自用户分享和网络整理，不保证内容的准确性，如有侵权内容，可联系管理员处理 