VBS例子

例1

定义一个数组, 包含5个元素,　都是随机整数(随便输入), 要求把他们按照从大到小的顺序排列起来

Option Explicit
Dim a(4)
Dim i
Dim j
Dim temp

For  i =0  to 4
a(i) = inputbox ("请输入第" &(i+1) &"个元素 ")
Next

For i = 0  to 4
 For j = (i+1) to 4
  If  a(i) < a(j) Then
   temp = a(i)
   a(i) = a(j)
   a(j) = temp
  End If
 Next
Next
msgbox (a(0)&" "&a(1)&" "&a(2)&" "&a(3)&" "&a(4))