我好可怜.帮我吧!一定加分.

Question

For Each dd In scoreNext s这两句不矛盾吗??
把s改成dd或者把dd改成s

Answer 1

Dim score(49) As Single
Dim i As Integer
For i = 0 To 49
  score(i) = InputBox("请输入分数:")
Next iFor Each dd In score
    Select Case dd
    Case Is >= 90
        Print "优"
    Case Is >= 80
        Print "好"
    Case Else
        Print "不及格"
    End Select
Next '( 不要S是否好点, 因为我加了S后反而错得更历害)

Answer 2

几种都试过还是不对,提示结果为next没有for ,可我看来FOR已经和NEXT对上了.请各位帮我!!

Answer 3

Private Sub command1_click()
Dim score(1 To 50) As Single
Dim i As Integer
For i = 1 To 50 Step 1
  score(i) = InputBox("请输入分数:")
Next i
Dim dd
For Each dd In score
Select Case dd
Case Is >= 90
Print ("优")
Case Is >= 80
Print ("好")
Case Else
Print ("不及格")
End Select
Next dd
End Sub

Answer 4

next s 应为 next dd