1樓:匿名使用者
n= [ 10+int(90*rnd) ]st = [ st + " " + n ]forj=2 to [ n ]
[ n1=n1+1 ]
[ exit for ]
text1.text=[ st ]text2.text= [ n-n1 ]
2樓:
private sub ***mand1_click()dim i as integer, j as integer, n as integer, n1 as integer, st as string
for i = 1 to 10
n =_
屬st = _
for j = 2 to _
if n mod j = 0 then_
next
if j > sqr(n) then
_end if
next
text1.text = _
text2.text = _
end sub
vb利用隨機函式rnd生成10個10-99的整數,並計算其中的素數個數。(求大神看看**錯了?)
3樓:用著追她
1、首先bai,我們
給主函式du先定乙個函式。
2、然zhi後dao我們編寫
版for迴圈語句。
3、然後我們編寫輸權出語句及範圍。
4、然後我們開始執行測試。
5、這句警告沒關係,如果不想看到可以新增呼叫數學函式。
6、這時我們便可以看到效果了。
4樓:匿名使用者
我給你優化了一下,由於最大99,所以只需要判斷到9就可以了,一回旦j=10,則為素數答
private sub ***mand1_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
5樓:聽不清啊
已經copy改好了:
private sub ***mand1_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
6樓:匿名使用者
n = int(rnd * 90 + 10)
7樓:當你遇到豆腐
st as string
vb編寫程式,隨機產生10到100間的整數輸出這些數
private sub mand1 click dim a 20 as integer randomize max 0 j 0 for i 1 to 20 a i int 91 rnd 10print a i if max a i then max a i j i next i print prin...
vb編寫程式，利用Sub過程實現將任意十進位制數n分別轉換成2進製 8進製和16進製制數。要求
private sub command1 click a cint text1.text s dec2n a,2,s print a s 2 dec2n a,8,s print a s 8 dec2n a,16,s print a s 16 end sub sub dec2n byval a,r,s...
怎麼編寫程式MATLAB,產生兩位隨機整數,輸出其中小
如三秋 根據目的判斷，需要調取到的函式有randi mod mean find，分別用於產生隨機整數 判斷是否為偶數 計算平均數 尋找滿足條件元素的下標。如下 clc clear n randi 10,99 1,20 產生隨機數，在10到99之間的均勻隨機數 a mean n 計算平均數 n fin...