Private Sub Command1_Click()

For i = 150 To 300

    a = i \ 100

    b = I mod 100 \ 10

    c = i – a*100 – b*10

    If i = a * a * a + b * b * b + c * c * c Then

        Label1.Caption = Str(i)

    End If

Next i

End Sub

①number＝0  ′团购券数量用变量number表示。

②Do While number<=29

③读入用餐顾客的情况

④If 使用团购券顾客 then

变量number增加1

允许使用团购券进行消费

End If

⑤Loop

对于上述算法，下列说法错误的是(   )

   Dim A(10)，B(5)

   For i = 1 To 10

       A(i) = i

       Next i

   For j = 1 To 5

       B(j) = j * 20

   Next j

   A(5) = B(2)

   Print "A(5)=";A(5)