a=”2009”

       b=”2008”

       c=Val(a)+Val(b)

X=2

PRINT X+1, X+1

Private Sub Command1_Click()

    Dim As Single, b As Single, c As Single, p As Single, s As Single

    a≡Val(Text1. Text)

    b=Val(Text2. Text)

    c=Val(Text3. Text)

    p=(a+b+c)/2

    If a＜=p Or b＞=p Or c＞=p Then

        Label1. Caption="不能构成三角形"

    Else

        s=Sqr(p*(p-a)*(p-b)*(p-c))*p

        Label1. Caption="面积为"& s

    End If

End Sub

count = 0

for i in range(100,991,10) :

    a=i//100

    b=   ①    

    if a==3 or b==3 :

            ②   

        print(i)

print("符合条件的数共有：",count,"个")

程序中划线①处应填入的代码为{#blank#}1{#/blank#}

程序中划线②处应填入的代码为{#blank#}2{#/blank#}