下列VB程序功能可以找出1000以内的完全数，并在标签中一一列出来。 Private Sub Command1_Click() Dim i As Integer, m As Integer, n As Integer Label1.Caption = "1000以内的完全数如下：" For i = 1 To 1000 n = 0 For m = 1 To i \ 2 If i Mod m = 0 Then n = n + m Next If n = i Then Label2.Caption = Label2.Caption & "" & Str(i) Next End Sub 该过程采用的算法是（）

0 返回首页

1. 下列VB程序功能可以找出1000以内的完全数，并在标签中一一列出来。

Private Sub Command1_Click()

Dim i As Integer, m As Integer, n As Integer

Label1.Caption = "1000以内的完全数如下："

For i = 1 To 1000

n = 0

For m = 1 To i \ 2

If i Mod m = 0 Then n = n + m

If n = i Then Label2.Caption = Label2.Caption & "" & Str(i)

End Sub

该过程采用的算法是（）

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

【考点】

枚举算法及程序实现;

【答案】

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

单选题普通

基础巩固

能力提升

变式训练

拓展培优

真题演练

换一批

1. 实现枚举算法一般采用( )的算法结构模型。

A. 循环套循环 B. 分支套循环 C. 循环套分支 D. 分支套分支

单选题容易

1. 用枚举法在两个□内填入相同的数字使“□3×6528＝3□×8256”表达式成立。

for i in range(1):

if :

print(i,“3×6528＝3”，i，“×8256”，sep＝“”）

下列选择正确的是（）。

A. （i*10＋3）*6528＝＝（30＋i）*8256 B. (i*3)*6528＝＝(30＋i)*8256 C. （i*10＋3）*6528＝＝（30*i）*8256 D. (i*3)*6528＝＝(3*i)*8256)

单选题普通

2. 下列适合使用枚举算法解决的是（）。

A. 判断2021年是否为闰年 B. 计算两个电阻的并联值 C. 计算本次数学考试班级平均分 D. 找出100以内所有的素数

单选题普通

3. 关于枚举法，下列说法错误的是（）

A. 枚举法的基本思想就是，根据问题的部分已知条件预估解的范围，并在此范围内对所有可能的情况进行逐一验证，直到找到满足已知条件的解为止 B. 枚举范围的大小直接影响着枚举法的执行效率 C. 枚举法，也称蛮力法或暴力搜索法，理论上利用这种方法可破解任何一种密码 D. 枚举范围中的判定条件直接影响着枚举法的执行效率

单选题普通

1. 给定12个不同的正整数，任务是计算这些数里面有多少个数对满足：数对中一个数是另一个数的两倍。比如给定8 13 21 28 19 33 10 17 42 5 38 7，得到的答案是3，因为10是5的两倍，42是21的两倍，38是19的两倍。下列VB代码段能实现上述功能，请将划线处代码补充完整：

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

综合题普通

2. 个位数字是6，且能被3整除的3位数共有多少个？下面程序用于解决这一问题，在划线处填入合适的语句或表达式，设共有n个这样的数，Visual Basic程序如下：

Sub Command1_Click()

Dim i As Integer, n As Integer

m=106

n =

Do While m <= 996

If Then n = n + 1

Loop

Text1.Text = Str(n)

End Sub

填空题困难

3. 对称字符串的特征是从左到右读和从右到左读是完全一样的。如“abba”是对称的，“abcba”也是对称的。判断字符串是否对称的VB程序段如下,请完善以下两处代码

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

Next i

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

填空题困难

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. ①②③

单选题普通