'界面上 放一个 按钮,一个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的list里生成20个两位数的随机数后,怎样将生成的随机数中的偶数删除,
其他人气:825 ℃时间:2020-02-24 05:32:46
优质解答
我来回答
类似推荐
猜你喜欢
- 1车和车字旁的笔顺不一样吗?
- 2负1,正2,负4,正8,负16,正32……这样排下去,第2010个数是多少
- 3展望我的初中生活的作文600字
- 4For dinner,Tom likes ( ) A.hamburgers,salad,and oranges B.chicken,tomatoes,French fries
- 5请问下大家知道一个数学题:(1-2008分之1)×(1-2007分之1)×…×(1-10...f有谁了解的说下吧,
- 6He (has got a high fever)相近词
- 7candy 的sweet 区别
- 8我将 2000元存入银行,定期三年,到期时取回税后利息与本金共2307.8,三年利率是?
- 9得胜村种棉花18公顷,占小麦种植面积的25分之9,小麦占全部种植面积的9分之5,这个村的耕地面积是多少公顷
- 10王大妈利用一面墙,用篱笆围了一块菜地.篱笆全长是30,这块菜地的面积是多少平方米