| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 640 人关注过本帖
标题:期末有道VB题好难,求正解~
只看楼主 加入收藏
smu2011cmq
Rank: 1
等 级:新手上路
帖 子:1
专家分:0
注 册:2012-3-20
收藏
 问题点数:0 回复次数:1 
期末有道VB题好难,求正解~
没法运行出来总是会有问题,本来思路就有问题。
题目:将一个十进制整数r转化成→r(2-16)进制字符串。必须用这个方法:将r不断取余数,知道商为零,以反序得到结果。下面写出一转换函数,参数idec为十进制数,ibase为要转化成数的积,函数输出结果是字符串?


[ 本帖最后由 smu2011cmq 于 2012-6-11 22:48 编辑 ]
搜索更多相关主题的帖子: 有道 十进制 字符串 
2012-06-11 22:43
liyoujiao
Rank: 1
等 级:新手上路
帖 子:2
专家分:0
注 册:2012-6-25
收藏
得分:0 
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,按这个思路再加些代码即可
2012-06-25 22:56
快速回复:期末有道VB题好难,求正解~
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.026917 second(s), 7 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved