vb2
来源:互联网 发布:wto贸易数据库 编辑:程序博客网 时间:2024/05/02 04:26
很难
智商不够用了。。。。
Private Sub Command1_Click()
ClsFont.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
0 0