17.下列VB程序代碼如下: Private Sub Command1_Click ( ?。?br />a=9 b=“YOU ARE BEST“ d=Len(b) If d>a Then Label1.Caption=Mid(b,a,d-a+1) Else Label1.Caption=“error“ ① End Sub (1)完善上述程序,①應(yīng)填入的代碼為
18.將一個十進(jìn)制正整數(shù)轉(zhuǎn)化為二進(jìn)制數(shù)可以采用“除二取余法”,主要方法就是將十進(jìn)制數(shù)用2除,保存所得余數(shù).然后將商的整數(shù)部分作為下次運(yùn)算的被除數(shù),重復(fù)上述“除二取余”操作,直至商的整數(shù)部分為零時停止.程序界面如圖所示,在文本框Text1中輸入一個正整數(shù),單擊“轉(zhuǎn)換”按鈕(Command1)后,對應(yīng)的二進(jìn)制數(shù)在文本框Text2中顯示出來. 解決此問題的VB程序如下,請?zhí)钊脒m當(dāng)?shù)恼Z句或表達(dá)式,將程序補(bǔ)充完整. Private Sub Command1_Click ( ?。?br />Dim x As Integer,s As String,r As Integer,t As Integer x=Val(Text1.Text) s=““ Do While① r=x Mod 2 s=② x=x\2 Loop Text2.Text=s End Sub (1)解決此問題所用的算法是