15.編寫“數(shù)字提取”程序,實現(xiàn)如下功能:在文本框Text1中輸入文本信息,點擊“提取”按鈕Command1,將文本信息中的數(shù)字以“,”間隔輸出到文本框Text2中。程序運行界面如圖所示,VB代碼如下,請回答下列問題: (1)如圖所示,該程序共有個對象。 (2)請根據(jù)題意將下列程序補充完整。 Private Sub Command1_Click ( ) Dim m As String,tmp As String,ch As String Dim s As String,i As Integer m=Text1.Text tmp=““ s=““ For i=1To Len(m) ch=Mid(m,i,1) If ch>=“0“And ch<=“9“Then ①
ElseIf tmp<>““Then s=s+tmp+“,“ ②
End If Next i Text2.Text=s End Sub (3)輸入的文本信息如圖a所示,若刪除加框處代碼,則文本框Text2中顯示的內(nèi)容為
16.素數(shù)遷移:小王編寫了一個VB程序,在左邊List1中顯示隨機生成的10個介于[2,99]的隨機整數(shù),單擊命令按鈕Command1后,其中的素數(shù)全部遷移到右邊的List2中并進(jìn)行顯示,同時只有那些非素數(shù)(合數(shù))的才繼續(xù)在List1中顯示,運行界面如圖所示。 實現(xiàn)上述功能的VB程序如下,請回答下列問題。 (1)根據(jù)代碼可知,若要產(chǎn)生20個隨機數(shù),只需將的值修改為20即可。 (2)請在橫線處填入合適代碼。 Const n=10 Dim a(1To n) As Integer Private Sub Command1_Click ( )’素數(shù)遷移模塊 Dim i As Integer List1.Clear’清除列表框 List2.Clear For i=1To n For j=2To a(i)-1 If ①
Then Exit For’Exit For的功能是退出For循環(huán) End If Next j If ②
Then List2.AddItem Str(a(i)) Else List1.AddItem Str(a(i)) End If Next i End Sub Private Sub Form_Load ( )’隨機數(shù)初始化模塊 Randomize’隨機數(shù)種子初始化 For i=1To n a(i)=③