王敏的EMail邮箱密码忘记了，但她需要收一封很重要的来信，请你帮她尽可能找出密码。她零星记得自己的密码信息：①密码是六位数字，前面两位为31；②最后两位数字_刷题宝

题干

王敏的EMail邮箱密码忘记了，但她需要收一封很重要的来信，请你帮她尽可能找出密码。
她零星记得自己的密码信息：
①密码是六位数字，前面两位为31；
②最后两位数字相同；
③能被16和46整除。
程序界面如图所示，单击“帮助找回密码”按钮(Command1)后，可能的密码显示在列表框List1中。

解决此问题的相应程序如下：
Private Sub Command1_Click()
Dim a As Integer，s As long，b As Integer，i As Integer
For i＝0 To 9 999 ①________
s＝310 000＋i
If s Mod 46＝0 Then
②________
b＝(s Mod 100)\100
If a＝b Then
List1.Addltem Str(s)
End If
End If
Next i
End Sub

(1)解决此问题的算法是________(选填：枚举算法或排序算法)
在程序①和②画线处，填入适当的语句或表达式，把程序补充完整：
(2)程序中①画线处应填入________。
(3)程序中②画线处应填入________。

上一题下一题 0.99难度填空题更新时间:2017-03-01 07:08:27

答案(点此获取答案解析）

同类题1

若字符串a是在字符串s的任意位置插入多个字符后构成的新字符串，则称字符串a为字符串 S的扩展字符串。判断扩展字符串的VB程序界面如图所示，在文本框Text1和Text2 中分别输入字符串s和a，单击“判断”按钮Command1，如果字符串a为字符串S的扩展字符串，则在文本框Text3中输出“是”和插入字符的内容，否则输出“否”。
①结合题意，窗体中属于TextBox类的对象共有_________个（填数字）。
②实现上述功能的VB程序如下，请在划线处填入合适代码。
Private Sub Commandl_Click()
Dim s As String，c As String，ss As String，cc As String
Dim i As Integer，As Integer，res As String
s= Text1.Text
c = Text2.Text
i=l：j=l：res =“”
Do While i <= Len(s)

ss = Mid(s, i, l)

cc = Mid(c, j, l)

If ss = cc Then i = i + l Else res = res + cc

①________

If j > Len (c) Then Exit Do ‘Exit Do 执行退出循环

Loop
If ②_________ Then

Text3.Text ="是，增加了：" + res + Mid( c，j，Len(c) -j+l)

Text3.Text = "否"

End If
End Sub
（3）运行该程序，输入如第l4题图中所示的数据，程序执行结束时，变量j的值是____

同类题2

工资问题：某古老的工作和工资计算方式比较奇特，其工作要求如下：必须从1月1日当天开始工作，且连续工作n（n<=365）天才一次性结算得到工资。某年（假设当年为平年）的工资计算细则是：第1天获得1枚金币，接下来的2天（第2天和第3天）每天获得2枚金币，再接下来的3天（第4、5、6天）每天获得3枚金币，……，依次类推，即当连续n天每天获得n枚金币后，会在之后的连续n+1天里，每天获得n+1枚金币。
小王用VB编写了工资计算程序，当输入连续工作的最后一天的日期后，单击“计算”按钮Command1，程序自动计算工资总额，其运行界面如图所示。

实现上述功能的VB程序如下，请回答下列问题：
（1）下列选项中，属于鼠标“单击”事件的是_______。（单选，填字母：

（2）请在划线处填入合适的代码。
①__________
②__________
（3）加框处的代码有错误，请改正。
__________
Private Sub Command1_Click()
Dim i As Integer,j As Integer,k As Integer
Dim m As Integer,d As Integer,n As Integer
Dim md As String,sum As Integer
md = "312831303130313130313031"
n = 0
m = Val(Text1.Text)
d = Val(Text2.Text)
For i = 1 To m - 1
n = ①
Next i
n = n + d
i = 0:j = 0
sum = 0:k = 1
Do While i < n
sum =

j = j + 1
If ② Then
j = 0
k = k + 1
End If
i = i + 1
Loop
Text3.Text = Str(sum)
End Sub

同类题3

编程找出四位整数abcd 中满足下述关系的数：（ab+cd)(ab+cd)=abcd。小明编写了一个此问题求解的 VB程序，单击“求解” 命令按钮 Command1，在列表框List1中显示结果，如（20+25）*（20+25）=2025，则在列表框显示“2025”（注：双引号不显示）。程序设计界面如图所示：

(1)如图所示，小明通过设置“ 求解” 命令按钮 Command1 的____________ （单选,填字母：

C．Height ）属性设置文字“求解” 为斜体。

(2)为实现上述功能，请在划线处填入合适代码或选项。
Private Sub Commandl_Click()
Dim i As Integer
Dim k As Long, m As Long, n As Long
For i = 1000 To 9999
m = i \ 100
n =___________________
k = (m + n) * (m + n)
If k = i Then
_______________________
End If
Next i
End Sub
(3) 由上述算法可知，“3025”这个四位数__________(选填：会/不会）在列表框 List1 中显示。

同类题4

编写“十六进制加法”程序。程序运行时，在文本框Text1和文本框Text2分别输入两个十六进制数，单击“计算”按钮后在文本框Text3上输出两个十六进制相加后的结果。程序运行如图所示。

（1）观察代码，触发代码执行的事件名是________________________
（2）实现上述功能的VB程序如下，请在划线处填人合适的代码。
Private Sub Cmd1_Click()
Dim a1 As String, a2 As String, sum As String, t As String
Dim b1 As Integer, b2 As Integer
Dim dist As Integer, x As Integer, jw As Integer
a1 = Text1.Text: a2 = Text2.Text: sum = ""
dist = Len(a1) - Len(a2)
If dist < 0 Then
t = a1: a1 = a2: a2 = t
___________________
End If
For i = 1 To dist
a2 = "0" + a2
Next i
jw = 0
For i = __________________________
If Mid(a1, i, 1) >= "A" And Mid(a1, i, 1) <= "F" Then
b1 = Asc(a1) - 55
Else
b1 = Val(Mid(a1, i, 1))
End If
If Mid(a2, i, 1) >= "A" And Mid(a2, i, 1) <= "F" Then
b2 = Asc(a2) - 55
Else
b2 = Val(Mid(a2, i, 1))
End If
x = b1 + b2 + jw
jw = x \ 16
If __________________ Then
sum = Chr(x Mod 16 + 55) + sum
Else
sum = Str(x Mod 16) + sum
End If
Next i
If jw = 1 Then sum = "1" + sum
Text3.Text = sum
End Sub
（3）若将代码中加框处代码删除，则图中Text3中显示的结果为_________。

同类题5

在游戏中经常有开数字密码锁得场景，已知一个6位数的密码锁，正确的数字顺序组合是由下面一组数字426815经过两次冒泡排序得到，请问开锁的正确数字组合可能是（）。

相关知识点