【加试题】十进制数转化为某进制数的转换方法如图所示．
十进制数x进制数（x=2，8，16等）
例中n=222（十进制数），转换成x进制数的过程如下图所示：
（1）十进制数→二进制数

（2）十进制数→八进制数

（3）十进制数→十六进制数

将每次所得的余数由下至上排列（逆序取余数），即有：
（222）₁₀转换成二进制数得到：1011110
（222）₁₀转换成八进制数得到：336
（222）₁₀转换成十六进制数得到：13　14
这时得到的逆序余数串[在数组B（1）、B（2）、…、B（k）中]的每位数均为十进制数．程序中利用字符串A来计算X进制数的位数（即COPY（A，B[i]+1，1）），见下表：

数组B	0	1	2	3	4	5	6	7	8	9	10	11	12	13	14	15
字串A	0	1	2	3	4	5	6	7	8	9	A	B	C	D	E	F
下标i	1	2	3	4	5	6	7	8	9	10	11	12	13	14	15	16

由上表得：（222）₁₀=（1011110）₂=（336）₈=（DE）₁₆．
程序运行效果如图所示：

实现上述功能的VB程序如下，请在横线处填入合适的代码．
Public Function chg10（n As Integer,m As Integer）As String
'将整数n转换成m进制数
Dim k as Integer,yushu As Integer
Dim temp As String
Dim x As String
x=“0123456789ABCDEF”
k=n
Do While①
yushu=k Mod m
②
k=k\m
Loop
chg10=temp
End Function
Private Sub Command1_Click（　　）
Dim a As Integer
a=Val（Text1．Text）
Label5．Caption=chg10（a,2）
Label6．Caption=chg10（a,8）
Label7．Caption=chg10（a,16）
End Sub.