為了統(tǒng)計(jì)學(xué)校七選三組合的優(yōu)秀率，從數(shù)據(jù)庫(kù)中讀取各個(gè)七選三組合的學(xué)生信息，每個(gè)考生的數(shù)據(jù)包含全校序列號(hào)，姓名，選課組合（為7位二進(jìn)制數(shù)，按“物化生政史地技”排列），高考總分。算法規(guī)則是：先按照選課組合排列；然后，同一組合的學(xué)生，按高考總分進(jìn)行降序排列；最后，從Textl中讀入百分比rate,在list2中輸出各種組合總分前rate%的平均分。按上述要求，編寫(xiě)了一個(gè)VB程序，功能如下：?jiǎn)螕簟皩?dǎo)入數(shù)據(jù)”按鈕command1，在list1中顯示原始數(shù)據(jù)，單擊“計(jì)算個(gè)選課前%平均分”按鈕command2，在list2中顯示各組合前rate%的平均分。

（1）若程序運(yùn)行后數(shù)組元素c（7）值為80，則c（9）的值為

80

80

.
Dimxh（1To500）AsInteger’xm（1To500）AsString,score（1To500）AsInteger
Dimxk（1To500）AsInteger'xk數(shù)組存儲(chǔ)學(xué)生七選三組合的十進(jìn)制值
DimnumAsInteger'學(xué)生總?cè)藬?shù)
PrivateSubCommand1_Click （　?。?br />'連接數(shù)據(jù)庫(kù)，從數(shù)據(jù)庫(kù)中讀取原始數(shù)據(jù)存入各數(shù)組并顯示到LIST1列表框中；
EndSubFunctionD2S（ByValnAsInteger）AsString
'函數(shù)功能為把七選三組合的十進(jìn)制值轉(zhuǎn)換為中文選科
EndFunction
PrivateSubCommand2_Click （　　）
DimrateAsInteger,iAsInteger,jAsInteger,kAsInteger,posasinteger
Dimxkc（0To127）AsInteger'各組合選科學(xué)生數(shù)統(tǒng)計(jì)
Dimc（0To127）AsInteger,sortxh（1To500）AsInteger
rate=Val（Text1.Text）
Fori=1Tonum

xkc（xk（i））=xkc（xk（i））+1

xkc（xk（i））=xkc（xk（i））+1

Nexti
Fori=1To127
c（i）=xkc（i）+c（i-1）
Nexti
Fori=1Tonum
k=xk（i）

sortxh（c（k））=i

sortxh（c（k））=i

c（k）=c（k）-1
Nexti
pos=1
Fori=0To127
sum=0
Ifxkc（i）＞0Then
Forj=

pos to pos+int（xkc（i）*rate/l00）-1

pos to pos+int（xkc（i）*rate/l00）-1

Fork=pos+xkc（i）-1Toj+1Step-1
Ifscore（sortxh（k））＞score（sortxh（k-1））Then
t=sortxh（k）：sortxh（k）=sortxh（k-1）：sortxh（k-1）=t
EndIf
Nextk
sum=sum+score（sortxh（j））
Nextj
List2.AddItemD2S（i）+Str（Int（sum/Int（xkc（i）*rate/100）））
EndIf
pos=pos+xkc（i）
Nexti
EndSub