计算机 VBScript 的程序题383

VBScript（Visual Basic Script）是一种基于 Microsoft Visual Basic 编程语言的轻量级脚本语言，主要用于自动化和控制 Windows 操作系统。它被广泛用于各种应用程序中，例如脚本、网页和 ActiveX 控件。以下是 VBScript 程序题的常见类型：

基本运算

编写一个 VBScript 程序来执行基本算术运算，例如加法、减法、乘法和除法。程序应提示用户输入两个数字，然后执行运算并显示结果。

Option Explicit
Dim num1, num2, result
num1 = InputBox("请输入第一个数字：")
num2 = InputBox("请输入第二个数字：")
result = num1 + num2
MsgBox "结果：" & result

条件语句

编写一个 VBScript 程序来检查一个数字是否为奇数或偶数。程序应提示用户输入一个数字，然后根据输入的数字是否可被 2 整除来判断它是否为奇数或偶数。

Option Explicit
Dim num
num = InputBox("请输入一个数字：")
If num Mod 2 = 0 Then
MsgBox "该数字是偶数"
Else
MsgBox "该数字是奇数"
End If

循环语句

编写一个 VBScript 程序来遍历一个整数数组并计算数组中所有数字的总和。程序应提示用户输入数组的大小，然后读取每个数字并累加总和。

Option Explicit
Dim arr(), size, i, sum
size = InputBox("请输入数组的大小：")
ReDim arr(size)
For i = 0 To size - 1
arr(i) = InputBox("请输入数组的第" & (i + 1) "个元素：")
Next
sum = 0
For i = 0 To size - 1
sum = sum + arr(i)
Next
MsgBox "数组的总和：" & sum

字符串操作

编写一个 VBScript 程序来处理字符串。程序应提示用户输入一个字符串，然后执行以下操作：
计算字符串的长度
将字符串转换为大写或小写
查找字符串中特定字符的索引
从字符串中删除空格

Option Explicit
Dim str, len, upc, lwr, idx, newStr
str = InputBox("请输入一个字符串：")
len = Len(str)
upc = UCase(str)
lwr = LCase(str)
idx = InStr(str, "a")
newStr = Replace(str, " ", "")
MsgBox "字符串长度：" & len & vbCrLf & _
"大写字符串：" & upc & vbCrLf & _
"小写字符串：" & lwr & vbCrLf & _
"字符 'a' 的索引：" & idx & vbCrLf & _
"删除空格后的字符串：" & newStr

文件操作

编写一个 VBScript 程序来处理文件。程序应提示用户输入一个文件名，然后执行以下操作：
创建文件（如果它不存在）
向文件写一句话
读取文件中的数据并将其显示在消息框中
关闭文件

Option Explicit
Dim fso, file, data
Set fso = CreateObject("")
file = InputBox("请输入一个文件名：")
If Not (file) Then
file
End If
Set file = (file, 2)
"Hello World!"
Set file = (file, 1)
data =
MsgBox data

2025-01-18

上一篇：使用 VBScript 求 50 的阶乘

下一篇：VBScript 中的标量变量和数组变量