Kalkulator sederhana visual basic

Berikut ini adalah salah satu program untuk membuat kalkulator sederhana menggunakan visual basic.

 

Option Explicit
Dim a As Single, b As Single
Dim c As Integer, x As Single

Private Sub Command1_Click()
   a = CSng(Text1)
   b = CSng(Text2)
   c = CInt(Text3)
   Select Case c
      Case 1
         x = a + b
      Case 2
         x = a - b
      Case 3
         x = a * b
      Case 4       
         x = a / b
      Case Else
         MsgBox "pilahan hanya 1-4"
   End Select
   Text4 = CCur(x)
End Sub

Private Sub Command2_Click()
   End
End Sub