求教大神，我做了一个随机数的小程序，但数的范围是固定的，怎么在每次打开时都可以设定随机数范围？

RT

百度inputbox………………

你如不想使用inputbox 建立两个TextBox不就好了吗

你用个inputbox，将此值带入到随机算式中就可以了

首先百度rnd,应该第一条记录就是Vb的rnd函数简介，里面有个范围公式
然后拉2个textbox,代进去。。
多动手多动脑

randomize
msgbox rnd*100

算法，算法啊，孩子。。算法才是编写的真谛。。。

提出这个问题，就证明你的VB文献没有好好看，VB的文献全部略过一边，再来写程序。。。

有点长，耐心看
大概看懂了LZ的问题。LZ是不是说，Rnd函数为什么每次生成的随机数都一样？或者是，为什么Rnd函数生成的随机数永远在0-1范围内？
前者的解决方案是，在Form_Load这个Sub里独辟一行写上randomize
（那些吐槽我没用冒号的大触今晚没晚餐吃！）
这个函数的作用是初始化随机数生成的系统。也就是初始化Rnd函数。
后者的解决方案是，999*Rnd←左边这个表达式的效果是生成一个从0到999范围内的数。
Q:我想让程序的用户自己输入范围怎么办？
A:这好办，a=inputbox("请输入随机数的范围","随机数程序")
然后再接a*Rnd，怎么输出我就不写了。
如果不愿意用inputbox，还可以在窗体上新建一个Text对象，
然后a=Text1.Text 再接a*Rnd
或许还有其他方法，但是我反正只知道这两个
有请各位大触在楼中楼补充
PS：↑上面写的“a”是变量的名字，可以自行更改。英文双引号里的字也可以自行更改，第一个双引号是在inputbox界面里显示的字，第二个是inputbox标题。Text1.Text中，Text1是对象的名字，可以自行更改，但是必须窗体上的对象的名字和代码里的名字一起更改。Text是参数。

Private Sub Command1_Click()
Dim a As Integer
a = InputBox("请输入上限")
b = InputBox("请输入下限")
's = Int((a - b + 1) * Rnd + b)
For i = 1 To 20
s = Int((a - b + 1) * Rnd + b)
Print s
Next i
End Sub
我试着写了这段代码，看行不！？ 让大家见笑了。

不困难

这个问题楼主居然从2013年讨论到2015年。。。

2013年的问题讨论到2015年

2013年的问题讨论到2015年

2021前来挖坟

2021到此一游

2021到此一游