VB中给一列数组随机赋值

来源：百度知道编辑：UC知道时间：2024/06/04 01:25:52

定义数组 dim a(1 to 40) as integer
一列整数 1、2、3、4......40 共40个
怎么把这40个数分别随机赋给a1、a2......a40
这40个数全部赋给这列数组且数组各元素对应的数值彼此不相同

下面代码双击窗体实现

Private Sub Form_DblClick()

Dim a(1 To 40) As Integer

Dim n As Integer

Dim f As String

Dim i As Integer, j As Integer

Do While n < 40

Randomize

i = 1 + Int(40 * Rnd)

j = 1 + Int(40 * Rnd)

If a(j) = 0 And InStr(f, Str(i) + ",") = 0 Then

a(j) = i

n = n + 1

f = f + Str(i) + ","

Exit Do

End If

Loop While (1)

If n = 40 Then Text1 = Chr(13) + f

Loop

End Sub&nbs

VB中 给一列数组随机赋值