Private Sub Form_Click()Dim Score(1 to 3) As Integer Dim i As Integer,sum as integerSum=0For i=5 To 1 step -1 Score(i)=i*i Sum=sum+score(i)Next i Print sumEnd Sub ... 展开
Private Sub Form_Click()Dim Score(1 to 3) As Integer Dim i As Integer,sum as integerSum=0For i=5 To 1 step -1 Score(i)=i*i Sum=sum+score(i)Next i Print sumEnd Sub 为什么运行不了？ 收起
