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

s = Text1.Text

    ⑴    

i = 1: flag = True

Do While i <= n - 1 And flag

    If   ⑵   Then flag = False

    i = i + 1

Loop

If   ⑶    Then

    Label1.Caption = "重复数"

Else

    Label1.Caption = "不重复数"

End If

上述程序中方框处可选语句为：

①flag=False

②n=Len(s)

③Mid(s，i，1)=Mid(s，i+1，1)

则⑴、⑵、⑶处语句依次是（   ）

Private Sub Command1_Click()

    Dim a(0 To 9) As Integer

    Dim t as Long

    t = Val(Text1.Text)

    Do While t <> 0

        a(t Mod 10) = 1

        t = t \ 10

    Loop

    For i = 0 To 9

        x = x + a(i)

    Next i

End Sub

若在文本框Text1中输入10242048，则程序执行后，变量x的值为（  ）

from random import random

a=[1]*5

i=1

while i<=4:

    a[i]=int(random()*10)+1

    if a[i]==a[i-1]//2 or a[i]==a[i-1]*2:

        i+=1

执行该程序段后，数组a的值可能是（   ）

s=input()

n=len(s);c=1;max=1

for i in range(1,n):

 if (1)____:

 c=c+1

 if c>max:

 max=c

 else: