随机产生10个自然数，并按从小到大的顺序排序,VBscript

在VBScript中，您可以使用以下步骤来生成10个随机自然数并进行排序：

1. 使用`Randomize`语句初始化随机数生成器。
2. 使用`Int`和`Rand`函数结合产生随机数。
3. 利用数组存储这些随机数。
4. 使用冒泡排序或其他排序算法对数组中的数进行排序。

以下是一个简单的示例代码：

Randomize ' 初始化随机数生成器

Dim numbers(9) ' 创建一个包含10个元素的数组
Dim i, j
Dim temp

' 生成10个随机自然数
For i = 0 To 9
    numbers(i) = Int((100 - 1 + 1) * Rnd + 1) ' 生成1到100之间的随机数
Next

' 对数组进行排序（这里使用冒泡排序算法）
For i = LBound(numbers) To UBound(numbers) - 1
    For j = i + 1 To UBound(numbers)
        If numbers(i) > numbers(j) Then
            temp = numbers(i)
            numbers(i) = numbers(j)
            numbers(j) = temp
        End If
    Next
Next

' 打印排序后的数组
For i = LBound(numbers) To UBound(numbers)
    WScript.Echo numbers(i)
Next

这段代码首先初始化了随机数生成器，然后在1到100之间生成了10个随机自然数并存储在数组`numbers`中。之后，使用冒泡排序算法对数组中的数进行排序，并通过`WScript.Echo`逐个打印出来。