VB的case语句关于option的问题

界面如图，代码如下，请问，在两个【】中应该填什么Option ExplicitPrivate Sub Command1_Click()Dim a As Single, b As Single, t As Single, s As Stringa = Val(Text1.Text)b = Val(Text2.Text)Select Case【？】Case Option1.Values = "+"t = a + bCase Option2.Values = "-"t = a - bCase Option3.Values = "*"t = a * bCase Option4.Values = "/"If b <> 0 Thent = a / bElseMsgBox "除数为0"Text2.Text = ""Text2.SetFocusEnd IfEnd SelectIf 【？】 Then Text3.Text = a & s & b & "=" & tEnd SubPrivate Sub Form_Load()Option1.Value = TrueEnd Sub

举报该文章

相关建议 2019-03-06

第一个【】应该是request.form("OptionValue")或者request.QueryString("OptionValue")如果你上面表单里单选按钮里name为OptionValue的话；
第二个【】应该是request.form("submit")="cammand1"或者request.QueryString("submit")="cammand1",如果你上面表单里提交按钮里name为cammand1的话。

温馨提示：内容为网友见解，仅供参考

当前网址：https://11.t2y.org/zz/842sqm27f.html

其他看法

第1个回答 2012-02-07

代码经过整理后如下.
Option Explicit

Private Sub Command1_Click()
Dim a As Single, b As Single, t As Single, s As String
a = Val(Text1.Text)
b = Val(Text2.Text)
Select Case【？】
Case Option1.Values = "+"t = a + b
Case Option2.Values = "-"t = a - b
Case Option3.Values = "*"t = a * b
Case Option4.Values = "/"

If b <> 0 Then
t = a / b
Else
MsgBox "除数为0"
Text2.Text = ""
Text2.SetFocus
End If
End Select
If 【？】 Then Text3.Text = a & s & b & "=" & t
End Sub

Private Sub Form_Load()
Option1.Value = True
End Sub

这道考试题我看不懂应该填什么.这应该是VB做计算器中的代码,这道题出的!!!!

用户输入两个数字.在单选按钮中进行加减乘除选项后进行加减乘除判断并得到结果输出在text3 文本框中

.怎么能用option控件进行加减乘除选项本回答被网友采纳

第2个回答 2012-02-07

有点不明白，主要是在case option 上,正常来说select case 后面是一个变量，下面的case语句按变量值进行计算。