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