(單選,填字母:A.Form1_load/B.Form_load/C.Form1.Caption) Dim a(1 To 1000)As String Dim b(1 To 1000)As Single Dim n As Integer ‘數(shù)據(jù)庫讀取所有人員的數(shù)據(jù)代碼略 Private Sub Command1_Click ( ) Dim i As Integer,j As Integer,k As Integer Dim tmp1 As Single,tmp2 As String Dim median As Single For i=n To 2 step-1 k=i For j=i-1 To 1 step-1 If Then k=j End If Next j If k<>i Then tmp1=b(k):b(k)=b(i):b(i)=tmp1 tmp2=a(k):a(k)=a(i):a(i)=tmp2 End If Next i For i=1 To n List1.AddItem Str(i) &““& a(i) &““& Str(b(i)) Next i If n Mod 2=0 Then median=② Else median=b(n\2+1) End If Label1.Caption=“中位數(shù)是:“& Str(median) End Sub (2)將橫線處代碼補充完整。 (3)程序代碼中,波浪線
次。 (2)實現(xiàn)上述功能的VB程序如下,請在橫線處填入正確語句。 Dim z(1 To 100)As Integer Dim c(1 To 100)As Integer ‘文本框獲取主、次數(shù)組數(shù)據(jù)代碼略 Private Sub Command1_Click ( ?。?br />Dim i As Integer,j As Integer i=1 Do While i<=99 j=100 Do While ①
If z(j)>z(j-1)Or ②
Then t=z(j):z(j)=z(j-1):z(j-1)=t t=c(j):c(j)=c(j-1):c(j-1)=t End If j=j-1 Loop ③
Loop List1.AddItem““+“主“+““+“次“ For i=1 To 100 List1.AddItem Str(z(i))+Str(c(i)) Next i End Sub