VBScript 求 3 个数的平均数源代码45

简介

平均数，也称为均值，是统计学中描述一组数据中心趋势的常用度量。它表示一组数字的总和除以数字的个数。在 VBScript 中，计算 3 个数的平均数非常简单，只需要使用简单的算术运算。

源代码示例

以下 VBScript 代码示例演示了如何求 3 个数的平均数：```vbscript
' 定义三个变量来存储数字
Dim num1, num2, num3
' 从用户获取数字输入
num1 = InputBox("请输入第一个数字：")
num2 = InputBox("请输入第二个数字：")
num3 = InputBox("请输入第三个数字：")
' 将输入的字符串转换为数字
num1 = CInt(num1)
num2 = CInt(num2)
num3 = CInt(num3)
' 计算平均数
average = (num1 + num2 + num3) / 3
' 显示平均数
MsgBox "三个数的平均数为：" & average
```

代码说明

该 VBScript 代码执行以下步骤：1. 定义三个变量 `num1`、`num2` 和 `num3` 来存储数字输入。
2. 使用 `InputBox` 函数从用户获取数字输入并将其存储在这些变量中。
3. 将输入的字符串转换为数字，因为 `InputBox` 返回字符串，而计算需要数字。
4. 使用算术运算计算平均数，即三个数字的总和除以 3。
5. 使用 `MsgBox` 函数将平均数显示给用户。

其他方法

除了使用算术运算符外，还可以使用 VBScript 的内置函数 `Avg` 来计算平均数。`Avg` 函数接受一个数字数组或范围作为参数并返回平均值。```vbscript
' 创建一个数字数组
Dim numbers = Array(num1, num2, num3)
' 使用 Avg 函数计算平均数
average = Avg(numbers)
' 显示平均数
MsgBox "三个数的平均数为：" & average
```

扩展

您可以扩展此 VBScript 代码示例以求取任意数量的数字的平均数。只需将代码复制到一个循环中，并使用循环变量来跟踪和累加数字。```vbscript
' 获取数字输入的数量
numCount = InputBox("请输入数字输入的数量：")
' 定义一个数组来存储数字
Dim numbers(numCount - 1)
' 获取数字输入并将其存储在数组中
For i = 0 to numCount - 1
numbers(i) = CInt(InputBox("请输入第" & (i + 1) & "个数字："))
Next
' 计算平均数
average = Avg(numbers)
' 显示平均数
MsgBox "输入数字的平均数为：" & average
```

VBScript 提供了多种方法来计算 3 个数或更多数的平均数。通过使用简单的算术运算或 `Avg` 函数，您可以轻松地编写脚本来执行此任务。

2025-01-25

上一篇：在 VBScript 中，数组的维数最大可以是多少？

下一篇：VBScript 的数据类型：仅此一种