寫幾條visual basic程式碼...
2017/02/10 00:05
瀏覽167
迴響0
推薦0
引用0
標題:
寫幾條visual basic程式碼...
發問:
1.利用inputbox連續輸入數值資料，直到輸入值等於-1時，方才結束輸入，最後把所有輸入值之中最大的數值列印出來。 2.某班學生人數不詳，欲輸入每一個學生的VB成績，當輸入-1時表示結束輸入，然後計算全班人數，及格人數，不及格人數，及全班平均分數。 3.寫一程式列出1~100之間所有能被7整除的整數。(註：請用迴圈執行次數較少的作法。) thx...
最佳解答:
1、V# = 0 Max# = -1.79E+308 While V# <> -1 V# = InputBox( "输入一数值") If V# > Max# Then Max# = V# Wend Print Max 2、 全班人数 = 0 及格人数 = 0 不及格人数 = 0 全班平均分数 = 0 全班总分数 = 0 V# = InputBox("请输入成绩") While V# <> -1 全班人数 = 全班人数 + 1 全班总分数 = 全班总分数 + V# If V# >= 60 Then 及格人数 = 及格人数 + 1 Else 不及格人数 = 不及格人数 + 1 End If V# = InputBox( "请输入成绩") Wend If 全班人数 = 0 Then Print "全班人数=0, 无法计算" Else Print "全班人数="; 全班人数 Print "及格人数="; 及格人数 Print "不及格人数="; 不及格人数 Print "全班平均分数="; 全班总分数/全班人数 End If 3、 N = 1 While N*7 <= 100 Print N*7 N = N + 1 Wend 2008-04-09 01:41:11 補充： 1、V# = 0 Max# = -1.79E+308 While V# <> -1 V# = InputBox( "输入一数值") If V# > Max# Then Max# = V# Wend Print Max 2008-04-09 01:42:35 補充： 3、N = 1 While N*7 <= 100 Print N*7 N = N + 1 Wend 2008-04-09 01:43:10 補充： 第2題：全班人数 = 0 及格人数 = 0 不及格人数 = 0 全班平均分数 = 0 全班总分数 = 0 V# = InputBox("请输入成绩") While V# <> -1 2008-04-09 01:43:30 補充： 續上： 全班人数 = 全班人数 + 1 全班总分数 = 全班总分数 + V# If V# >= 60 Then 及格人数 = 及格人数 + 1 Else 不及格人数 = 不及格人数 + 1 End If 2008-04-09 01:43:47 補充： 續上： V# = InputBox( "请输入成绩") Wend If 全班人数 = 0 Then Print "全班人数=0, 无法计算" Else Print "全班人数="; 全班人数 Print "及格人数="; 及格人数 Print "不及格人数="; 不及格人数 Print "全班平均分数="; 全班总分数/全班人数 End If 2008-04-09 01:44:33 補充： 因為出現亂碼，所以我唯有用補充來重SEND
其他解答:
老兄，變數用中文固然易懂，但是注意亂碼問題 以前有個bas檔案，我把簡體中文的系統重灌換成繁體的以後，bas檔裏的變數全都亂碼，不但更難明白，而且還用不了-.-
寫幾條visual basic程式碼...
發問:
1.利用inputbox連續輸入數值資料，直到輸入值等於-1時，方才結束輸入，最後把所有輸入值之中最大的數值列印出來。 2.某班學生人數不詳，欲輸入每一個學生的VB成績，當輸入-1時表示結束輸入，然後計算全班人數，及格人數，不及格人數，及全班平均分數。 3.寫一程式列出1~100之間所有能被7整除的整數。(註：請用迴圈執行次數較少的作法。) thx...
最佳解答:
1、V# = 0 Max# = -1.79E+308 While V# <> -1 V# = InputBox( "输入一数值") If V# > Max# Then Max# = V# Wend Print Max 2、 全班人数 = 0 及格人数 = 0 不及格人数 = 0 全班平均分数 = 0 全班总分数 = 0 V# = InputBox("请输入成绩") While V# <> -1 全班人数 = 全班人数 + 1 全班总分数 = 全班总分数 + V# If V# >= 60 Then 及格人数 = 及格人数 + 1 Else 不及格人数 = 不及格人数 + 1 End If V# = InputBox( "请输入成绩") Wend If 全班人数 = 0 Then Print "全班人数=0, 无法计算" Else Print "全班人数="; 全班人数 Print "及格人数="; 及格人数 Print "不及格人数="; 不及格人数 Print "全班平均分数="; 全班总分数/全班人数 End If 3、 N = 1 While N*7 <= 100 Print N*7 N = N + 1 Wend 2008-04-09 01:41:11 補充： 1、V# = 0 Max# = -1.79E+308 While V# <> -1 V# = InputBox( "输入一数值") If V# > Max# Then Max# = V# Wend Print Max 2008-04-09 01:42:35 補充： 3、N = 1 While N*7 <= 100 Print N*7 N = N + 1 Wend 2008-04-09 01:43:10 補充： 第2題：全班人数 = 0 及格人数 = 0 不及格人数 = 0 全班平均分数 = 0 全班总分数 = 0 V# = InputBox("请输入成绩") While V# <> -1 2008-04-09 01:43:30 補充： 續上： 全班人数 = 全班人数 + 1 全班总分数 = 全班总分数 + V# If V# >= 60 Then 及格人数 = 及格人数 + 1 Else 不及格人数 = 不及格人数 + 1 End If 2008-04-09 01:43:47 補充： 續上： V# = InputBox( "请输入成绩") Wend If 全班人数 = 0 Then Print "全班人数=0, 无法计算" Else Print "全班人数="; 全班人数 Print "及格人数="; 及格人数 Print "不及格人数="; 不及格人数 Print "全班平均分数="; 全班总分数/全班人数 End If 2008-04-09 01:44:33 補充： 因為出現亂碼，所以我唯有用補充來重SEND
其他解答:
老兄，變數用中文固然易懂，但是注意亂碼問題 以前有個bas檔案，我把簡體中文的系統重灌換成繁體的以後，bas檔裏的變數全都亂碼，不但更難明白，而且還用不了-.-
此文章來自奇摩知識+如有不便請留言告知
4E350C6F8B48ECA2你可能會有興趣的文章：
限會員,要發表迴響,請先登入
