![](https://img-blog.csdnimg.cn/20201014180756925.png?x-oss-process=image/resize,m_fixed,h_64,w_64)
计算机
songnianqiao
这个作者很懒,什么都没留下…
展开
-
Vb
Private Sub Command1_Click() Dim a() As Integer Dim mystr As String Dim printstr As String n = InputBox("请输入一个正整数n,n>=i") ReDim a(1 To n) a(1) = Int(Rnd() * 100 + 1)原创 2012-05-28 20:40:06 · 159 阅读 · 0 评论 -
随机数
Private Sub Form_Load() Dim a(1 To 10) As Integer Randomize p= "" 'p用来显示随生成的10个整数 For i = 1 To 10 Do X = Int(Rnd * 90) + 10 '存放中间生成的一个随机整数 yes = 0 '用来判断生成的数要还是不要,0表示要,1表示不要原创 2012-05-28 20:41:10 · 245 阅读 · 0 评论