目录
1. 文件操作实例
VBScript 可以用于文件的创建、读取、写入等操作。下面是一个简单的示例，演示如何创建文件并写入内容。
示例：创建并写入文件
Dim fso, file
Set fso = CreateObject("Scripting.FileSystemObject")
Set file = fso.CreateTextFile("C:\example.txt", True)
file.WriteLine "Hello, VBScript!"
file.WriteLine "This is a test file."
file.Close
MsgBox "File has been created and written successfully!"
在这个示例中：
- 使用
FileSystemObject创建文件。 - 写入两行文本内容。
- 最后关闭文件，并显示一个消息框通知文件创建成功。
2. 循环控制实例
通过循环可以重复执行一段代码。下面的示例展示了如何使用 For...Next 循环来计算从 1 到 10 的数字之和。
示例：计算数字和
Dim i, sum
sum = 0
For i = 1 To 10
sum = sum + i
Next
MsgBox "The sum of numbers from 1 to 10 is: " & sum
该示例中，变量 i 从 1 到 10 逐一累加，每次将 i 的值加到 sum 中，最后显示和。
3. 条件判断实例
条件判断可以根据不同的条件执行不同的代码。以下是一个判断学生成绩的实例，基于成绩输出不同的评价。
示例：根据成绩输出评价
Dim score
score = 85
If score >= 90 Then
MsgBox "Excellent!"
ElseIf score >= 70 Then
MsgBox "Good job!"
ElseIf score >= 50 Then
MsgBox "You passed!"
Else
MsgBox "You failed!"
End If
在此示例中，score 被赋值为 85，根据分数的不同区间输出不同的评价。
4. 用户输入实例
VBScript 可以使用 InputBox 来获取用户输入。以下是一个获取用户姓名并输出问候信息的示例。
示例：获取用户输入并输出
Dim userName
userName = InputBox("Please enter your name:")
If userName <> "" Then
MsgBox "Hello, " & userName & "!"
Else
MsgBox "You didn't enter a name."
End If
该示例使用 InputBox 获取用户输入的名字，并在 MsgBox 中显示相应的问候信息。
5. 错误处理实例
VBScript 提供了基本的错误处理机制。下面是一个使用 On Error Resume Next 进行错误处理的示例。
示例：错误处理
On Error Resume Next ' 忽略错误，继续执行
Dim result
result = 10 / 0 ' 触发除以零错误
If Err.Number <> 0 Then
MsgBox "An error occurred: " & Err.Description
End If
在这个示例中，On Error Resume Next 会忽略错误，继续执行代码。当发生错误时，通过 Err.Number 检查并显示错误描述。
6. 函数和子程序实例
VBScript 支持定义函数和子程序，函数可以返回值，而子程序则不会。下面是一个简单的函数和子程序示例。
示例：定义函数和子程序
' 定义函数
Function AddNumbers(a, b)
AddNumbers = a + b
End Function
' 调用函数
Dim result
result = AddNumbers(10, 20)
MsgBox "The result of 10 + 20 is: " & result
' 定义子程序
Sub ShowMessage()
MsgBox "This is a simple message!"
End Sub
' 调用子程序
ShowMessage()
在这个示例中：
AddNumbers函数计算两个数的和，并返回结果。ShowMessage子程序只是输出一个消息框。
7. 参考资料
以上是一些常见的 VBScript 实例，涵盖了文件操作、循环控制、条件判断、用户输入、错误处理、函数和子程序等方面的内容。这些示例可以帮助您更好地理解和应用 VBScript 编程语言。
发表回复