大学vb实验课程
答案:1 悬赏:0 手机版
解决时间 2021-12-01 12:38
- 提问者网友：雨不眠的下
- 2021-12-01 03:43
大学vb实验课程
最佳答案
- 五星知识达人网友：举杯邀酒敬孤独
- 2021-12-01 04:01
Private Sub Command1_Click()
Dim a(20) As Integer
Dim b As Integer
List1.Clear
For i = 1 To 10
List1.AddItem i
Next i
For i = 1 To 10
Randomize
b = Int(Rnd * List1.ListCount)
Print List1.List(b) & " ";
List1.RemoveItem (b)
Next i
End Sub
Dim a(20) As Integer
Dim b As Integer
List1.Clear
For i = 1 To 10
List1.AddItem i
Next i
For i = 1 To 10
Randomize
b = Int(Rnd * List1.ListCount)
Print List1.List(b) & " ";
List1.RemoveItem (b)
Next i
End Sub
我要举报
如以上问答信息为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
大家都在看
推荐资讯