Guest User

Untitled

a guest
Jun 23rd, 2018
95
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
VB.NET 1.36 KB | None | 0 0
  1. Public Class Form1
  2.     Dim Citizen, PermanantResident, StudentVisa, Male, Female As String
  3.     Dim Yes, No As String
  4.     Dim GPA As Single
  5.     Dim A As Single
  6.     Dim Income As Single
  7.     Dim B As Single
  8.     Dim Final As Single
  9.  
  10.  
  11.  
  12.  
  13.    
  14.     Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
  15.  
  16.  
  17.  
  18.  
  19.  
  20.         If ComboBox1.Text = "Citizen" And ComboBox2.Text = "Yes" Then
  21.             A = 1650.0
  22.         ElseIf ComboBox1.Text = "Citizen" And ComboBox2.Text = "No" Then
  23.             A = 2450.0
  24.         ElseIf ComboBox1.Text = "PermanantResident" And ComboBox2.Text = "Yes" Then
  25.             A = 1950.0
  26.         ElseIf ComboBox1.Text = "PermanantResident" And ComboBox2.Text = "No" Then
  27.             A = 2600.0
  28.         ElseIf ComboBox1.Text = "StudentVisa" And ComboBox2.Text = "Yes" Then
  29.             A = 2800.0
  30.         ElseIf ComboBox1.Text = "StudentVisa" And ComboBox2.Text = "No" Then
  31.             A = 4700.0
  32.         End If
  33.         TextBox3.Show(A)
  34.  
  35.  
  36.  
  37.         If GPA > 3.5 Then
  38.             A = A * 0.9
  39.         End If
  40.  
  41.         If GPA = 4.0 Or Income <= 14400.0 Then
  42.             Final = A - 1800
  43.         ElseIf ComboBox1.Text = "Citizen" And ComboBox2.Text = "No" And ComboBox3.Text = "Female" Then
  44.             TextBox4.Text = 2800.0 And TextBox5.Text = A - 2800
  45.  
  46.         End If
  47.  
  48.     End Sub
  49.  
  50.    
  51. End Class
Add Comment
Please, Sign In to add comment