16.如果兩個質數的差為2,則這兩個質數稱為孿生質數對;編寫VB程序,實現如下功能:單擊“顯示孿生質數對”按鈕Command1,在列表框list1中顯示100以內的所有孿生質數對(運行效果如圖所示)。 實現上述功能的VB代碼如下,但加框處代碼有錯,請改正。 Dim a(1To 50)As Integer Private Sub Command1_Click ( ) Dim i As Integer k=0:i=3 Do While i<=100 If Then‘(1) k=k+1 a(k)=i End If i=i+2 Loop For i=2To k If Then‘(2) List1.AddItem Str(a(i-1))+“和“+Str(a(i)) End If Next i End Sub Function prime(x As Integer) As Boolean prime=False For i=2To Int(Sqr(x)) If x Mod i=0Then prime=True Exit For End If Next i End Function。
17.編寫VB程序,實現程序功能:當單擊“顯示”按鈕Command1后,隨機產生n個不相同的、1到100之間的隨機整數,并在列表框List1中顯示;單擊“排序”按鈕Command2后,在列表框List2中顯示排序后的結果. 程序設計界面如圖所示,請回答下列問題: (1)請在橫線處填入合適的代碼. Const n=10 Dim i As Integer Dim a(1To 10)As Integer Private Sub Command1_Click ( )'產生10個不相同的隨機整數 For i=1To n a(i)=Int(Rnd*100)+1
If a(j)=a(i) Then i=i-1 Exit For End If Next j Next i For i=1To 10 List1.AddItem a(i) Next i End Sub Private Sub Command2_Click ( )'排序 Dim k as Integer i=1 k=i For i=1To k List 2.AddItem a(i) Next i End Sub (2)程序加框處的代碼采用的是