在vb中 用switch编写程序！

Private Sub Command1_Click()

Dim a As Double

a = Val(InputBox("请输入："))

MsgBox Switch(a >= 90, "优秀", a >= 80, "良好", a >= 70, "中等", a >= 60, "及格", a <= 60, "不及格")

End Sub

VB 里的 select 语句和 C++ 里的 switch 语句相同，不过 每一个"Case"结束时无需 <break>。

相对于 if 语句而言，switch 语句可以更方便地应用于多个分支的控制流程。C89 指明，一个 switch 语句最少可以支持 257 个 case 语句，而 C99 则要求至少支持 1023 个 case 语句。然而，在实际开发环境中，为了程序的可读性与执行效率，应该尽量减少 switch 语句中的 case 语句。

除此之外，switch 语句与 if 语句不同的是，switch 语句只能够测试是否相等，因此，case 语句后面只能是整型或字符型的常量或常量表达式；而在 if 语句中还能够测试关系与逻辑表达式。

扩展资料

在 switch 语句中，default 语句主要用于检查默认情况，或者处理错误情况，如下面的示例代码所示：

default:

printf("error\n")

break

如果在 switch 语句中去掉 default 语句，那么 switch 语句将失去对默认情况与错误情况的处理能力。所以，奉劝大家不要偷懒，老老实实把每一种情况都用 case 语句来完成，而把真正对默认情况的处理交给 default 语句来完成。即使程序真的不需要 default 处理，也应该保留此语句：

default:

break

这样做并非画蛇添足，可以避免令人误以为是忘记了 default 处理。

---