用vb程序输出10个随机数

代码:

Private Sub Command1_Click()


Dim i As Integer, t As Integer
Dim k As Integer
Dim a(10) As Integer
Dim mystr As String
Dim youstr As String
 
 a(1) = Int(Rnd * 100 + 1)
  mystr = "要"
  youstr = a(1)
  
For i = 2 To 10
  
  t = Rnd * 100 + 1
    For k = 1 To 10
      If t = a(k) Then
         mystr = "不要"
         Exit For
         
      Else
         mystr = "要"
      End If
    Next k
  If mystr = "要" Then
    a(i) = t
  Else
     i = i - 1
  End If
  youstr = youstr & "," & a(i)
  
Next i
  
  print youstr
End Sub

心得体会:通过老师的讲解,和课上的印象,自己编出了程序,刚开始总是出错,经过修改,才好了。

评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值