。 Private Sub GetInfo_Click ( ?。?br />Dim x(1 To 100)As String'存儲讀取的奇數段二進制 Dim y(1 To 100)As String'存儲讀取的偶數段二進制 Dim c As String Dim n As Integer Dim k As Integer c=Text1.Text n=Len(c):i=1:k=1:j=1 v=““ Do While i<=n ch=Mid(c,i,1) If ch=“|“Then If k Mod 2=1 Then ① Else y(k\2)=v List1.AddItem x(k\2+1)+““+y(k\2) End If v=““ k=k+1 Else ② End If i=i+1 Loop End Sub
(填數字)。 (2)請在畫線處填入合適的代碼。 Const n=300 Dim i As Integer,k As Integer,length As Integer,L As Integer Dim pos As Integer,s1 As String,res As String Dim f(1 To 26)As Integer'數組f記錄每個小寫英文字母的出現次數 Dim s(1 To n)As Integer'數組s記錄每個輸入字符在字母表中的位置 Private Sub Command1_Click ( ) res=““ s1=Text1.Text For i=1 To Len(s1) s(i)=①
Next i k=0:pos=1:length=n For i=1 To 26 f(i)=0 Next i For i=1 To Len(s1) If f(s(i))=0 Then k=k+1 f(s(i))=f(s(i))+1'調整右邊界,直到達到26個字母 Do While②
f(s(pos))=f(s(pos))-1 If③
Then k=k-1 If i-pos+1<length Then length=i-pos+1 res=Mid(s1,pos,length) L=pos End If End If pos=pos+1 Loop Next i If res<>““Then Text2 Text=res Label1.Caption=“最短長度:“+Str(length)+“開始位置:“+Str(L) Else Label1.Caption=“無解!“ End If End Sub