关于一个小程序

Private Sub Command1_Click()
Dim name1() As String, score() As Single
n = Val(InputBox("请输入运动员人数", " 输入"))
ReDim name1(n), score(n)
List1.Clear: List2.Clear
For i = 1 To n
name1(i) = InputBox("请输入" & i & "运动员姓名", "姓名")
score(i) = Val(InputBox("请输入" & i & "运动员成绩", "成绩"))
 List1.AddItem name1(i) & " " & score(i), 0
 Next i
 For i = 1 To n - 1
 For j = i + 1 To n
 If sacore(i) > score(j) Then
 tempname = name1(i): name1(i) = Name(j) : name(j) = tempname
 tempscore = score(i): score(i) = score(j): score(j) = tempscore
 End If
 Next j
 Next i
 For i = 1 To n
 List2.AddItem i & " " & name1(i) & " " & score(i)
 Next i
 End Sub

本人刚开始接触编程，不好意思

当点击command按钮的时候就出现这种情况
说子函数或程序未定义，不知道为什么？

变量没有定义  ，像 n  i  j  这些变量你没有定义， 

在前面定义一下变量

dim n,i,j

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息！