編寫VB程序實現以下功能：在文本框Textl中輸入一個十進制正整數，單擊“計算”按鈕Commandl后，將該正整數轉換為二進制數，最后在文本框Text2中輸出該二進制數中連續(xù)“0”或“1”的最長個數情況。
如：輸入十進制數35，將其轉換為二進制數為100011，其中最長連續(xù)數字是3個“0”。程序運行界面如圖所示。
（1）實現上述功能的VB程序如下，請在橫線處填入合適的代碼。
PrivateSubCommandl_Click （　?。?br />DimnAsInteger,IAsInteger,jAsInteger,mAsInteger
DimsAsString,chAsString,chlAsString,ch2AsString
n=Val（Textl.Text）
DoWhilen＜＞0
s=CStr（nMod2）+s'CStr將數字轉化為字符串，但不會有前導空格
①

n=n\2

n=n\2

Loop
ch1=Mid（s,1，1）：ch=chl
i=2：j=1：m=0
Fori=2ToLen（s）
ch2=Mid（s,i,1）
If②

ch＜＞ch2

ch＜＞ch2

Then
Ifi-j＞mThen
m=i-j
ch=chl
EndIf
ch1=ch2
③

j=i

j=i

EndIf
Nexti

Text2.Text=Str（m）&″個″&ch
EndSub
（2）如果將程序中加框處的代碼去掉，在文本框Textl中輸入15，單擊Commandl后在標簽Label2中顯示的內容是

0個1

0個1

。