作业帮 > 综合 > 作业

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

来源:学生作业帮 编辑:灵鹊做题网作业帮 分类:综合作业 时间:2024/05/08 04:00:04
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 Su