Private Sub Command1_Click()
Text3.Text = Val(Text1.Text) + Val(Text2.Text)
End Sub

Private Sub Command2_Click()
Label1 = "-"
Text3.Text = Val(Text1.Text) - Val(Text2.Text)
End Sub

Private Sub Command3_Click()
Label1 = "*"
Text3.Text = Val(Text1.Text) * Val(Text2.Text)
End Sub

Private Sub Command4_Click()
Label1 = "/"
Text3.Text = Val(Text1.Text) / Val(Text2.Text)
If Val(Text2.Text) = "0" Then
   MsgBox "除数不能为0"
End If
End Sub

我说呢，之前编写都没出错的，谢了，亲

这个不是主要问题，因为一开始我就数值等于数值，但是后来不行才加的“”号的，谢了！