vb实验练习
练习：
给出一百分制成绩，要求输出成绩等级‘A’、‘B’、‘C’、‘D’、‘E’。90 分以上为‘A’，80~89 分为‘B’，70~79 分为‘C’，60~69 分为‘D’，60 分以下为‘E’。
Module Module1 Sub Main()Dim cj As Single "存放输入成绩 Dim dj As Char "存放等级 Dim temp As Integer Console.Write("请输入cj: ")cj = Val(Trim(Console.ReadLine()))"从键盘获取成绩 temp = Int(cj / 10)Select Case temp Case 9, 10 dj = "A" Case 8 dj = "B" Case 7 dj = "C" Case 6 dj = "D" Case 0 To 5 dj = "E" Case Is > 10 dj = "成绩不能超过100分" Case Else dj = "你输入的成绩为负数" End Select Console.WriteLine("{0}", dj)Console.ReadLine()End Sub End Module
