1樓：匿名使用者
private sub command1_click()
text1.text = ""
dim aa(1 to 20) as integer, ss as integer, sda as integer
for i = 1 to 20
randomize
aa(i) = int(rnd * 99 + 1)
next i
for i = 1 to 19
for j = 1 to 20 - i
if aa(j) > aa(j + 1) then
sda = aa(j)
aa(j) = aa(j + 1)
aa(j + 1) = sda
end if
next j
next i
text1.text = text1.text & "生成的20個隨機數：" & vbcrlf
for i = 1 to 20
if aa(i) < 10 then
text1.text = text1.text & "0" & aa(i) & space(3)
else
text1.text = text1.text & aa(i) & space(3)
end if
if i mod 10 = 0 then
text1.text = text1.text & vbcrlf
end if
next i
text1.text = text1.text & vbcrlf
text1.text = text1.text & vbcrlf
text1.text = text1.text & "能夠被5整除的數：" & vbcrlf
for i = 1 to 20
if aa(i) mod 5 = 0 then
text1.text = text1.text & aa(i) & space(3)
ss = ss + aa(i)
end if
next i
text1.text = text1.text & vbcrlf
text1.text = text1.text & vbcrlf
text1.text = text1.text & "能夠被5整除的數的總和是：" & vbcrlf
text1.text = text1.text & ss
end sub
2樓：夕陽西下
dim rns as integer,sumf as integer,a as integer
for a=1 to 10
rns=int(rnd*100+1)
if rns mod 5 = 0 then sumf=sumf+rns
debug.print rns
next
msgbox "the sum is" & sumf
在vb中利用隨機函式產生100個10～99之間的隨機整數，找出其中的素數，並將這些素數求和。
3樓：玫瑰為你盛開
正好寫過這個哦，也給你好啦
以下**不需要任何控制元件
private sub form_activate()
dim a(1 to 100) as integer, prime(1 to 100) as integer, np as integer, sp as integer
'a陣列存放100個隨機整數，prime陣列存放素數，np存放素數個數，sp存放素數總和
randomize
np = 0
sp = 0
print "100個隨機整數為"
for i = 1 to 100
a(i) = 10 + int(90 * rnd)
print a(i);
if i mod 10 = 0 then print
if isprime(a(i)) then
np = np + 1
prime(np) = a(i)
sp = sp + a(i)
end if
next
print "包含的素數依次為"
for i = 1 to np
print prime(i);
if i mod 10 = 0 then print
next
print "素數個數為"; np; "，素數總和為"; sp
end sub
function isprime(byval num as integer) as boolean '判斷是否為素數的函式
if num < 2 then isprime = false: exit function
dim i as integer
for i = 2 to sqr(num)
if (num mod i) = 0 then
isprime = false
exit function
end if
next i
isprime = true
end function
4樓：
請問，10到99之間有那麼多個質數嗎，總共才90個資料的呀！
vb利用隨機函式rnd生成10個10-99的整數，並計算其中的素數個數。（求大神看看**錯了？）
5樓：用著追她
1、首先bai，我們
給主函式du先定一個函式。
2、然zhi後dao我們編寫
版for迴圈語句。
3、然後我們編寫輸權出語句及範圍。
4、然後我們開始執行測試。
5、這句警告沒關係，如果不想看到可以新增呼叫數學函式。
6、這時我們便可以看到效果了。
6樓：匿名使用者
我給你優化了一下，由於最大99，所以只需要判斷到9就可以了，一回旦j=10，則為素數答
private sub command1_click()randomize
dim i as integer, j as integer, n as integer, nl as integer, st as integer
for i = 1 to 10
n = int(rnd * 90 + 10)st = st & n & " "
for j = 2 to 9
if n mod j = 0 then exit fornext j
if j = 10 then
nl = nl + 1
end if
next i
text1.text = st
text2.text = nl
end sub
7樓：聽不清啊
已經copy改好了：
private sub command1_click()randomize
dim i as integer, j as integer, n as integer, nl as integer, st as string
for i = 1 to 10
n = int(rnd * 99 + 10)st = st & n & " "
for j = 2 to n - 1
if n mod j = 0 then exit fornext j
if j = n then
nl = nl + 1
end if
next i
text1.text = st
text2.text = nl
end sub
8樓：匿名使用者
n = int(rnd * 90 + 10)
9樓：當你遇到豆腐
st as string
vb程式:利用隨機函式產生100個10～99之間的隨機整數，找出其中的素數，並將這些素數求和。
10樓：匿名使用者
下面是我給你寫的程式，需要新增四個文字框，三個按鈕，兩個標籤，其中文字框text1和text2的multiline屬性設定成true，scrollbars屬性可以設定成2或者不用設定。你要是對程式有什麼疑問也可以留個qq，我把工程和窗體檔案發給你。
'定義全域性陣列、變數
dim s(1 to 100) as integer, t(1 to 100) as integer, n%
'結束程式
private sub command3_click()unload me
end sub
private sub form_load()randomize
end sub
'產生100個10-99的隨機整數並存放在陣列s中private sub command1_click()dim i%
text1 = ""
for i = 1 to 100
s(i) = 89 * rnd + 10
next
for i = 1 to 100
text1 = text1 & s(i) & " "
if i mod 10 = 0 then
text1 = text1 + vbcrlf + vbcrlfend if
next
end sub
'顯示全部素數以及個數並求和
private sub command2_click()dim sum%
text2 = ""
for i = 1 to 100
ss (i)
next
for i = 1 to n
text2 = text2 & t(i) & " "
sum = sum + t(i)
if i mod 10 = 0 then
text2 = text2 + vbcrlf + vbcrlfend if
next
text3 = n
text4 = sum
n = 0
end sub
'判斷素數子過程
public sub ss(k as integer)dim i as integer
if s(k) < 1 or s(k) = 1 thengoto over
end if
for i = 1 to s(k) - 2if s(k) mod (i + 1) = 0 thengoto over
end if
next
n = n + 1
t(n) = s(k)
over:
end sub
請參考~~
vb程式設計問題：1使用隨機函式產生10個10~100之間的隨機整數存放在一維陣列a中,並把該陣列排序後顯示在一個
11樓：匿名使用者
根據已有的程式行，缺的內容主要就是一個排序過程。新增一個排序的過回
程就答行了。但是不知道該添在**，請說明程式的空白處是在**？能不能標出來，比如用括號，星號什麼的，標一下需要補充到**？
或者，能不能說明一下，各文字框，按鈕的功能是什麼？ d = val(text3.text)，這個應該是要插入的資料了，說明text3是用來輸入的，text2.
text = text2.text & str(a(i))，這說明text2是顯示排序後的結果的，
那有沒有text1？用作什麼？兩個按鈕定義的功能是什麼？插入的資料怎麼插？是隨機插入一個位置，並替換掉原來的資料還是將陣列重新定義隨機插入後，後面的數向後移？
這些需要說明一下，或者把需要填寫的位置標清楚，不然，不好確定該怎麼填。
mod函式在vb中怎麼用，VB中Mod函式問題
mod是用來計算餘數的。前面是被除數，後面是除數，結果是餘數。語法 result number1modnumber2一般情況下，除數 被除數，很少用小數，結果一定是整數 商當然也是按照整數計算的 例如 5mod3 5除以3商1餘2，所以5mod3 2 23mod5.8 1 函式簡介 mod函式是一個...
編寫vb程式 要求隨機產生整數成績
dim marr 1 to 10 private sub command1 click dim i text1.text for i 1 to 10 randomize marr i int rnd 41 60text1.text text1.text marr i next end sub pri...
用隨機函式在標籤上顯示10位數，vb程式
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 labe...