寫幾條visual basic程式碼...

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檔裏的變數全都亂碼，不但更難明白，而且還用不了-.-