Imports System
Public Module Module1
dim 不及格 as integer
dim a as integer
dim 及格 as integer
dim s as integer
dim id as string
id = ""
不及格 = 0
及格 = 0
s = 0
console.writeline("不及格人數")
不及格 = console.readline()
while id <> "f"
console.writeline("及格人數")
a = console.readline()
s = console.readline()
if a >= 60 then
不及格 = 不及格 + 1
end if
if a < 60 then
及格 = 及格 + 1
s =(s + s) / (及格 + 不及格)
console.writeline("f結束,enter繼續")
id = console.readline()
end while
Console.WriteLine("不及格的人有"&不及格）
console.writeline("及格的人有"&及格）
console.writeline("全班總平均" & s)
End Sub
End Module
