درخواست برنامه مضربهای عدد 2 و 5

[smd9782]

با سلام
اقا من یه برنامه زیر و میخواستم اگه جواب بدین ممنون میشم

سوال : برنامه نمایش مضربهای طبیعی کمتر از 101 ، عددهای 2 و 5 ، بصورت صفر ویک در خروجی

با تشکر

 

[the_king]

با سلام
اقا من یه برنامه زیر و میخواستم اگه جواب بدین ممنون میشم

سوال : برنامه نمایش مضربهای طبیعی کمتر از 101 ، عددهای 2 و 5 ، بصورت صفر ویک در خروجی

با تشکر

اعدادی مضربی از 2 و 5 هستند (هم مضرب 2 و هم مضرب 5) که مضرب 2 * 5 باشند :

Private Sub Form_Load()
    Dim i As Long, n As Long, s As String, t As String
    i = 1
    Do
        n = 2 * 5 * i
        If n >= 101 Then Exit Do
        s = ""
        Do
            s = CStr(n Mod 2) & s
            n = n \ 2
        Loop While n > 0
        t = t & s & vbNewLine
        i = i + 1
    Loop
    MsgBox t
End Sub