• 企业400电话
  • 微网小程序
  • AI电话机器人
  • 电商代运营
  • 全 部 栏 目

    企业400电话 网络优化推广 AI电话机器人 呼叫中心 网站建设 商标✡知产 微网小程序 电商运营 彩铃•短信 增值拓展业务
    VBS基础编程教程 (第3篇)
    第三篇(共六篇): 
    首先, 我来解决一下上次课程的几个疑问 

    第一, 那个余数问题, 16 / 5 = 3...1, 是因为我改过前面的部分, 后面的忘了改了, 不好意思. 

    第二, 请看一下程序清单: 

    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 
    Msgbox(c) 
    这个输入1、2时是24 

       为什么会不一样呢? 在数学上c=(a+b)*2 和 c=a*2+b*2是等价的, 在VBS中也是如此. 问题出在"+"上, 在VBS中, +不仅仅是加号的意思还表示把两个字符串连接起来, 例如"Hello"+"World"="HelloWorld" have you understood? 你还记得InoutBox函数的返回值吗? 是字符串! 这就看出问题了吧, 在编程中"1"不等于(>)1, "1"是一个字符, 而1是一个数, 所以a,b都是字符串变量, "1"+"2"="12", 这就好像我们小时跟伙伴开玩笑问他们1+1=?一样, 我们总是笑着说"错啦,应该是11".但为什么, a可以*2却不发生错误呢? 这时VBS比较智能的一个表现, 如果这个字符串的内容是一个数且对他进行数学运算, 则把字符串强制转换成数参与运算, 如果字符串代表一个数, 但不参加数学运算, 而是参加字符串运算(合并)则当作字符串处理, 所以你看到a+b=12, 这时候a+b的结果(12)是一个字符串, 当它要乘以2的时候就被强制转换成了数字12, 这样我就得到了结果24. 

      怎么修改这个程序呢? 我们需要用到另一个内建的函数:int, int函数的功能是将输入值转化成整数值, 我们这样修改: 

    c=(int(a)+int(b))*2 

      这个意思就是把a作为参数传递给int函数, int函数就会返回那个整数(你的输入值), 然后让返回值参与运算, 这样就得到了正确答案.所以,以后如果你用的是inputbox函数的话,最好用int语句加工一下:比如c=int(c) 'c是你自己的变量 

      大家是不是觉得这个课程有点枯燥, 呵呵, 变量和运算符部分的确是这样的, 不过多多练习也就好了, 这次, 我们写写真正好玩的东西: 流程控制语句. 这个部分开始才是真正的编程. 

      首先介绍判断结构. 

      在此之前, 我们先介绍一种简单的变量类型:布尔值(Boolean), 这种变量只有两个可能值:True,Flase,即真或假. 这种变量在某些情况下很有用(比如"开关"). 我们定义一个bool变量的方法和其他变量一样, 赋值也一样, 例如: 

    dim a,b 
    a=true 
    b=false 

      注意,true和"true"是不一样的, "true"是字符串,true是布尔值, 千万不能混淆. 

      回到if语句上来, 我们先来看看简化版的if语句:if 判断式 then 语句体 我们来看一个例子: 

    dim a,b 
    a=12 
    b=13 
    if b>a then msgbox("B大于A") 

      我们只看最后一行, a>b这个式子(表达式)有一个返回值, 是bool型的. 因为这个式子只有两种可能:b大于a, b不大于a, 所以这个式子也只有两种可能性, 即真或者假. if语句判断这个表达式的返回值是真还是假, 如果是真(true)则执行then后面的语句, 如果是假, 则不执行, 你把a的值改成14看看还会不会弹出对话框? 

      当我们要在判断之后执行多行语句怎么办呢, 我们需要用语句块来解决, 在这里可以叫块if 

    dim a,b 
    a=12 
    b=13 
    if ab then 
        msgbox("A小于B") 
        msgbox("B大于A") 
    end if 

      两个msgbox函数夹在if和end if之间, 这个部分就是语句块, 块里的每一条语句之前请空出4--8(一个Tab>键)个格, 这不是必需的, 但是是一个好习惯, 以便看清楚程序的结构. 这样我们就能运行多于一个的语句, 请注意if...then...end if 这三个关键部分不要掉了. OK, 我出一个题, 输入一个数, 如果小于100就输出"错误", 如果大于100就输出"正确", 我这里有两个程序版本: 

    dim a 
    a=inputbox("请输入一个大于100的数") 
    a=int(a) 'inputbox返回的是字符串, 我们把他变成整数 : ) 
    if a>100 then msgbox("正确") 
    if a100 then msgbox("错误") 

    还有一个更简单的 

    dim a 
    a=inputbox("请输入一个大于100的数") 
    a=int(a) 'inputbox返回的是字符串, 我们把他变成整数 
    if a>100 then 
        msgbox("正确") 
    else 
        msgbox("错误") 
    end if 

      看到多了一个else了吧, else的作用就是当要判断的表达式为false时执行的. 这样程序就可以处理两种不同的情况了. 不要忘了用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("a是:","输入半径") 
    b=Inputbox("b是:","输入半径") 
    d=Inputbox("答案:","输入答案") 

    c=a*2+b*2 '这里没有问题, 会自动转换 
    if d=c then 
       Msgbox("你好聪明") 
    else 
       Msgbox("你好猪头 自己的题还不会!") 
    end if 

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

    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 

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

      说到if, 我们不得不说一说逻辑运算符, 今天介绍两种, "and" 和 "or" 学会了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很好理解, 我读"if a>10 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) 自己随便设计一个程序, 应用今天的知识 
    上一篇:VBS编程教程 (第2篇)
    下一篇:VBS基础编程教程 (第4篇)
  • 相关文章
  • 

    © 2016-2020 巨人网络通讯 版权所有

    《增值电信业务经营许可证》 苏ICP备15040257号-8

    VBS基础编程教程 (第3篇) VBS,基础,编程,教程,第,3篇,