1BlogsTech

                                                                         Source Code:-       Public Class Form1     Private Sub btnCount_Click(sender As Object, e As EventArgs) Handles btnCount.Click         Dim imax As Integer         Dim evenorodd As String         Dim x As Integer         imax = InputBox("How Number you want?")         evenorodd = InputBox("what number Want even or odd?")         If evenorodd = "even" Then             For x = 2 To imax Step 2                 MsgBox(x)             Next         End If       ...

                                                                    Source Code:- Public Class Form1     Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click         Dim iNumber1 As Integer         Dim iNumber2 As Integer         Dim iResult As Integer         iNumber1 = TextBox1.Text         iNumber2 = TextBox2.Text         iResult = iNumber1 / iNumber2         MsgBox(iResult)         iResult = iNumber1 * iNumber2         MsgBox(iResult)         iResult = iNumber1 + iNumber2         MsgBox(iResult)         iResult = iNumber1 - iNumber2   ...