程序代码：

Private Sub Command2_Click()
Dim i As Long
Dim max As Double
Dim j As String, o As Double
For i = 1 To 10
    Do
    j = InputBox("请输入第" & i & "个数字:")
    Loop While Not IsNumeric(j)
    o = CDbl(j)
    If o > max Then
        max = o
    End If
Next i
MsgBox "最大值为:" & max
End Sub