Assignment 3 Program 5

Public Class Form1
    Dim n As Integer = 10
    Dim a(50) As Integer
    Private Sub RadioButton3_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton3.CheckedChanged
        Dim b1 As Integer = ComboBox1.SelectedItem()
        Dim b2 As Integer = ComboBox2.SelectedItem()
        ListBox1.Items.Clear()
        For i As Integer = b1 To b2
            If i Mod (2) <> 0 Then
                ListBox1.Items.Add(i)
            End If
        Next
    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        For i As Integer = 0 To n
            ComboBox1.Items.Add(i)
            ComboBox2.Items.Add(i)
        Next
    End Sub

    Private Sub RadioButton1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton1.CheckedChanged
        Dim Flag As Boolean
        Dim b1 As Integer = ComboBox1.SelectedItem()
        Dim b2 As Integer = ComboBox2.SelectedItem()
        ListBox1.Items.Clear()
        For i As Integer = b1 To b2
            Flag = True
            For j As Integer = 2 To i / 2
                If (i Mod j = 0) Then
                    Flag = False
                End If
            Next
            If Flag = True Then
                ListBox1.Items.Add(i)
            End If
        Next
    End Sub


    Private Sub RadioButton2_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton2.CheckedChanged
        Dim b1 As Integer = ComboBox1.SelectedItem()
        Dim b2 As Integer = ComboBox2.SelectedItem()
        ListBox1.Items.Clear()
        For i As Integer = b1 To b2
            If i Mod (2) = 0 Then
                ListBox1.Items.Add(i)
            End If
        Next
    End Sub
End Class