学进去

为了统计学校七选三组合的优秀率，从数据库中读取各个七选三组合的学生信息，每个考生的数据包含全校序列号，姓名，选课组合（为7位二进制数，按“物化生政史地技”排列），高考总分。算法规则是：先按照选课组合排列；然后，同一组合的学生，按高考总分进行降序排列；最后，从Textl中读入百分比rate，在list2中输出各种组合总分前rate%的平均分。按上述要求，编写了一个VB程序，功能如下：单击“导入数据”按钮command1，在list1中显示原始数据，单击“计算个选课前%平均分”按钮command2，在list2中显示各组合前rate%的平均分。

（1）若程序运行后数组元素c（7）值为80，则c（9）的值为______.
Dim xh(1 To 500)As Integer,xm(1 To 500)As String,score(1 To 500)As Integer
Dim xk(1 To 500)As Integer      'xk数组存储学生七选三组合的十进制值
Dim num As Integer               '学生总人数
Private Sub Command1_Click()
'连接数据库,从数据库中读取原始数据存入各数组并显示到LIST1列表框中;
End Sub Function D2S(By Val n As Integer)As String
'函数功能为把七选三组合的十进制值转换为中文选科
End Function
Private Sub Command2_Click()
Dim rate As Integer,i As Integer,j As Integer,k As Integer,pos as integer
Dim xkc(0 To 127)As Integer    '各组合选科学生数统计
Dim c(0 To 127)As Integer,sortxh(1 To 500)As Integer
rate=Val(Text1.Text)
For i=1To num
___________________
Next i
For i=1To 127
c(i)=xkc(i)+c(i-1)
Next i
For i=1 To num
k=xk(i)
________________________
c(k)=c(k)-1
Next i
pos=1
For i=0 To 127
sum=0
If xkc(i)>0 Then
For j=________________________
For k=pos+xkc(i)-1 To j+1 Step-1
If score(sortxh(k))>score(sortxh(k-1))Then
t=sortxh(k): sortxh(k)=sortxh(k-1):                     sortxh(k-1)=t
End If
Next k
sum=sum +score(sortxh(j))
Next j
List2. AddItem D2S(i)+Str(Int(sum/Int(xkc(i)* rate/100)))
End If
pos=pos +xkc(i)
Next i
End Sub