1樓：匿名使用者
option explicit
private sub command1_click()const bits = 9 '選出 9 組數
const mfor = bits - 1const jz = 9 '每個數是1位
dim a(bits) as long
dim tabs as string
dim i as long, j as longrandomize timer
for i = 0 to mfor
dojmp1:
j = rnd() * jz
if j <> 0 then
a(i) = j '得到有效的隨機數else
goto jmp1 '如果隨機數為0，重新生成end if
loop while instr(tabs, "|" & a(i))tabs = tabs & "|" & a(i)next i
me.autoredraw = true
me.cls
for i = 0 to mfor
me.print a(i); " "; '顯示已經生成的9個隨機數
next i
end sub
2樓：網海1書生
x = int(rnd * 9) + 1
說明：int(rnd * (上限 - 下限 + 1)) + 下限
比如10到20（包含10和20）的隨機數就是 int(rnd * (20 - 10 + 1)) + 10 即 int(rnd * 11) + 10
3樓：明桀愈青旋
產生1到9的隨機整數用
int(rnd*9+1)
因為rnd是隨機0~1的小數，但不含0和1如果產生大於1小於9的隨機實數用
rnd*8+1
vb 裡怎樣編寫0-9，隨機產生其中的一個數。
4樓：然後去遠足
dim a as integer
randomize()
a = cint(rnd * 9)
msgbox a
randomize() 是隨機初復始化，防止每次制生成bai的隨機數
du一樣。zhi
rnd 是生成一個 0～1 的隨機數。
cint() 是將dao小數變為整數。
5樓：慶年工坊
sub s()
text1.text = int(rnd() * 10)
end sub
6樓：匿名使用者
dim a as integer
a = 10 * rnd()
7樓：
dim a as long
a = rnd * 9
8樓：匿名使用者
[這裡是dim什麼的。。。]
randomize
a:=round(ran(10))
print a
vb 如何使產生的十個隨機數全部顯示出來
9樓：網海1書生
把這10個數每個數之間插入一個分隔符（比如空格、逗號、回車換行等等）再放入label不就行了嗎？比如
label1.caption=n1 & " " & n2 & " " & n3 ...... & " " & n10
如果你的10個隨機數是放在陣列裡面的就更簡單了，比如陣列a()：
label1.caption=join(a," ")
10樓：匿名使用者
vb生成十個隨機數字**如下：
private sub command1_click()dim k as long, i as longrandomize ' 對隨機數生成器做初始化的動作。
for i = 0 to 9 '迴圈10次生成並輸出k = int(rnd * 1000)
print k
next
end sub
'另外提供一個自定義函式，可以定義生成的隨機數字範圍'自定義函式，a是下界（最小數），b是上界（最大數）private function rndz(a as long, b as long)
randomize
rndz = int((a - b + 1) * rnd() + b)
end function
11樓：匿名使用者
在窗體上放一個label，caption設為空，然後複製下面的**就ok了。
private sub form_load()dim a(9)
randomize (timer)
for i = 0 to 9
a(i) = rnd * 10000
label1.caption = label1.caption & a(i) & chr(13) & chr(10)
next
end sub
12樓：匿名使用者
在窗體上放1個label，貼上下面**試試。
private sub form_load()randomize
dim r(10) as integer, i as integerlabel1.caption = ""
for i = 1 to 10
label1.caption = label1.caption & int(rnd() * 100) & ", "
next i
end sub
在VB6 0中的SetWindowTextA DLL過程只能作用於自身的物件嗎，能設定其它應用程式嗎
public declare function getforegroundwindow lib user32 alias getforegroundwindow as long 獲得當前操作的視窗控制代碼 public declare function enumwindows lib user32 ...
利用vb隨機函式產生10到99的隨機整數存入一維
如果是病毒感染導致的發熱，是容易反 熱的，一般病程在一週左右。還是建議檢查血常規，瞭解感染情況，明確診斷，再對症用藥。注意多給孩子喝水。其次，還有一種情況，就是如果有血象的升高，抗生素不能控制感染，也是有可能導致發熱的。所以還是建議先檢查血常規，瞭解感染的情況，對症用藥。你好發燒是很多疾病都會有的症...
怎麼用vb設計隨機產生100到200之間的數求出
刺友互 1 首先需要啟動vb6.0，新建一個標準exe工程。2 開啟vb6.0之後，在窗體上繪製一個命令按鈕。3 接下來需要雙擊命令按鈕進入 視窗。4 接下來開始編輯按鈕的單擊事件。5 最後就可以按f5執行測試。求出最大值與最小值。 指尖遊戲 dim a 9 as integer 定義一個整數變數陣...