module1.vb

来自「编程之道VB.NETt程序设计入门-589M.zip」· VB 代码 · 共 26 行

Module Module1

    Sub Main()
        Dim sYourScore As String
        Dim iScore As Integer

        System.Console.WriteLine("请输入你的考试分数（0 -- 100之间）：")
        sYourScore = System.Console.ReadLine()
        iScore = Integer.Parse(sYourScore)
        If (iScore < 0 Or iScore > 100) Then
            System.Console.WriteLine("不可能的分数！")
        ElseIf (iScore = 100) Then
            System.Console.WriteLine("你真不可思议，太棒了！")
        ElseIf (iScore > 85) Then
            System.Console.WriteLine("你真优秀！")
        ElseIf (iScore > 60) Then
            System.Console.WriteLine("不错不错！")
        Else
            System.Console.WriteLine("下次加油哦！")
        End If

        System.Console.ReadLine()
    End Sub

End Module