如13907715200、13907718366是符合条件的两个号码。

算式描述如图所示

请将程序补充完整

Private Sub Form_Cliek()

Dim a As Integer, b As Integer

Dim I As Integer, s As Integer

s=0

For =10000 To 19999

a=

b=(i Mod 100)\10

If a=b Then

s=

End If

Next i

Print“最后两位数字相同的号码个数有：”；

End Sub

Privvate Sub Command1Click( )

Dim man As Integer,woman As Integer,child As Intger,s As Integer

   For woman = 1 To 15

     Child = 30 – man – woman

     S = 20 * man + 30 * woman + 10 * child

     If  Then

        List1.AddItem Str(man) + Str(woman) + Str(child)

     End If

Next woman

       Next man

End Sub

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

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