求一段VB编码

来源：百度知道 编辑：UC知道 时间：2024/06/23 02:19:14
输入10个数 找出最大数和最小数 并且显示

求这段VB如何写

Private Sub Command1_Click()
Dim intMax As Integer
Dim intMin As Integer

Dim i As Integer
Dim intTemp As Integer

For i = 1 To 10
intTemp = InputBox("请输入一个数", "当前第" & i & "个数")
If i = 1 Then
intMax = intTemp
intMin = intTemp
Else
If intMax < intTemp Then intMax = intTemp
If intMin > intTemp Then intMin = intTemp
End If
Next

MsgBox "十个数中最大数为:" & intMax & " ,最小数为:" & intMin

End Sub