请问在vb.net中如何实现随机取数??

来源:百度知道 编辑:UC知道 时间:2024/05/15 05:29:15
比如我要用自己建的一个数组如:
Dim k() As Integer = New Integer() {1, 2, 3, 4, 5, 6}
使另外建的一个Dim p1 As Integer变量能够等于k()数组中任意一个返回值,请问该如何实现??

Dim k() As Integer = New Integer() {1, 2, 3, 4, 5, 6}
Dim p1 As Integer
Random r = new Random();
int p1 = k(r.Next(5)) '随机出现0~5之间的数。

Dim rdm As New System.Random ()

Dim i As interger = rdr.Next ()

Dim rdm As New System.Random ()
Dim i As Integer = rdm.Next()

MsgBox(rdm.Next)

a=int(6*rnd+1)

假设k 的上界是 n

p1 = k (rnd()+n+1)
这话的意思是让P1取数组K的随即的一个直