Question

vb中怎么实现在指定一些数中产生随机数？ 例如:点击一次按钮，text1中显...

vb中怎么实现在指定一些数中产生随机数？
例如:点击一次按钮，text1中显示1、3、4、12、16中随机的一个

Answer 1

dim a as variant ,b as integer '定义变体类型变量a，整型变量b
private sub command1_click()
a=Array(1,3,4,12,16) '设置数组a
Randomize '初始化随机数生成器
b=int(Rnd*5) '产生0—4之间随机数；因为数组a下标默认从0开始
text1.text =a(b)把抽取的随机数送到text1
end sub

Answer 2

Private Sub Command1_Click()
Dim s As String, a() As String
s = "1、3、4、12、16"
a = Split(s, "、")
Randomize
Text1 = a(Int(Rnd * (UBound(a) + 1)))
End Sub