作业帮 > 综合 > 作业

如何用VB制作随机数程序

来源:学生作业帮 编辑:作业帮 分类:综合作业 时间:2024/05/22 14:43:34
如何用VB制作随机数程序
用VB制作一个 0-9十个数中随机出8个不重复的数字,例如:01235689,
‘直接给代码,窗体上只需一个名为command1的按钮
Private Sub Command1_Click()
   Dim a(1 To 8) As Integer, b As Integer
   Randomize
   For i = 1 To 8
         b = Int(Rnd * 10)
      For j = 1 To i - 1
         If a(j) = b Then
            i = i - 1
            Exit For
         End If
     Next j
     If j > i - 1 Then a(i) = b
  Next i
  For i = 1 To 8
     s = s & a(i)
  Next i
  MsgBox s
End Su