Vb-ben a math osztály segítségével nemlehet egyszerűen meghatározni hogy egy szám páros e vagy nem?

Truncate, majd Mod. Pl.:

Dim aSzam As Double

Dim paros As Boolean

If aSzam.Truncate() Mod 2 = 0 Then

paros = True

Else

paros = False

End If

(nem teszteltem, de valahogy így kellene működnie)

(VB-ben nem biztos, hogy % a jele, szóval maradékos osztás)

if(szam % 1 > 0){

Math.floor[?VB](szam);

if (szam % 2 == 0){

printeldVB(páros);

}

else{

printeldVB("páratlan");

}

}

else{

if (szam % 2 == 0){

printeldVB(páros);

}

else{

printeldVB("páratlan");

}

}

Ez mondjuk nem floorolja le mindig, de amúgy fölös ilyen hosszan. Elég ez is:

Math.floor[?VB](szam);

if (szam % 2 == 0){

printeldVB(páros);

}

else{

printeldVB("páratlan");

}

Module Module1

Sub Main()

Dim n, c As Integer

c = 2

Console.WriteLine("Enter a number to check if it is Even or Odd")

Console.WriteLine(Constants.vbCrLf)

n = Convert.ToInt16(Console.ReadLine())

If (n Mod c = 0) Then

Console.WriteLine(n.ToString() + " is Even.")

End If

If Not (n Mod c = 0) Then

Console.WriteLine(n.ToString() + " is Odd.")

End If

Console.WriteLine(Constants.vbCrLf)

Console.WriteLine("Press any key to continue........")

Console.ReadKey()

End Sub

End Module