在Excel表格中，我們可以使用VBA程序來求解最大值和最小值，通過引用Excel應用函數功能（如：最大值，）來實現。然而，在VBS腳本程序中卻沒有專門用于求解最值的函數。所以，我們只能使用嵌套循環(huán)來

在Excel表格中，我們可以使用VBA程序來求解最大值和最小值，通過引用Excel應用函數功能（如：最大值，）來實現。然而，在VBS腳本程序中卻沒有專門用于求解最值的函數。所以，我們只能使用嵌套循環(huán)來比較生成的隨機數，以求得其中的最大值和最小值。

VBS程序代碼

首先，我們需要新建一個文本文檔，并在其中輸入以下VBS程序代碼：

```vbs

Dim Ra, Rm, Ri, j1, j2, j3, j4, j5, n, MyArray(1000)

On Error Resume Next '忽略運行過程中可能出現的錯誤

Randomize '初始化隨機數生成器

Rm ""

i Int(InputBox("請輸入隨機數個數:", "請輸入隨機數個數", 5)) '隨機數個數，默認為5個

For j3 1 To i

MyArray(j3) Int(Rnd() * 1000) '生成0-1000之間的隨機整數

If Rm <> "" Then

Rm Rm ","

Rm Rm MyArray(j3) '生成的隨機數賦給Rm

Else

Rm "隨機數：" MyArray(j3)

End If

Next

For j1 1 To i

n 0

For j2 1 to i

If MyArray(j1) > MyArray(j2) Then '進行比較，然后選出最大值

n n 1

End If

If n i Then

Ra"最大值：" MyArray(j1) '選出最大值賦給Ra

End If

Next

Next

For j4 1 To i

n 0

For j5 1 To i

If MyArray(j4) < MyArray(j5) Then '進行比較，然后選出最小值

n n 1

End If

If n i Then

Ri"最小值：" MyArray(j4) '選出最小值賦給Ri

End If

Next

Next

Msgbox Rm Chr(13) Ra Chr(13) Ri '彈出生成的隨機數窗口

```

解讀VBS腳本程序

1. 使用VBS程序生成隨機數時，應當對隨機數生成器進行初始化，以避免每次生成的隨機數都相同。

2. InputBox輸入框函數的語法為：InputBox("提示信息", "輸入框的標題", 默認輸入值)，前面加上“Int”函數是為了將輸入的數值取整。

3. 程序中的兩個嵌套的""循環(huán)函數主要是從數組中取出一個數與整個數組進行比較，滿足條件即為所求的最值。

運行程序

1. 將文本文檔的后綴名由“*.txt”改為“*.vbs”。

2. 雙擊已經重命名的VBS腳本程序，并輸入要生成隨機數的個數（例如：6個）。

3. 程序運行完成后，將會看到運行結果彈出窗口，其中包括生成的隨機數、最大值和最小值。