16.編寫(xiě)VB程序,實(shí)現(xiàn)如下功能:在文本框Text1中輸入篩選關(guān)鍵詞“ca”,單擊“篩選”按鈕Command1,在列表框List1所列字符串中查找左邊與“ca”相匹配的字符串,并在列表框List2中輸出(運(yùn)行效果如圖所示);否則,在列表框List2中顯示“無(wú)篩選結(jié)果”. 實(shí)現(xiàn)上述功能的VB代碼如下,但加框處代碼有錯(cuò),請(qǐng)改正. Dim a(1To 20)As String'用于存儲(chǔ)20個(gè)字符串 '將20個(gè)字符串分別保存賦值給數(shù)組元素a(1)、a(2)、a(3)、a(4)、…、a(19)、a(20),并在列表框List1中顯示 Private Sub Form_Load ( ) '代碼略 End Sub Private Sub Command1_Click ( ) Dim s As String,n As Integer,i As Integer Dim flag As Boolean'變量flag用于標(biāo)記是否在數(shù)組a中篩選到左邊與s匹配的字符串 List2.Clear'篩選時(shí)清空上次篩選結(jié)果 s=Text1.Text n=Len(s) flag=False For i=1To 20 If =s Then'(1) List2.AddItem a(i) flag=True End If Next i If flag=False Then '(2) End If End Sub.
17.運(yùn)動(dòng)會(huì)田徑比賽,記分裁判把各賽道運(yùn)動(dòng)員的成績(jī)表交給錄入員錄入到計(jì)算機(jī)中,錄入人員編制了如下程序.運(yùn)行程序,按道次順序依次輸入8個(gè)成績(jī),道次號(hào)存放在數(shù)組a中,相應(yīng)道次的運(yùn)動(dòng)員比賽成績(jī)存放于數(shù)組b中,并將原始成績(jī)顯示在列表框List1中.單擊“成績(jī)排序”按鈕(Command1),將原始成績(jī)從好到差排序,排序結(jié)果顯示在列表框List2中.運(yùn)行效果如圖所示. 實(shí)現(xiàn)上述功能的VB程序如下: (1)請(qǐng)?jiān)跈M線處填入合適代碼. Dim a(1To 8)As Integer'存儲(chǔ)道次編號(hào) Dim b(1To 8)As Single'存儲(chǔ)運(yùn)動(dòng)員成績(jī) Dim num As Integer Private Sub Command1_Click ( ) Dim i As Integer,j As Integer,k As Integer,p As Integer Dim t As Single For i=1To 7 k=i For j=i+1To 8 If
Then k=j End If Next j If k<>i Then p=a(i):a(i)=a(k):a(k)=p t=b(i):b(i)=b(k):b(k)=t End If Next i For i=1To 8 List2.AddItem Str(a(i)) &“道:“& Str(b(i)) Next i End Sub Private Sub Text1_KeyPress(KeyAscii As Integer)'按回車鍵錄入比賽成績(jī) Dim cj As Single If KeyAscii=13Then num=num+1 cj=Val(Text1.Text) If cj>0And num<=8Then a(num)=num
List1.AddItem Str(a(num)) &“道:“& Str(b(num)) Else MsgBox“輸入無(wú)效“ End If Text1.Text=““ End If End Sub (2)在Command1_Click