vb数组产生随机数

来源：百度知道 编辑：UC知道 时间：2024/05/15 09:39:47
利用随机函数产生20个两位正整数，要求以下方式显示
1按产生顺序显示
2按与产生顺序相反的顺序显示

VB可使用Randomize 语句和Rnd 函数输出随机数列到数组。

1）Rnd 函数，返回一个包含随机数值的 Single。

语法：

Rnd[(number)]

可选的 number 参数是 Single 或任何有效的数值表达式。

2）Randomize 语句，初始化随机数生成器。

语法：

Randomize [number]

可选的 number 参数是 Variant 或任何有效的数值表达式。

3）数组，可以用相同名字引用一系列变量，并用数字（索引）来识别它们。在许多场合，使用数组可以缩短和简化程序，因为可以利用索引值设计一个循环，高效处理多种情况。数组有上界和下界，数组的元素在上下界内是连续的。

代码实例：

Option Explicit
    Dim i As Long
    Dim sj(19) As Long

Private Sub Command1_Click()
    Cls
    Print "正序输出"
    For i = 0 To 19
        sj(i) = Int((90 * Rnd) + 10) '生成10-99的两位随机整数
        Print sj(i)
    Next