Question

4.(提高设计题)编一模拟袖珍计算器的完整程序,界面如图4.4 所示。要求:输入两个操

用VB程序
提示：

(1) 为了程序运行正确，对存放操作符的文本框 Text3 ，应使用 trim(Text3) 函数，去除运算符两边的空格。
(2) 根据存放操作符的文本框利用 Select Case 语句实现

Answer 1

Select Case Trim(TextBox3.Text)
Case "+"
TextBox4.Text = Val(TextBox1.Text) + Val(TextBox2.Text)
Case "-"
TextBox4.Text = Val(TextBox1.Text) - Val(TextBox2.Text)
Case "*"
TextBox4.Text = Val(TextBox1.Text) * Val(TextBox2.Text)
Case "/"
TextBox4.Text = (Val(TextBox1.Text)) / (Val(TextBox2.Text))
End Select