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