Public Class Form1

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Me.CenterToScreen()
Label1.Text = "ป้อนค่า 1"
Label2.Text = "ป้อนค่า 2"
Label3.Text = ""
TextBox1.Text = 5
TextBox2.Text = 2
Button1.Text = "คำนวณ"
Dim op(4) As String
op(0) = "+"
op(1) = "-"
op(2) = "*"
op(3) = "/"
Dim i As Byte = 0
Do While i < 4
ComboBox1.Items.Add(op(i))
i = i + 1
Loop
ComboBox1.SelectedIndex = 0
ComboBox1.DropDownStyle = ComboBoxStyle.DropDownList

End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Label3.Text = calnum(TextBox1.Text, TextBox2.Text, ComboBox1.Text)
End Sub
End Class

Module Module1
Function calnum(ByVal t1 As String, ByVal t2 As String, ByVal P As String) As Single
Dim r As Single
Dim txt1 As Integer
Dim txt2 As Integer
Dim op As String
txt1 = CInt(t1)
txt2 = CInt(t2)
op = P
Select Case op
Case "+"
r = txt1 + txt2
Case "-"
r = txt1 - txt2
Case "*"
r = txt1 * txt2
Case "/"
r = txt1 / txt2
End Select
Return r
End Function

End Module

Top