16.小明編寫了一個VB程序,功能如下:在文本框Text1中輸入一段英文,并在文本框Text2中輸入英文段落中的某個單詞(或字符串),單擊“最大間距”按鈕(Command1)后,在文本框Text3中顯示該單詞在文中某兩次出現的最大間距,若只出現一次或不出現則顯示值為0.程序運行界面如圖所示: 實現上述功能的VB程序如下: Private Sub Command1_Click ( ?。?br />Dim a(1To 1000)As String'數組a存儲文中出現該指定單詞(或字符串)的各個位置 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 (1)畫線處①應填入的是
. (2)實現上述功能的VB程序如下,請在畫線處填入合適代碼. Dim a(1 To 20)As Integer Dim n As Integer Private Sub Text1_KeyPress(KeyAscii As Integer) '將輸入各隊員身高分別存入數組a中,隊員個數為n,代碼略! End Sub Private Sub Command1_Click ( ?。?br />Dim c(1To 20)As Integer Dim right As Integer,left As Integer,i As Integer For i=1To n-1 For j=1To n-i If
Then t=a(j):a(j)=a(j+1):a(j+1)=t End If Next j Next i ‘下列程序段實現數組C的合唱隊列 m=(1+n)\2 left=m:right=m c(m)=a(n) i=2 Do While i<=n If i Mod 2=0 Then right=right+1 c(right)=a(n-i+1) Else
c(left)=a(n-i+1) End If i=i+1 Loop s=
For i=2To n s=s+“,“+Str(c(i)) Next i Text2.Text=s End Sub.