15.編寫“數(shù)字提取”程序,實(shí)現(xiàn)如下功能:在文本框Text1中輸入文本信息,點(diǎn)擊“提取”按鈕Command1,將文本信息中的數(shù)字以“,”間隔輸出到文本框Text2中。程序運(yùn)行界面如圖所示,VB代碼如下,請回答下列問題: (1)如圖所示,該程序共有個對象。 (2)請根據(jù)題意將下列程序補(bǔ)充完整。 Private Sub Command1_Click ( ?。?br />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中顯示隨機(jī)生成的10個介于[2,99]的隨機(jī)整數(shù),單擊命令按鈕Command1后,其中的素數(shù)全部遷移到右邊的List2中并進(jìn)行顯示,同時只有那些非素數(shù)(合數(shù))的才繼續(xù)在List1中顯示,運(yùn)行界面如圖所示。 實(shí)現(xiàn)上述功能的VB程序如下,請回答下列問題。 (1)根據(jù)代碼可知,若要產(chǎn)生20個隨機(jī)數(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 ( ?。S機(jī)數(shù)初始化模塊 Randomize’隨機(jī)數(shù)種子初始化 For i=1To n a(i)=③