使用VBS语言，将数组中的元素(1,3,5,7,9,2,4,6,8,10,-1,100）由小到大进行排序

以下是使用VBS语言对数组进行排序的示例代码：

Dim arr(11)
arr(0) = 1
arr(1) = 3
arr(2) = 5
arr(3) = 7
arr(4) = 9
arr(5) = 2
arr(6) = 4
arr(7) = 6
arr(8) = 8
arr(9) = 10
arr(10) = -1
arr(11) = 100

'使用冒泡排序算法对数组进行排序
For i = 0 To UBound(arr) - 1
    For j = 0 To UBound(arr) - i - 1
        If arr(j) > arr(j + 1) Then
            temp = arr(j)
            arr(j) = arr(j + 1)
            arr(j + 1) = temp
        End If
    Next
Next

'输出排序后的数组
For i = 0 To UBound(arr)
    WScript.Echo arr(i)
Next

在上述代码中，首先定义了一个包含12个元素的数组，并指定了初始值。然后使用冒泡排序算法对数组进行排序。最后输出排序后的数组。

相关问题

用vbs=1-1/2+1/3-1/4+1/5……+1/n的和

以下是使用vbs计算1-1/2+1/3-1/4+1/5……+1/n的和的代码：

n = 10 '设置n的值
sum = 0 '初始化sum为0
For i = 1 To n
    If i Mod 2 = 0 Then '如果i是偶数
        sum = sum - 1/i '减去1/i
    Else '如果i是奇数
        sum = sum + 1/i '加上1/i
    End If
Next
WScript.Echo sum '输出结果

运行结果为：0.64563546980713

vbs把变量存入数组

在 VBScript 中，可以使用数组来存储多个值。要将变量存入数组中，可以按照以下步骤进行：

1. 声明数组变量并指定数组大小。

Dim myArray(10)

这将创建一个包含 11 个元素的数组变量 myArray。

2. 将变量存入数组中。

myArray(0) = "value1"
myArray(1) = "value2"
myArray(2) = "value3"

这将分别将字符串 "value1"、"value2" 和 "value3" 存入数组的前三个元素中。

3. 通过循环遍历数组中的元素。

For i = 0 to 2
    WScript.Echo myArray(i)
Next

这将遍历数组中的前三个元素，并将它们打印到控制台上。

需要注意的是，在 VBScript 中，数组的下标从 0 开始。因此，myArray(0) 表示数组的第一个元素，myArray(1) 表示数组的第二个元素，以此类推。