javady_joon
چهارشنبه 14 آبان 1393, 16:50 عصر
سلام دوستان
میشه بگید چرا من این خطا رو دارم
وقتی روی Debug کلیک میکنم میگه i=61 در حالی با msgbox مقدار i=0 ممنون
Private Sub Command_Click()
Dim asr(60) As Integer
Dim num, com, j, i As Integer
num = Val(Text.Text)
MsgBox (num)
i = 0
MsgBox (i)
com = num
Do
asr(i) = com Mod 2
com = num / 2
i = i + 1
Loop While (com <> 1)
For j = i To 1
MsgBox (asr(j))
Next j
End Sub
میشه بگید چرا من این خطا رو دارم
وقتی روی Debug کلیک میکنم میگه i=61 در حالی با msgbox مقدار i=0 ممنون
Private Sub Command_Click()
Dim asr(60) As Integer
Dim num, com, j, i As Integer
num = Val(Text.Text)
MsgBox (num)
i = 0
MsgBox (i)
com = num
Do
asr(i) = com Mod 2
com = num / 2
i = i + 1
Loop While (com <> 1)
For j = i To 1
MsgBox (asr(j))
Next j
End Sub