vbs教程(3)

种不同的情况了. 不要忘了用end if结尾

嘿嘿, 我是变态者, 现在我要你处理三种情况, <100,=100,>100, 还要写在一个if结构里, 你怎么办, 我给你答案: dim a

a=inputbox(\请输入一个大于100的数\

a=int(a) 'inputbox返回的是字符串, 我们把他变成整数 if a>100 then msgbox(\正确\elseif a=100 then

msgbox(\老大, 你耍我?\else

msgbox(\错误\end if

这次输入100看看, 是什么? else if语句可以在if结构中多次出现, 以灵活判断不同的情况 (如果你要判断得太多, 就请使用\选择结构\过会儿就讲), 当所有elseif都处理完了,而没有符合情况的时候再执行else中的语句.另一个例子:

Dim a,b,c,d

a=inputbox(\是:\输入半径\b=Inputbox(\是:\输入半径\d=Inputbox(\答案:\输入答案\

c=a*2+b*2 '这里没有问题, 会自动转换 if d=c then

Msgbox(\你好聪明\else

Msgbox(\你好猪头 自己的题还不会!\end if

再看看这个, 无论你回答得多么正确你都是猪头, 哈哈, 不是我耍你, 还是文章开始时候的inputbox的返回类型在耍你, d是inputbox的返回值, 他是一个字符串, 而c是一次整数计算的结果, 他是一个整数. 一个字符串无论如何也不等于一个整数, 尽管他们字面上是一样的:\不等于号)8 所以if的判断式的值永

远是false, 总是执行else部分的语句. 我们可以这么修改

Dim a,b,c,d

a=inputbox(\是:\输入半径\b=Inputbox(\是:\输入半径\d=Inputbox(\答案:\输入答案\d=int(d)

'在这里我们取出了d的值, 变成整数, 在放回\这个盒子里 c=a*2+b*2 if d=c then

Msgbox(\你好聪明\else

Msgbox(\你好猪头 自己的题还不会!\end if

这样就成功了. 这也是Inputbox函数的一个讨厌的地方, 没办法, vbs没有其他好的输入方式了.

说到if, 我们不得不说一说逻辑运算符, 今天介绍两种, \和 \学会了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

这段程序让你输入两个值, 必须都大于10, 只要有一个不大于, 就输出错误 dim a,b

a=inputbox(\输入一个数 >10\

b=inputbox(\输入另一个数 >10\a=int(a) b=int(b)

if a>10 or b>10 then msgbox(\正确\else

msgbox(\错误\end if

这段程序让你输入两个值, 只要有一个大于10, 就返回成功. 其实and和or很好理解, 我读\b>10 then\这一句, 用华语是这样:\如果a大于10或者b大于10, 那么...\这样是不是就很好理解了呢.

OK, 我们再来看一种新结构, 今天的课就结束, 已经午夜了, 我都累死了.

当你的程序要处理很多种不同的判断情况的时候elseif..then会让程序看起来很杂乱, 所以就有了一种select case结构专门对付这种情况, select case的语法结构很简单:

select case 变量名 case 值 语句 case 值 语句 case else 语句 end select

我们举个例子就能很简单的说明： 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

这个例子把1,2,3这三个阿拉伯数字转化成中国大写数字, 这个程序写成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

怎么样, 麻烦吧, 还是select好吧.

OK, 今天到此结束, 总结一下: 要点:

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) 自己随便设计一个程序, 应用今天的知识

[ Last edited by longtian777 on 2004-12-6 at 16:04 ]

四篇（共六篇）：

大家好, 昨天我休息了一天, 所以今天写第4章:循环结构

我们先来看一道题:商场进行每日结算, 要求累加出今天的营业额, 每次输入一个数, 这道题其实很简单, 但就我们现在学

过的知识要完成这道题相当麻烦, 我们来分析一下. 首先, 我们需要知道买卖的次数, 这样才能控制输入的次数,但是, 这种设

计是非常低效的, 每天都要重新设计程序. 假定今天进行了5次交易, 以下是源程序: dim sum

百度搜索“77cn”或“免费范文网”即可找到本站免费阅读全部范文。收藏本站方便下次阅读，免费范文网，提供经典小说教育文库vbs教程(3)在线全文阅读。