目录
1. VBScript 程序结构
VBScript 程序通常由以下几部分组成：
- 声明部分：用于声明变量，使用
Dim关键字。 - 逻辑部分：用于程序的主要功能和处理。
- 输出部分：通过
MsgBox显示信息，或通过其他方式输出数据。
1.1 VBScript 程序流程
VBScript 程序的执行顺序是线性的，从上至下执行。可以通过条件语句、循环、函数或子过程等控制程序流程。
Dim message
message = "Hello, VBScript!"
MsgBox message ' 输出程序内容
2. 基本 VBScript 程序示例
2.1 简单的 “Hello, World!” 程序
MsgBox "Hello, World!"
该程序会弹出一个消息框，显示 “Hello, World!”。
2.2 基本的加法程序
Dim a, b, sum
a = 10
b = 20
sum = a + b
MsgBox "Sum of " & a & " and " & b & " is " & sum
该程序计算两个数的和，并显示结果。
3. 常见 VBScript 程序功能
3.1 条件语句程序
判断成绩是否及格
Dim score
score = 75
If score >= 60 Then
MsgBox "Pass"
Else
MsgBox "Fail"
End If
该程序判断成绩是否及格，60 分以上显示 “Pass”，否则显示 “Fail”。
3.2 循环结构程序
计算 1 到 5 的和
Dim i, sum
sum = 0
For i = 1 To 5
sum = sum + i
Next
MsgBox "Sum of numbers from 1 to 5 is " & sum
该程序使用 For 循环计算从 1 到 5 的和，并显示结果。
3.3 选择性输出程序
输出不同的等级
Dim grade
grade = "B"
Select Case grade
Case "A"
MsgBox "Excellent"
Case "B"
MsgBox "Good"
Case "C"
MsgBox "Fair"
Case Else
MsgBox "Fail"
End Select
该程序根据成绩等级输出不同的评价。
4. 文件操作程序
4.1 读取文件内容
从文件读取并显示内容
Dim fso, file
Set fso = CreateObject("Scripting.FileSystemObject")
Set file = fso.OpenTextFile("C:\example.txt", 1) ' 打开文件进行读取
Do Until file.AtEndOfStream
MsgBox file.ReadLine ' 显示每一行内容
Loop
file.Close ' 关闭文件
该程序逐行读取并显示文件中的内容。
4.2 写入文件
将数据写入文件
Dim fso, file
Set fso = CreateObject("Scripting.FileSystemObject")
Set file = fso.CreateTextFile("C:\output.txt", True) ' 创建文件并写入
file.WriteLine "This is a test."
file.WriteLine "VBScript can write to files."
file.Close ' 关闭文件
该程序将两行文本写入指定文件。
5. 用户交互程序
5.1 获取用户输入
通过输入框获取用户名
Dim userName
userName = InputBox("Enter your name:", "User Input")
MsgBox "Hello, " & userName & "!"
该程序弹出输入框，要求用户输入名字，然后显示一个欢迎消息。
5.2 确认框
提示用户确认操作
Dim result
result = MsgBox("Do you want to continue?", vbYesNo, "Confirmation")
If result = vbYes Then
MsgBox "You chose Yes"
Else
MsgBox "You chose No"
End If
该程序弹出一个确认框，用户选择“是”或“否”后，程序显示相应的消息。
6. 错误处理程序
6.1 使用 On Error Resume Next
On Error Resume Next
Dim result
result = 10 / 0 ' 除以零，将触发错误
If Err.Number <> 0 Then
MsgBox "Error: " & Err.Description ' 捕获并显示错误
End If
该程序演示如何使用错误处理来捕获和显示错误信息。
6.2 使用 On Error GoTo
使用 GoTo 跳转到错误处理部分
On Error GoTo ErrorHandler
' 主程序代码
Dim num
num = 1 / 0 ' 错误：除以零
Exit Sub
ErrorHandler:
MsgBox "An error occurred: " & Err.Description
此程序在发生错误时，跳转到错误处理部分，显示错误信息。
发表回复