小林想用VB实现以下功能：输入一个十进制正整数（10000以内），输出其二进制形式．效果图如图1所示，完成以下填空．

Private Sub Command1_Click （　　）
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）完善代码，空格①部分应填入

b=c+b 或 b=c&b

b=c+b 或 b=c&b

，空格②部分应填入

a\2

a\2

．
（2）小林为了使得代码功能更强大，希望修改代码，添加一个文本框输入整数k（范围在2到9之间），使得程序能实现十进制到k进制的转化．得到的界面和代码如图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
其中③部分应填入

a mod k

a mod k

，④部分应填入

a\k

a\k

．