VB编程问题
VB编程问题
日期:2013-09-16 12:01:11 人气:1
Private Sub Form_Click()
Dim a(100) As Integer, b(100) As Integer
Dim n1 As Integer, n2 As Integer, x As Integer, i As Integer
x = InputBox("X=")
While x -1
If x Mod 2 = 0 Then
a(n1) = x: n1 = n1 + 1
Else
b(n