VBS学习：流程控制语句判断结构
一、数值运算：
1)
Dim a,b,c
a=inputbox("a是:","输入半径")
b=Inputbox("b是:","输入半径")
c=a*2+b*2
Msgbox(c)
这个 输入1、2时是6
2)
Dim a,b,c
a=inputbox("a是:","输入半径")
b=Inputbox("b是:","输入半径")
c=(a+b)*2 ‘a+b的意思是12
Msgbox(c)
这个输入1、2时是24
c=(int(a)+int(b))*2 和 c=a*2+b*2 的值相同
二、判断结构：
（1）布尔值(Boolean)：变量类型
dim a，b
a=true，b=false 注意,true和"true"是不一样的, "true"是字符串,true是布尔值, 千万不能混淆.
输入一个数, 如果小于100就输出"错误", 如果大于100就输出"正确",
dim a
a=inputbox("请输入一个大于100的数")
a=int(a) 'inputbox返回的是字符串，我们把他变成整数
if a>100 then
msgbox("正确")
else
msgbox（"错误"）
end if
（2）if 语句:if....then else end if
Dim a,b,c,d
a=inputbox("a是:","输入半径")
b=Inputbox("b是:","输入半径")
d=Inputbox("答案:","输入答案")
d=int(d)
'在这里我们取出了d的值, 变成整数, 在放回"d"这个盒子里
c=a*2+b*2
if d=c then
Msgbox("你好聪明")
else
Msgbox("你好猪头 自己的题还不会!")
end if
(3) 逻辑运算符: "and" 和 "or"
dim a,b
a=inputbox("输入一个数 >10")
b=inputbox("输入另一个数 >10")
a=int(a)
b=int(b)
if a>10 and b>10 then
msgbox("正确")
else
msgbox("错误")
end if
dim a,b
a=inputbox("输入一个数 >10")
b=inputbox("输入另一个数 >10")
a=int(a)
b=int(b)
if a>10 and b>10 then
msgbox("正确")
else
msgbox("错误")
end if
(4) select case
select case 变量名
case 值
语句
case 值
语句
case else
语句
end select
举例： 1,2,3这三个阿拉伯数字转化成中国大写数字
dim a
a=inputbox("输入一个1--3的值")
a=int(a) '处理inputbox返回字符串的问题
select case a
case 1
msgbox("壹")
case 2
msgbox("贰")
case 3
msgbox("叁")
case else
msgbox("输入错误")
end select
这个程序写成if...elseif 的形式如下
dim a
a=inputbox("请输入1--3的值")
a=int(a)
if a=1 then
msgbox("壹")
elseif a=2 then
msgbox("贰")
elseif a=3 then
msgbox("叁")
else
msgbox("输入错误")
end if
要点:
1) inputbox返回的是一个字符串, 而不是一个数, 必须用a=int(a)这种形式转化成数
2) bool变量的值只有两种:true,false
2.5) and两边的表达式都是true, 则返回true. or两边的表达式有一个是true, 就返回true
3) if 语句的格式
4) select...case的格式
作业:
1) 使用3个bool值, 储存你的3兄弟姐妹是否是男性 (提示:sister1male=false)
2) 给定一个个数, 大于10而且小于20输出"正确", 否则输出"错误"
3) 输入12,或者15, 输出"正确", 否则输出"错误"
4) 把5以内的正整数都转换成中国大些数字
5) 自己随便设计一个程序, 应用今天的知识
1、
dim a,b,c,d
a="m"
b="w"
c="m"
d=inputbox("请输入a、b或c")
if d="a" then
msgbox(a)
elseif d="b" then
msgbox(b)
elseif d="c" then
msgbox(c)
else
msgbox("#$%^&*")
end if
2、
a=inputbox(“输入一个数”)
a=int(a)
if a>10 and a<20 then
msgbox(“正确”)
else
msgbox(“错误”)
end if
3、
a=inputbox(“输入一个数”)
a=int(a)
if a=10 or a=20 then
msgbox(“正确”)
else
msgbox(“错误”)
end if
4、
a=inputbox("请输入1-5以内的正整数")
a=int(a)
select case a
case 1
msgbox("壹")
case 2
msgbox("贰")
case 3
msgbox("叁")
case 4
msgbox("肆")
case else
mgsbox("输入错误")
end select
