输入x,随即生成数字20个数字y
要求x<y<1.5x。
其中x,y可以为小数,没有学过vb,可能有个什么随机数函数要用到,不会这段,求懂的帮写下。
參考答案:Private Sub Form_Load()
Randomize Timer
AutoRedraw = True
x = InputBox("输入一个数。")
For i = 1 To 20
Print Rnd * x / 2 + x
Next
End Sub
笑话军事旅游美容女性百态母婴家电游戏互联网财经美女干货家饰健康探索资源娱乐学院 数码美食景区养生手机购车首饰美妆装修情感篇厨房科普动物植物编程百科知道汽车珠宝 健康评测品位娱乐居家情感星座服饰美体奢侈品美容达人亲子图库折扣生活美食花嫁风景 | 首页 |
输入x,随即生成数字20个数字y
要求x<y<1.5x。
其中x,y可以为小数,没有学过vb,可能有个什么随机数函数要用到,不会这段,求懂的帮写下。
參考答案:Private Sub Form_Load()
Randomize Timer
AutoRedraw = True
x = InputBox("输入一个数。")
For i = 1 To 20
Print Rnd * x / 2 + x
Next
End Sub