用若干个0和若干个1写成一个多位数,如果这个多位数能被63整除,那么这个数最小是多少?
1个回答
'回答：用程序循环的方法求出能被63整除的只含有1和0的多位数.
'先将这个整数转换成二进制数,然后再与63整除取余,当余数等于0时,即得到楼主要求的答案.
'笔者运行后得出的结果为 1111011111
'用VB或VBA运行代码如下：
Private Sub zhc63() '此为调用过程
'即运行本过程即可得出能被63整除的只含有1和0的数值
Dim beichusu As Long
Dim i As Integer
i = 1
Do
beichusu = IntegerToBinary(i)
i = i + 1
Loop Until beichusu Mod 63 = 0
MsgBox beichusu
Debug.Print beichusu
End Sub
'以下为十进制转二进制函数
Function IntegerToBinary(ByVal k As Long) As String
Dim t As String
While k > 0
t = CStr(k Mod 2) & t
k = k 2
Wend
If Left$(t,1) = "0" Then t = Right(t,Len(t) - 1)
IntegerToBinary = t
End Function
相关问题
