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

①密码是六位数字,前面两位为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

    End If

Next i

End Sub

(3) 该模块采用的算法是(  ) A. 枚举 B. 查找 C. 排序 D. 解析
【考点】
枚举算法及程序实现;
【答案】

您现在未登录,无法查看试题答案与解析。 登录
综合题 普通
能力提升
真题演练
换一批
3. 大约1500年前,《孙子算经》中记载了"鸡兔同笼"问题.原文大意是:如果若干只鸡和兔在同一个笼子里,从上面数有35个头,从下面数有94只脚,求笼中鸡和兔子各有几只?
现在我们用VB6.0软件设计一个程序,可以解答上述问题,通过界面输入鸡和兔头数和,鸡、兔脚数和。在输入数据合理的情况下,求出鸡、兔各有多少只。程序运行界面图、输出界面图和程序的代码如下所示。
         
程序运行界面图                      输出结果界面图
程序代码如下:
Private  Sub Command1_Click(  )
Dim x As Integer, y As Integer   ’x是鸡的数量,y是兔的数量
Dim a As Integer, b As Integer   ’a是鸡兔的头数,b是鸡兔的脚数和
a = Val(Text1.Text)
b = Val(Text2.Text)
If b < 2 * a Or b > 4 * a Then   ’对数据合理性做出判断
MsgBox "您的输入数据不合理,请重新输入!", , "错误提示"
Text1.Text = ""
Text2.Text = ""
   ①          
x = 0
Do While x     ②    a
y = a - x
If (2 * x + 4 * y = b) Then
MsgBox "鸡有:" & x & "只   兔有:" & y & "只", , "运行结果"
End If
   ③    
Loop
End Sub
Private  Sub Command2_Click(  )
Text1.Text = ""
Text2.Text = ""
End Sub
请分析任务,完成下面试题。
(1) 程序设计的“灵魂”是(选填“代码”或“算法”)。
(2) 流程图用图框及流程线来表示算法。流程图中的“    ”(菱形框) 用来表示(选填“数据处理”或“选择分支”)。
(3) 程序中的语句“Dim a As Integer”,是将变量a的数据类型定义为
(4) 程序中的语句用到了Msgbox函数,此函数的作用是(选填“输入数据”,“输出数据”或“数据转换”
(5) 程序中①所在的横线处应填写的语句是
(6) 程序中②所在的横线处应填写的语句是
(7) 程序中③所在的横线处应填写的语句是
(8) 如题图一所示的程序运行界面,要改变窗体的标题,使其显示为“鸡兔同笼”应修改窗体控件的(选填“Caption”,“Name”,“Text”)属性。
(9) 本程序中求解问题所用到的算法属于(选填“解析法”、“穷举法”或“递归法”)。
(10) 本程序“鸡兔同笼”窗体中(如程序运行界面图)使用的控件类型有

                                。

综合题 困难