VBS学习:流程控制语句判断结构
2015-01-13 15:13
246 查看
一、数值运算:
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
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
相关文章推荐
- java学习08--程序流程控制--判断结构
- JAVA学习(四):Java流程控制语句(顺序结构、if条件语句、switch条件语句、循环语句与跳转语句)
- JAVA学习(四):Java流程控制语句(顺序结构、if条件语句、switch条件语句、循环语句与跳转语句)
- java学习08--程序控制流程--判断结构if练习
- LAMP兄弟连PHP课程学习笔记 第四天 流程控制分支语句
- PL/SQL学习笔记[5]-流程控制语句
- PL/SQL学习(流程控制结构)
- Shell学习笔记(9)-流程控制之For语句
- ruby编程语言-学习笔记5(第5章 语句和控制结构)
- Shell学习笔记(8)-流程控制之IF语句
- Shell学习笔记(10)-流程控制之while语句
- php学习笔记(四)流程控制语句
- php流程控制语句以及条件判断中的数据类型转换
- JavaScript系统学习之一 <基本语法,运算符,流程控制语句>
- Shell学习笔记(11)-流程控制之select、until语句
- Oracle 学习:PL/SQL循序渐进全面学习教程--课程十二 编写控制结构语句
- (JAVA SE 学习笔记)Java.SE.第007讲.流程控制语句.续.Flow.Control.Statement.Cont
- 第七讲 : 流程控制-条件分支语句 -【天轰穿.Net4趣味编程系列视频教程-vs2010轻松学习C#视频教程】
- 第八 讲 : 流程控制-循环语句 - 【天轰穿.Net4趣味编程系列视频教程-vs2010轻松学习C#】
- 大三学长带我学习JAVA.作业4.流程控制语句.续.Flow.Control.Statement.Cont 理解面向对象程序设计 学长带我学java的作业4