16.【加試題】數據插入.用VB設計程序,主要功能如下:隨機產生15個200以內的正整數數列,按升序排序后顯示在List1列表框中,在文本框Text1中輸入1個200以內的正整數,單擊“插入”按鈕Command1后將其插入數列中,并保持數列仍然有序,顯示在列表框List2中,同時在標簽Label4中顯示插入的位置,程序界面如圖所示. 實現上述功能的VB程序代碼如下,請在橫線處填上合適的代碼. Dim a(1To 200)As Integer Private Sub Command1_Click( ) Dim key As Integer key=
i=1 Do While key>a(i)And i<=15 i=i+1 Loop Label4.Caption=“該數插入的位置是:”+Str(i) If i=16Then a(i)=key Else For j=16To i+1Step-1
Next j a(i)=key End If For i=1To 16 List2.AddItem a(i) Next i End Sub Private Sub Form_Load( ) '隨機生成15個200以內的正整數 Randomize For i=1To 15 a(i)=Int(Rnd*200)+1 Next i '將15個數從小到大排序 For i=1To 14 k=i For j=i+1To 15 If a(k)>a(j) Then k=j Next j If i<>k Then t=a(i):a(i)=a(k):a(k)=t End If Next i '將排好序的數輸出在列表框List1中 List1.Clear For i=1To 15 List1.AddItem str(a(i)) Next i End Sub 程序中①橫線處應填 程序中②橫線處應
17.【加試題】要求將某一字符串中指定的字符改寫成小寫或大寫(如果原先是大寫就改成小寫,反之改成大寫),并將處理后的字符重新輸出. 程序界面如下圖所示,在Text1中輸入原始字符串,在Text2中輸入需要改變的字符,單擊“改變”按鈕后,在Text3中輸出處理后的結果. 程序代碼如下: Private Sub Command1_Click ( ) Dim s As String,result As String,k As String Dim zs As String,n As Integer result=“” s=Text1.Text k=Text2.Text For n=1To Len(s)
If zs=k Then If Asc(zs)>=65And Asc(zs)<=90Then zs=Chr(Asc(zs)+32) Else lf Asc(zs)>=97And Asc(zs)<=122Then zs=Chr(Asc(zs)-32) End If End If
Next n
End Sub 在程序①、②、③橫線處填入適當的語句或表達式,把程序補充完整. (1)程序中①橫線處應填入