1樓：網海1書生
don=val("請輸入一個數，0退出")if n=0 then
exit do
elseif n mod 2=0 thenmsgbox "這是偶數"
else
msgbox "這是奇數"
end if
loop
2樓：匿名使用者
do while n <> m
if n mod 2 = 0 then
'偶數else
'奇數end if
loop
3樓：我愛程式設計序
private sub command1_click()dim n as long
on error goto err
don = trim(inputbox("請輸入常數n"))select case n mod 2
case 0
msgbox "常數n為偶數"
'當n為偶數時執行
case else
msgbox "常數n為奇數"
'當n為奇數時執行
end select
loop while n <> m
err: msgbox "無效數值 n"
end sub
VB程式輸入整數N，計算前N項和S 1 1 21 2
private sub command1 click dim i,n,s as integern val text1.text s 0 for i n to 0 step 1s s i i 1 2next i text2.text s end sub private sub command1 cli...
急！用VB編寫程式，對輸入的字串進行識別，找出其中大寫字母 小寫字母 空格 數字及其他字元的個數
遍歷字串，比較其ascii，分別用不同的變數 參考 dim intnumber as integer,intucase as integer,intlcase as integer,intspace as integer dim i as integer,strtmp as string intnu...
用c語言編寫程式 從鍵盤輸入n 0《n《100 個整數
1 次數最多 2 在次數最多的基礎上，數值最大 以下為程式 include 設定最大值 define max 100 typedef struct record record int i ist int array,int index,record rd return flag int findma...