3.3 数据与系统 知识点题库

Dim m As Integer   ' 学生人数

Dim score(1 To 3000) As Integer  ' 存放学生分数

Dim xm(1 To 1000) As String  ' 存放学生姓名

Private Sub Command1_Click()

Dim i As Integer, t As Integer, code As Integer, mc As Integer

Dim a(0 To 100) As Integer  '存放每个分数的个数

Dim b(0 To 100) As Integer  '存放每个分数的名次

Dim code_n(1 To 3) As String

code_n(1) = "游泳" : code_n(2) = "跑步" : code_n(3) = "跳远"

code = Val(Text1.Text) 

For i = 0 To 100

  a(i) = 0

Next i

sum = 0

For i = 1 To m  '计算每个分数的个数及体能测试优秀的人数

  t =      ①       

  a(score(t)) = a(score(t)) + 1

  If score(t) >= 90 Then sum = sum + 1

Next i

mc = 1

For i = 100 To 0 Step -1  '计算每个分数的名次

  If a(i) <> 0 Then

    b(i) = mc

    mc =       ②          

  End If

Next i

List2.Clear

List2.AddItem " 姓名  " +        ③          + "  名次"

For i = 1 To m

  '在List2中输出m个学生的姓名、指定项目的分数及名次，代码略

Next i

sum = Int(sum / m * 10000 + 0.5) / 100

Label2.Caption = "优秀率是：" + Str(sum) +"%"

End Sub

Private Sub Form_Load()

’从数据库读取姓名存入数组xm，体能测试数据存入数组score，总人数存入变量m。

’代码略

End Sub

①②③

初中组各班的总得分通过在 H3单元格输入“=SUM(C3：G3)”，并将其自动填充至 H4:H11得到。现复制 H11单元格，粘贴到H13单元格，(选填：能 / 不能)正确计算高中组二 1班总得分。