ve sonra alttaki resimdeki gibi diziyoruz.





Dim a, b, c As Double
Dim d As String
a = TextBox1.Text
b = TextBox2.Text
d = ComboBox1.Text
Select d
Case "Topla"
c = a + b
Case "Çıkar"
c = a - b
Case "Çarp"
c = a * b
Case "Böl"
c = a / b
End Sub
TextBox3.Text = c