個(gè)對(duì)象。 (2)請(qǐng)根據(jù)題意將下列程序補(bǔ)充完整。 Private Sub Command1_Click ( ?。?br />Dim m As String,tmp As String,ch As Strin Dim s As String,i As Integer m=Text1.Text tmp=″″ s=″″ For i=1 To Len(m) ch=Mid(m,i,1) If ch>=″0″And ch<=″9″Then
16.素?cái)?shù)遷移:小王編寫了一個(gè)VB程序,在左邊List1中顯示隨機(jī)生成的10個(gè)介于[2,99]的隨機(jī)整數(shù),單擊命令按鈕Command1后,其中的素?cái)?shù)全部遷移到右邊的List2中并進(jìn)行顯示,同時(shí)只有那些非素?cái)?shù)(合數(shù))的才繼續(xù)在List1中顯示,運(yùn)行界面如圖所示。 實(shí)現(xiàn)上述功能的VB程序如下,請(qǐng)回答下列問(wèn)題。 (1)根據(jù)代碼可知,若要產(chǎn)生20個(gè)隨機(jī)數(shù),只需將的值修改為20即可。 (2)請(qǐng)?jiān)跈M線處填入合適代碼。 Const n=10 Dim a(1To n) As Integer Private Sub Command1_Click ( ?。?cái)?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)=③