16.[加試題]素?cái)?shù)又稱(chēng)質(zhì)數(shù),指在一個(gè)大于1的自然數(shù)中,除了1和此整數(shù)自身外,不能被其他自然數(shù)整除的數(shù).超級(jí)質(zhì)數(shù)的定義為:當(dāng)一個(gè)素?cái)?shù)從低位到高位依次去掉最后一位數(shù)后,剩下的數(shù)仍然是素?cái)?shù),則此數(shù)為超級(jí)素?cái)?shù).例如:3137、313、31、3均為素?cái)?shù),所以3137為超級(jí)素?cái)?shù).小蓉設(shè)計(jì)了一個(gè)程序查找四位正整數(shù)中的超級(jí)素?cái)?shù). 程序運(yùn)行時(shí),單擊Command1,則在列表框List1中顯示所有四位數(shù)的超級(jí)素?cái)?shù),并在標(biāo)簽Label1中顯示超級(jí)素?cái)?shù)的數(shù)量.程序運(yùn)行效果如圖所示. 實(shí)現(xiàn)上述功能的VB程序如下,請(qǐng)?jiān)跈M線處填入合適的代碼. Private Sub Command1_Click ( ?。?br />Dim i As Integer,t As Integer,c As Integer Dim flag As Boolean c=0 For i=1001To 9999Step 2 t=i flag=True Do While t<>0 If ① Then flag=False Exit Do End If t=t\10 Loop If flag Then List1.AddItem Str(i) ② End If Next i Label1.Caption=“四位超級(jí)素?cái)?shù)共有“+Str(c)+“個(gè)“ End Sub Function prime(x As Integer) As Boolean Dim i As Integer prime=True For i=2To x-1 If ③ Then prime=False Exit Function End If Next i End Function (1)①處的代碼為
. (2)具體的VB程序如下,請(qǐng)?jiān)跈M線處填入合適代碼. Private Sub Command1_Click ( ) Dim s As String,i As Integer Dim str As String,ch As String List1.Clear str=Text1.Text For i=1To Len(str)
s=convert(ch) List1.AddItem ch &“→“& s Next i End Sub Private Function convert(ch As String) As String Dim m As Integer,k As Integer,n As Integer,i As Integer,s As String s=““ n=Asc(ch) Do While n>0
s=m & s If m=1Then k=k+1 End If n=n\2 Loop For i=1To 7-Len(s) s=“0“& s Next i If k Mod 2=0Then s=“1“& s Else s=“0“& s End If