1樓：匿名使用者
程式** + 流程圖
private sub command1_click()dim n as integer
dim k as integer
dim str as string
n = val(text1.text)
str = "是素數"
for k = 2 to n / 2
if n mod k = 0 then
str = "不是素數"
exit for
end if
next
msgbox "經程式判斷自然數n：" & strend sub
2樓：代傲雲
dim i as integer
dim j as integer
dim k as integer
dim b as boolean
b = true
k= 2
j = int(sqr(i))
do while k <= j and bif i mod k = 0 then
b=false
end if
k=k+1
loop
if b=ture then
print i "是素數"
end if
VB的問題，高手進
把圖案寫清楚，我覺得 前有空格吧，怎麼不寫上，還有就是題看 看抄 錯沒有,我寫的你可以參考，樓上 loveihmdf 寫的不對 private sub form click dim i as integer dim j as integer for i 1 to 5 step 2print stri...
VB程式設計高手進， 急 VB程式設計高手進
很簡單的 只告訴你方法思路，現在沒有vb環境所以沒法寫你在text1的keypress時間裡，寫上校驗方法，利用acciss碼來判斷，數字的acciss碼是連續的，你可以查到，除此之外的acciss碼你都不予接受，這樣使用者就無法輸入除了0 9之外的任何內容，如何輸入了，你還可以彈出提示框。思路就這...
易語言 VB的問題高手進高分獻上
用易語言程式設計不錯，感覺比vb要強些。易語言有個函式 延時 多少毫秒 這個可以實現。易語言實現使用者名稱和密碼登入我這有例項，給你郵箱，我發給你。 vb加個command和timer 加入 private sub command1 click timer1.interval 3000 啟動時鐘,為...