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

来源：学生作业帮助网 编辑：作业帮 时间：2024/04/30 21:18:32

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

在vb的list里生成20个两位数的随机数后,怎样将生成的随机数中的偶数删除,
'界面上 放一个 按钮,一个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 Sub

在vb的list里生成20个两位数的随机数后,怎样将生成的随机数中的偶数删除, 在VB里怎样产生N个随机两位数啊,N根据TEXT里自己输入的值变化. 在VB中,如何生成某个范围内的随机整数? 用vb生成6个两位数的随机数,求得平均值,显示生成的两位数和平均值 用vb生成6个两位数的随机数,求得平均值,显示生成的两位数和平均值 vb中如何生成20个互不相同的两位随机整数? VB随机函数 产生2个两位数的随机正整数 放在数据1和数据2两个文本框中 代码应该怎么打? 在VB中,随机产生10个两位数保存在数组中随机产生10个两位数保存在数组中,找出最大值,最小值,计算最大值与最小值的平均值,统计小于该平均数的个数 VB编程：利用随机函数Rnd()生成20个在1~100之间的各不相同的正整数,并在窗体上显看清楚,一定要是正整数,谢谢了.用VB VB里随机生成0-100的随机数 包不包括100呢? Vb随机生成长度为[20个大写英文字母、数字]的组合,每五个加一个连字符如何写 VB随机产生10个两位数,求出他们的总和及平均数.（或按奇偶行排列） vb 要随机生成三个数分别放在三个TEXT中!教教怎么用VB的语法表达出来！ 求用VB随机生成一个范围在[a,b]之间的整数! 从0到9里面随机生成7个数,要不重复的7个数,然后显示出来,VB程序应该怎么写怎么这么乱啊,就是随机生成7个不重复的数,在0到9这10个数里 随机生成20个100以内的两位正整数,统计其中有多少个不相同的数的vb代码 随机生成20个100以内的两位正整数,统计其中有多少个不相同的数?（求VB编程答案!）要写清界面搭建过程! 随机生成20个100以内的两位正整数,统计其中有多少个不相同的数?VB编程 精简 明朗