Question

在vb中，如何编写程序通过随机函数产生10~99之间的随机整数？

rt

Answer 1

vb 产生随机数的公式（上界-下界+1）*rnd+下界你的题目就应该是（99-10+1)*rnd +10一般用rnd的时候还要在前面加一条 randomize 初始化随机种 子

Answer 2

Randomize Time '初始化
Print Int(Rnd * 90) + 10 '产生随机数，并输出

Answer 3

dim Tmp as Byte Randomize Timer ' 随机种子 Tmp=int(rnd * 90+10) msgbox tmp ' 输出随机数

Answer 4

Private Sub Form_Click()
Randomize
For i = 10 To 99
n = Int(Rnd * i + 10)
Next
Print nEnd Sub