16.某高中韻律操比賽,20支比賽隊隊伍的名稱和比賽得分分別保存在數(shù)組a和數(shù)組b中,第i支隊伍的名稱保存在a(i)中,對應(yīng)的得分保存在b(i)中.下面的程序段實現(xiàn)按積分降序排序,閱讀程序段,并完成后面的幾個問題: Private Sub Command1_Click ( ) Dim a(1To 20)As Integer ① Dim b(1To 20)As Integer Dim i As Integer,j As Integer,ta As Integer,tb As Integer,m As Integer For i=1To 19 m=i For j=i+1To 20 If b(j)<b(m) Then m=j ② Next j If m<>i Then ta=a(m):a(i)=a(m):a(i)=ta ③ tb=b(m):b(m)=b(i):b(i)=tb End If Next i End Sub (1)該程序段算法采用的是
17.素數(shù)又稱質(zhì)數(shù),指在一個大于1的自然數(shù)中,除了1和此整數(shù)自身外,沒法被其他自然數(shù)整除的數(shù).超級素數(shù)的定義:當一個素數(shù)從低位到高位依次去掉一位數(shù)后剩下的數(shù)仍然是素數(shù),則此數(shù)為超級素數(shù).例如:7331、733、73、7均為素數(shù),所以7331為超級素數(shù).小明設(shè)計了一個程序查找四位正整數(shù)中的超級素數(shù).程序運行時,單擊Command1,則在列表框List1中顯示所有四位數(shù)的超級素數(shù),并在標簽Label1中顯示超級素數(shù)的數(shù)量.程序運行效果如第17題圖所示.實現(xiàn)上述功能的VB程序如下: Private Sub Command1_Click ( ) Dim i As Integer,tmp As Integer,c As Integer Dim flag As Boolean c=0 For i=1001To 9999Step 2 ① flag=True Do While tmp<>0 If Not prime(tem) Then flag=False Exit Do End If tmp=tmp\10 Loop If flag Then List1.AddItem Str(i) ② End If Next i Label1.Caption=“四位超級素數(shù)共有“+Str(c)+“個“ End Sub Function prime(x As Integer) As Boolean'判斷是否是素數(shù) Dim i As Integer prime=True For i=2To x-1 If ③Then prime=False Exit Function End If Next i End Function 請在橫線處填入對應(yīng)①②③處的合適代碼. ①