根据对分查找的思想来查找两个递增序列中最小值所在的位置，其中第一个递增序列中的数据全部大于第二个递增序列中的数据，且两个序列中没有重复数据，如组合序列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