Question

怎么用VB筛选1~10之间的偶数.在线等.急

Answer 1

你可以使用一个循环来遍历1到10之间的整数，然后使用条件语句来判断是否是偶数。以下是一个示例代码：

vb

Dim i As Integer

For i = 1 To 10
If i Mod 2 = 0 Then ' 如果i是偶数
Debug.Print i ' 输出i
End If
Next i
上述代码中，我们使用了一个For循环来遍历1到10之间的整数。在每次迭代中，我们使用Mod运算符来判断当前的i是否是偶数。如果是偶数，则使用Debug.Print语句输出i的值。在VB中，Debug.Print语句会将输出结果打印到调试输出窗口。如果你想在运行时弹出一个消息框来显示结果，可以使用MsgBox函数。例如：

vb

Dim i As Integer
Dim result As String

For i = 1 To 10
If i Mod 2 = 0 Then ' 如果i是偶数
result = result & i & ", " ' 将i添加到结果字符串中
End If
Next i

MsgBox "1到10之间的偶数有：" & result
上述代码中，我们使用了一个字符串变量result来存储所有偶数的值，然后使用MsgBox函数在一个消息框中显示结果。

Answer 2

Private Sub Command1_Click()
For i = 0 To List1.ListCount - 1
j = j + 1
If j = 11 Then Exit For
If List1.List(i) < 11 And List1.List(i) Mod 2 = 0 Then List2.AddItem List1.List(i): List1.RemoveItem i
Next
End Sub
Private Sub Form_Load()
For i = 1 To 20
List1.AddItem i
Next
End Sub

Answer 3

dim i%
for i=1 to 10
if i mod 2=0 then print i
next i

追问

用平面编程(在窗体上添加一个命令按钮,两个列表框,单击此命令按钮时,在一个列表框中的偶数会迁移到另外一个列表框中,原列表框中的偶数删除。1~10好了，谢谢