中華民國萬萬歲

1.宣告 班級./姓名/學號 (字串變數) ,鍵入 班級 /學號/ 姓名 最後顯示 你的班級:   學號:   姓名: 

2.宣告五個變數(整數,浮點,布林,字串,萬用型),並由鍵盤輸入值再由螢幕顯示出 

3.  輸入個人資料(名字,年齡,性別及三科成績 再算出三科平均值

Module Module1

    Sub Main()

        Console.WriteLine("輸入班級 : ")

        Dim yourclass As String

        yourclass = Console.ReadLine()

        Console.WriteLine("{0}", yourclass)

        Console.WriteLine("輸入學號 : ")

        Dim age As Integer

        age = Console.ReadLine()

        Console.WriteLine("{0} , {1} ", yourclass, Str(age))

        Console.WriteLine("輸入名字 : ")

        Dim yourName As String

        yourName = Console.ReadLine()

        Console.WriteLine("{0} , {1} , {2} ", yourclass, Str(age), yourName)

        Console.WriteLine("輸入性別 : ")

        Dim gender As Boolean

        gender = Console.ReadLine()

        Console.WriteLine("{0} , {1} , {2} ,{3} ", yourclass, Str(age), yourName, gender)

        Console.WriteLine("輸入成績 1: ")

        Dim grades1 As Integer

        grades1 = Console.ReadLine()

        Console.WriteLine("{0} , {1} , {2} , {3} , {4}  ", yourclass, Str(age), yourName, gender, grades1)

        Console.WriteLine("輸入成績 2: ")

        Dim grades2 As Integer

        grades2 = Console.ReadLine()

        Console.WriteLine("{0} , {1} , {2} , {3} , {4}, {5} ", yourclass, Str(age), yourName, gender, grades1, grades2)

        Console.WriteLine("輸入成績 3: ")

        Dim grades3 As Integer

        grades3 = Console.ReadLine()

        Console.WriteLine("{0} , {1} , {2} , {3} , {4}, {5}, {6} ", yourclass, Str(age), yourName, gender, grades1, grades2, grades3)

        Console.WriteLine("算出三科平均值: ")

        Dim average As Double

        average = (grades1 + grades2 + grades3) / 3.0

        Console.WriteLine("{0} , {1} , {2} , {3} , {4}, {5}, {6}, {7} ", yourclass, Str(age), yourName, gender, grades1, grades2, grades3,average)

        Console.Read()

End Sub

End Module

4.