Private Sub Command1_Click()
Dim i As Integer, j As Integer
Dim m As Integer, n As Integer
Cls
m = Val(Text1.Text)
n = Val(Text2.Text)
If m > n Then '比较m,n大小，使m小于n
j = m
m = n
n = j
End If
For i = m To n
If i Mod 2 = 0 Then
Print i
End If
Next i
End Sub
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024