期末有道VB题好难，求正解~

smu2011cmq 发布于 2012-06-11 22:43， 640 次点击

没法运行出来总是会有问题，本来思路就有问题。
题目：将一个十进制整数r转化成→r（2-16）进制字符串。必须用这个方法：将r不断取余数，知道商为零，以反序得到结果。下面写出一转换函数，参数idec为十进制数，ibase为要转化成数的积，函数输出结果是字符串？

[ 本帖最后由 smu2011cmq 于 2012-6-11 22:48 编辑 ]

1 回复

liyoujiao2012-06-25 22:56

Private Sub Command2_Click()
Dim a(100) As String
num = (InputBox("请输入十进制整数"))
r = Val(InputBox("请输入进制：2～16"))
i = 1
While num <> 0
   a(i) = num Mod r
   i = i + 1
   num = num \ r
Wend
For j = i To 1 Step -1
   s = s & a(j)
Next
Print s
End Sub
常用的进制只有2，8，16，这个代码可以实现2，8的转换，
16进制需要A,B,C,D,E,F,按这个思路再加些代码即可