請教一個算法,。。。。 如何將9分解成8+1,將7分解成1+2+4,意思是這樣的:1,2,4,8,16,32,64,128,是常量,現在將0~255範圍之内的任何一個數字,分解成這些常量之和.謝謝 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 假设给定的数是n,先找出1,2,4,8,16,32,64,128中不比n大的数中的最大值m,将m保存到存放结果的数组A中,用n-m的值更新n的值。如果n=0,退出,输出A中的值,否则继续执行前面的操作。 假设给定的数是num1,先找出数组1,2,4,8,16,32,64,128...中不比num1大的数中的最大值maxNum,将maxNum保存到存放结果的数组A中,用num1-maxNum的值更新num1的值。如果n=0,退出,输出A中的值,否则继续执行前面的操作。 Private Sub GetValue(inValue As Integer)Dim tmp1, tmp2 As Integer tmp1 = 1 Do While inValue >= tmp1 tmp2 = tmp1 * 2 If inValue < tmp2 Then List1.AddItem tmp1 inValue = inValue - tmp1 tmp1 = 1 tmp2 = 1 Else tmp1 = tmp2 End If LoopEnd Sub 变量表达的问题 每一台电脑是不是有一个机器码?如何得到? 一个初学者的问题 如何在vb中设置excel.Chart的位置和大小?在线等 T*.DB 请大家告诉我怎么做 求一个使用StretchBlt来进行图片缩放的例子 这里有一个关于MSCOMM控件的问题,望高手赐教! 我用vb做了程序不想打包怎样vb库文件注册在别的面器上运行? 如何实现象window command一样的效果:ComboBox控件在切换单击下拉箭头时产生不同的事件 求救 有几行几列数据要显示,要求可以运行时可删除选中行,且可运行时可以编辑选定行选定列
如果n=0,退出,输出A中的值,否则继续执行前面的操作。
Dim tmp1, tmp2 As Integer
tmp1 = 1
Do While inValue >= tmp1
tmp2 = tmp1 * 2
If inValue < tmp2 Then
List1.AddItem tmp1
inValue = inValue - tmp1
tmp1 = 1
tmp2 = 1
Else
tmp1 = tmp2
End If
LoopEnd Sub