按规律拆分正整数

bifengxia · 发表于 2008-2-19 21:36

本帖最后由爱疯于 2013-4-2 08:44 编辑 我也来出一个题.
输入任一正整数,按规律将其拆分为多个整数,并分别输出.输出的整数必须满足如下条件: 1.必须是2的n次方(n为非负整数),如1,2,4,8,16,32......; 2.每个数只能出现一次:
------------------------- 下面是几个示例: 输入数字 15,输出结果为:8,4,2,1    (8+4+2+1=15) 输入数字 29,输出结果为:16,8,4,1   (16+8+4+1=29) 输入数字 130,输出结果为:128,2     (128+2=130)
<DIV align=right>[此贴子已经被作者于2008-2-21 0:33:05编辑过]</DIV>

联想 · 发表于 2008-2-20 08:32

Sub TenToTwo()     Dim a&, b&, i%, k%     Dim f As String     Dim c(1 To 100) As Long     b = InputBox("please enter your number")     Do While b <> 0         a = Int(b / 2)         b = a         i = i + 1         c(i) = a Mod 2     Loop     For k = 1 To i         If c(k) = 1 Then             f = 2 ^ k & "," & f         Else                 End If     Next     f = Left(f, Len(f) - 1)     MsgBox f End Sub

bifengxia · 发表于 2008-2-20 12:22

<div class="msgheader">QUOTE:</div><div class="msgborder">以下是引用联想在2008-2-20 8:32:00的发言： Sub TenToTwo()     Dim a&, b&, i%, k%     Dim f As String     Dim c(1 To 100) As Long     b = InputBox("please enter your number")     Do While b <> 0         a = Int(b / 2)         b = a         i = i + 1         c(i) = a Mod 2     Loop     For k = 1 To i         If c(k) = 1 Then             f = 2 ^ k & "," & f         Else                 End If     Next     f = Left(f, Len(f) - 1)     MsgBox f End Sub </div>偶数正确,奇数错误.奖7金币.

联想 · 发表于 2008-2-20 16:34

Sub TenToTwo()     Dim a&, b&, i%, k%     Dim f As String     Dim c(1 To 100) As Long     b = InputBox("please enter your number")     Do While b <> 0         i = i + 1         c(i) = b Mod 2         a = Int(b / 2)         b = a                     Loop     For k = 1 To i + 1         If c(k) = 1 Then             f = 2 ^ (k - 1) & "," & f         Else                 End If     Next     f = Left(f, Len(f) - 1)     MsgBox f End Sub 改正一下,谢谢指正.

一剑惊心 · 发表于 2008-2-20 16:39

<div class="quote" twffan="done">以下是引用联想在2008-2-20 16:34:00的发言： Sub TenToTwo()     Dim a&, b&, i%, k%     Dim f As String     Dim c(1 To 100) As Long     b = InputBox("please enter your number")     Do While b <> 0         i = i + 1         c(i) = b Mod 2         a = Int(b / 2)         b = a                     Loop     For k = 1 To i + 1         If c(k) = 1 Then             f = 2 ^ (k - 1) & "," & f         Else                 End If     Next     f = Left(f, Len(f) - 1)     MsgBox f End Sub 改正一下,谢谢指正.</div>学习了

bifengxia · 发表于 2008-2-21 00:25

<div class="msgheader">QUOTE:</div><div class="msgborder">以下是引用联想在2008-2-20 16:34:00的发言： Sub TenToTwo()     Dim a&, b&, i%, k%     Dim f As String     Dim c(1 To 100) As Long     b = InputBox("please enter your number")     Do While b <> 0         i = i + 1         c(i) = b Mod 2         a = Int(b / 2)         b = a                     Loop     For k = 1 To i + 1         If c(k) = 1 Then             f = 2 ^ (k - 1) & "," & f         Else                 End If     Next     f = Left(f, Len(f) - 1)     MsgBox f End Sub 改正一下,谢谢指正.</div>[em17][em17][em17][em17]

bifengxia · 发表于 2008-2-21 00:29

'来一段递归方式的: '主程序 Sub 拆分正整数()     Dim num As Long, strOutPut As String     num = InputBox("请输入一个正整数")     strOutPut = 拆分(num, "")     MsgBox "最后结果为:" & Right(strOutPut, Len(strOutPut) - 1) End Sub '递归函数 Function 拆分(ByVal n As Long, ByVal strTemp As String)     Dim lngTemp As String, lngNewNum As Long     lngTemp = 2 ^ Int(Application.WorksheetFunction.Log(n, 2))     lngNewNum = n - lngTemp     If lngNewNum > 0 Then         lngTemp = 拆分(lngNewNum, lngTemp)     End If     拆分 = strTemp & "," & lngTemp End Function

legend_chen · 发表于 2008-2-23 10:31

Sub tentotwo()     Dim i As Integer, a As Long, result As String     a = InputBox("输入一个正整数")     Do While a > 0         b = a Mod 2         i = i + 1         If b = 1 Then result = 2 ^ (i - 1) & "," & result         a = a \ 2     Loop     MsgBox Left(result, Len(result) - 1) End Sub 上面程序太长,再简化一下.

		自动登录	找回密码
密码			注册