16.小明編寫了一個(gè)VB程序,功能如下:在文本框Text1中輸入一段英文,并在文本框Text2中輸入英文段落中的某個(gè)單詞(或字符串),單擊“最大間距”按鈕(Command1)后,在文本框Text3中顯示該單詞在文中某兩次出現(xiàn)的最大間距,若只出現(xiàn)一次或不出現(xiàn)則顯示值為0.程序運(yùn)行界面如圖所示: 實(shí)現(xiàn)上述功能的VB程序如下: Private Sub Command1_Click ( ?。?br />Dim a(1To 1000)As String'數(shù)組a存儲(chǔ)文中出現(xiàn)該指定單詞(或字符串)的各個(gè)位置 Dim s As String,c As String,ch As String Dim n As Integer,max As Integer,i As Integer s=Text1.Text c=Text2.Text n=0:Max=0 For i=1To Len(s)-Len(c)+1 ch=① If ch=c Then n=n+1 a(n)=i If n>=2Then If a(n)-a(n-1)-Len(c)>Max Then Max=a(n)-a(n-1)-Len(c) End If End If Next i Text3.Text=② End Sub 以上程序段運(yùn)行時(shí),為了實(shí)現(xiàn)上述功能,橫線處①和②應(yīng)填入的代碼分別為: (1)
17.明明設(shè)計(jì)了某企業(yè)職工IC卡查詢系統(tǒng),輸入職工的卡號(hào),可以查出該卡號(hào)對應(yīng)的余額.所有職工的IC卡號(hào)和相應(yīng)的余額已分別保存在zg數(shù)組(按從小到大排序)和ye數(shù)組中,第i個(gè)職工卡號(hào)保存在zg(i)中,對應(yīng)的卡號(hào)余額保存在ye(i)中. 程序界面如圖所示,左邊列表框List1中顯示的是部分職工的卡號(hào)和余額,在文本框Text1中輸入職工的IC卡號(hào),單擊“查詢余額”按鈕(Command1)后,如果找到此卡號(hào),則在標(biāo)簽Lab3中顯示“此卡號(hào)余額為”和對應(yīng)的余額值,如果未找到則顯示“找不到此卡號(hào),請重新輸入”. 解決此問題的部分程序段如下: Const n=500'設(shè)卡號(hào)總數(shù)為500 Dim zg(1To n) As Long Dim ye(1To n) As Single Private Sub Form1_Load ( ) '此過程用于對數(shù)組zg和數(shù)組ye進(jìn)行初始賦值,代碼略 End Sub Private Sub Command1_Click ( ?。?br />Dim x As Long,i As Long,j As Long,m As Long,find As Boolean x=Val(Text1.Text) i=1:j=n:find=False Do While ① ② If x=zg(m) Then ③ ElseIf x<zg(m) Then j=m-1 Else i=m+1 End If Loop If find=true Then Lab3.Caption=″此卡號(hào)余額為″+Str(ye(m))+″元″ Else Lab3.Caption=″找不到此卡號(hào),請重新輸入″ End If End Sub 在程序①、②、③橫線處填入適當(dāng)?shù)恼Z句或表達(dá)式.將程序補(bǔ)充完整: (1)程序中①橫線處應(yīng)填入