17.下列VB程序代碼如下: Private Sub Command1_Click ( ) 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)完善上述程序,①應填入的代碼為
18.將一個十進制正整數轉化為二進制數可以采用“除二取余法”,主要方法就是將十進制數用2除,保存所得余數.然后將商的整數部分作為下次運算的被除數,重復上述“除二取余”操作,直至商的整數部分為零時停止.程序界面如圖所示,在文本框Text1中輸入一個正整數,單擊“轉換”按鈕(Command1)后,對應的二進制數在文本框Text2中顯示出來. 解決此問題的VB程序如下,請填入適當的語句或表達式,將程序補充完整. Private Sub Command1_Click ( ) 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)解決此問題所用的算法是