6、VBScript 条件逻辑、迭代结构与过程详解

VBScript 条件逻辑、迭代结构与过程详解

1. 输入数据处理与报告展示

在处理用户输入时，若输入字符串长度为零，表明用户未输入任何数据就输入了“Quit”，此时无数据可显示。若用户未输入“Quit”，则会通过两个 InputBox() 语句提示用户提供要订购的每个单位的零件编号和数量。收集到的信息会拼接成一个字符串，用于以报告形式展示数据，使用 VBScript 的 vbCrLf 常量在每组收集的数据末尾执行换页和回车操作来格式化字符串。

' 示例代码逻辑
Dim userInput
userInput = InputBox("请输入内容，输入 Quit 结束")
If Len(userInput) = 0 Then
    ' 用户未输入数据就输入 Quit
    MsgBox "无数据可显示"
ElseIf userInput <> "Quit" Then
    Dim partNumber, quantity
    partNumber = InputBox("请输入零件编号")
    quantity = InputBox("请输入数量")
    Dim reportString
    reportString = "零件编号: " & partNumber & vbCrLf & "数量: " & quantity & vbCrLf
    MsgBox reportString
End If

2. 迭代结构介绍

<