VB中 利用文本框,下拉组合框和标签控件,设计一个进行四则运算和计算机进行评判的程序。
利用文本框,下拉组合框和标签控件,设计一个进行四则运算和计算机进行评判的程序。要求:用户输入两个运算数,选择运算符并输入计算结果,由计算机进行评判,正确则显示相应信息;错...
利用文本框,下拉组合框和标签控件,设计一个进行四则运算和计算机进行评判的程序。
要求:用户输入两个运算数,选择运算符并输入计算结果,由计算机进行评判,正确则显示相应信息;错误则显示错误并给出正确结果。如下图所示。
邮箱 sharon2345。126.com~ 谢谢~(。改成@) 展开
要求:用户输入两个运算数,选择运算符并输入计算结果,由计算机进行评判,正确则显示相应信息;错误则显示错误并给出正确结果。如下图所示。
邮箱 sharon2345。126.com~ 谢谢~(。改成@) 展开
1个回答
展开全部
最好使用分支判断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
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
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询