我编的不对但又不知道错哪，希望各位能帮帮小妹的忙啊

编制事件COMMAND1 ，输入十个整数，找出其中最小的数，将他和最后一个交换，然后输出这十个数——这是题目
这个是我编的：
Private Sub Command1_Click()
Dim y(0 To 9) As Integer, min As Integer, i As Integer, x As Single, n As Integer, m As Integer
For i = 0 To 9
n = InputBox("请输入第" + Str(i) + "个数")
Print n;
Next i
Print
For i = 0 To 9
min = y(0)
If x < min Then min = x
m = x
x = y(9)
y(9) = m
Print y(i)
Next i
Print
End Sub

拜托了

这样应该对了 纯分析的

Private Sub Command1_Click()
Dim y(0 To 9) As Integer, min As Integer, i As Integer, x As Single, n As Integer, m As Integer
For i = 0 To 9
n = InputBox("请输入第" + Str(i+1) + "个数")
Print n;
Next i
Print
min = y(0)
For i = 1 To 9
If y(i) < min Then min = y(i)
m = i
End If
Next i
n = y(m)
y(m) = y(9)
y(9) = n
For i = 0 To 9
Print(y(i))
Next i
Print
End Sub

if那个地方可能不符合vb的语法，稍微改下再试试

Private Sub Command1_Click()
Dim y(0 To 9) As Integer, min As Integer, i As Integer, x As Single, n As Integer, m As Integer
For i = 0 To 9
n = InputBox("请输入第" + Str(i) + "个数")
y(i) = n
Print n;
Next i
Print
min = y(0)
For i = 1 To 9
If y(i) < min Then
{
min = y(i)
x = i
}
Next i
m = y(x)
y(x) = y(9)