16.為了實現Word中“查找和替換”的功能,小張編寫了VB程序,功能如下:在文本框Text1中輸入原字符串,在文本框Text2中輸入需要替換前的文字,在文本框Text3中輸入替換后的文字。點擊命令按鈕Command1后,將替換后的結果輸出在文本框Text4中。程序界面如圖所示: 實現上述功能的代碼如下,但加框處代碼有誤,請改正。 Private Sub Command1_Click ( ?。?br />Dim s1 As String,s2 As String,n1 As Integer,n2 As Integer Dim c1 As String,c2 As String s1=Text1.Text c1=Text2.Text c2=Text3.Text n1=Len(s1) n2=Len(c1) For i=1 To n1 Step ‘錯誤①處 If Mid(s1,i,n2)=c1 Then ‘錯誤②處 Else s2=s2+Mid(s1,i,n2) End If Next i Text4.Text=s2 End Sub
17.編寫一個VB程序,比較冒泡排序和選擇排序的效率。功能如下:點擊命令按鈕Command1,在列表框List1中輸出任意10個兩位數,用數組a ( ?。┍硎尽|c擊命令按鈕Command2,用冒泡排序的方法在列表框List2中將10個數降序輸出,用數組b ( ?。┍硎荆⒃跇撕濴abel1中顯示交換次數。點擊命令按鈕Command3,用選擇排序的方法在列表框List2中將10個數降序輸出,用數組c ( ?。┍硎?,并在標簽Label2中顯示交換次數。程序界面如圖所示: 實現上述功能的VB程序如下,請在橫線處填入適合的代碼。 Dim a(1 To 10)As Integer,b(1 To 10)As Integer,c(1 To 10)As Integer ‘數組a ( ?。┯糜诒4骐S機生成的10個數,數組b( )用于冒泡排序,數組c( ?。?用于選擇排序 Dim tj As Integer Private Sub Command1_Click ( ) For i=1 To 10 a(i)=
‘填空(1)處 b(i)=a(i) c(i)=a(i) List1.AddItem a(i) Next i End Sub Private Sub Command2_Click ( ?。?br />tj=0 List2.Clear For i=1 To 9 For j=10 To
‘填空(2)處 If b(j)>b(j-1)Then temp=b(j):b(j)=b(j-1):b(j-1)=temp tj=tj+1 End If Next j Next i For i=1 To 10 List2.AddItem b(i) Next i Label1.Caption=“交換“+Str(tj)+“次“ End Sub Private Sub Command3_Click ( ?。?br />tj=0 List2.Clear For i=1 To 9 k=i For j=i+1 To 10 If c(j)>c(k) Then
‘填空(3)處 Next j If
Then‘填空(4)處 temp=c(i):c(i)=c(k):c(k)=temp tj=tj+1 End If Next i For i=1 To 10 List2.AddItem c(i) Next i Label2.Caption=“交換“+Str(tj)+“次“ End Sub