Public Class Slip18
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim n As String
Dim post As String
Dim qua As String = ""
n = TextBox1.Text
If RadioButton1.Checked = True Then
post = "manager"
ElseIf RadioButton2.Checked = True Then
post = "engineer"
ElseIf RadioButton3.Checked = True Then
post = "accountant"
Else
post = "clerk"
End If
If CheckBox1.Checked Then
qua = qua + "b.e"
End If
If CheckBox2.Checked Then
qua = qua + "m.b.a"
End If
If CheckBox3.Checked Then
qua = qua + "graduate"
End If
If CheckBox4.Checked Then
qua = qua + "ca"
End If
MessageBox.Show("name: " & n & "post: " & post & "qualification:" & qua)
End Sub
End Class