VB 编程 贼简单

来源：百度知道 编辑：UC知道 时间：2024/05/16 10:24:54
随机产生30个100以内的数 Mark 输出100≤mark＜90 优 90≤mark＜80 良 80≤mark＜70 中等 70≤mark＜60 及格 60＜mark 不及格

写了一个，分数和输出分别储存在Mark和Desc数组中。测试代码可以删掉。

Private Sub Form_Load()
Dim Mark(1 To 30) As Integer '储存分数
Dim Desc(1 To 30) As String '储存输出
Dim i As Integer

Randomize

For i = 1 To 30
Mark(i) = Int(101 * Rnd) '产生0-100之间的数

'求得输出
Select Case Mark(i)
Case Is > 90 '由于 Mark 本身小于等于100,直接判断>90
Desc(i) = "优秀"
Case Is > 80 '由于存在相同范围时 Select Case 返回第一个匹配项,直接判断>80
Desc(i) = "良"
Case Is > 70
Desc(i) = "中等"
Case Is > 60
Desc(i) = "及格"
Case Else '即 Is <=60
Desc(i) = "不及格"
End Select
Next

'以下为测试输出 ========================
Dim s As String

For i = 1 T