โปรแกรมการสอบถามข้อมูล

โปรแกรมการสอบถามข้อมูล
- ให้ทําการสร้าง Project ใหม่โดย ไปเลือกที่เมนู File >> New Projects และเลือกที่Windows Application ตั้งชื่อโปรเจคใหม่เป็น exam2 ในช่อง Name
- สร้าง User Interface ตามตัวอย่างหน้าจอต่อไปนี้



- ให้เขียนโปรแกรม ตามตัวอย่างต่อไปนี้ (โดยให้กําหนดชื่อคอนโทรลจากโปรแกรม)
Public Class Form1
Dim name_std As String
Dim gender As String
Dim age As String
Dim Education As String
Dim hobby,hobby1, hobby2, hobby3, hobby4 As String
------------------------------------------------------------------------------
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
name_std = "สวัสดีครับคุณ" & TextBox1.Text
If (RadioButton1.Checked) Then
gender = "คุณคือเพศชาย"
Else
gender = "คุณคือเพศหญิง"
End If
age = "อายุ" & TextBox2.Text & "ปี"
Education = "การศึกษาระดับ" & ComboBox1.Text
If CheckBox1.Checked = True Or + _
CheckBox2.Checked = True Or + _
CheckBox3.Checked = True Or + _
CheckBox4.Checked = True Then
If (CheckBox1.Checked) Then
hobby1 = CheckBox1.Text
Else : hobby1 = " "
End If
If (CheckBox2.Checked) Then
hobby2 = CheckBox2.Text
Else : hobby2 = " "
End If
If (CheckBox3.Checked) Then
hobby3 = CheckBox3.Text
Else : hobby3 = " "
End If
If (CheckBox4.Checked) Then
hobby4 = CheckBox4.Text
Else : hobby4 = " "
End If
hobby = hobby1 & " " & hobby2 & " " & hobby3 & " " & hobby4
End If
MsgBox(name_std & ControlChars.CrLf & gender & ControlChars.CrLf & age & ControlChars.CrLf & Education & ControlChars.CrLf & "งานอดิเรกคุณคือ" & hobby)
End Sub
-----------------------------------------------------------------------------
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
End
End Sub
End Class