1、电脑上面新建一个文本文档，在文本文档里面输入以下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 & "," & MyArray(j3) '生成的随机数赋给Rm Else Rm = "随机数：" & MyArray(j3) End IfNextFor j1 = 1 To i n=0 For j2 = 1 to i If MyArray(j1 )>= MyArray(j2) Then '进行比较，然后选出最大值 n=n+1 If n = i Then '如果比较的次数与生成的个数相当，则 Ra="最大值：" & MyArray(j1) '选出最大值赋给Ra End If End If NextNextFor j4 = 1 To i n=0 For j5 = 1 To i If MyArray(j4) <= MyArray(j5) then '进行比较，然后选出最小值 n=n+1 If n = i Then Ri="最小值：" & MyArray(j4) '选出最小值赋给Ri End If End If NextNextMsgbox Rm & Chr(13) & Ra & Chr(13) & Ri '弹出生成的随机数窗口
3、重命名文本文档，然后把后缀名“*.txt”改成“*.vbs”。
5、程序运行完成，将会看到运行的结果。
