- 基础理论
- 数据及数据库技术
- 人工智能
- 算法理论
- 过程和自定义函数
- + 枚举算法及程序实现
- 解析算法及程序实现
- 递归算法及程序实现
- 排序算法及程序实现
- 查找算法及程序实现
- 多媒体理论
- 基础软件操作
- 算法软件操作
- 多媒体软件操作
- 网络技术应用
如果一个三位正整数等于它的每个数字的立方和,则此数称为“水仙花”数(如:153=1^3+5^3+3^3)。 下列程序用于求出 100-999 之间的所有“水仙花”数。
(1)设计下列程序界面时,在窗体上添加 List1 对象,可使用下图所示 的“控件工具箱”中的 (填写相应编号)。

(2)VB 程序如下: Private Sub Command1 Click()
Dim m As Integer, n As Integer
Dim a As Integer,b As Integer,c As Integer For m =" 100" To 999
a =" Int(m/100)" b = ① c= ② n=a^3+b^3+c^3
If ③ Then List1.AddItem Str(m) Next m
End Sub 在程序①、②、③划线处,填入适当的语句或表达式,把程序补充完整:
程序中①划线处应填入 。程序中②划线处应填入 。程序中③划线处应填入 。
(3)该程序是 算法。(选填:枚举/解析)
(1)设计下列程序界面时,在窗体上添加 List1 对象,可使用下图所示 的“控件工具箱”中的 (填写相应编号)。

(2)VB 程序如下: Private Sub Command1 Click()
Dim m As Integer, n As Integer
Dim a As Integer,b As Integer,c As Integer For m =" 100" To 999
a =" Int(m/100)" b = ① c= ② n=a^3+b^3+c^3
If ③ Then List1.AddItem Str(m) Next m
End Sub 在程序①、②、③划线处,填入适当的语句或表达式,把程序补充完整:
程序中①划线处应填入 。程序中②划线处应填入 。程序中③划线处应填入 。
(3)该程序是 算法。(选填:枚举/解析)
VB标准函数RND的作用是返回一个大于等于0且小于1的随机数。只能产生大于等于100且小于200随机 整数的VB表达式是 ( )
A.Int(Rnd*100) | B.Int(Rnd*101+100) |
C.Int(Rnd*99+100) | D.Int(Rnd*100+100) |
在窗体上画一个名称为Label1的标签,然后编写如下事件过程,程序运行后,单击窗体,在标签中显示的内容是( )
Private Sub Form_Click()
Dim arr(1 to 10, 1 to 10) As Integer
Dim i As Integer, j As Integer
For i =" 2" To 4
For j =" 2" To 4
arr(i, j) =" i" * j
Next j
Next i
Label1.Caption =" Str(arr(2," 2)+ arr(3, 3))
End Sub
(
Private Sub Form_Click()
Dim arr(1 to 10, 1 to 10) As Integer
Dim i As Integer, j As Integer
For i =" 2" To 4
For j =" 2" To 4
arr(i, j) =" i" * j
Next j
Next i
Label1.Caption =" Str(arr(2," 2)+ arr(3, 3))
End Sub
(
A.12 | B.13 | C.14 | D.15 |
兔子吃萝卜。兔子拔了一堆萝卜,第一天吃了一半,还嫌不过瘾,又吃了一个,第二天又将剩下的萝卜吃掉一半,又多吃了一个,以后每天如此。到第10天想再吃时,见只剩下一个萝卜了。求第一天共拔了多少萝卜。小明编写了一个VB程序,用于计算兔子第一天拔的萝卜总数。程序运行界面如图所示。

Private Sub Command1_Click()
Dim i As Integer,sum As Integer
sum=1
For i=9 To 1 ____①____
____②____
Next i
Text1.Text=Str(sum)
End Sub
回答下列问题:
(1)该程序采用的算法是________(填:解析算法/枚举算法)
(2)显示计算结果的控件属于________类,该控件的名称是________。
(3)划线①处应填入的语句为________。
划线②处应填入的语句为________。

Private Sub Command1_Click()
Dim i As Integer,sum As Integer
sum=1
For i=9 To 1 ____①____
____②____
Next i
Text1.Text=Str(sum)
End Sub
回答下列问题:
(1)该程序采用的算法是________(填:解析算法/枚举算法)
(2)显示计算结果的控件属于________类,该控件的名称是________。
(3)划线①处应填入的语句为________。
划线②处应填入的语句为________。
王敏的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)程序中②画线处应填入________。
她零星记得自己的密码信息:
①密码是六位数字,前面两位为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)程序中②画线处应填入________。
某食品连锁店5位顾客贵宾消费卡的积分依次为810,512,613,700,900。采用选择排序算法对其排序,若完成第一遍时的结果为:512,810,613,700,900,则完成第二遍的结果是( )
A.512,613,700,900,810 |
B.512,810,613,900,700 |
C.512,900,613,700,810 |
D.512,613,810,700,900 |
求满足首尾两个数字相等的所有四位正整数之和。
(1)写出能表示“一个四位正整数X的千位数字和个位数字相等”的VB表达式
_______________________________________________________________
(2)将下列程序填写完整,求所有满足上述条件的四位正整数之和
Dim x as integer,p1 as integer,p2 as integer,s as long
S=0
Print “s=”;s
______________________________________________________________
(1)写出能表示“一个四位正整数X的千位数字和个位数字相等”的VB表达式
_______________________________________________________________
(2)将下列程序填写完整,求所有满足上述条件的四位正整数之和
Dim x as integer,p1 as integer,p2 as integer,s as long
S=0
Print “s=”;s
______________________________________________________________
关于枚举算法的说法错误的是( )
A.一般是通过循环中嵌套分支结构来实现的。 |
B.循环结构用来“枚举”,分支结构用于“检验”。 |
C.列举所有可能解的范围时,可以扩大但不能缩小,以防漏解。 |
D.采用枚举法时,也可能找不到符合条件的解。 |
以下是两位同学设计的描述“输出所有能被3整除的四位数”的流程图。
(1)请将流程图的空缺填写完整 ①_____________ ② ____________
(2)请问采用枚举算法描述的是 。(从下列选项中选择)

(1)请将流程图的空缺填写完整 ①_____________ ② ____________
(2)请问采用枚举算法描述的是 。(从下列选项中选择)
A.图A | B.图B | C.都是 | D.都不是 |
