@H_301_2@
我们认识了
@H_301_2@inputBox
和
@H_301_2@msgBox
，能够实现网页和用户的对话，并能实现二个数的相加结果显示。我们常说程序的出现是为了解决现实生活中的问题，可现实的问题不可能都是
@H_301_2@1+1=2
般的简单，我们有时候会面对不同选择，选择不同，结果不同。
@H_404_18@
例如：考试成绩在
@H_301_2@90
分以上者，可获得奖学金
@H_301_2@100
元，成绩在
@H_301_2@80
分以上者可获得
@H_301_2@50
元，否则没有奖学金。
@H_404_18@
@H_301_2@1.
实现过程
@H_404_18@
@H_301_2@
如果成绩在
@H_301_2@90
分以上，获奖学金
@H_301_2@100
元
@H_404_18@
@H_301_2@
如果成绩在
@H_301_2@80
分以上，获奖学金
@H_301_2@50
元
@H_404_18@
@H_301_2@
否则，没有奖学金
@H_404_18@
在
@H_301_2@VB
脚本语言中，有两种条件语句，来实现判断
@H_404_18@
（
@H_301_2@1
）
@H_301_2@if
语句，结构有以下几种形式
@H_404_18@
@H_301_2@ 1>If…then…end if
@H_404_18@
如果
@H_301_2@…
则
@H_301_2@…
结束；在
@H_301_2@if
（如果）的后面跟上的是条件，
@H_301_2@then
（则）后面跟上的是满足
@H_301_2@if
条件则执行的语句
@H_404_18@
例：如果
成绩
@H_301_2@>90
则
获奖学金
@H_301_2@100
元
结束
@H_404_18@
@H_301_2@2>If …then…else…end if
@H_404_18@
如果
@H_301_2@…
则
@H_301_2@…
否则
@H_301_2@…
结束；在
@H_301_2@if
的后面跟上的是条件，
@H_301_2@then
后面跟上的是满足
@H_301_2@if
条件执行的语句，
@H_301_2@else(
否则
@H_301_2@)
后面跟上的是不满足条件执行的语句
@H_404_18@
例：如果
成绩
@H_301_2@>80
则
获奖学金
@H_301_2@50
否则
没有奖学金
结束
@H_404_18@
@H_301_2@3>If…then…elseif…then…else…end if
@H_404_18@
如果
@H_301_2@…
则
@H_301_2@…
如果
@H_301_2@...
则
@H_301_2@…
否则
@H_301_2@…
结束；此语句运用于多个条件存在的情况。
@H_404_18@
例：如果
成绩
@H_301_2@>90
则
获奖学金
@H_301_2@100
元
如果
成绩
@H_301_2@>80
则获奖学金
@H_301_2@50
否则
没有奖学金
结束
@H_404_18@
（
@H_301_2@2
）
@H_301_2@select case
语句，其结构如下：
@H_404_18@
@H_301_2@ Select case
表达式
@H_404_18@
@H_301_2@ Case
结果
@H_301_2@1
@H_404_18@
@H_301_2@
执行语句
@H_301_2@1
@H_404_18@
@H_301_2@ Case
结果
@H_301_2@2
@H_404_18@
@H_301_2@
执行语句
@H_301_2@2
@H_404_18@
@H_301_2@ Case
结果
@H_301_2@3
@H_404_18@
@H_301_2@
执行语句
@H_301_2@3
@H_404_18@
@H_301_2@End select
@H_404_18@
这种选择的语句，针对的是
@H_301_2@select case
表达式的不同值，来进行不同的执行
@H_404_18@
例：
@H_301_2@select case
成绩
@H_404_18@
@H_301_2@ Case
大于
@H_301_2@90
@H_404_18@
@H_301_2@
获奖学金
@H_301_2@100
元
@H_404_18@
@H_301_2@Case 80
到
@H_301_2@90
之间
@H_404_18@
@H_301_2@
获奖学金
@H_301_2@50
元
@H_404_18@
@H_301_2@Case
其他情况
@H_404_18@
@H_301_2@
没有奖学金
@H_404_18@
@H_301_2@ End select
用以结束
@H_404_18@
@H_301_2@2.
全代码
@H_404_18@
@H_301_2@<html>
@H_404_18@
@H_301_2@<head>
@H_404_18@
@H_301_2@<title>VB
选择语句
@H_301_2@</title>
@H_404_18@
@H_301_2@</head>
@H_404_18@
@H_301_2@<body>
@H_404_18@
@H_301_2@<script language="vbscript">
@H_404_18@
@H_301_2@dim chengji
@H_404_18@
@H_301_2@chengji=inputBox("
请输入成绩
@H_301_2@","
成绩输入
@H_301_2@")
@H_404_18@
@H_301_2@if chengji>=90 then
@H_404_18@
@H_301_2@ msgBox("
获得奖学金
@H_301_2@100
元
@H_301_2@")
@H_404_18@
@H_301_2@elseif chengji>=80 and chengji<90 then
@H_404_18@
@H_301_2@ msgBox("
获得奖学金
@H_301_2@50
元
@H_301_2@")
@H_404_18@
