vb四则运算计算机,怎么用VB做简易的四则运算计算器

很简单的：窗口放入四个COMMAND控件(Caption属性分别为+、－、X、÷)，三个TEXT控件，再放入三个Label控件(Caption属性分别为：操作数1、操作数2和计算结果)，窗口的Caption属性改为“四则运算”

代码如下：

Private Sub Command1_Click()

If Val(Text1.Text) + Val(Text2.Text) Int(Val(Text1.Text) + Val(Text2.Text)) Then

Text3.Text = Format(Val(Text1.Text) + Val(Text2.Text), 0.######)

Else

Text3.Text = Val(Text1.Text) + Val(Text2.Text)

End If

End Sub

Private Sub Command2_Click()

If Val(Text1.Text) - Val(Text2.Text) Int(Val(Text1.Text) - Val(Text2.Text)) Then

Text3.Text = Format(Val(Text1.Text) - Val(Text2.Text), 0.######)

Else

Text3.Text = Val(Text1.Text) - Val(Text2.Text)

End If

End Sub

Private Sub Command3_Click()

If Val(Text1.Text) * Val(Text2.Text) Int(Val(Text1.Text) * Val(Text2.Text)) Then

Text3.Text = Format(Val(Text1.Text) * Val(Text2.Text), 0.######)

Else

Text3.Text = Val(Text1.Text) * Val(Text2.Text)

End If

End Sub

Private Sub Command4_Click()

If Val(Text1.Text) / Val(Text2.Text) Int(Val(Text1.Text) / Val(Text2.Text)) Then

Text3.Text = Format(Val(Text1.Text) / Val(Text2.Text), 0.######)

Else

Text3.Text = Val(Text1.Text) / Val(Text2.Text)

End If

End Sub

取消

评论