四、要用结构化
    也许有人要问：现在的语言都是结构化的，我想不用还难呢，你这不是白说了？
    在这里我要说的结构化，是两个方面的内容：一是同一级语句尽量对齐，不同级语句要有缩进；二是尽量多用子程序（即过程）。
    比如下面的程序段（以ASP为例）
'--------用户登录程序---------
If Resquest.form("UserName")="" then
    '用户直接输入地址进入，必须将其引导到Login.asp
    Response.Redirect "login.asp"
Else
    '从表单进入
    If Resquest.form("TeacherPass")="1234567" then
        '教师身份
        Application("Teacher")=Application("Teacher")+1
        Session("TeacherNumber")=Application("Teacher")
        Response.Redirect "main.asp"
    Else
        '学生身份
        Application("Student")=Application("Student")+1
        Session("StudentNumber")=Application("Student")
        Response.Redirect "main.asp"
    End if
End if
'----------程序结束----------
    以上这个ASP程序段是我写这篇文章时随手写的，没有什么功能。从这段程序中，我们可以看出其中的缩进，给日后修改时减少了许多麻烦。
    再来看下面一个程序，下面的程序的功能是在打印机上打印两行文字：
'----------打印程序----------
Printer.CurrentX=2500
Printer.CurrentY=1000
Printer.Fontname="黑体"
Printer.FontSize=32
Printer.print "给同学们的一封信"
Printer.CurrentX=100
Printer.CurrentY=3000
Printer.Fontname="宋体"
Printer.FontSize=16
Printer.print StrNameOfStudent & "同学：你好"
Printer.Enddoc
'----------程序结束----------
以上这段程序非但可读性差，语句量大，而且日后修改起来麻烦，如果改用下面这种方法就好多了：
'----------打印程序例二----------
PrintText(2500,1000,"黑体",32,"给同学们的一封信")
PrintText(100,3000,"宋体",16,StrNameOfStudent & "同学：你好")
Printer.Enddoc

Private Sub PrintText(Byval PTX as Singel,Byval PTY as Singel,Byval PTFN as String,Byval PTFS as Singel,Byval PTStr As String)
    '打印内容子过程
    'PTX，PTY是打印位置
    'PTFN是字体，PTFS是字号
    'PTStr是打印内容
    '你还可以跟据需要加入粗体、斜体等参数
    Printer.CurrentX=PTX
    Printer.CurrentY=PTY
    Printer.Fontname=PTFN
    Printer.FontSize=PTFS
    Printer.print PTStr
End Sub
'----------程序结束----------