1.编写一程序，要求单击“开始”按钮(Command1)，在列表框(List1)中输出1~100之间偶数如题 谢谢了

方法很多的,这里有两个: 第一种: Private Sub Command1_Click() Dim i As Integer For i = 2 To 100 Step 2 List1.AddItem i Next i End Sub 第二种方法: Private Sub Command1_Click() Dim i As Integer For i = 1 To 100 If i Mod 2 = 0 Then List1.AddItem i End If Next i End Sub