vb编程,统计XX市的某区年龄段的人口。年龄段为...

vb编程,统计XX市的某区年龄段的人口。年龄段为0--9、10--19、20--29、30--39…………80--89、90（含90岁），以上为一个年龄段，并求哪一年龄段的人数最多，哪有年龄段的人数最少.
输入要求：从键盘上输入年龄，知道输入-1程序结束；
输出要求：输出格式如下：
0---9 ?人
10---19 ?人
.
.
.
.
80---89 ?人
>=90 >人
最多:哪一年龄段 ?人
最小：哪一年龄段 ？人

Dim dlbCont(11) As Double 'dlacont(1)-dlbCont(10) 存放各年龄段的统计人数
Private Sub Command1_Click()
Dim a As Integer
Dim intFlag As Integer '判断标志

Do While a <> -1
a = InputBox("input age")
If a = -1 Then
intFlag = 0
Else
intFlag = a \ 10 + 1
End If

Select Case intFlag
Case 1
dlbCont(intFlag) = dlbCont(intFlag) + 1
Case 2
dlbCont(intFlag) = dlbCont(intFlag) + 1
Case 3
dlbCont(intFlag) = dlbCont(intFlag) + 1
Case 4
dlbCont(intFlag) = dlbCont(intFlag) + 1
Case 5
dlbCont(intFlag) = dlbCont(intFlag) + 1
Case 6
dlbCont(intFlag) = dlbCont(intFlag) + 1
Case 7
dlbCont(intFlag) = dlbCont(intFlag) + 1
Case 8
dlbCont(intFlag) = dlbCont(intFlag) + 1
Case 9
dlbCont(intFlag) = dlbCont(intFlag) + 1
Case 10
dlbCont(intFlag) = dlbCont(intFlag) + 1
End Select
Loop