1樓:匿名使用者
randomize
d1 = int(40*rnd()+170)/1000d2 = int(25*rnd()+320)/1000不過這兩個隨機數可能是相關的。
那你就在產生隨機數之前各自初始化一次就行(就是randomize語句)
2樓:楓默管管70阼
'第一次玩啊,那就玩明白點的,首先最好先了解一下隨機函式rnd是怎樣的,看如下說明:
'隨機數函式rnd,直接呼叫rnd就可以得到乙個小於 1 但大於或等於 0 的值
'但在呼叫 rnd 之前,最好先使用無引數的 randomize 語句初始化隨機數生成器,該生成器具有基於系統計時器的種子,這樣可以避免你的隨機數指令碼次次執行出現的隨機數都有著相同的順序。
'看了如上描述,你就可以比較清楚比較自如地運用這個函式了
'比如:你現在要的1-9的隨機數,而rnd只能產生0-1之間的數,怎麼辦呢?很簡單,如下:
randomize
隨機數 = int(rnd * 9 + 1) '這個int是個取整函式,目的是為了得到乙個整數.
traceprint 隨機數
'這個"隨機數"變數的值 就是你所要的...至於你想把這個產生出來的隨機數輸入到哪個程式的**,就得看具體情況了
'比如:你可以用saystring、sendstring等
按鍵精靈 輸入隨機數文字
3樓:坑啊起啥名
uservar a="0" "這裡是文字1"
uservar b="1" "這裡是文字2"
uservar c="2" "這裡是文字3"
rem start
waitkey
randomize
//得到1~3的隨機數乙個
x = int((3 * rnd) + 1)if x = 1 then
saystring a
end if
if x = 2 then
saystring b
end if
if x = 3 then
saystring c
end if
goto start
4樓:弱水_一滴
先問一下 是用txt檔案讀取行數分割還是介面的控制項?
5樓:匿名使用者
randomize
dim text(2)
text(0) = plugin.file.readfileex("c:\文字1.txt")
text(1) = plugin.file.readfileex("c:\文字2.txt")
text(2) = plugin.file.readfileex("c:\文字3.txt")
messagebox (split(text(int(3 * rnd)), "|")(0))
按鍵精靈隨機輸入30-40的隨機數
6樓:匿名使用者
do until response = vbnomyvalue = int((10 * rnd) + 30) ' 產生 1 到 6 之間的隨機數。
delay 500
msgbox myvalue
response = msgbox ("還要繼續嗎", vbyesno)
loop
如何使用按鍵精靈輸入隨機數
7樓:愛情奇術師
random以後再判斷
for example
vari:integer;
list:tstringlist;
begin
i:=random(1000);
while 10
begin
list.add(inttostr(i));
end;
end.
按鍵精靈滑鼠隨機移動,按鍵精靈滑鼠隨機移動
moveto 10,10 第乙個固定的位置leftclick 1 delay 100 moveto 20,20 第二個固定的位置leftclick 1 delay 100 隨機移動24個位置 for 24 x 隨機數 1,200 數量要自己寫y 隨機數 1,500 moveto x,y delay ...
按鍵精靈多點隨機點選,按鍵精靈多個座標點隨機點選
dim x,y,i x array 0,0,0,0 四個0分別為四個點的橫座標 y array 0,0,0,0 四個0分別為四個點的縱座標 i 0 dorandomize i int rnd 4 1 moveto x i 1 y i 1 leftclick 1 delay 1000 1000是點選間...
按鍵精靈子程式,按鍵精靈 呼叫子程式
大漠註冊略 dodm ret dm.findpic 560,95,1161,574,倩女幽魂.bmp 星辰變.bmp 仙途.bmp 000000 0.9,0,intx,inty delay 20 messagebox 找到,倩女幽魂 exit do elseif dm ret 1 thenmessa...