A program that I wrote to generate even and odd numbers using vb.net programming language.
I am currently accepting programming work, IT projects, school and application development, programming projects, thesis and capstone projects, IT consulting work, computer tutorials, and web development work kindly contact me at the following email address for further details. If you want to advertise on my website kindly contact me also in my email address also. Thank you.
My email address is the following email@example.com, firstname.lastname@example.org, and email@example.com.
My mobile number here in the Philippines is 09173084360.
Public Class Form1 Private Sub btnClear_Click(sender As Object, e As EventArgs) Handles btnClear.Click txtInput.Clear() txtOutput.Clear() lblCountEven.Text = "" lblCountOdd.Text = "" lblSumEven.Text = "" lblSumOdd.Text = "" lblLastEven.Text = "" lblLastOdd.Text = "" End Sub Private Sub btnView_Click(sender As Object, e As EventArgs) Handles btnView.Click txtOutput.Clear() Dim sumEven, sumOdd, countEven, countOdd, lastEven, lastOdd As Integer Dim i = 1 Dim input = txtInput.Text While i <= input If i Mod 2 = 0 Then txtOutput.Text += i & " = Even" & Environment.NewLine sumEven += i countEven += 1 Else txtOutput.Text += i & " = Odd" & Environment.NewLine sumOdd += i countOdd += 1 End If If i = input And i Mod 2 = 0 Then lastEven = i lastOdd = i - 1 Else lastEven = i - 1 lastOdd = i End If i += 1 End While lblCountEven.Text = countEven lblCountOdd.Text = countOdd lblSumEven.Text = sumEven lblSumOdd.Text = sumOdd lblLastEven.Text = lastEven lblLastOdd.Text = lastOdd End Sub End Class