(單選,填字母:A.200×199/2次/B.10×20×19/2次/C.20×10×9/2次)。 (2)請?jiān)跈M線處填入合適的代碼。 Const n=200'報(bào)名總?cè)藬?shù) Const nc=10'城市數(shù) Dim city(1 To n)As Integer,pname(1 To n)As String,times(1 To n)As Integer Dim b(1 To nc)As Integer'存儲每個(gè)城市的報(bào)名人數(shù) Dim c(1 To nc)As Integer Dim q(1 To n)as Integer Private Sub Form_Load( ?。?br />'本過程讀取城市序號、姓名和參加次數(shù)的數(shù)據(jù)分別存儲在數(shù)組city、pname和times中, '并在List1中顯示,代碼略 End Sub Private Sub Command1_Click( ?。?br /> Dim i As Integer,j As Integer,k As Integer,t As Integer,pos As Integer For i=1 To nc b(i)=0 Next i For i=1 Ton
b(k)=b(k)+1 Next i k=1 For i=1 To nc c(i)=k k=k+b(i) Next i For i=1 To n k=city(i)
c(k)=c(k)+1 Next i pos=1 For i=1 To nc'對各城市報(bào)名數(shù)據(jù)按參加志愿服務(wù)的次數(shù)進(jìn)行排序 For j=pos To pos+b(i)-2 k=fp(j,pos+b(i)-1) t=q(k):q(k)=q(j):q(j)=t Next j pos=pos+b(i) Next i For i=1 To n List2.AddItem““&city(q(i))&““&pname(q(i))&““×(q(i)) Next i End Sub Function fp(head As Integer,tail As Integer)As Integer Dim i As Integer,k As Integer k=head For i=
If times(q(i))>times(q(k))Then k=i Next i fp=k End Function