Private Sub Command2_Click()

    Const n=12

    Dim a(1 To n) As Integer, s As Integer

    Dim i As Integer, j As Integer

    Randomize

    For i=1 To n

        a(i)=Int(Rnd * 50)+1

        For j=1 To i- 1

            If a(i)=a(j) Then

        Next j

        If j <i Then

    Next i

    For i=1 To n

        For j=1 To n

            If  Then

                s=s+1

                List1. AddItem Str(s)+"："+ Str(a(i)) + Str(a(j))

                Exit For跳出内层循环

            End If

        Next j

    Next i

End Sub

Sub Command1_Click()

Dim i As Integer, n As Integer

m=106

n =

Do While m <= 996

    If Then n = n + 1

    m=

Loop

Text1.Text = Str(n)

End Sub

s=Text1.Text

n=Len(s)          's是待判断的字符串

k=0:j=n

For i=1 to n/2

c1=Mid(s,i,1)

 c2=Mid(s,j,1)

If c1 <> c2 Then k = k+1: Exit For

j=

Next i

If    Then Label1.Caption="对称"  Else  Label1.Caption="不对称"

n=60058

num=[]

for i in :

    x=n+i*100

    if _____________:

        num.append(x)        # append函数用于向num列表中追加元素x

print("满足条件的5位数整数为："，num)

登录模块

密码广泛应用于日常生活中，我们在登录网站、App、电子邮箱以及银行取款时都要输入“密码”。不少人因密码被盗而导致个人信息泄露，甚至是财产损失。

以下是王林同学设计的一款App的登录模块流程图。

s=1：i=1：t=1

Do While i<2*n-1

Loop

方框中的代码由以下三部分组成：

①s=s+t

②i=i+2

③t= -t/(i*(i- 1))

下列选项中，代码顺序正确的是(    )

cnt ＝ 0：i ＝ 7

Do While i ＜ n

Loop

Text1. Text ＝ Str（cnt）

方框中的代码由以下三部分组成：

①i ＝ i ＋ 7   ②j ＝ n - i   ③If j Mod 3 ＝ 0 Then cnt ＝ cnt ＋ 1

下列选项中，代码顺序正确的是（    ）