Найти количество нечетных чисел среди введенных - VB

Формулировка задачи:

begin
  write('Введите n: ');
  var n := ReadInteger;
 
  var c := 0;
  for var i:=1 to n do
  begin
    write ('Введите целое число: ');
    var x := ReadInteger;
    if x mod 2 <> 0 then
      c += 1;
  end;
 
  writeln('Количество нечетных равно ', c);
end.

Нужно сделать в VB . Я сделал , но не правильно , выводит только 0. Помогите пожалуйста , буду благодарен. Вот мой код :

Dim n, c As Integer
Private Sub Command1_Click()
n = (Text1.Text)
For i = 0 To n Step 1
If x = 2 <> 0 Then
c = c + 1
End If
Form1.Print Tab(1); c
Next
End Sub

Решение задачи: «Найти количество нечетных чисел среди введенных»

textual
                            Листинг программы 
                        

                                Dim doub As Double
    doub = 2 ^ 41 - 1
'    MsgBox doub Mod 2
    MsgBox Sgn(InStr(doub / 2, ","))
                        

Оцени полезность:

7 голосов , оценка 3.429 из 5

Похожие ответы