VB 有任意十个数,请把他们之中最大的和最小的数打印出来(十个数由自己设定).

Dim X(9) As Integer
Dim I As Integer
Dim min As Integer, max As Integer

For I = 0 To 9
X(I) = InputBox("请输入第 " & I + 1 & " 个数")
Next

min = X(0): max = X(0)

For I = 1 To 9
If X(I) < min Then min = X(I)
If X(I) > max Then max = X(I)
Next

Print "最小的数字是：" & min
Print "最大的数字是：" & max

手机写代码太慢，写一下思路吧，我也是昨天才学到的…
先声明两个变量例如：maxmin，将第一个数赋给两个变量，然后拿下一个数与两个变量比较，比max大时，就将这个数赋给max，比min小时就将这个数赋给min，执行循环操作九次，然后打印两个变量……怎么样…

Private Sub Command1_Click()

Dim max As Double
Dim min As Double
Dim d As Double

For i = 1 To 10
d = Val(InputBox("请输入一个数", "输入", "0"))

If i = 1 Then
max = d
min = d
Else
If max < d Then
max = d
End If