UC知道vb中SELECT CASE语法问题
来源：百度知道 编辑：UC知道 时间：2024/05/11 15:21:38
Private Sub Command2_Click()
A = 2: B = 3
F = InputBox("1+2-3*4/5^")
Select Case F
Case 0, 1: C = A + B
D = "+"
Case 0, 1, 2: C = A - B
D = "-"
Case 1, 2, 3: C = A * B
D = "*"
Case 2, 3, 4: C = A / B
D = "/"
Case 5, 6: C = A ^ B
D = "^"
Case Else: End
End Select
Print A; D; B; "="; C
End Sub
希望个位能帮我解释下为什么上班有的是0.1~有的是0.1.2还有的是1.2.3？有什么用吗？这个我不能了解~怎么的就一下次从CASE1 CASE2 CASE3边成CASE1.2.3那么多了~而且他的计算顺序是怎么样的~一句话~他一下写那么多怎么人出来那个是那个?电脑怎么认的?~懂的才说~瞎说的浪费感情呀~高手快指点下小弟~说清楚的加分谢谢~
哦~谢谢~我之前刚弄明白~但我不明白的是为什么书上还是(0.1.2)~（2.3.4）~那不是很麻烦吗？难道一点意义都没有吗？那他费什么话呀？还是只在这个条件下下没用以后就有用了？
A = 2: B = 3
F = InputBox("1+2-3*4/5^")
Select Case F
Case 0, 1: C = A + B
D = "+"
Case 0, 1, 2: C = A - B
D = "-"
Case 1, 2, 3: C = A * B
D = "*"
Case 2, 3, 4: C = A / B
D = "/"
Case 5, 6: C = A ^ B
D = "^"
Case Else: End
End Select
Print A; D; B; "="; C
End Sub
希望个位能帮我解释下为什么上班有的是0.1~有的是0.1.2还有的是1.2.3？有什么用吗？这个我不能了解~怎么的就一下次从CASE1 CASE2 CASE3边成CASE1.2.3那么多了~而且他的计算顺序是怎么样的~一句话~他一下写那么多怎么人出来那个是那个?电脑怎么认的?~懂的才说~瞎说的浪费感情呀~高手快指点下小弟~说清楚的加分谢谢~
哦~谢谢~我之前刚弄明白~但我不明白的是为什么书上还是(0.1.2)~（2.3.4）~那不是很麻烦吗？难道一点意义都没有吗？那他费什么话呀？还是只在这个条件下下没用以后就有用了？
从上往下执行判断,当找到符合的选项时便不再检查剩下的选项了.
因此你的代码可化简如下:
Private Sub Command1_Click()
A = 2: B = 3
F = InputBox("1+2-3*4/5^")
Select Case F
Case 0, 1: C = A + B
D = "+"
Case 2: C = A - B
D = "-"
Case 3: C = A * B
D = "*"
Case 4: C = A / B
D = "/"
Case 5, 6: C = A ^ B
D = "^"
Case Else: End
End Select
Print A; D; B; "="; C
End Sub
-----------------------------
书本难免有疏漏之处,
尽信书不如无书~_~