用VB怎么写由键盘输入10个0~100之间的任意整数，找出其中的最大数和最小数，并将其在窗体上打印输出

Dim a(10) As Integer
Dim i As Integer
Dim max As Integer
Dim min As Integer

For i = 1 To 10
word = InputBox("输入内容", i)
a(i) = word
Next
For i = 1 To 10
Print a(i) & " ";
Next
max = a(1)
min = a(1)

For i = 1 To 10
If a(i) > max Then
max = a(i)
End If
If a(i) < min Then
min = a(i)
End If
Next i
Print
Print "最大值：" & max
Print "最小值：" & min
End Sub

用keydowm事件过程，限制keycode就行，具体的ASCII值可以在有关书上找