vb编写程序,读入十个数并且现实互不相同的数

代码如下，如有疑问，可追问： Private Sub Command1_Click() Dim a(10) As Integer For i = 1 To 10 a(i) = InputBox("请输入第" & i & "个数：") Print a(i); Next i Print Max = a(1) Min = a(1) For i = 1 To 10 If Max < a(i) Then Max = a(i) If Min >