跟我学编程.txt

这是一个普遍简单的编程指导文章,通过学习初学者一般能理解编程的含意

　　这样就成功了. 这也是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) 自己随便设计一个程序, 应用今天的知识
四篇（共六篇）：



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

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

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

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

dim sum
sum=0 '初始化变量
sum=sum + int(inputbox("请输入交易额"))
'sum=sum+x　这种形式是把本身的值取出来, 进行一次运算, 再放回本身, 这种方法很有用处
'这里使用了函数嵌套, 把inputbox的返回值直接传给int函数, 转化成整数, 下同
sum=sum + int(inputbox("请输入交易额"))
sum=sum + int(inputbox("请输入交易额"))
sum=sum + int(inputbox("请输入交易额"))
sum=sum + int(inputbox("请输入交易额"))
msgbox(sum)

　　看到了吗, 我通过把计算过程复制了5遍才设计好了程序, 这种程序在汽车交易所等交易次数少的地方还能凑合着用, 如果

放到超市岂不是要复制, 粘贴几千遍? 我们今天讲的内容就可以克服这种缺陷, 首先, 我们来讲以下Do...Loop语句.

　　do...loop的结构看上去非常简单, 就是:do...loop, 仅此而已, 这个结构不断执行do和loop之间的语句(学名叫:循环体), 
永不停止. 举个例子来说:

do
    msgbox("这个信息会不断重复出现, 要停止程序请使用任务管理器(Ctrl+Alt+Del)中止wscript进程")
loop

　　运行这个程序, 当你点销掉一个对话框马上会出来另一个, 你永远点不完, 总有下一个. 谁会运行这样的程序? 除非是给

别人捣乱(我就干过这种事), 所以在do..loop结构中还有一个语句:exit do, 这个语句将终止循环, 跳到loop后面的语句继续

执行. 据个例子来说:

dim a '注意:常量不需要在dim里面声明,否则会引发错误
const pass="123456" '这是一个字符串 请用""包裹起来. 设定密码为常量, 不可变更
do
    a=inputbox("请输入密码")
    if a=pass then 
         msgbox("密码校验成功")
         exit do
    end if
loop

　　这个程序会一直不停的问你密码, 知道你输入了正确的密码为止.(if可以嵌套在另一个if当中, 也可以嵌套在循环体当中

, 所以一定要用缩进, 来分清楚程序的各个部分). 这个程序是很经典的, 早期的程序都是这么做的. 但是我们是Hacker, 所以

我们了解系统的安全性, 这种无限次认证程序很容易被穷举破解, 我们要来限定认证的次数. 修改程序如下

dim a,ctr
ctr=0 '设置计数器
const pass="pas123_" '上面的那个是弱密码, 这次改的强一点
do
    if ctr=3 then
        msgbox("已经达到认证上限, 认证程序关闭")
        exit do
    else
        a=inputbox("请输入密码")
        if a=pass then
            msgbox("认证成功")
            msgbox("(你可以在这里加一段成功后得到的信息)")
            exit do
        else
            ctr=ctr+1 '如果密码出错就增加一次错误认证计数
            msgbox("认证出错, 请检查密码")
        end if
     end if
loop

　　运行这个程序试试看, 当你出了3此错误以后, 就会停止再次询问密码, 关闭程序. telnet认证用来限制次数的程序与此大

同小异. 要注意的是嵌套的if语句, 清仔细读一下这个程序, 可能比较难懂, 也请你试着自己设计一下类似的程序.

　　其实, 要在do...loop加上验证的功能, 并不一定要用if, 我们可以直接利用do. 我来介绍一下while关键字, while可以放
在do或者是loop后面, 然后再接一个表达式, 当表达式的值为true的时候(表达式成立),才运行循环体.我们来看一下修改后的
程序"

dim a,ctr
ctr=0
const pass="pas123_"
do while ctr<3
    a=inputbox("请输入密码")
    if a=pass then
        msgbox("认证成功")
        msgbox("(你可以在这里加一段成功后得到的信息)")
        exit do
    else
        ctr=ctr+1 '如果密码出错就增加一次错误认证计数
        msgbox("认证出错, 请检查密码")
    end if
loop

　　这样实现的功能和上一个例子完全一样, 我们再来看看把while放在loop后面:

dim a,ctr
ctr=0
const pass="pas123_"
do 
    a=inputbox("请输入密码")
    if a=pass then
        msgbox("认证成功")
        msgbox("(你可以在这里加一段成功后得到的信息)")
        exit do
    else
        ctr=ctr+1 '如果密码出错就增加一次错误认证计数
        msgbox("认证出错, 请检查密码")
    end if
loop while ctr<3

　　功能是一样的, 为什么要放在loop后面呢? 你把ctr的值改成3就知道了, while在do后面的程序会直接退出, 而在loop后面

还会允许一次认证, 到了loop才结束.和while相反的是until, 用法和while一样, 不过他只有当后面的表达式的值为false(表

达式不成立)的时候才执行循环体, 请自己试验一下

　　ok, 我们来看另外一种循环结构,for....next, 这种循环结构是基于计数的, 也是在编程中最常见到的循环结构.

dim i
for i=0 to 5
    msgbox(i)
next

　　看到了吗?每次输出的i都是递增的, 但我们没有明确指出i要递增, 当i达到5的时候, 循环就结束了, 因为由0开始, 所以

循环体执行了6次, 这一点很重要, 大部分东西都是从0开始而不是1. 这个程序也可以写成

do的形式:

dim i
i=0
do while i<5
    msgbox(i)
    i=i+1 '因为do不能自动计数, 必须手动加
loop

　　怎么样, 还是for比较好用吧. for在编程中很有用途, 我们再举一个例子, 顺便讲一下嵌套循环.

dim i,j
for i=1 to 9
    for i=1 to 9
       str=str & i * j & " " '&是和并字符串的符号
    next '每个next对应一个for
next

　　看看运行结果, 是否令你会想起小学时代的数学老师(丑陋的嘴脸). 要注意, 这里有一个"大"的for, 和一个小的for, 当

小的for执行完一个周期以后, 大的for才执行一次(换句话说, 大的for执行一次, 小的要执行9次), 所以一共执行了九九八十

一次. 在大的for里可以不仅仅是一个小的for, 也可以加上另外的语句. 我们来修改一下源程序:

dim i,j
for i=1 to 9
    for i=1 to 9
       str=str & i * j & " "
    next '每个next对应一个for
    str=str & vbCrlf 'vbCrlf相当于键盘上的回车键,因为你不能在键盘上输入,所以系统定义了一个默认的常量 
next

　　这次运行完成以后, 输出结果按照乘数进行了分割, 每小for运行完一次, 就换一行(通过vbcrlf).

　　这次的内容对菜鸟可能比较难懂, 掌握的办法只有一个:多实践. 另外, 我在论坛看到很多人还是问:"VBScript要用什么工

具编?"我就很气愤, 我在第一篇里面已经说明:用记事本编辑源代码, 然后保存为以.vbs为扩展名的程序就可以了, 请大家不要

再问. 另外, 国产的一种垃圾软件"超级X霸"抢占了vbs这个扩展名, 请把那个垃圾卸载掉.

　　我们总结一下:

要点:

1) do..loop和exit do的用法

2) while当表达式true的时候执行循环体,until反之

3) for...next是计数循环, 每次执行计数器递加

4) 嵌套循环的作用和写法

4.5) &用于连接字符串

5) vbCrLf相当于键盘上的回车键


作业:

1) 在我国的数学经典著作"九章算术"中有这样一道题:百钱买百鸡, 公鸡5钱一只, 母鸡3钱一只, 小鸡1钱2只(这个数据我是参

考一本编程书的, 但我记得是公3,母1,小1钱3只? 不管了, 就按照书上得来吧)求得是能有多少种办法买这些鸡. 如果看不懂的

话我用大白话说说:有人要去买鸡, 用100块钱正好买了100只鸡, 价格如下:公:5$, 母:3$, 小:1$ for 2, 让你求一共多少种卖

法(公母小怎么搭配). 请用循环解决这个问题.

ps:今天要去移民局办事, 所以文章写的很仓促. 大部分代码都没有实验, 请大家帮我找错. 另外, 上次的作业大家在论坛应该

看到了, 我就不重复答案了, 不知道大家喜欢做这种题, 还是以前那种比较简单的?
第五篇（共六篇）：

       请允许我县描述一下我现在的环境:气温高达37摄氏度, 而我忘记了图书馆开门的时间, 还要在这里站上一个小时, 在热带植物的包裹下, 各种奇怪的小飞虫围着我转来转去. 不过令我欣慰的是, 终于写到五了, 还有两课我们的"基础篇"就要结束了. 

       今天我们来了解语言本身的最后一个论题:数组.

　　要理解"数组", 这个概念我觉得另一种翻译对学习来说更加容易:"阵列", 没错, 数组就是一个阵列, 一个数据的阵列. 最简单的例子是数据库系统, 假设你要储存20名学生的英语成绩, 如果不是用数组, 你则要创建20个不同的变量, 累死. 数组就是类型相同(重要!)的一组数据(或者n组), 用来储存相关的量, 最简单的数组是一维数组, 我们就先来学习它吧.

　　什么是一维数组呢? 在3维以下,你可以利用几何知识来理解"维"的概念,一维相当于一条线, 二维则是一个矩形, 三维是一个长方体. 我知道这么讲是很抽象的, 我们先举个一维数组的例子就比较容易了解了.