如何用vb制作计算器(只要有加减乘除,三个文本框)?

发布网友发布时间：2022-04-29 22:47

共3个回答

热心网友时间：2022-06-24 23:22

VB中的textbox里的内容默认是string类型，，如果用+号连接，就会认为是字符型数据做连接运算。如果想要作为数字进行加法，就必须强制转换算成数值型，可以用Val函数来实现转换。以加法为例：
Private Sub Command1_Click() '加

Text3.Text = Val(Text1) + Val(Text2.Text)
Text1.Text = ""
Text2.Text = ""
End Sub
其余几个预算，也是一样的道理。

热心网友时间：2022-06-24 23:22

Private Sub Command1_Click() '加
Text3.Text = Val(Text1) + Val(Text2.Text)
Text1.Text = ""
Text2.Text = ""
End Sub

Private Sub Command2_Click() '减
Text3.Text = Val(Text1) - Val(Text2.Text)
Text1.Text = ""
Text2.Text = ""
End Sub

Private Sub Command3_Click() '乘
Text3.Text = Val(Text1) * Val(Text2.Text)
Text1.Text = ""
Text2.Text = ""
End Sub

Private Sub Command4_Click() '除
Text3.Text = Val(Text1) / Val(Text2.Text)
Text1.Text = ""
Text2.Text = ""
End Sub
注：
textbox里的内容是是string类型，参与运算时应该强制转换算成数值型，用Val函数
你这里+号两端都是字符类型数据，在VB中是做连接运算。

热心网友时间：2022-06-24 23:23

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