vb生成随机数

输入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