VB计算问题有公式:a+b=c,要求输入任意两个值,能求出第三个值.输入框中要求只能输入数字、小数点、负号.请大侠帮助…

问题描述:

VB计算问题
有公式:a+b=c,要求输入任意两个值,能求出第三个值.输入框中要求只能输入数字、小数点、负号.请大侠帮助……
1个回答 分类:综合 2014-11-12

问题解答:

我来补答
Private Sub Command1_Click()
If Not IsNumeric(Trim(Text1.Text)) Then
MsgBox "A不是数字"
Text1.SetFocus
Exit Sub
End If
If Not IsNumeric(Trim(Text2.Text)) Then
MsgBox "B不是数字"
Text2.SetFocus
Exit Sub
End If
Text3.Text = Val(Text1.Text) + Val(Text2.Text)
End Sub
再问: 感谢你的回复,但是以上代码只能实现a、b求和功能,如果在b、c中输入数字,无法求得a的值啊!
再答: Private Sub Command1_Click() If IsNumeric(Trim(Text1.Text)) and IsNumeric(Trim(Text2.Text)) Then Text3.Text = Val(Text1.Text) + Val(Text2.Text) Elseif IsNumeric(Trim(Text1.Text)) and IsNumeric(Trim(Text3.Text)) Then Text2.Text = Val(Text3.Text) - Val(Text1.Text) Elseif IsNumeric(Trim(Text2.Text)) and IsNumeric(Trim(Text3.Text)) Then Text1.Text = Val(Text3.Text) - Val(Text2.Text) Else Msgbox "至少输入两个数值!" End If End Sub
 
 
展开全文阅读
剩余:2000