15.下列VB程序?qū)崿F(xiàn)數(shù)字字母混合序列分離后分別排序,最后又合并輸出。具體算法如下:在文本框Text1輸入若干組混合序列,每組序列中僅包含一組字母和一個多位數(shù)字,序列之間用逗號隔開,以逗號結(jié)束。單擊“排序”按鈕command1,把每組序列中的字母和數(shù)字分開,并分別排序,最后在列表框list1輸出。排序規(guī)則如下:所有數(shù)字按從小到大升序排序,字母序列按長度升序排序,若長度相同,直接按字母序列大小升序排序(按字母的ASCII碼排序,“A”<“Z”<“a”<“z”)。實現(xiàn)算法的部分程序界面如圖所示,VB程序代碼如下,回答下列問題: Private Sub Command1_Click( ) Dim a(1 To 6)As Integer,b(1 To 6)As String,I as integer,j as integer Dim c As String,k As Integer,tmp1 As Integer,tmp2 As String s=text1.text i=1:k=1:tmp1=0:tmp2=″″ Do While i<=Len(s) c=Mid(s,i,1) If c=“,“Then a(k)=tmp1:b(k)=tmp2 tmp1=0:tmp2=″″
Else If Then tmp2=tmp2+c Else tmp1=tmp1*10+val(c) End If End If i=i+1 Loop For i=1 To 5 For j=1 To 6-i If a(j)>a(j+1)Then tmp1=a(j):a(j)=a(j+1):a(j+1)=tmp1 If Len(b(j))>Len(b(j+1)) Or
Then tmp2=b(j):b(j)=b(j+1):b(j+1)=tmp2 End If Next j Next i For i=1 To 6 List1.AddItem Str(a(i))+b(i) Next i End Sub (1)代碼“l(fā)ist1.AddItem”中的AddItem是
。 (2)在程序橫線處填上合適代碼,使程序完整 Dim a(1 To 1000)As Integer,n As Integer Private Sub Command1_Click( ) Dim i As Integer,j As Integer Dim fz(1 To 16)As Integer'fz數(shù)組存儲信息各題滿分值 Dim b(1 To 33)As Double'數(shù)組b存儲全卷各題的得分率 For i=1 To 16‘?dāng)?shù)組fz存儲信息16個小題的滿分值 If i<=12 Then fz(i)=2 fz(13)=4:fz(14)=8:fz(15)=7:fz(16)=7 Next i For i=2 To n'把數(shù)組a數(shù)據(jù)分別統(tǒng)計到各題中
b(j)=a(i )+b(j) Next i For i=1 To 33'僅處理信息各題的平均分 If i<=12 Then b(i)=b(i)/(a(1)*fz(i))’計算信息選擇題各題的得分率 ElseIf i>=26 And i<=29 Then b(i)=
End If Next i For i=1 To 16 If i>12 Then j=i+13 Else j=i b(j)=Int(b(j)*1000+0.5)/10'對結(jié)果四舍五入保留1位小數(shù) List2.AddItem Str(i)+Str(b(j))+“%“ ave=
Next i Text1.Text=Str(ave/100) End Sub Private Sub Form_Load( ) ‘讀入數(shù)據(jù)到數(shù)組a,數(shù)據(jù)個數(shù)n,代碼略 End Sub