急！！计算机二级VB问题

来源：百度知道 编辑：UC知道 时间：2024/06/14 23:19:29
1.如何让列表框中随机产生5个1到100之间的整数？

希望朋友们能在本周五（23号）之前给我答复，万分感谢！

Option Explicit
简单问题，代码如下：
Private Sub Form_click()
Dim i%, j%
Randomize
For i = 1 To 5
j = Int(Rnd * 100) + 1
List1.AddItem j
Next
End Sub
期待采纳！

Combo1.Clear

Dim i

For i = 1 To 5

Dim n As Integer

n = Int((100 * Rnd) + 1) ' n为1到100之间的数

Combo1.AddItem n

Next

Private Sub Form_click()
Dim k As Integer, i As Integer
Randomize
For i = 1 To 5
k = Int(Rnd * (100 - 1 + 1) + 1)
List1.AddItem k
Next i
End Sub
就是这么简单，呵呵