小李忘记了密码箱上设置的三位数密码，于是他从“000”开始尝试，一直到成功打开密码箱为止。这种解锁方法采用的算法是（ ）。
| A．解析算法 | B．穷举算法 | C．递归法 | D．选择排序 |
用VB编程解决一个问题：求所有五位数中满足能被17整除且十位数字为5的数之和。
（1）本题的所有五位数所指的范围是1~10000，10000~99999，10000~90000，还是11111~99999？写出本题的所有五位数所指的范围。
（2）算术运算符：除/、整除\、求余Mod。例子，设五位数为参数i，则i\10000为万位，（i\1000）Mod 10 为千位，类推，则五位数中十位数字为（ ），i Mod 10为个位。写出五位数中十位数字为5的表示式。
（3）将本题程序填写完整。
Private Sub Command1_Click()
s = 0
For i = To
If i Mod 17 = 0 And =5 Then
s = s + i
End If
Next i
Print s
End Sub
（4）本题程序采用了什么算法？
（1）本题的所有五位数所指的范围是1~10000，10000~99999，10000~90000，还是11111~99999？写出本题的所有五位数所指的范围。
（2）算术运算符：除/、整除\、求余Mod。例子，设五位数为参数i，则i\10000为万位，（i\1000）Mod 10 为千位，类推，则五位数中十位数字为（ ），i Mod 10为个位。写出五位数中十位数字为5的表示式。
（3）将本题程序填写完整。
Private Sub Command1_Click()
s = 0
For i = To
If i Mod 17 = 0 And =5 Then
s = s + i
End If
Next i
Print s
End Sub
（4）本题程序采用了什么算法？
小强在双十一购物期间忘记了支付宝账户密码，但他急用支付宝进行转账，请你帮他尽可能找回密码。他只记得自己密码的一些零星信息：
①密码是六位数字，前面两位为59；②最后两位数字相同；③能被12和38整除。
程序界面如图1所示，单击 “帮助找回密码”按钮（Command1）后，可能的密码显示在列表框List1中。
图1 图2
（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
End If
Next i
End Sub
（3）该模块采用的算法是（_____）
①密码是六位数字，前面两位为59；②最后两位数字相同；③能被12和38整除。
程序界面如图1所示，单击 “帮助找回密码”按钮（Command1）后，可能的密码显示在列表框List1中。
图1 图2
（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
End If
Next i
End Sub
（3）该模块采用的算法是（_____）
| A．枚举 |
| B．查找 |
| C．排序 |
| D．解析 |
（加试题）一个十进制整数的二进制表示中，如果数字“1”的个数多于数字“0”的个数，则称该整数为A类数。如十进制整数26的二进制表示为11010，26是一个A类数。下列VB程序的功能是：统计前1000个自然数中A类数的个数，并在文本框中输出。请在划线处填入合适代码。
Private Sub Command1_Click()
Dim i As Integer, n As Integer
Dim s As Integer, t As Integer, k As Integer
s = 0
For i = 1 To 1000
n = i
t = 0
k = 0
Do While n > 0
If n Mod 2 = 1 Then t = t + 1 Else k = k + 1
___________________
Loop
If ___________________Then s = s + 1
Next i
Text1.Text = Str(s)
End Sub
Private Sub Command1_Click()
Dim i As Integer, n As Integer
Dim s As Integer, t As Integer, k As Integer
s = 0
For i = 1 To 1000
n = i
t = 0
k = 0
Do While n > 0
If n Mod 2 = 1 Then t = t + 1 Else k = k + 1
___________________
Loop
If ___________________Then s = s + 1
Next i
Text1.Text = Str(s)
End Sub
用枚举算法求解“找出所有满足各位数字之和等于5的三位数”时，在下列所列举的数值范围内，算法执行效率最高的是（ ）
| A．从0到999 | B．从100到999 |
| C．从100到500 | D．从104到500 |
若一个正整数从左向右读与从右向左读都一样，我们就将其称之为回文数。如 11、121 均是回文数。请你编写程序，输出 10 至 n 之间的所有回文数。程序运行界面如图所示， 在文本框 Text1 中输入一个正整数 n，单击“查找”按钮 Command1，在列表框 List1 中显示 10 – n 之间的所有回文数，并且在标签 Label1 中输出查找到回文数的总数。
问题：实现上述功能的 VB 代码如下，但加框处代码有错，请改正。
Private Sub Command1_Click()
Dim n as long , sum as long , i As Long Dim x as long , y as long
List1.Clear
n = Val(Text1.Text) sum = 0
For i = 10 To n
x = n ’（1）
y = 0
Do While x > 0
y = x Mod 10 ’（2）
x = x \ 10
Loop
If y = i Then
List1.additem Str(i)
sum = sum+1
End if Next i
Label1.caption = “共有”& Str(sum) & “个回文数” End Sub
问题：实现上述功能的 VB 代码如下，但加框处代码有错，请改正。
Private Sub Command1_Click()
Dim n as long , sum as long , i As Long Dim x as long , y as long
List1.Clear
n = Val(Text1.Text) sum = 0
For i = 10 To n
x = n ’（1） y = 0
Do While x > 0
y = x Mod 10 ’（2） x = x \ 10
Loop
If y = i Then
List1.additem Str(i)
sum = sum+1
End if Next i
Label1.caption = “共有”& Str(sum) & “个回文数” End Sub
小张的QQ密码忘记了,请你帮他找回密码。他只记得自己密码的一些零星信息:
①密码是六位数字,前面两位为59;
②最后两位数字相同;
③能被12和38整除。
程序界面如图所示,单击“找回密码”按钮(Command1)后,可能的密码显示在列表框List1中。
(1)应用程序界面设计时,为添加“可能的密码有:”对象,应使用左图所示的“控件工具箱”中的______(填写相应编号),并在右图所示的“属性窗口”中,将______属性值设置为“可能的密码有:”。
(2)为实现上述功能,请在划线处填入合适的选项。
Private Sub Command1_Click( )
Dim x As Integer,s As Long,y As Integer,i As Integer
For i=0 To 9999
s=590000+i
If________①Then
x=s mod 10
y=(s Mod 100)\10
If_______②Then
List1.AddItem______③
End If
End If
Next i
End Sub
划线①、②、 ③的选项:
①密码是六位数字,前面两位为59;
②最后两位数字相同;
③能被12和38整除。
程序界面如图所示,单击“找回密码”按钮(Command1)后,可能的密码显示在列表框List1中。
(1)应用程序界面设计时,为添加“可能的密码有:”对象,应使用左图所示的“控件工具箱”中的______(填写相应编号),并在右图所示的“属性窗口”中,将______属性值设置为“可能的密码有:”。
(2)为实现上述功能,请在划线处填入合适的选项。
Private Sub Command1_Click( )
Dim x As Integer,s As Long,y As Integer,i As Integer
For i=0 To 9999
s=590000+i
If________①Then
x=s mod 10
y=(s Mod 100)\10
If_______②Then
List1.AddItem______③
End If
End If
Next i
End Sub
划线①、②、 ③的选项:
| A．x=y |
| B．Str(s) |
| C．Str(i) |
| D．s Mod 12=0 and s Mod 38=0 |