Es ist folgendes Formular zu erstellen:


































































Dim eing1 As Single
Dim eing2 As Single

---

Private Sub txteinausgabe_GotFocus()
txteinausgabe.Text = ""
End Sub

---

Private Sub txteingabe1_GotFocus()
txteingabe1.Text = ""
End Sub

---

Private Sub cmdplus_Click()
eing1 = Val(txteingabe1.Text)
eing2 = Val(txteinausgabe.Text)
txteinausgabe.Text = eing1 + eing2
Lblist.Caption = " ="
txteingabe1.Text = eing1 & " + " & eing2
End Sub

---

Private Sub cmdminus_Click()
eing1 = Val(txteingabe1.Text)
eing2 = Val(txteinausgabe.Text)
txteinausgabe.Text = eing1 - eing2
Lblist.Caption = " ="
txteingabe1.Text = eing1 & " - " & eing2
End Sub

---

Private Sub cmddurch_Click()
If txteingabe1.Text <= Chr(48) Or txteingabe1.Text >= Chr(58) Then
MsgBox " Daten fehlen"
txteingabe1.Text = "1"
txteinausgabe.Text = "1"
Else
If txteinausgabe.Text <= Chr(48) Or txteinausgabe.Text >= Chr(58) Then
MsgBox " Daten fehlen"
txteingabe1.Text = "1"
txteinausgabe.Text = "1"
Else
eing1 = Val(txteingabe1.Text)
eing2 = Val(txteinausgabe.Text)
txteinausgabe.Text = eing1 / eing2
Lblist.Caption = " ="
txteingabe1.Text = eing1 & " / " & eing2
End If
End If
End Sub

---

Private Sub cmdmal_Click()
eing1 = Val(txteingabe1.Text)
eing2 = Val(txteinausgabe.Text)
txteinausgabe.Text = eing1 * eing2
Lblist.Caption = " ="
txteingabe1.Text = eing1 & " * " & eing2
End Sub

---

Private Sub cmdexit()
Unload Me
End Sub

---

Private Sub cmd-ce_Click()
txteingabe1.Text = "Eingabe"
txteinausgabe.Text = "Ein-Ausgabe"
End Sub

---

Private Sub cmdchr_Click()
For i = 48 To 57
Print Chr(i) & "= " & i & " ";
Next
End Sub