Question

这个计算器要怎么编写VB程序？

Answer 1

这里的要点是防止发生错误。
假设你的加、减、乘、除按钮分别是Command1、Command2、Command3、Command4，那么代码如下：
Private Sub Command1_Click()
If IsNumeric(Text1.Text) And IsNumeric(Text2.Text) Then
Text3.Text = Val(Text1.Text) + Val(Text2.Text)
End If
End Sub
Private Sub Command2_Click()
If IsNumeric(Text1.Text) And IsNumeric(Text2.Text) Then
Text3.Text = Val(Text1.Text) - Val(Text2.Text)
End If
End Sub
Private Sub Command3_Click()
If IsNumeric(Text1.Text) And IsNumeric(Text2.Text) Then
Text3.Text = Val(Text1.Text) * Val(Text2.Text)
End If
End Sub
Private Sub Command4_Click()
If IsNumeric(Text1.Text) And IsNumeric(Text2.Text) Then
If Val(Text2.Text) <> 0 Then
Text3.Text = Val(Text1.Text) / Val(Text2.Text)
End If
End If
End Sub

Answer 2

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

Private Sub Command2_Click()
a = Val(Text1.Text)
b = Val(Text2.Text)
Text3.Text = a - b
End Sub

Private Sub Command3_Click()
a = Val(Text1.Text)
b = Val(Text2.Text)
Text3.Text = a * b
End Sub

Private Sub Command4_Click()
a = Val(Text1.Text)
b = Val(Text2.Text)
Text3.Text = a / b
End Sub

Answer 3

Private Sub Command1_Click()
Text3 = Text1 + Text2
End Sub
Private Sub Command2_Click()
Text3 = Text1 - Text2
End Sub
Private Sub Command3_Click()
Text3 = Text2 * Text1
End Sub
Private Sub Command4_Click()
Text3 = Text1 / Text2
End Sub
Private Sub Form_Load()
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
End Sub

Answer 4

你这个太简单 我这个复杂点

Answer 5

连基础的计算器不会编 C语言学的烂啊

Answer 6

白学过计算机了