1樓:匿名使用者
private sub command1_click() '在屬性欄裡設定text3的multiline 為 true
dim n as integer, a as integer, i, j, k as integer
m = val(text1.text)
n = val(text2.text)
for i = m to n
for j = 2 to i - 1
if i mod j = 0 then exit fornext
if j = i then
text3.text = text3.text & i & " "
k = k + 1
if k mod 5 = 0 then text3.text = text3.text & vbcrlf
end if
next
end sub
2樓:聽不清啊
private sub command1_click()a = cint(text1.text)
b = cint(text2.text)
text3.text = ""
for i = a to b
yes = i > 1
for j = 2 to sqr(i)
if i mod j = 0 then yes = false: exit for
next j
if yes then
text3.text = text3.text & format(i, "@@@@@")
k = k + 1
if k mod 5 = 0 then text3.text = text3.text & vbcrlf
end if
next i
end sub
vb中msgbox的問題,VB程式設計中MsgBox怎麼用
a msgbox 必須在工資審批任務完成後才能進行更新記錄操作!請選擇是否進行更新記錄操作 vbyesno,確定更新 少了乙個逗號吧,vbyesno前面加個逗號看看看其他是沒錯的 因為你點了確定按鈕這時x才會有值呀 又因為vbokonly 1所以x 1 msgbox返回的是你按的那個按鈕 而按鈕vb...
VB的程式設計,輸入任意的正整數要把它逆序輸出
最簡單的方法 msgbox strreverse inputbox 請輸入乙個正整數 符合你題意的方法 dim s1 as string,s2 as string,i as integer s1 inputbox 請輸入乙個正整數 for i len s1 to 1 step 1s2 s2 mid ...
vb題隨機生成兩位整數,求出他們的總和及平均數
private sub command1 click dim tt 100 s 10 temp1,temp2,te i randomize 隨機,不使用時,rnd 函式是有規律的 for i 1 to 100 tt i i 用tt陣列存放100個數,不直接用s陣列是為了避免出現重複的數字 next ...