1樓：夏天的小紅花
private sub command1_click()label1.caption = ""
randomize
for i = 1 to 10
s = ""
for j = 1 to 10
if j = 1 then
a = int(rnd * 9) + 1
else
a = int(rnd * 10)
end if
s = s & a
next j
label1.caption = label1.caption & s & vbcrlf
next i
end sub
2樓：匿名使用者
private sub form_click() for n = 1 to 10 print int(rnd * 899 + 100); next print end sub
3樓：babyfans隆哥
一個窗體，一個label標籤
private sub form_load()randomize
dim num as double
for i = 0 to 9
num = int(rnd() * 9000000000# + 1000000000)
label1.caption = label1.caption & vbcrlf & num 'vbcrlf是回車換行的意思
next i
end sub
4樓：紫薇命
執行結果：生成的陣列為 73 58 62 36 37 79 11 78 83 73 排序後的陣列為 83 79 78 73 73 62 58 37 36 11 該陣列元素各個元素的和是 590 最大元素是 83 最小元素是 11
vb 程式設計 如何利用隨機函式產生15個10到90的奇陣列成的數列，並顯示在標籤中？？？要程式
5樓：匿名使用者
private sub command1_click()randomize
dim a(14) as integer
for i = 0 to 14
a(i) = 2
next i
label1.caption = ""
for i = 0 to 14
doa(i) = int(rnd * 81 + 10)loop until a(i) mod 2 = 1label1.caption = label1.caption & a(i) & " "
next i
end sub
6樓：匿名使用者
寫成函式, 第一引數是生成的個數，第二個引數是 最小數，第三個為最大數。返回的是以逗號分割的字串
如 getnum(15, 10, 90)
在窗體中放一個 label 然後，再新增放一個按鈕……生成函式如下
function getnum(byval num as integer, byval min as integer, byval max as integer)
dim result, tmp as stringdim i, n, k as integerk = max - min
randomize()' 初始化隨機種子
for i = 1 to num '開始迴圈產生不重複數字tmp = ""
while (true) '生成數字
n = clng(rnd() * k + min)if n mod 2 = 1 then '判斷是否為奇數tmp = clng(n)
if instr(result, tmp) <= 0 then exit while '看有沒有重，有就重新生成
end if
end while
result = result & "," & nnext
getnum = mid(result, 2)' 去了第一個逗號end function
7樓：匿名使用者
private sub command1_click()dim i as integer, a as integer, n as integer
randomize '它讓產生的隨機數不相同n = 0
do while n < 15
a = int(rnd * 81 + 10)if a mod 2 <> 0 then
label1.caption = label1.caption+"a"
n = n + 1
end if
loop
end sub
8樓：匿名使用者
sub aaa()
dim i as integer, a(14) as integerdim inttmp as integeri = 0
do while (i < 15)
inttmp = int(10 + rnd * 80)if inttmp mod 2 = 1 thena(i) = inttmp
label1(i).caption=inttmpi = i + 1
end if
loop
end sub
9樓：沙慧月
private sub command1_click()doa = int(rnd * 81 + 10)if a mod 2 <> 0 then
label1.caption = label1.caption & a & ";"
n = n + 1
end if
if n = 15 then exit doloop
end sub
10樓：匿名使用者
private sub form_click()dim b(1 to 15) as integerfor i = 1 to 15
n = int(rnd * 100) + 90print n;
if n / 2 <> n \ 2 thenb(i) = n
end if
next i
for i = 1 to 15
if b(i) <> 0 then
print b(i);
end if
next i
end sub
vb:利用隨機函式產生並顯示10個三位整數,同時找出其最小數,用print語句顯示出
11樓：你猜我猜哇擦猜
private sub command1_click()dim a(1 to 10) as integerdim i, min, max as integerfor i = 1 to 10
a(i) = int((200 - 100 + 1) * rnd + 100)
next i
max = a(1)
min = a(1)
for i = 2 to 10
if max < a(i) then max = a(i)if min > a(i) then min = a(i)next i
print "最大數是" & max
print "最小數是" & min
end sub
下次再折騰人拒絕回答
private sub command1_click()dim a(1 to 10) as integerdim i, j, t as integerfor i = 1 to 10
a(i) = int((100 - 0 + 1) * rnd + 0)
next i
for i = 1 to 10
print a(i);
next i
for i = 1 to 9
for j = 1 to 9
if (a(j) > a(j + 1)) thent = a(j)
a(j) = a(j + 1)
a(j + 1) = t
end if
next j
next i
for i = 1 to 10
print a(i);
next i
end sub
vb程式設計問題：1使用隨機函式產生10個10~100之間的隨機整數存放在一維陣列a中,並把該陣列排序後顯示在一個
vb程式通過隨機函式生成10個正整數,存放在陣列中,然後查詢這10個數中的最小數及其位置(即下標)
12樓：聽不清啊
private sub command1_click()dim a(10) as integer
randomize
j = 1
print "產生的10個數是"
for i = 1 to 10
a(i) = 1 + rnd * 100
if a(i) < a(j) then j = iprint a(i);
next i
print "最小數是第"; j; "個,"; a(j)end sub
vb試題用隨機函式產生 10個兩位數的整數放在陣列a中並輸出，用隨機函式產生10個一位數的整數放入數
13樓：匿名使用者
新建一bai工程，在窗體上拖入一ducommand控制元件。然後進zhi入**區
dao，刪除所有**後，粘內貼以下**即容可。
option explicit
private sub command1_click()dim a(9) as integer, b(9) as integer, c(9) as integer
dim i as integer
randomize
clsprint "陣列a", "陣列b", "陣列c"
for i = 0 to 9
a(i) = rnd() * 9 + 10 '產生隨機兩位整數b(i) = rnd() * 9 '產生隨機一位整數c(i) = a(i) + b(i) '將對應的隨機數相加print a(i), b(i), c(i) '結果輸出到窗體上next i
end sub
執行效果如下圖所示：
vb編寫程式利用隨機函式rnd生成十個10-99之間的整數並分別求出偶數與奇數的個數
14樓：
sub t()
dim i奇數 as integer
i奇數 = 0
dim i偶數 as integer
i偶數 = 0
dim allnumber as stringdim itemp as integer
for i = 1 to 10
itemp = rnd * 90 + 10if i > 1 then
allnumber = allnumber & ","
end if
allnumber = allnumber & itempif itemp mod 2 = 0 theni偶數 = i偶數 + 1
else
i奇數 = i奇數 + 1
end if
next
debug.print "allnumber = " & allnumber
debug.print "i奇數 = " & i奇數debug.print "i偶數 = " & i偶數end sub
靠，居然沒有注意，沒有給分的。
算了，便宜你了
用1 0 數,可以排出幾個不同的三位數
4個，109.190，901.910 109.190.910.901.四個 用1,0,9這三張數字卡片,可以排出 個不同的三位數,其中排出的最大三位數與最小三位數的和是 差是 1 0 9這三個數字，可以組成4個不同的三位數 109 190 901 910 最大的是910，最小的是109.它們的和是 ...
用10顆珠子在計算器上表示出最大的五位數
用8個珠子在計數器上表示一個五位數,要使這個五位數最大,就要在最高位上撥 8 理工學科是什麼 理工學科是指理學和工學兩大學科。理工,是一個廣大的領域包含物理 化學 生物 工程 天文 數學及前面六大類的各種運用與組合。理學理學是中國大學教育中重要的一支學科,是指研究自然物質運動基本規律的科學,大學理科...
在算盤上用算珠表示四位數，最大是多少？最小是多少？，它們相差多少
在算盤上用6個算珠表示四位數，最大是9500，最小是1113，它們相差8387 用6顆算珠表示的最大四位數是多少?最小四位數是多少?先畫一畫，再寫一寫 算盤上，6顆算珠最大的4位數是9500，最小的4位數是1009 在算盤上用6顆珠子表示5位數最大是多少最小多少？在算盤上用6顆珠子表示5位數，最大是...