1989年全国初中联赛:在十进制中,各个数位是0或1,并能被225整除的最小数是.

来源:学生作业帮助网 编辑:作业帮 时间:2024/11/01 07:51:51

1989年全国初中联赛:在十进制中,各个数位是0或1,并能被225整除的最小数是.
1989年全国初中联赛:在十进制中,各个数位是0或1,并能被225整除的最小数是.

1989年全国初中联赛:在十进制中,各个数位是0或1,并能被225整除的最小数是.
1000110
Private Function TenturnTwo(ByVal varNum As Long)
Dim returnString As String,ModNum As Integer
Do While varNum > 0
ModNum = varNum Mod 2
varNum = varNum \ 2
returnString = Trim(Str(ModNum)) + returnString
Loop
TenturnTwo = returnString
End Function
Private Sub Form_Load()
Dim i As Integer
For i = 1 To 255
List1.AddItem TenturnTwo(i)
If List1.List(i - 1) Mod 255 = 0 Then Text1.Text = Text1.Text & List1.List(i - 1) & vbCrLf
Next
End Sub