Question

怎样随机出现一组数 VB

怎样随机出现一组数 VB

Answer 1

Private Sub Command1_Click()
x = InputBox("你想产生几个随机数？")
y = InputBox("你想产生的随机数最小是几？")
z = InputBox("你想产生的随机数最大是几？")
Randomize (Timer) '初始化随机数生成器
xa = Val(x)
ya = Val(y)
za = Val(z)
Dim SuiJiShu()
ReDim SuiJiShu(1 To xa)
For i = 1 To xa
SuiJiShu(i) = Int(Rnd() * za - ya) + ya + 1
Print SuiJiShu(i);
Next i
End Sub

Answer 2

用随机函数rnd