Question

VB判断语句 请教帮忙 谢谢

Text1 +Text2 =Text3当Text3 = 1或2 的时候 Text4 乘以3的显示结果当Text3 =3或4 的时候 Text4 除以3的显示结果Text4 只能得到一个结果

Answer 1

使用if语句即可，代码如下。

（问题中没有说明具体的数据类型和范围，就转换成双精度浮点型来运算了）

Private Sub Command1_Click()
Text3.Text = CDbl(Text1.Text) + CDbl(Text2.Text)
If Text3.Text = "1" Or Text3.Text = "2" Then
Text4.Text = CDbl(Text4.Text) * CDbl(Text3.Text)
ElseIf Text3.Text = "3" Or Text3.Text = "4" Then
Text4.Text = CDbl(Text4.Text) / CDbl(Text3.Text)
End If
End Sub