VBS生成随机数并求出最值

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 If

 Next

 For 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

  Next

 Next

 For 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

  Next

 Next

 Msgbox Rm & Chr(13) & Ra & Chr(13) & Ri  '弹出生成的随机数窗口

2、vbs脚本程序解读：

（1）使用vbs程序生成随机数时，应当对随机数生成器执行一次初始化，以免每次生成的随机都一样。

（2）InputBox输入框函数的语法为：InputBox("提示信息","输入框的标题",默认输入值)，前面加“Int”函数主要是对输入的数值取整。

（3）程序里面的两个“For……Next”函数嵌套使用，主要是从数组里边取出一个数之后再与整个数组进行比较，条件满足就是所求的最值。

3、重命名文本文档，然后把后缀名“*.txt”改成“*.vbs”。

4、双击已经重命名的vbs脚本程序，输入要生成随机数的个数（如：6个）。

5、程序运行完成，将会看到运行的结果。