Question

VB 做计算器 做5个text和Command1 单击Command1显示两个结果

text1+ text2 / 2 = 两个数的平均数
text3 和 两个数的平均数 的相除 = A （最大值和最小值的相除）
text1 + text2 + text3 / 3 = 三个数的平均数
三个数的平均数乘A = 结果 （text4）
三个数的平均数除A = 结果 (text5)

Answer 1

代码：
b=text1.text
c=text2.text
d=text3.text
m=(b+c)/2
A=d/m
p=(b+c+A)/3
q=p*A
text4.text=q
text5.text=q
你的题目是不是搞错了，怎么 text4和text5是一样的？

Answer 2

ub Command1_Click()
Label1 = Val(Text1) + Val(Text2)
End Sub
Private Sub Command2_Click()
Label1 = Val(Text1) - Val(Text2)
End Sub
Private Sub Command3_Click()
Label1 = Val(Text1) * Val(Text2)
End Sub
Private Sub Command4_Click()
If Val(Text2) <> 0 Then
Label1 = Val(Text1) / Val(Text2)
Else
MsgBox "除数不能为0"
Text2 = ""
Text2.SetFocus
End If
End Sub

追问

只要点击一次就显示结果，不是一一点击，谢谢！