杨辉三角形 VBScript 代码104

杨辉三角形，也称为帕斯卡三角形，是一种二项式展开的几何图形表示。在数学和组合学中具有重要意义。本文将介绍如何使用 VBScript 编程语言生成杨辉三角形。

基本原理

杨辉三角形是一个等边三角形，其每一行的数字是其上一行数字的和。第 0 行和第 1 行仅包含数字 1。从第 2 行开始，每一行中的数字由其上一行中相邻两个数字的和组成。
1
1 1
1 2 1
1 3 3 1
1 4 6 4 1
1 5 10 10 5 1
1 6 15 20 15 6 1

VBScript 代码

以下 VBScript 代码可以生成包含指定行数的杨辉三角形：```vbscript
Option Explicit
' 获取行数
Dim numRows As Integer
Dim i As Integer, j As Integer
("请输入杨辉三角形要生成的行的数量：")
numRows = InputBox("行数：")
' 初始化一个二维数组来存储三角形
Dim triangle(numRows - 1, 1)
' 第 0 行和第 1 行初始化为 1
For i = 0 To numRows - 1
triangle(i, 0) = 1
Next
' 从第 2 行开始，填充三角形
For i = 2 To numRows - 1
' 对于每行，计算并存储其数字
For j = 0 To i
triangle(i, j) = triangle(i - 1, j) + triangle(i - 1, j - 1)
Next
Next
' 打印三角形
("杨辉三角形如下：")
For i = 0 To numRows - 1
("第 " & (i + 1) & " 行：")
For j = 0 To i
(triangle(i, j) & " ")
Next

Next
```

运行代码

要运行代码，请将其保存为一个 VBScript 文件（例如，）。然后，在命令提示符或 Windows PowerShell 中运行以下命令：```
cscript
```

输出

程序将提示用户输入要生成的杨辉三角形行数。输入一个正整数并按 Enter 键。程序将打印出包含指定行数的杨辉三角形。

2025-01-14

上一篇：获取计算机名的 VBScript 方法

下一篇：VBScript 四舍五入