下载

1下载券

加入VIP
  • 专属下载特权
  • 现金文档折扣购买
  • VIP免费专区
  • 千万文档免费下载

上传资料

关闭

关闭

关闭

封号提示

内容

首页 VBS教程

VBS教程.doc

VBS教程

lujianfeiccie
2011-07-10 0人阅读 举报 0 0 暂无简介

简介:本文档为《VBS教程doc》,可适用于IT/计算机领域

什么是VBscrīpt呢VBscrīpt的全称是:MicrosoftVisualBasicscrīptEditon(微软公司可视化BASIC脚本版)正如其字面所透露的信息,VBS(VBscrīpt的进一步简写)是基于VisualBasic的脚本语言我进一步解释一下,MicrosoftVisualBasic是微软公司出品的一套可视化编程工具,语法基于Basic脚本语言,就是不编译成二进制文件,直接由宿主(host)解释源代码并执行,简单点说就是你写的程序不需要编译成exe,而是直接给用户发送vbs的源程序,用户就能执行了vm|#Rb^y#jF  我知道菜鸟现在最关心的就是用什么工具来开发VBS程序了,答案是:记事本(Notepad)我不是开玩笑,其实任何一种文本编辑器都可以用来开发VBS开发,只不过记事本是由系统自带的,比较好找而已尽管如此,我还是建议你去下载一个专业的文本编辑器,因为这些工具可以提供"语法高亮"等功能,更加方便开发,用哪一个随你喜好,我比较喜欢EditPlus()|EWH$K~  OK,我们先来写一个VBscrīpt程序热热身KS,s,fAFQLNqyREM输入并回显你的名字rwlau'{N'使用InputBox和Msgbox函数爱好者博墅J~Fa!Yu(AgDimname,msgh|MHw(Jmsg="请输入你的名字:"爱好者博墅d)x'dhPv'name=Inputbox(msg,"名称")爱好者博墅s"bzAp#YMsgbox(name)爱好者博墅CG|{ntfq  把上面的程序清单输入到记事本里面,然后保存为以vbs为扩展名的文件("保存类型"里面选择"所有文件")然后双击运行,观察运行结果注意:请自己输入程序清单,不要复制粘贴!BRYJ!Rb  我来解释一下这个程序,第一行和第二行的开头分别是"REM"语句和"'",这两个东西的作用是相同的,表示本行是注释行,就是说这两行什么也不干,只是用来说明这段程序的功能,版权信息等等注释行是程序最重要的部分之一,尽管它不是必需的,但对于其他人阅读源代码,以及自己分析源代码是很有好处的好的习惯是在必要的地方加上清晰,简洁的注释爱好者博墅{Uk{yY  Dim用来声明一个变量,在VBS中,变量类型并不是那么重要,就是说VBS会帮你自动识别变量类型,而且变量在使用前不一定要先声明,程序会动态分配变量空间在VBS中你不用考虑name储存的是一个整数还是一个小数(学名叫"浮点数"),也不用考虑是不是字符串(一串字符,比如:"HelloWorld"),VBS会自动帮你搞定所以第三行语句可以删除,效果不会变,但我强烈反对这么做,一个变量的基本原则就是:先声明,后使用变量名用字母开头,可以使用下划线,数字,但不能使用vbs已经定义的字,比如dim,也不能是纯数字爱好者博墅"X|BgbB^  下一行被称之为"赋值","="是赋值符号,并不是数学中的等于号,尽管看起来一样这是正统的理解,你要理解成等于也没有什么不可赋值号的左边是一个变量,右边是要赋给变量的值,经过赋值以后,msg这个变量在程序中等同于"请输入你的名字:"这个字符串,但当msg被再次复制的时候,原值就会消失不光字符串,其他任何变量都这样被赋值,例如:a=,b=等等,zOlpbll  再往下,Inputbox和Msgbox是VBS内建的函数,一个函数就相当于一个"黑箱",有输入(参数)和输出(返回值),你可以不用了解函数是怎么运作的,只要了解这个函数能干什么就行了,我们也可以定义自己的函数,不过那要等到以后再讲现在我们只要了解,一个函数可以有返回值也可以没有,可以有参数也可以没有例如Inputbox就是有返回值的函数,我们用赋值号左边的变量来"接"住InputBox的返回值就是你输入的内容在inputbox右边的括号里是参数列表,每个参数用","分隔开,每个参数有不同的功效,比如第一个参数会显示在提示里,我们把msg这个变量作为第一个参数传给了Inputbox函数,而msg="请输入你的名字:",所以我们在对话框的提示栏就会看到"请输入你的名字:"第二个参数是对话框的标题,我们用直接量(学名叫"常量",这里是"字符串常量")传递给函数,当然你也可以传递变量Inputbox还有很多参数,比如你在"名称"后面再加一个","然后输入随便一串字符(字符串,用双引号""包裹起来的一串字符叫做字符串)然后运行,看看结果你会发现用于输入的文本框有了默认的值,这就是第三个参数的作用`KpTLiPMsgbox函数是用来输出的函数,在VBS中没有专门的输出函数(BASIC中的print,C中的printf),所以我们只能用对话框来观察输出结果,Msgbox的必要参数只有一个,就是要输出的内容,在这种情况下,我们不需要理会msgbox的返回值关于Msgbox和Inputbox我们以后还会在讨论,今天只是热热身,到此为止xHwzRN爱好者博墅B}dAPNvz要点:"Cy`h:kar*)注释(以REM或'开头)行在程序中不起作用,但能让别人更容易读懂你的程序爱好者博墅sM*S!HiTcb)变量好像一个盒子,或一个代号,可以代表你想代表的东西变量赋值使用"="爱好者博墅XFMiy^^K$v)以""包裹起来的字符称之为"字符串"U*iUAKWOq)函数像一个"黑箱",有参数和返回值,用"="左边的变量可以接住返回值爱好者博墅rTlye"`'W)Inputbox函数弹出一个输入对话框,Msgbox则用于输出Iz~'Qq爱好者博墅RU"DOd"~|q作业:爱好者博墅oHaCe#M~)试验Inputbox的第三个参数$aX#WSsB:m)lH|)写一段程序输出你的年龄u$xqFU*g^~l)写一段程序进行次输入,分别输入你和你父母的姓名(要求显示提示),并分次输出爱好者博墅{LFo|"dA第二篇:爱好者博墅N}T#IOTg*P我真没想到,第一次的作业竟然有人不会爱好者博墅Nw~|T#G  看来要讲的非常非常细致才行,嗯,今天讲各种"量"和基本运算'VT'~WY)IaF|  先说常量,这个比较简单YpIi  什么是常量呢,常量就是其值不可变化的量爱好者博墅MMnVQJ  常量分为两种:第一种,自然常量这叫是因为它们本身就是常量,你怎么更改的值呢他永远都是,不可能变成爱好者博墅~Yl*GeDnx如果你在程序中使用"=",这样的语句将会引发一个错误同样的,字符串也是常量(还记得字符串吗就是包裹在""之间的一串字符),"HelloWorld"就是一个例子,如果你使用"HelloWorld"="Bye"这样的语句同样会引发一个错误你能举出自然常量的更多例子吗$chOro^,jG  第二种,是我们自己定义的常量,这种量也使用代号,他们也被赋值,但和变量的不同点在于,他们在定义的时候被赋值,以后就不能改变了,如果企图改变将会引发一个错误定义一个变量,我们使用"const"这个关键字(关键字的意思是系统定义了有特殊功能的字,不能作为变量名或常量名使用),格式是:const常量名=常量值bdAKSH例如:#BV|~yhay^z'{FconstPI=zC:lL^Xo{SconstNAME="记忆碎片"xZurzWxhGAB  这样我们就定义了两个常量,PI和NAME,一般说来,常量名全部使用大写,但也可以不用,随你喜好将一些在程序中不需要改变的值定义为常量是个好习惯,这样能防止不必要的意外另外,使用自定义常量也可以减少你的工作量比如:!XtE!"uIxymsgbox("HelloWorld")爱好者博墅eIF|VTmsgbox("HelloWorld")ZBqyzn,ESmsgbox("HelloWorld")爱好者博墅jbC^B^msgbox("HelloWorld")爱好者博墅oYWIImsgbox("HelloWorld")爱好者博墅:Xf,iA"SSejCf  这个程序输出五次HelloWorld,如果你想要改变输出为ByeBye,就必须修改全部程序,当然你可以手动修改次,但如果你要输出次呢常量就可以替我们解决这个问题:!CLNJimbdmconsthw="HelloWorld"爱好者博墅}U({~cF|t|xmsgbox(hw)Id{u!m)Pmsgbox(hw)爱好者博墅mLI`$KucZmsgbox(hw)爱好者博墅n,YACWlmsgbox(hw)爱好者博墅l!hqB`msgbox(hw)SONwPnZuF  这样当你要修改输出的时候只要修改hw的值就行了爱好者博墅SivFLlPkjU  好了,现在我们来看看编程的第一块重要"基石":变量解释变量最好的办法我觉得是"盒子",一个变量好像一个盒子,里面只能装一个东西,当你要装进去别的东西的时候必须把原有的东西拿出来这个"盒子"是有名称的,当你在程序中使用变量的时候,系统会打开盒子取出里面的东西,让这些东西参与处理,而不是盒子有些语言是很依赖"盒子"里面装些什么东西,这样才能找到合适的"盒子"(比如C语言),但VBS给我提供的是能够自动伸缩的"魔术盒",我们不用关心装进去的是什么东西,  爱好者博墅nXJsIVBS会自动调整盒子的大小例如:爱好者博墅No(LD"DbDima,a,ae^sta=爱好者博墅^dEo^ip`ja=爱好者博墅!tq:F'hha="Hello"DfidSHI{F(Gf而不用像C语言那样麻烦:或者是VB的正规声明(VB可以声明也可以不用)那样:爱好者博墅q$KjbSSU(intaDimaasinteger爱好者博墅#aAQlkLWHE'floataDimaasDouble~u:RBwmJNchar*aDimaasstrnigyOaJLVhoUqa=a=爱好者博墅IN,i,T^e#N,Jqa=a=爱好者博墅Q"EFzrgM,wa="Hello"a="Hello"{hKuJs!嗯……扯远了……mvoda  变量有什么用呢哇,那用处可大了最简单,你并不能确定程序运行时变量的值,比如前一节课我们编的输入姓名的程序,你不能确定InputBox返回的是什么(还记得Inputbox的返回值吗就是你输入的内容),所以你就没有办法应对各种情况,但我们用name这个"盒子"把用户的名字装起来,到用的时候我们只要知道name这个盒子的名字就行了,系统会自己打开他并把里面的内容拿出来用再举个例子,我们编写一个程序计算一个矩形的面积,比如这个程序要发给小学生使用:,ISg*lQUxdima,b,s!QZVrG)T*Za=爱好者博墅IPl!L$rG)dN(nb=my}cxss=a*b爱好者博墅UPK"rNJxmsgbox(s)爱好者博墅fkOXa#S#  这样就可以求出长为,宽为的矩形的面积了,是不是很简单当然, 这个程序也可以这样写:Aeji,gXdims爱好者博墅qa^`u'uMFGs=*爱好者博墅~EhwtC:Xpmsgbox(s)Lq'EGegdh  这样看起来程序短了许多,也节约内存,但并不是鼓励的做法,为什么请看下面爱好者博墅##D*Rxvhm  现在,我们的程序要变得像点样子才行,谁的程序写出来还要别人修改源代码才能用啊爱好者博墅axmoq'~eu"m  所以,我们要接受用户的输入,还记得吗InputBox函数(wB)ys^HW  修改后程序如下:`aty"mVTdima,b,sZ'|HZkaARda=inputbox("请输入矩形的长:")爱好者博墅KtOu{YXV^b=inputbox("请输入矩形的宽:")~P#bVHX$p*cOYRs=a*b爱好者博墅axd!siJe}Imsgbox(s)ldqu~Z  ok,这么一修改,无论用户输入怎样的数据,我们都能计算出矩形的面积了如果你用s=*能改嘛当然不行爱好者博墅z`VKYn  我想你已经发现了,vbs中的数学计算和真正的算术没有什么不同,,,*,,(),,{}都是一样的用法,比如:爱好者博墅}Qb|nsdimans~(pyB"s:fls|:Jans=()*HXXyIOn(msgbox(ans)'Y(rq,cLcxm  四则运算的法则在编程中同样生效,你可以在编程中重新获得小学时候的乐趣(你恨数学那就别学电脑了)K*O(ZHz!AR  在编程中有一个有趣的运算符是"mod",这个运算符叫做"取余运算符",就是取得一次除法的余数,例如爱好者博墅'FS{g*Odima爱好者博墅KgXPs"u)AF#ca=modv:C,t'Ogvt  你知道a等于几吗Bingo!没错,就是因为=,所以mod计算的结果就是爱好者博墅AXrxU}  还有一个运算符是"^"(就是键盘""上面的小箭头),他表示"乘幂"(或者是"方")比如:爱好者博墅Yw(IJNqL*Ydima,b,cgi,g(v$za=爱好者博墅ezNSNb=a^lr:^KSauGvO(rMc=a^pH:fnx|tImsgbox(a)ykNFqdTJ)d,Bmsgbox(c)'iGC$b:tV,o  则b=a*a=,c=a*a*a=爱好者博墅zR{gOM(T~  我们一次不要讲太多,这次就讲到这里,现在总结一下爱好者博墅*d:k$dX^要点:yeg$Kzkdd)常量分为自然常量和自定义常量,常量的值不可修改{FE~*n:fd|jasY)变量就像盒子,我们不在乎盒子里装的是什么,但一定要知道盒子的名字爱好者博墅{)fYtJ)四则运算在编程中没有任何不同bb{J,g)MOD是取余运算爱好者博墅}UgrXj爱好者博墅RI|*M|LpM#Yl作业:|b*}(j`K)编一个程序,计算圆形的面积,半径由用户给出(使用Inputbox)PI取值P,cvI)编一个程序取得的余数爱好者博墅XHNyf爱好者博墅:gyPjEom'Y第三篇(共六篇):爱好者博墅,^"mX"A,holp爱好者博墅OX首先,我来解决一下上次课程的几个疑问Ica{,oo(|n第一,那个余数问题,=,是因为我改过前面的部分,后面的忘了改了,不好意思  ^'QUJy第二,请看一下程序清单:爱好者博墅}yATh)爱好者博墅ea"w^hFXADima,b,c爱好者博墅R:ac:{I`wa=inputbox("a是:","输入半径")爱好者博墅*GCnks'T(zb=Inputbox("b是:","输入半径")(z"tOe|HBc=a*b*pZ{hXMsgbox(c)爱好者博墅^MsXCw|#c这个输入、时是)xn`))爱好者博墅,kKyZQp{#NaFyDima,b,c爱好者博墅Fb:YM`^NVa=inputbox("a是:","输入半径")}i~Fvgkb=Inputbox("b是:","输入半径")S!LG*Y|c=(ab)*QbwvjHo,lMsgbox(c)爱好者博墅,wh,YKsl这个输入、时是"|sji!n$Q!f 为什么会不一样呢在数学上c=(ab)*和c=a*b*是等价的,在VBS中也是如此问题出在""上,在VBS中,不仅仅是加号的意思还表示把两个字符串连接起来,例如"Hello""World"="HelloWorld"haveyouunderstood你还记得InoutBox函数的返回值吗是字符串!这就看出问题了吧,在编程中""不等于(),""是一个字符,而是一个数,所以a,b都是字符串变量,""""="",这就好像我们小时跟伙伴开玩笑问他们=一样,我们总是笑着说"错啦,应该是"但为什么,a可以*却不发生错误呢这时VBS比较智能的一个表现,如果这个字符串的内容是一个数且对他进行数学运算,则把字符串强制转换成数参与运算,如果字符串代表一个数,但不参加数学运算,而是参加字符串运算(合并)则当作字符串处理,所以你看到ab=,这时候ab的结果()是一个字符串,当它要乘以的时候就被强制转换成了数字,这样我就得到了结果pnUgso^h  怎么修改这个程序呢我们需要用到另一个内建的函数:int,int函数的功能是将输入值转化成整数值,我们这样修改:sQpw,sc=(int(a)int(b))*mDQlIiJ:g`,D  这个意思就是把a作为参数传递给int函数,int函数就会返回那个整数(你的输入值),然后让返回值参与运算,这样就得到了正确答案所以,以后如果你用的是inputbox函数的话,最好用int语句加工一下:比如c=int(c)'c是你自己的变量hc{:r^kIS  大家是不是觉得这个课程有点枯燥,呵呵,变量和运算符部分的确是这样的,不过多多练习也就好了,这次,我们写写真正好玩的东西:流程控制语句这个部分开始才是真正的编程第章:循环结构Efn~I^j  我们先来看一道题:商场进行每日结算,要求累加出今天的营业额,每次输入一个数,这道题其实很简单,但就我们现在学爱好者博墅k^TxN过的知识要完成这道题相当麻烦,我们来分析一下首先,我们需要知道买卖的次数,这样才能控制输入的次数,但是,这种设}I:qOjDUl计是非常低效的,每天都要重新设计程序假定今天进行了次交易,以下是源程序:爱好者博墅"rC|O:^:U"j)rBdimsum爱好者博墅APd#c~G`sum='初始化变量爱好者博墅rzp(Wysum=sumint(inputbox("请输入交易额"))爱好者博墅BVR$xSony'sum=sumx 这种形式是把本身的值取出来,进行一次运算,再放回本身,这种方法很有用处爱好者博墅GFX(oNVW'这里使用了函数嵌套,把inputbox的返回值直接传给int函数,转化成整数,下同}|rM,^{:}psum=sumint(inputbox("请输入交易额"))jMxpTQsum=sumint(inputbox("请输入交易额"))dNX^)}mYpbIsum=sumint(inputbox("请输入交易额")))Btbml"|o:gZsum=sumint(inputbox("请输入交易额"))爱好者博墅NrlDjxmsgbox(sum)ke~Dea(F  看到了吗,我通过把计算过程复制了遍才设计好了程序,这种程序在汽车交易所等交易次数少的地方还能凑合着用,如果o}wYnbQYa放到超市岂不是要复制,粘贴几千遍我们今天讲的内容就可以克服这种缺陷,首先,我们来讲以下DoLoop语句爱好者博墅J(w*i`qx{H,L  doloop的结构看上去非常简单,就是:doloop,仅此而已,这个结构不断执行do和loop之间的语句(学名叫:循环体),爱好者博墅u~w}ED永不停止举个例子来说:(^UWzxdo爱好者博墅rgVC*CA(Z~rgxmsgbox("这个信息会不断重复出现,要停止程序请使用任务管理器(CtrlAltDel)中止wscrīpt进程")r~FVploopM}VHrr  运行这个程序,当你点销掉一个对话框马上会出来另一个,你永远点不完,总有下一个谁会运行这样的程序除非是给'IM$l(UZA别人捣乱(我就干过这种事),所以在doloop结构中还有一个语句:exitdo,这个语句将终止循环,跳到loop后面的语句继续爱好者博墅'n*YQBFNt执行据个例子来说:爱好者博墅WHSRCT*lCdima'注意:常量不需要在dim里面声明,否则会引发错误(tFQgvKconstpass=""'这是一个字符串请用""包裹起来设定密码为常量,不可变更P,"LFE"Nndo爱好者博墅skVEunipJWKea=inputbox("请输入密码")爱好者博墅p(CUPg{sifa=passthencHeechmsgbox("密码校验成功")ad#ChNd!y"Mexitdorlvwa#JSendif爱好者博墅AL(pFxiWsloop爱好者博墅LQWU#sG  这个程序会一直不停的问你密码,知道你输入了正确的密码为止(if可以嵌套在另一个if当中,也可以嵌套在循环体当中Ez$Bsqhx,所以一定要用缩进,来分清楚程序的各个部分)这个程序是很经典的,早期的程序都是这么做的但是我们是Hacker,所以oU|'xE)x!n"b我们了解系统的安全性,这种无限次认证程序很容易被穷举破解,我们要来限定认证的次数修改程序如下|xvXQ~qxdima,ctr爱好者博墅t{qE!{j)~yctr='设置计数器XqX:"IrSconstpass="pas"'上面的那个是弱密码,这次改的强一点ghTG!zRUdox)t'`ODm^ifctr=then爱好者博墅VT~'*aSmsgbox("已经达到认证上限,认证程序关闭")爱好者博墅YvEz!eexitdo爱好者博墅pvO}Kelse爱好者博墅~UMrtH"la=inputbox("请输入密码")爱好者博墅p:}LNt{xhateMifa=passthen爱好者博墅wn)ajVgV'Rmsgbox("认证成功")爱好者博墅^}l$XS'vmsgbox("(你可以在这里加一段成功后得到的信息)")爱好者博墅~G,dYUGUexitdo爱好者博墅QP*I!iceK}pelseyHc'w`Gctr=ctr'如果密码出错就增加一次错误认证计数$fVnJt`msgbox("认证出错,请检查密码")"fsBZFs"vWendifxa`yy`endif爱好者博墅NH'AeX,U:Cloop爱好者博墅Cq,a{{~a  运行这个程序试试看,当你出了此错误以后,就会停止再次询问密码,关闭程序telnet认证用来限制次数的程序与此大Q|!h{a$i同小异要注意的是嵌套的if语句,清仔细读一下这个程序,可能比较难懂,也请你试着自己设计一下类似的程序QmlyZy  其实,要在doloop加上验证的功能,并不一定要用if,我们可以直接利用do我来介绍一下while关键字,while可以放爱好者博墅Yvqtlc在do或者是loop后面,然后再接一个表达式,当表达式的值为true的时候(表达式成立),才运行循环体我们来看一下修改后的爱好者博墅~zwVU*t~程序"爱好者博墅p|}hNk~CNdima,ctrp*z*GN^yfMctr=爱好者博墅xvsbconstpass="pas"爱好者博墅FoXdmdowhilectr爱好者博墅{aKPI!^(Ua=inputbox("请输入密码")~Q!wifa=passthen^'}JFwYBgmsgbox("认证成功")S)Y^,J|)mhSmsgbox("(你可以在这里加一段成功后得到的信息)")"ELP*I(nYRd|exitdo爱好者博墅"Xs(SPNelseq:jpkCctr=ctr'如果密码出错就增加一次错误认证计数j:gX{JA$g)zimsgbox("认证出错,请检查密码"))pP#atf`,gNendif爱好者博墅e`UYiloop爱好者博墅nZTpDDOs爱好者博墅`FVs{Zkdima,ctr爱好者博墅JgRp!C`ZTectr=V#R(cLszBconstpass="pas"爱好者博墅V~BUX$dQdo}`eN"T,v:y*una=inputbox("请输入密码")爱好者博墅Qspa,sifa=passthen爱好者博墅JewfrBl`lmsgbox("认证成功")爱好者博墅'cwFYshGKimsgbox("(你可以在这里加一段成功后得到的信息)")爱好者博墅jX,HE{E*b!OexitdoWWqcqelse爱好者博墅zf~ctr=ctr'如果密码出错就增加一次错误认证计数爱好者博墅`GAJR|TEmsgbox("认证出错,请检查密码")爱好者博墅U)hspduendif#p)c}~PrwG,Dloopwhilectr爱好者博墅I,qs^$r  功能是一样的,为什么要放在loop后面呢你把ctr的值改成就知道了,while在do后面的程序会直接退出,而在loop后面EKwH{T)DD^还会允许一次认证,到了loop才结束和while相反的是until,用法和while一样,不过他只有当后面的表达式的值为false(表爱好者博墅zfJzYp}zg达式不成立)的时候才执行循环体,请自己试验一下TeUwf)`f  ok,我们来看另外一种循环结构,fornext,这种循环结构是基于计数的,也是在编程中最常见到的循环结构爱好者博墅~MF:iSaOAdimizxNguDfori=tou^QVP*Kkmsgbox(i)C{HY,I#Unext爱好者博墅Q}lAu'l  看到了吗每次输出的i都是递增的,但我们没有明确指出i要递增,当i达到的时候,循环就结束了,因为由开始,所以爱好者博墅*viVeG循环体执行了次,这一点很重要,大部分东西都是从开始而不是这个程序也可以写成#RhN|$}(Ado的形式:爱好者博墅Xjdf||a#{z`Zdimi爱好者博墅UX"lJ'Ki=~(ATsmePgldowhileiUOnc)Wmsgbox(i)Ju`mM^i=i'因为do不能自动计数,必须手动加T,n!I|P'rGFloopwemCMM  怎么样,还是for比较好用吧for在编程中很有用途,我们再举一个例子,顺便讲一下嵌套循环爱好者博墅uYcKw*qydimi,jOoliOhAfori=to爱好者博墅IcBcIn#z:Wb~hfori=to"d"lJG`)xstr=stri*j""'是和并字符串的符号爱好者博墅EuWAZFnext'每个next对应一个for爱好者博墅orEB,Zh{O$PnextRcKSOZ,Fm  看看运行结果,是否令你会想起小学时代的数学老师(丑陋的嘴脸)要注意,这里有一个"大"的for,和一个小的for,当爱好者博墅QbMc*},OD小的for执行完一个周期以后,大的for才执行一次(换句话说,大的for执行一次,小的要执行次),所以一共执行了九九八十UaIn一次在大的for里可以不仅仅是一个小的for,也可以加上另外的语句我们来修改一下源程序:lMl(Qd"Sdimi,j(o`zVT|fori=toI~vEI#Vxfori=toc*~"QHE{JS,Kstr=stri*j""mlenAgnext'每个next对应一个for爱好者博墅txtl,O'MJstr=strvbCrlf'vbCrlf相当于键盘上的回车键,因为你不能在键盘上输入,所以系统定义了一个默认的常量AWKtx`nextW$mAbhFmCVp  这次运行完成以后,输出结果按照乘数进行了分割,每小for运行完一次,就换一行(通过vbcrlf)OiAePR  这次的内容对菜鸟可能比较难懂,掌握的办法只有一个:多实践另外,我在论坛看到很多人还是问:"VBscrīpt要用什么工爱好者博墅ZSfL)^具编"我就很气愤,我在第一篇里面已经说明:用记事本编辑源代码,然后保存为以vbs为扩展名的程序就可以了,请大家不要Yk)}DqXj再问另外,国产的一种垃圾软件"超级X霸"抢占了vbs这个扩展名,请把那个垃圾卸载掉"niMM:)  我们总结一下:,a|S*xXP)jo,L要点:j`}{jS)doloop和exitdo的用法爱好者博墅mrgUU)while当表达式true的时候执行循环体,until反之P"xDRpLjP)fornext是计数循环,每次执行计数器递加爱好者博墅aLHR!o(bTj)嵌套循环的作用和写法爱好者博墅gla:~HDd)用于连接字符串爱好者博墅sqlzSH^)vbCrLf相当于键盘上的回车键WuwK{}JzgAGN作业:K:MVki~w)在我国的数学经典著作"九章算术"中有这样一道题:百钱买百鸡,公鸡钱一只,母鸡钱一只,小鸡钱只(这个数据我是参考一本编程书的,但我记得是公,母,小钱只不管了,就按照书上得来吧)求得是能有多少种办法买这些鸡如果看不懂的爱好者博墅!mR#DEFcZ话我用大白话说说:有人要去买鸡,用块钱正好买了只鸡,价格如下:公:$,母:$,小:$for,让你求一共多少种卖Bu^!usN法(公母小怎么搭配)请用循环解决这个问题t{$P,Ops:今天要去移民局办事,所以文章写的很仓促大部分代码都没有实验,请大家帮我找错另外,上次的作业大家在论坛应该CPWn"~看到了,我就不重复答案了,不知道大家喜欢做这种题,还是以前那种比较简单的今天我们来了解语言本身的最后一个论题:数组$pN(Ayp  要理解"数组",这个概念我觉得另一种翻译对学习来说更加容易:"阵列",没错,数组就是一个阵列,一个数据的阵列最简单的例子是数据库系统,假设你要储存名学生的英语成绩,如果不是用数组,你则要创建个不同的变量,累死数组就是类型相同(重要!)的一组数据(或者n组),用来储存相关的量,最简单的数组是一维数组,我们就先来学习它吧爱好者博墅YMI  什么是一维数组呢在维以下,你可以利用几何知识来理解"维"的概念,一维相当于一条线,二维则是一个矩形,三维是一个长方体我知道这么讲是很抽象的,我们先举个一维数组的例子就比较容易了解了爱好者博墅fSWJxZdima()'从零开始爱好者博墅tJ({:Kqmfori=toqpu|^)pa(i)=i'填充每一个数组元素z~zmvNuZFmsgbox(a(i))'输出数组元素T$P(J'tktvnext爱好者博墅,{H)Nqqm(R"`W  我们可以看到,定义一个数组的方法和定义一个变量没有什么不同,同样是使用dim语句定义一维数组的方法如下:爱好者博墅pB,LH*H|}edim数组名(元素数量),这里大家要注意一点,这里定义的元素数量总是比你要的要少一个,因为一个数组的起点是号数据而不是,所以大家一定要小心:你需要个数据,就定义"",需要个就定义,依此类推数组的元素可以看成一个个独立的变量,你可以像独立的变量那样使用他们数组元素的量可能是毫无关系的,比如第一个数组元素储存你的年龄,第二个储存今年西瓜的销售量,但这种做法是不鼓励的,甚至是不被接受的,不要这么干,这样的情况请定义独立的变量for语句在数组中可算是大显身手,还记得for吗它累加一个变量,我们可以把这个变量应用在数组中正好用来读取或者填充按照顺序排列的数组元素,上面就是这样一个例子数组其实是很简单的东西(再BASIC语言里面),数组难的是怎么捣弄这些循环,让他们按照你的要求运转这个等到二维数组再说,我们先看看如何手工填充数组ODY)wk^(W{  如果你这个都想不到的话,那你真是白学了:爱好者博墅ILrv^AZADdimname(),str'一共八个学生,str变量是用来把他们储存成一个字符串以便输出LTr*HxT,MCfori=to爱好者博墅|Bbkx|Hiname(i)=inputbox("请输入第"i"个学生的名字"),JX(kZs,rstr=str""name(i)xAAt}llnext'{Y^|X|bQmsgbox(str)爱好者博墅S:sncSf)lB  这样我们就有了一个小小的数据库,它们的数据排列可以看成这样:爱好者博墅Y^oiyBI  name(),name(),name()name()Ue)baap  看到了吧,所以我说我们可以把它看成是"一条线",等到我们学到了文件操作,就可以把他们输出到文件中去了一维数组有很多用处,我们来看一下一个复杂的例子我们要储存各学生的名字,身高,成绩这三种数据,由于名字是字符串,而身高可能是浮点数(带小数点的数),成绩则可能是整数,所以我们不能把他们储存在一个数组里面(不要忘记,数组织只能存储同类的数据),所以我们要建个数组,以下是例程:BBVYddimname(),high(),mark()'定义三个数组分别储存个人的名字,身高和得分#pGqJdimctr'计数器Ukp(xforctr=to*xOZ"*lname(ctr)=inputbox("请输入第"ctr"个学生的姓名")爱好者博墅~!l"IvxGIDy~Xjhigh(ctr)=inputbox("请输入第"ctr"个学生的身高")爱好者博墅P(buY#M"Jmark(ctr)=inputbox("请输入第"ctr"个学生的得分")TceKh}$I,Rlnext爱好者博墅RNMA|jnl|  OK,我们已经填充好了数据,现在我们的小小数据库只能按顺序输入,我们要让它看起来像点样子,我们来给他设计查询功能:爱好者博墅pVbu'efp,H,D'接着上面的程序~JN#C^BuOdimcname,temp'要查询的名字,和一个临时变量,用来储存数据的位置爱好者博墅{~AvYEgcname=inputbox("请输入你要查询的名字:")爱好者博墅(NBGH,Aaforctr=to'遍历所有name数组的成员,寻找要查询的名字wYbb*||l}ifname(ctr)=cnamethenwj$B#Z"Qwltemp=ctr'记录数据位置爱好者博墅MGIjQvOUexitfor'退出循环,和exitdo的用法一样爱好者博墅TMysVpXendif'不要忘了endif爱好者博墅xMwfZanext)F,LSjL}tAumsgbox("姓名:"name(temp)"""身高:"high(temp)"""得分:"mark(temp))(hFQxxws  嘿嘿,有意思吧,其实在这个程序里面,那个temp变量完全没有必要,只是为了更清楚地说明问题因为当exitfor以后ctr变量的值就不会改变,储存的正好是对应数据在数组中的位置,写这个temp变量是为了照顾到以后要学C的朋友(C可以在for语句里声明新变量,只在这个for结构中有效,所以到了外部就不能访问了)也就是说可以简化成如下:#E|WbGdimcnameCvA,aY!wOKcname=inputbox("请输入你要查询的名字:")爱好者博墅s$H)W,|hkforctr=toxM(oyaF~*Pifname(ctr)=cnamethenexitfor'因为只有exitfor就不需要块if了爱好者博墅DeG"Otx$e{nextd'mqW~msgbox("姓名:"name(ctr)"""身高:"high(ctr)"""得分:"mark(ctr))爱好者博墅'YqrOn  这是最直接的路子好好重读一下上面所有的源代码,然后自己写几个程序,完全搞清楚一维数组及其应用以后再看后面的二位数组二维数组好像是一个一维数组的集合,就好像"线积成面"一样,由n各一维数组组成二维数组,这是初学者比较好理解的办法(比较精确的是用"编号"的概念去理解,因为维以上的数组就比较难以用欧几里德几何概念去解释了)二维数组是很好解释的,我们来看一下:爱好者博墅rd!dgxdima(,)'从零开始,一共有X=个数据爱好者博墅DyxxNdimi,j'需要两个计数器gloB*`Whfori=to爱好者博墅:`lD*iZXg(gforj=to'使用嵌套循环爱好者博墅t!h$BMq'wTWa(i,j)="X"jagUWhjfBnext爱好者博墅ha,MuLRqnext爱好者博墅'QcapHr  我们创建了一个这样的二维数组(那些","是我用来分割元素的,并不存在),了解二维数组的了吗不清楚我们再讲一下爱好者博墅(Z,|`g!V#Zw)f编号GqX'L|kLXsX,X,X:Qdb^`*qX,X,Xy`Q*rcX,X,X|(fkV  二维数组的看起来是不是就是一个矩形呢(你在内存中看不到这样的矩形,只是便于你理解),每个数据都有编号,由两个数来定位,这个很像(非常像)你在国际象棋棋盘上寻找一个格,我们用类似"C","A"这样的"垂直坐标"进行定位,对,"垂直坐标",很确切我们要使用一个二维数组元素的时候可以和普通变量一样使用,只要指定数组元素的"定位点"就可以了,例如爱好者博墅TN|{TdVMua()()=,b()()="你好",诸如此类要注意的是二维数组也只能储存类型相同的元素,而且上标(起点)也从开始计算一个二维数组的元素个数只要把两个下标(以得到实际的值)再乘起来就可以了,非常类似于求一个矩形的面积爱好者博墅"ZIVyYe`T  假如需要储存的都是同一类型的数据,我们就可以用二维数组,比如要储存个人的姓名,国籍,民族,就可以使用二维数据SXnzIIVdiminfo(,)'一共五个人,要储存的数据类型有项爱好者博墅TlwtQg(fdimi,j爱好者博墅Euyzzfori=to  butQ$pPH`Rwfforj=to爱好者博墅iBO,Svdimopt'定义一个变量用于存储数据项提示爱好者博墅aYKx}MYselectcasej'判断应该输入的是什么数据爱好者博墅vP!gtDD^Hycase爱好者博墅zIdHVVpopt="姓名"爱好者博墅chYRNxocase爱好者博墅u({gQfGqJ#lONH^opt="国籍"jPy*LH~caseu)dv`opt="民族"vMTgYTendselect爱好者博墅aU`M^Ke$D#ainfo(i,j)=inputbox("请输入第"i"个人的"opt)lv'gGfv$tv}next)LyATFanext爱好者博墅Noq,G#QhWc'输出太麻烦了,我懒得动,你知道那么回事就行了Gyhff`  这样就不需要定义个一维数组了爱好者博墅ZcCw  多位数组(三维以上)的定义和使用方法与二维数组一样,但不太好在欧几里德几何空间里加以解释,幸好我们并不太常用那么多维的数组定义一个三位数组

用户评价(0)

关闭

新课改视野下建构高中语文教学实验成果报告(32KB)

抱歉,积分不足下载失败,请稍后再试!

提示

试读已结束,如需要继续阅读或者下载,敬请购买!

文档小程序码

使用微信“扫一扫”扫码寻找文档

1

打开微信

2

扫描小程序码

3

发布寻找信息

4

等待寻找结果

我知道了
评分:

/21

VBS教程

VIP

在线
客服

免费
邮箱

爱问共享资料服务号

扫描关注领取更多福利