VB程式設計求出M到N的整數中的質數文字框,輸入M,輸入N,打出結果。要求結果以每行五

2022-09-23 07:56:39 字數 933 閱讀 8999

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 ...