:因产品制作的难易程度不同,每天在制作前需分成9份,然后让9位员工分别抽取。但随机函数Rnd只产生0和1两个数,不知有何办法能在数字1到9的范围内每次分别随机产生一个数字,分9次产生结束,每次产生的数字都不能相同。
Dim a(1 To 9) As Integer
Dim i As Integer
Dim j As Integer
Dim f As Boolean
For i = 1 To 9
Do
f = True
a(i) = Int(Rnd * 9) + 1
For j = 1 To i - 1
If a(j) = a(i) Then
f = False
Exit For
End If
Next j
Loop While f = False
Print a(i);
Next i