народ помогите найти ошибку в моей программе

Question

программа написана на языке vbscript в 6 строчке "if (x>=0) and (x<=m) then" логическая ошибка если в 6 строчке место m поставить 100 то всё будет работать почти так как и задумывалось но я ведь уже определил чему равен m почему программа не видет чему равен m? вот код программы: dim m,x,y,a,z,i,d m = 100 x = 0 do x = inputbox ("На вашем счету осталось " & m & " монет! " & "Ваша ставка") if (x>=0) and (x<=m) then y = msgbox ("Вы ставите на 1-18?",36) randomize a=INT(RND()*37 ) if (a<19) and (a>0) then z = 0 if (a<38) and (a>18) then z = 1 if (a=0) then z = 3 if (y=6) and (z=0) then i=1 if (y=6) and (z=1) then i=0 if (y=7) and (z=0) then i=0 if (y=7) and (z=1) then i=1 if (z=3) then i=0 msgbox ("Выпало число " & a) if (i=0) then m = m - x msgbox ("Вы проиграли " & x & " монет! ") end if if (i=1) then m = m + x msgbox ("Вы выиграли " & x & " монет! ") end if if (m<=0) then msgbox ("Вы проиграли") msgbox ("Конец игры") exit do end if if (m>=1000) then msgbox ("Вы выиграли") msgbox ("Конец игры") exit do end if d = msgbox ("Желаете продолжить? ",36) if (d=7) then exit do else msgbox ("Вы не можете поставить больше денег чем у вас есть! ") end if loop мне кажется что я не правельно ввёл переменную m Влад Плесовских напиши в блокноте и сохрани в файл с расширением .vbs сам поймёшь в чём проблема

Муродали Тагоймуродов · Accepted Answer

а какую именно ошибку?