输出1-2之间的小数(我想你不是要求输出整数吧) Rem start'Do Randomize x = Rnd*2 TracePrint x Delay 200'Loop

//多看看命令帮助,很多命令都有例子的 Dim MyValue, Response Randomize '初始化随机数生成器.Do Until Response = vbNo MyValue = Int((6 * Rnd) + 1) ' 产生 1 到 6 之间的随机数.MsgBox MyValue Response = MsgBox(＂Roll again? ＂, vbYesNo) Loop

Rem start Randomize x = Int((100 * Rnd) + 1) If x>=100 Goto start EndIf MessageBox x

代码如下:12345 Randomize 随机数 = Round((0.1 - 0.01 + 1) * Rnd + 0.01, 2) a=b+随机数 TracePrint a TracePrint 随机数

Dim b(2),a(17) For j = 1 To 17 Rem start For i = 0 To 2 Randomize b(i)=Int(10* Rnd) Next a(j) = b(0) + b(1) + b(2) If j > 1 ThenFor c = 1 To 16 If j = c ThenExit ForEnd If If a(j) = a(c) ThenGoto start End If Next End If Next For i = 1 To 17 MessageBox ＂a＂&i&＂为＂&a(i) Next

'在＂全部命令＂里输入'rnd'回车,会有随机数函数的帮助'你这里就把270换成 int(21*rnd())+230'300换成 int(21*rnd())+250'应该就行了

Rem A KeyPress ＂Right＂, 1 Delay 100 KeyPress ＂Right＂, 1 Delay 100 A = Lib.算法.随机数字串(2) If a>80 Then A=A-20 End If If a<40 Then A=A+40 End If Delay 100 SayString ＂＂&A Delay 100 KeyPress ＂Enter＂, 1 Delay 100 KeyPress ＂Enter＂, 1 Delay 800 Goto A

Randomize x = int(Int * 9) + 1变量x就是你要的1到9的随机数字了.

'第一次玩啊,那就玩明白点的,首先最好先了解一下随机函数rnd是怎样的,看如下说明:'随机数函数rnd,直接调用rnd就可以得到一个小于 1 但大于或等于 0 的值'但在调.

后面加一条文本输入就好了,全代码如下.Randomize XO = rnd()*10 TracePrint ＂0-9以内的随机数:＂ & XO SayString ＂0-9以内的随机数:＂ & XO