十進(jìn)制數(shù)轉(zhuǎn)二進(jìn)制數(shù)，并統(tǒng)計(jì)二進(jìn)制數(shù)中數(shù)字“1”的個(gè)數(shù)。程序功能如下：在文本框text1 中輸入一個(gè)十進(jìn)制正整數(shù)n（n＜=32767），單擊“運(yùn)行”按鈕Com1后，在標(biāo)簽Label2中顯示 二進(jìn)制數(shù)，并在標(biāo)簽Label3中顯示二進(jìn)制數(shù)中數(shù)字“1”的個(gè)數(shù)。程序運(yùn)行界面如下圖所示
PrivateSubCom1_Click

（　?。?/div>

（　?。?/div>
Dimm Asinteger,sumasinteger,rasinteger
Dims asstring
IfVal（Text1．Text）＞32767then
Label2．caption=“請(qǐng)重新輸入1個(gè)不超過(guò)32767的正整數(shù)！”
Else
m=val（text1．text）：sum=0：s=″″
Do while m＞0
r=mmod 2 s=s+str（r）（*）
sum=sum+r

①

①

①

m=m\2

m=m\2

Loop
Label2．caption=″二進(jìn)制數(shù)為：″+s
Label3．caption=″二進(jìn)制數(shù)中1的個(gè)數(shù)：″+②

str（sum）

str（sum）

End if
End sub
（1）“運(yùn)行”上面的文字是修改按鈕的哪個(gè)屬性

B

B

（單選，填字母：A．text/B．caption/C．name/D．enabled）
（2）代碼“PrivateSubCom1_Click

（　?。?/div>

（　?。?/div>”中的Click是

C

C

。（單選，填字母：A．對(duì)象名/B。
屬性名/C．事件名/D．方法名）
（3）（*）處代碼有錯(cuò)誤，請(qǐng)改正
（4）請(qǐng)?jiān)跈M線(xiàn)處填入合適的代碼
①

m=m\2

m=m\2

②

str（sum）

str（sum）

（5）若在文本框Text1中輸入“40000”（不包括雙引號(hào)），則運(yùn)行程序后，Label2中顯示的內(nèi)容為

請(qǐng)重新輸入1個(gè)不超過(guò)32767的正整數(shù)！

請(qǐng)重新輸入1個(gè)不超過(guò)32767的正整數(shù)！