问题：在“1390771”号段的11位手机号码中，统计出最后两位数字相同的号码个数。如13907715200、13907718366是符合条件的两个号码。算式描述如图所示请将程序补充完整Private Sub Form_Cliek()Dim a As Integer, b As IntegerDim I As Integer, s As Integers=0For =10000 To 19999a=b=(i Mod 100)\10If a=b Thens=End IfNext iPrint“最后两位数字相同的号码个数有：”；End Sub

0 返回首页

1. 问题：在“1390771”号段的11位手机号码中，统计出最后两位数字相同的号码个数。

如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

b=(i Mod 100)\10

If a=b Then

End If

Next i

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

End Sub

【考点】

枚举算法及程序实现;

【答案】

您现在未登录，无法查看试题答案与解析。登录

综合题普通

基础巩固

能力提升

变式训练

拓展培优

真题演练

换一批

1. 现要找出200以内的能被4或5或6整除的正整数，用计算机解决该问题时应采用的算法是。

填空题容易

1. 回文素数是一个既是素数又是回文数的整数。如果一个整数只能被1和本身整除，这个数就是素数。如果一个数从左向右和从右向左读是一样的，这个数就是回文数。

(1) 实现判断回文素数的Python程序如下，请在划线处填入合适的

代码。

def ss(i): #判断素数

for j in range(2,i):

if ① :

return False

return True

def hw(i): #判断回文数

x=i

k=0

while x!=0:

k=k^*10+x%10

②

if k==i:

return True

else:

return False

n=int(input("请输入待检测数据范围:"))

for i in range(2,n+1):

if ③ :

print(i)

程序划线①处应填入的代码为;

程序划线②处应填入的代码为;

程序划线③处应填入的代码为。

(2) 本程序通过判断并输出回文素数,这种算法属于(选填:“解析算法”或“枚举算法”)。

综合题普通

2. 某校内活动需要n（1≤n≤10）名学生迎宾，要求是：男女生站成一排，男生不能相邻，男女生比例大于1/2。考虑到方案只包含了男和女两种情况，可以用二进制的0来代替女生，1来代替男生。当全部是0时最小，此数为0；当全部是1时最大。枚举从0到最大数的每一种情况，逐一判断是否包含男生相邻（二进制1相连），符合的0、1转换为女、男后输出，并在此基础上输出男女生比例较合适的方案（男:女>1/2）。

按上述要求，编写VB程序，功能如下：在文本框Text1中输入n的值，点击“开始枚举”按钮Command1，在列表框List1中输出所有方案，在列表框List2中输出比例合适方案。

实现上述功能的VB程序如下，回答下列问题：

(1) 如果输入的n值等于4，那么男女比例合适的方案有种。

(2) 请在划线处填入合适的代码。

Dim n As Integer, Getstr As String

Private Sub Command1_Click()

Dim i As Integer, j As Integer, mAs Integer

n = Val(Text1.Text)

Getstr = ""

For i = 0 To 2 ^ n -1

m = i

If Then

For j = 1 To n

If m Mod 2 = 0 Then

Getstr = "女" + Getstr

Else

Getstr = "男" + Getstr

End If

m = m \2

Next j

List1.AddItem Getstr

If Team(Getstr) <> "" Then List2.AddItem (Team(Getstr))

Getstr =""

End If

Next i

End Sub

Function search(i As Integer) As Boolean '判读男生是否相邻

Dim j As Integer，t As Integer

Dim a(1 To 15) As Integer

t = i

For j = 1 To n

a(j) = t Mod 2

t = t \2

Next j

flag = True

For k = 1 To n -1

If Then flag = False: Exit For

Next k

search = flag

End Function

Function Team(ch As String) As String '判读男女生比例是否合适

Dim num As Integer, st As Integer, i As Integer，c(0 To 1) As Integer

Team = “”

For i = 0 To 1

c(i) = 0

Next i

For i = 1 To n

st= Mid(ch, i, 1)

If st= "男" Then num=1: c(num)= c(num)+1 Else num =0: c(num)= c(num)+1

Next i

IfThen Team = ch

End Function

综合题困难

3. 两个整数的平方差称为好数，如 $\text{[math]}$ ，，按从小到大的次序，则第一个好数是3。编写VB程序代码，求出第n个好数是多少。实现如下功能：在文本框Text1中输入要求的第几个好数n，点击“计算”按钮Command1，则在Label2上显示结果，程序运行界面如下图所示：

(1) 若要在Text1中填写序数为100，则应修改Text1对象的属性

(2) 为了实现以上程序功能，使程序正常运行，请完善以下两处代码。

Private Sub Command1_Click()

Dim n, k, i ,sAs Integer

s = Val(Text1.Text) : k = 2

Do While n < s

For i = 1 To k \ 2

If k Mod i = 0 Then

If (m + i) Mod 2 = 0 And (m - i) Mod 2 = 0 Then

n = n + 1

Exit For

End If

Next i

k = k + 1

Loop

Label2.Caption = "第" + Text1.Text + "个好数是" +

End Sub

(3) 由上述算法可知，数字21是第个好数。

综合题普通

1. 小明同学用Python语言编写输出100以内所有质数的程序，采用的方法是对100以内的每一个数逐一判新，如果持合质数的条件，则输出这个数，这种算法属于（）

A. 递推法 B. 枚举法 C. 解析法 D. 选择法

单选题普通

2. 课堂上老师给出题目：查找1000以内所有能被13整除并且末尾是5的自然数。下列算法最合适的是( )。

A. 查找法 B. 排序法 C. 解析法 D. 枚举法

单选题普通

3. 水仙花数是指一个三位数，它的每个位上数字的3次方之和等于它本身，现要求出所有三位的水山花数，下列算法最合适的是（）

A. 二分法 B. 解祈法 C. 迭代法 D. 枚举法

单选题普通

1. 哥德巴赫猜想是任一大于2的偶数，都可表示成两个素数之和。其中素数也叫质数，是指除了1和本身外，不能被其它整数整除的数。

(1) 10可以看成哪两个素数之和。

(2) 下列程序用来验证 4-1000 之间的偶数是否符合哥德巴赫猜想，请完成划线处的填空：

def isprime(m):

i=2

while i<=int(m**0.5):

if:

return False

i+=1

return True

for i in range(4, 1001, 2):

flag=False

for j in range(2, i):

if:

print(str(i)+"验证成功")

flag=True

break

if:

print(str(i)+"验证失败")

(3) 上述程序使用了哪种算法（单选，填字母：A .枚举算法 B .解析算法）

综合题困难

2. 有千位和百位未知的5位数整数“6**58”，能被27或57整除。下列程序的功能是：找出所有满足条件的5位数整数。实现上述功能的程序如下，请回答下列问题：

n=60058

num=[]

for i in :

x=n+i*100

if _____________:

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

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

(1) 程序中加框处的代码有误，请改正。

(2) 请在程序划线处填入合适的代码。

综合题普通

3. 阅读以下材料，回答问题。

登录模块

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

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

(1) 从流程图中，用户输入密码正确，则提示用户登录成功，反之提示（） A. 输入密码 B. 登录成功 C. 登录失败 D. 结束

(2) 针对以上设计，王林同学用穷举法做了暴力破解的实验，如下表。

序号	密码长度	密码规则	最多破解次数
1	1位	纯数字	10次
2	2位	数字和英文大写字母组合	①次

表中①处应填写（）

A. 10 B. 100 C. 1296 D. 3844

(3) 通过以上实验，你认为（）选项的密码相对安全。 A. 1$Aa45 B. 23 C. 12a45 D. 1Aa45

(4) 为了避免密码被暴力破解，王林同学对流程图做了改进，请补全①②两处的内容，使得程序实现连续登录失败3次后提示“锁定用户”的功能。（）

A. ①t=1 ②锁定用户 B. ①t=0 ②锁定用户 C. ①t=0 ②登录成功 D. ①t=1 ②登录失败

综合题普通

1. $\text{[math]}$ ，其中n为正整数，计算s值的VB程序段如下：

s=1：i=1：t=1

Do While i<2*n-1

Loop

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

①s=s+t

②i=i+2

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

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

A. ③①② B. ①②③ C. ②①③ D. ②③①

单选题普通

2. 将正整数n分解为两个正整数之和，其中一个能被3整除，另一个能被7整除。统计分解方法共有几种的VB程序段如下：

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

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

A. ①③② B. ②③① C. ③②① D. ①②③

单选题普通