【加試題】十進制數轉化為某進制數的轉換方法如圖所示．
十進制數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（　?。?br />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.