VB中 利用文本框,下拉组合框和标签控件,设计一个进行四则运算和计算机进行评判的程序。
发布网友
发布时间:2022-04-27 07:03
我来回答
共1个回答
热心网友
时间:2023-09-13 02:26
最好使用分支判断switch和case,因为没有安装.NET环境,就用笨方法了
Dim A%
If ComboBox1.SelectedItem = "+" Then
A = Val(TextBox1.Text) + Val(TextBox2.Text)
End If
If ComboBox1.SelectedItem = "-" Then
A = Val(TextBox1.Text) - Val(TextBox2.Text)
End If
If ComboBox1.SelectedItem = "*" Then
A = Val(TextBox1.Text) * Val(TextBox2.Text)
End If
If ComboBox1.SelectedItem = "/" Then
A = Val(TextBox1.Text) / Val(TextBox2.Text)
End If
If TextBox3.Text = "" Then
MsgBox("请输入答案")
End If
If TextBox3.Text = A Then
Label2.Text = "正确"
Else
Label2.Text = "错误,正确答案为: " & A
End If