今天來交一個主控台簡易成績計算!
如果你需要計算總分以及平均的話,就可以這樣做
嘛…先貼原始碼明天再來解說好了(炸
Module Module1 Dim a, b, c, d As Integer Sub Main() Console.Write("請輸入國文分數:") a = Console.ReadLine Console.Write("請輸入數學分數:") b = Console.ReadLine Console.Write("請輸入英文分數:") c = Console.ReadLine Console.Write("總分為:{0},平均為:{1}", a + b + c, (a + b + c) / 3) Console.ReadKey() End Sub End Module
Be First to Comment