1樓:匿名使用者
剛才不小心錯怪了zainden,再此特別表示歉意···希望不要放心裡去的··呵呵··
dim fenshu as integer '把分數放在變數fenshu裡面
dim grade as string '把等級放在變數grade中select case fenshu
case is < 60
grade = "e"
case is <= 70
grade = "d"
case is <= 80
grade = "c"
case is <= 90
grade = "b"
case is <= 100
grade = "a"
end select
2樓:無顏之月
支援樓上的 童鞋,字好多 辛苦了 我也不再多說!
vb程式設計題設計程式求VB程式設計題設計程式求s1234n1n的值並輸出,其中n是從鍵盤輸入大於1的正整數
照樓主的題目,n不是大於1的正整數,應該是大於回1的正偶數才對答吧?private sub mand1 click n val inputbox n if n mod 2 1 then exit subt 1 2 s t for i 3 to n 1 step 2t t i i 1 i 1 i 1 ...
用VB編寫程式,把任意十進位制N轉換成分別用二進位制,八進位制
用途 將十進位制轉化為二 進 制 輸入 dec 十進位制數 輸入資料型別 long 輸出 dec to bin 二 進 制數 輸出資料型別 string 輸入的最大數為2147483647,輸出最大數為1111111111111111111111111111111 31個1 public funct...
編寫vb程式 要求隨機產生整數成績
dim marr 1 to 10 private sub command1 click dim i text1.text for i 1 to 10 randomize marr i int rnd 41 60text1.text text1.text marr i next end sub pri...