作业帮 > 综合 > 作业

vb两个随机数整除产生两个随机数:b:1到10之间c:1到10之间假如b大于c ,那么b/c假如b小于c,那么c/b假如

来源:学生作业帮 编辑:作业帮 分类:综合作业 时间:2024/05/15 03:30:02
vb两个随机数整除
产生两个随机数:b:1到10之间c:1到10之间
假如b大于c ,那么b/c
假如b小于c,那么c/b
假如b能被c整除,那么输出b/c假如不行,那么重新生成两个随机数
Private Sub Command1_Click()
Do
b = Int(Rnd * 10) + 1
c = Int(Rnd * 10) + 1
If b Mod c = 0 Then Exit Do
Loop While b c
If b > c Then
Print "b/c="; b / c
Else
Print "c/b="; c / b
End If
End Su