vb两个随机数整除

Question

产生两个随机数：
b：1到10之间
c：1到100之间
并且b能被c整除。
在标签中输出b/c

Answer 1

很简单，就是这个

Randomize
b = Int(Rnd * 10) + 1
c = Int(Rnd * 100)
If c Mod b = 0 Then
Label1.Caption = Str© + "/" + Str(b)

Answer 2

Private Sub Command1_Click()
Randomize
b=Int(Rnd*10)+1
c=Ind(Rnd)*100+1
If b Mod c=0 Then
Label1.Caption=CStr$(b/c)
End If
End Sub

Answer 3

刚在书上看到的:

Randomize '初始化随机数生成器
temp=int(10*Rnd)+1 '返回1到10之间的整数

这个代码可以产生1到10之间的整数

1 因为Rnd只能产生大于等于0而小于1的数字,将其乘于10取整不是0到9之间的整数,再加1就是1到10之间的整数

2 要返回一固定范围内的整数,可以用 Int((b-a+1)*Rnd)+a ,其中 a 和 b 分别是这个范围的下界和上界