在vb的list里生成20个两位数的随机数后,怎样将生成的随机数中的偶数删除,

来源：学生作业帮编辑：搜搜做题作业网作业帮分类：综合作业时间：2024/07/14 19:31:47

'界面上放一个按钮,一个list框
Option Explicit
Private Sub cmdCommand1_Click()
Dim i As Integer,j As Integer
j = List1.ListCount - 1
Do While i < j
If List1.List(i) Mod 2 = 0 Then
List1.RemoveItem i
i = 0
Else
i = i + 1
End If
j = List1.ListCount - 1
Loop
End Sub
Private Sub Form_Load()
Dim i As Integer
Randomize
For i = 1 To 20
List1.AddItem CInt(Rnd * 89) + 10
Next
End Su

用vb生成6个两位数的随机数,求得平均值,显示生成的两位数和平均值 vb中如何生成不同的随机数 VB生成不重复的随机数用vb怎样生成10个不重复的（1到10）随机数? vb 生成15个随机数,被7整除的降序排序在combobox中, excel随机数的生成 EXCEL如何将生成的随机数全部变为永久随机数随机数生成算法是怎样的请问vb中有没有生成随机数的函数? 用vb如何生成0-100之间的随机数在VB中生成有n（n≥10）个随机数、并求出这个数组元素中的最大值、最小值和他们的平均值怎样写一段可以生成闭区间0到13的随机数vb程序