vb中想要隨機輸出,vb中,想要隨機輸出1 9這9個數字,並且在同一次輸出時做到每個數字都各不重複,怎麼程式設計? 可以用

時間 2021-05-07 20:00:33

1樓:落葉l無情

dim a(1 to 9) as integerdim i%,r%,tmp%

'生成陣列

for i=1 to 9

a(i)=i

next

'打亂順序

for i=1 to 8

r=int(rnd*9)+1

tmp=a(i)

a(i)=a(r)

a(r)=tmp

next

'輸出for i=1 to 9

print a(i);space(1);

next

2樓:設計營地

private sub command1_click()dim a(9) as integer, i as integer, j as integer

for i = 1 to 9

a(i) = i

next

for i = 1 to 8

randomize

j = int(rnd() * (10 - i)) + 1a(0) = a(10 - i)

a(10 - i) = a(j)

a(j) = a(0)

next

for i = 1 to 9

print a(i);

next

print

end sub

3樓:匿名使用者

sub command1_click ()static a(9)

randomize

let a(1) = int(rnd * 9) + 1for i = 2 to 9

let k = 1

do while k > 0

let k = 0

let x = int(rnd * 9) + 1for j = 1 to i - 1

if x = a(j) then let k = k + 1next j

if k = 0 then

let a(i) = x

end if

loop

next i

for i = 1 to 9

print a(i);

next i

print

end sub

求一個vb**,我說明下: 隨機輸入0到9 這10個數字 計算出現的概率

4樓:匿名使用者

private sub command1_click()text1.setfocus

if text1 like "#" = 0 then text1 = "": exit sub

text2 = text2 & text1 & vbcrlftext1 = ""

end sub

private sub command2_click()dim i%, a, b%, c%(9)

a = split(text2, vbcrlf)b = ubound(a)

for i = 0 to b - 1

c(a(i)) = c(a(i)) + 1next

for i = 0 to 9

print i; "佔百分比:"; format(c(i) / b, "00%")

next

end sub

5樓:匿名使用者

可以寫,能不能加財富值?

VB語言中隨機函式,VB中隨機函式的用法

rnd,產生隨機函式,所得值在0 1之間 所以要產生0 100的隨機數,那麼就用100 rnd 1 就可以產生0 100的隨機數 如果要取正的話 就用int rnd 100 1 還有一點要強調 如果每次都要使隨機數不一樣,那麼還要在產生隨機數之前加上randomize 這個表示產生的隨機數不一樣例子...

RND隨機函式如何寫入VB程式設計中?

這有一個隨機函式的公式。int upperbound lowerbound 1 rnd lowerbound 這裡,upperbound 是隨機數範圍的上限,而 lowerbound 則是隨機數範圍的下限。明白了吧。int 100 0 1 rnd 0 就是rnd 101 vb 10 100 100 ...

利用vb隨機函式產生10到99的隨機整數存入一維

如果是病毒感染導致的發熱,是容易反 熱的,一般病程在一週左右。還是建議檢查血常規,瞭解感染情況,明確診斷,再對症用藥。注意多給孩子喝水。其次,還有一種情況,就是如果有血象的升高,抗生素不能控制感染,也是有可能導致發熱的。所以還是建議先檢查血常規,瞭解感染的情況,對症用藥。你好發燒是很多疾病都會有的症...