1、在Text1中输入一个十进制数，将其转换为Text2规定的N进制数，并在Text3中输出。

Private Sub Command1_Click()
Dim T1 As Integer '文本框1的数字
Dim T2 As Integer '文本框2的数字
Dim Tm As Integer '临时数字
Dim T3 As String '返回进制值
Dim T4 As String '进制表示字符串
T1 = Int(Text1.Text)
T2 = Int(Text2.Text)
T3 = ""
T4 = "0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ" '当进制少于10时，用0－9这10个数字，当进制大于10时用AB……
Do While T1 >= T2
T3 = Mid(T4, (T1 Mod T2) + 1, 1) & T3
Tm = (T1 - (T1 Mod T2)) / T2
T1 = Tm
Loop
T3 = Mid(T4, T1 + 1, 1) & T3
Text3.Text = T3
End Sub