vb数组产生随机数
1按产生顺序显示
2按与产生顺序相反的顺序显示
最新回答
猫腻仙女
2025-03-26 17:06:48
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
Print "反序输出"
For i = 19 To 0 Step -1 '反序输出
Print sj(i)
Next
End Sub
Private Sub Form_Load()
Randomize
End Sub
薄荷绿℡
2025-03-26 16:04:39
Private Sub Form_click()
Dim i As Integer, a(20) As Integer
Randomize
For i = 1 To 20
a(i) = Int(Rnd * 90) + 10
Next
For i = 1 To 20
Print a(i);
Next i
For i = 20 To 1 Step -1
Print a(i);
Next
End Sub
代码如上：
期待被采纳。
热门标签
