1樓：
一個題即使難點也還可以考慮，三個題太麻煩了！可以看出你還是vb初學者，當然我也是！
2樓：
我做出來的題怎麼給你啊？
你需要做成什麼樣子的啊，我做好了，但是需要介面做配合。你是要函式還是要過程，還是就要**？
3樓：匿名使用者
private sub command1_click()dim n as integer,i as integer,result as boolean
result = true;n = val(text1.text)for i = 2 to int(sqr(n))if n mod i = 0 then result = false; exit for
naxt i
if result then label3.caption = n & "是奇數" _
else label3.caption = n & "不是奇數"
end sub
自己除錯一下，也許不對，記得分數給偶！！！！！！
急！VB題目。各位大蝦幫忙
private sub command1 click for i 0 to 10 三重迴圈計算符合條件的兌換方式 for j 0 to 25 for k 0 to 50 if 5 i 2 j k 50 then s s 1 符合條件，則s加1 list1.additem 5元 i 張 2元 j 張 ...
vb的題目，關於大小寫轉換的，大蝦幫幫忙
我淚我流 建立兩個文字框 private sub form load text1.text text2.text end sub private sub text1 keypress keyascii as integer dim x as string 1 x chr keyascii selec...
vb6 0請幫忙做題目，謝謝，vb6 0請幫忙做第一個題目，謝謝
這個是我的做的，請檢視一下行不行。有不懂的地方再問我。一 function cala x as integer,byval y as integer x是按址傳遞，y是按值傳遞 x x y if x 0 then cala x else cala y end if end function priv...