個對象。 (2)請根據題意將下列程序補充完整。 Private Sub Command1_Click ( ) 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.素數遷移:小王編寫了一個VB程序,在左邊List1中顯示隨機生成的10個介于[2,99]的隨機整數,單擊命令按鈕Command1后,其中的素數全部遷移到右邊的List2中并進行顯示,同時只有那些非素數(合數)的才繼續在List1中顯示,運行界面如圖所示。 實現上述功能的VB程序如下,請回答下列問題。 (1)根據代碼可知,若要產生20個隨機數,只需將的值修改為20即可。 (2)請在橫線處填入合適代碼。 Const n=10 Dim a(1To n) As Integer Private Sub Command1_Click ( )’素數遷移模塊 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循環 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 ( )’隨機數初始化模塊 Randomize’隨機數種子初始化 For i=1To n a(i)=③