小林想用VB實現(xiàn)以下功能：輸入一個十進制正整數(shù)（10000以內(nèi)），輸出其二進制形式．效果圖如圖1所示，完成以下填空．

Private Sub Command1_Click （　?。?br />Dim a As Long
Dim b As String
Dim c As String
a=Val（Text1．Text）
b=““
Do While a＞0
c=Str（a Mod 2）

b=c+b

b=c+b

a=

a\2

a\2

Loop
Text2．Text=b
End Sub
（1）完善代碼，空格①部分應(yīng)填入

b=c+b 或 b=c&b

b=c+b 或 b=c&b

，空格②部分應(yīng)填入

a\2

a\2

．
（2）小林為了使得代碼功能更強大，希望修改代碼，添加一個文本框輸入整數(shù)k（范圍在2到9之間），使得程序能實現(xiàn)十進制到k進制的轉(zhuǎn)化．得到的界面和代碼如圖2所示：

Private Sub Command1_Click （　　）
Dim a As Long
Dim b As String
Dim c As String
Dim k As Long
a=Val（Text1．Text）
k=Val（Text3．Text）
b=““
Do While a＞0
c=Str（

a mod k

a mod k

）
b=c+b
a=

a\k

a\k

Loop
Text2．Text=b
End Sub
其中③部分應(yīng)填入

a mod k

a mod k

，④部分應(yīng)填入

a\k

a\k

．