帮帮我，有个问题不明白，
要改这个：统计出男生人数和女生人数； 当不是男不是女时，结束程序。
请大佬们帮帮我。


___________________________________________________________________________
Private Sub Command1_Click()
Dim n, s, m As String
Dim h, w, i, ii, hh As Single
hh = 0
ii = InputBox("请输入统计的人数", "输入统计人数")
i = ii
While i > 0
n = InputBox("输入姓名", "输入你的姓名")
s = InputBox("输入性别", "输入你的性别")
h = InputBox("请输入身高数据(单位:厘米)", "输入数据")
If s = "男" Then
w = (h - 80) * 0.7
Else
w = (h - 70) * 0.6
End If
Print n; "同学", s
Print " 你的标准体重应该为"; w; "公斤"
i = i - 1
hh = hh + h
Wend
Print "本次统计"; ii; "位同学的平均身高为"; hh / ii
m = InputBox("结束程序", "结束程序")
End
End Sub

___________________________________________________________________