Question

VB6.0中怎么产生1到9的随机数

Answer 1

x = Int(Rnd * 9) + 1
说明：Int(Rnd * (上限 - 下限 + 1)) + 下限
比如10到20（包含10和20）的随机数就是 Int(Rnd * (20 - 10 + 1)) + 10 即 Int(Rnd * 11) + 10

Answer 2

Option Explicit

Private Sub Command1_Click()
Const Bits = 9                 '选出 9 组数
Const mFor = Bits - 1
Const JZ = 9                   '每个数是1位
     Dim a(Bits) As Long
     Dim tabS As String
     Dim i As Long, j As Long
     Randomize Timer
     For i = 0 To mFor
         Do
jmp1:
            j = Rnd() * JZ
            If j <> 0 Then
                a(i) = j    '得到有效的随机数
             Else
                GoTo jmp1   '如果随机数为0，重新生成
             End If
         Loop While InStr(tabS, "|" & a(i))
         tabS = tabS & "|" & a(i)
     Next i
     Me.AutoRedraw = True
     Me.Cls
     For i = 0 To mFor
         Me.Print a(i); " ";    '显示已经生成的9个随机数
     Next i
End Sub

Answer 3

产生1到9的随机整数用
int(Rnd*9+1)
因为Rnd是随机0~1的小数，但不含0和1
如果产生大于1小于9的随机实数用
Rnd*8+1