输入20个数字，显示其中奇数的个数和偶数的个数 VB

Private Sub Command1_Click()
Dim i As Integer, k As Integer
Dim n As Integer, l As Integer
For i = 1 To 20
n = InputBox("请输入第" & i & "个数:", "输入框")
If n Mod 2 = 0 Then k = k + 1 Else l = l + 1
Next
Print "偶数有" & k & "个 奇数有" & l & "个"
End Sub

dim i as integer
dim js as integer,os as integer,x as integer
js=0
os=0
for i=1 to 20
x=val(inputbox("请输入20个整数：","输入"))
if x mod 2 = 0 then os=os+1 else js=js+1
next
print js,os

Private Sub Button1_Click()
Dim intNumber,intCounter,intOdd,intEven As Integer
intNumber=Cint(Inputbox("输入一个数"))
Do while intCounter<=20
intCounter+=1
If intNumber mod 2=0
intEven+=1
Else
intOdd+=1
End if
Loop
MessageBox.show("偶数有"&intEven.ToString&("奇数有"&intOdd.ToString)