DIM A（1991 TO 1998） AS INTEGER

FOR I=1 TO 8

   A(I)=I

PRINT A(I)；

       NEXT I

Private Sub Command1_Click()

Dim r As Single, s As Single            '①

r="10米"                     '②

s=3.14159*r*r            '③

Text2.Text ="某个半径为"+ Str(r)+"米的圆,其面积为"+ Str(s)+"平方米."             '④

End Sub

则程序中出错的语句是（   ）

a= int (input(请输入第一个数： "))

fh=input ("请输入运算符： ")

b=int (input("请输入第二个数： "))

flag=True

s={#blank#}1{#/blank#}

if fh in s：

    if fh=="+" ：

        c=a+b

    elif fh=="-"：

        c=a-b

    elif fh=="*"：

        c=a*b

    else：

        if {#blank#}2{#/blank#}

           print("除数不能为0！ ")

           flag=False

        else：

           c=a/b

        if flag==True：

           print(运算的结果为： "+{#blank#}3{#/blank#})

    else：

        print ("运算符不正确")

a=1

b=0

while a<101:

    b=b+a

    a=a+1

print(b)