Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- Public Class Form1
- Dim Citizen, PermanantResident, StudentVisa, Male, Female As String
- Dim Yes, No As String
- Dim GPA As Single
- Dim A As Single
- Dim Income As Single
- Dim B As Single
- Dim Final As Single
- Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
- If ComboBox1.Text = "Citizen" And ComboBox2.Text = "Yes" Then
- A = 1650.0
- ElseIf ComboBox1.Text = "Citizen" And ComboBox2.Text = "No" Then
- A = 2450.0
- ElseIf ComboBox1.Text = "PermanantResident" And ComboBox2.Text = "Yes" Then
- A = 1950.0
- ElseIf ComboBox1.Text = "PermanantResident" And ComboBox2.Text = "No" Then
- A = 2600.0
- ElseIf ComboBox1.Text = "StudentVisa" And ComboBox2.Text = "Yes" Then
- A = 2800.0
- ElseIf ComboBox1.Text = "StudentVisa" And ComboBox2.Text = "No" Then
- A = 4700.0
- End If
- TextBox3.Show(A)
- If GPA > 3.5 Then
- A = A * 0.9
- End If
- If GPA = 4.0 Or Income <= 14400.0 Then
- Final = A - 1800
- ElseIf ComboBox1.Text = "Citizen" And ComboBox2.Text = "No" And ComboBox3.Text = "Female" Then
- TextBox4.Text = 2800.0 And TextBox5.Text = A - 2800
- End If
- End Sub
- End Class
Add Comment
Please, Sign In to add comment