Question

vb 中如何设置combo简单组合框

vb 中如何设置combo简单组合框

Answer 1

Dim b(6, 6) As Integer, st As String = ""
For i = 1 To 6
For j = 1 To 6
b(i, j) = 0
Next
Next

Dim max As Integer, min As Integer, Amount As Integer, a() As Integer
max = 100 '随机数上限值
min = 10 '随机数下限值
Amount = 6 '产生号码数量(数量值应小于随机数上限值-随机数下限值)否则会产生死循环
ReDim a(Amount)
Randomize()
For i = 0 To Amount
a(i) = Int((max - min + 1) * Rnd() + min)
For j = 0 To i
If i <> j And a(i) = a(j) Then i = i - 1
Next
Next

For i = 1 To 6
b(i, i) = a(i)
Next
For i = 1 To 6
For j = 1 To 6
st = st & b(i, j) & " "
Next
st = st & vbCrLf
Next
TextBox6.Text = st