- 二一组卷

题型：综合题题类：常考题难易度：普通

浙江省绍兴市诸暨中学2017-2018学年高二上学期信息技术期中考试试卷

小强在双十一购物期间忘记了支付宝账户密码，但他急用支付宝进行转账，请你帮他尽可能找回密码。他只记得自己密码的一些零星信息：

①密码是六位数字，前面两位为59；②最后两位数字相同；③能被12和38整除。

程序界面如图1所示，单击 “帮助找回密码”按钮（Command1）后，可能的密码显示在列表框List1中。

（1）、应用程序界面设计时，为添加“ List1”对象，应使用图2所示的“控件工具箱”中的（填写相应编号）。

（2）、请根据题意将解决此问题的相应程序补充完整。

Private Sub Command1_click ()

Dim x As Integer, s As Long,

Dim y As Integer, i As Integer

For i = 0 To 9999

S = 590000 + i

If ① Then

x= s mod 10

y = ②

If x = y Then

List1.AddItem Str(s)

End If

Next i

End Sub

（3）、该模块采用的算法是（）

A、

枚举 B、查找 C、排序 D、解析

举一反三

Sub Command1_Click()

Dim i As Integer, n As Integer

m=106

n = {#blank#}1{#/blank#}

Do While m <= 996

If {#blank#}2{#/blank#} Then n = n + 1

m={#blank#}3{#/blank#}

Loop

Text1.Text = Str(n)

End Sub

①密码是六位数字，前面两位为59；

②最后两位数字相同；

③能被12和38整除。

程序界面如图所示，单击“找回密码”按钮(Command1)后，可能的密码显示在列表框List1中。

相关试卷