Не работает одна задача в Visual Basic.

[Alekzinder]

8.В последовательности из N целых чисел определить произведение нечетных чисел.
Вот я код написал, но почемуто бесик зависает когда ввожу все данные приходится закрывать его.

Dim k, n, a, i As Integer
        k = 1
        n = Val(InputBox("n= ", "Ввод n"))
        For i = 1 To n Step 2
            a = Val(InputBox("a= ", "Ввод a"))
            Do While a <= n
                k = k * a
            Loop
        Next i
        Do Until a > n
            Print("k= ", k)
        Loop

Скажите, может быть код не правелен?

[Hacker19_90]

Скажите, может быть код не правелен?

Скажу...
Код не правильный!

[Alekzinder]

где именно?...(

[Hacker19_90]

где именно?...(

Да как бе весь

[Stilet]

В последовательности из N целых чисел

Какого рода последовательности? Массиве?

[Alekzinder]

не сказано, да как тут по другому то(

[Hacker19_90]

как на чётность не чётность проверять знаете?

[Alekzinder]

неа( я ток на 1 курсе программирования...не много знаю

[doober]

Dim k As Long, n As Integer, a As Integer, i As Integer
        k = 1
        n = Val(InputBox("n= ", "Ввод  n"))
        For i = 1 To n
            a = Val(InputBox("a= ", "Ввод a"))
          If a Mod 2 = 1 Then k = k * a
        Next i

[Alekzinder]

большое спасибо) я правдо не понял как ты сделал много окон с "а" через inputbox