vb 生成15个随机数,被7整除的降序排序在combobox中,
来源:学生作业帮助网 编辑:作业帮 时间:2024/07/06 16:25:20
![vb 生成15个随机数,被7整除的降序排序在combobox中,](/uploads/image/z/5355737-17-7.jpg?t=vb+%E7%94%9F%E6%88%9015%E4%B8%AA%E9%9A%8F%E6%9C%BA%E6%95%B0%2C%E8%A2%AB7%E6%95%B4%E9%99%A4%E7%9A%84%E9%99%8D%E5%BA%8F%E6%8E%92%E5%BA%8F%E5%9C%A8combobox%E4%B8%AD%2C)
vb 生成15个随机数,被7整除的降序排序在combobox中,
vb 生成15个随机数,被7整除的降序排序在combobox中,
vb 生成15个随机数,被7整除的降序排序在combobox中,
Private Sub Init_cobNum()
Dim Num As Integer
Dim Tmp As Integer
Dim MD(1 To 15) As Integer
Dim I As Integer
Dim J As Integer
Randomize
For I = 1 To 15
Num = Int(Rnd * 200 + 1) * 7
For J = 1 To I
If MD(J) < Num Then
Tmp = MD(J)
MD(J) = Num
Num = Tmp
End If
Next J
Next I
' For I = 1 To 15
' Debug.Print I, MD(I)
' Next I
With cobNum
For I = 1 To 15
.AddItem MD(I)
Next I
End With
End Sub