【加試題】十進制數(shù)轉(zhuǎn)化為某進制數(shù)的轉(zhuǎn)換方法如圖所示．
十進制數(shù)x進制數(shù)（x=2，8，16等）
例中n=222（十進制數(shù)），轉(zhuǎn)換成x進制數(shù)的過程如下圖所示：
（1）十進制數(shù)→二進制數(shù)

（2）十進制數(shù)→八進制數(shù)

（3）十進制數(shù)→十六進制數(shù)

將每次所得的余數(shù)由下至上排列（逆序取余數(shù)），即有：
（222）₁₀轉(zhuǎn)換成二進制數(shù)得到：1011110
（222）₁₀轉(zhuǎn)換成八進制數(shù)得到：336
（222）₁₀轉(zhuǎn)換成十六進制數(shù)得到：13　14
這時得到的逆序余數(shù)串[在數(shù)組B（1）、B（2）、…、B（k）中]的每位數(shù)均為十進制數(shù)．程序中利用字符串A來計算X進制數(shù)的位數(shù)（即COPY（A，B[i]+1，1）），見下表：

數(shù)組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）₁₆．
程序運行效果如圖所示：

實現(xiàn)上述功能的VB程序如下，請在橫線處填入合適的代碼．
Public Function chg10（n As Integer,m As Integer）As String
'將整數(shù)n轉(zhuǎn)換成m進制數(shù)
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.