根據對分查找的思想來查找兩個遞增序列中最小值所在的位置，其中第一個遞增序列中的數據全部大于第二個遞增序列中的數據，且兩個序列中沒有重復數據，如組合序列3、4、5、6、1、2是由兩個遞增序列“3、4、5、6”和“1、2”組成的，組合序列的最小值是1，在組合序列中的位置是第5位。
為實現上述功能，小王編寫如下VB程序，首先在Text1中輸入兩個滿足條件的序列，數字之間用“，”隔開且以“，”結尾，單擊按鈕“Cod1”，在Text2中輸出最小值所在序列中的位置，程序運行界面如圖所示。
（1）在界面中，具有Caption屬性的對象有

3

3

個。
（2）在橫線處填入合適的代碼。
①

c=c*10+Val（ch）

c=c*10+Val（ch）

。
②

a（n）=c

a（n）=c

。
③

jye.ai2.jye.ai=Str（i+1）或jye.ai2.jye.ai=Str（j+1）或jye.ai2.jye.ai=Str（m+1）

jye.ai2.jye.ai=Str（i+1）或jye.ai2.jye.ai=Str（j+1）或jye.ai2.jye.ai=Str（m+1）

。
（3）加框處的表達式有誤，請改正。
改正：

i＜j

i＜j

PrivateSubCod1_Click （　　）
DimsAsString,chAsString
DimiAsInteger,jAsInteger,nAsInteger,cAsInteger
Dima（100）AsInteger
s=Text1.Text：c=0：n=0
Fori=1ToLen（s）
ch=Mid（s’i,1）
Ifch＞=“0“Andch＜=“9“Then
①
Else
n=n+1
②
c=0
EndIf
Nexti
i=1：j=n
DoWhile
m=（i+j）\2
Ifa（m）＞a（i）Then
i=m
Else
j=m
EndIf
Loop
③
EndSub