- 基础理论
- 数据及数据库技术
- 人工智能
- 算法理论
- 算法实例
- 面向对象程序设计 VB开发工具
- + 算法实例的程序实现
- 过程和自定义函数
- 枚举算法及程序实现
- 解析算法及程序实现
- 递归算法及程序实现
- 排序算法及程序实现
- 查找算法及程序实现
- 算法及算法的表示方法
- 多媒体理论
- 基础软件操作
- 算法软件操作
- 多媒体软件操作
- 网络技术应用
已知单调函数f(x)在[0，1]区间存在一个x0，使f(x0)＝0。现用对分查找法搜索x0的值，开始搜索区间为[0，1]，若经过10次对分查找后还需继续搜索，则第11次搜索区间的长度为( )
| A．1/2 | B．1/10 |
| C．1/102 | D．1/210 |
有如下程序段：
s＝“”
For i＝1 To 3
For j＝7 To i＋1 Step－1
If a(j)＜a(j－1) Then
k＝a(j)：a(j)＝a(j－1)：a(j－1)＝k
End If
Next j
s＝s＋Str(a(i))
Next i
Text1.Text＝s
数组元素a(1)到a(7)的数据依次为“3，9，1，5，8，6，2”，经过该程序段“加工”后，文本框Text1中显示的内容是( )
s＝“”
For i＝1 To 3
For j＝7 To i＋1 Step－1
If a(j)＜a(j－1) Then
k＝a(j)：a(j)＝a(j－1)：a(j－1)＝k
End If
Next j
s＝s＋Str(a(i))
Next i
Text1.Text＝s
数组元素a(1)到a(7)的数据依次为“3，9，1，5，8，6，2”，经过该程序段“加工”后，文本框Text1中显示的内容是( )
| A．1 2 3 | B．9 8 6 |
| C．3 9 1 | D．8 6 2 |
兔子吃萝卜。兔子拔了一堆萝卜，第一天吃了一半，还嫌不过瘾，又吃了一个，第二天又将剩下的萝卜吃掉一半，又多吃了一个，以后每天如此。到第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)划线①处应填入的语句为________。
划线②处应填入的语句为________。
如果一个4位数恰好等于它的各位数字的4次方和，则这个数被称为“玫瑰花”数。例如1634就是一个玫瑰花数：1634＝14＋64＋34＋44。如果要求出所有的玫瑰花数，下列算法合适的是( )
| A．查找法 | B．解析法 |
| C．穷举法 | D．排序法 |
某协会进行钓鱼比赛，最后有十人进入决赛，录入员编制了如下Visual Basic程序，功能是根据成绩进行排序，程序中数组 a保存所有参赛者的成绩，数组b保存此成绩对应的姓名，第i位参赛者的成绩保存在a(i)中，姓名保存在b(i)中。
程序界面如图所示，左边列表框List1中显示原始数据(成绩和相应的姓名)，单击“排序”按钮(Command1)，排序后的结果按成绩从高到低显示在列表框List2中。
解决此问题的算法流程图如图所示，排序部分的程序段如下：
Dim a (1 To 10) As Single
Dim b (1 To 10) As String
Private Sub Command1_Click()
Dim i As Integer，j As Integer，k As Integer，x As Single，y As String
For i＝1 To 9
k＝i
For j＝i＋1 To 10
If ①________ Then k＝j
Next j
If k＜＞i Then
x＝a(i)：a(i)＝a(k)：②________
y＝b(i)：b(i)＝b(k)：b(k)＝y
End If
Next i
For i＝i To 10
List2.AddItem Str(a(i))＋“ ”＋b(i)
Next i
End Sub
Private Sub Form_Load()
’此过程用于对数组a和数组b进行初始赋值，代码略
End Sub
(1)解决此问题的算法是________。(选填：冒泡排序或选择排序)
在程序①和②画线处，填入适当的语句或表达式，把程序补充完整：
(2)程序中①画线处应填入________。
程序中②画线处应填入________。
程序界面如图所示，左边列表框List1中显示原始数据(成绩和相应的姓名)，单击“排序”按钮(Command1)，排序后的结果按成绩从高到低显示在列表框List2中。
解决此问题的算法流程图如图所示，排序部分的程序段如下：
Dim a (1 To 10) As Single
Dim b (1 To 10) As String
Private Sub Command1_Click()
Dim i As Integer，j As Integer，k As Integer，x As Single，y As String
For i＝1 To 9
k＝i
For j＝i＋1 To 10
If ①________ Then k＝j
Next j
If k＜＞i Then
x＝a(i)：a(i)＝a(k)：②________
y＝b(i)：b(i)＝b(k)：b(k)＝y
End If
Next i
For i＝i To 10
List2.AddItem Str(a(i))＋“ ”＋b(i)
Next i
End Sub
Private Sub Form_Load()
’此过程用于对数组a和数组b进行初始赋值，代码略
End Sub
(1)解决此问题的算法是________。(选填：冒泡排序或选择排序)
在程序①和②画线处，填入适当的语句或表达式，把程序补充完整：
(2)程序中①画线处应填入________。
程序中②画线处应填入________。
在已排序的数组d[数组元素d(1)≥d(2)≥…≥d(n)]中查找键值为Key的数，其对分查找的VB程序段如下：
i＝1：j＝n
xb＝0
Do While i＜＝j
m＝Fix((i＋j)/2)
If d(m)＝Key Then
xb＝m
Exit Do
End If
If d(m)＞Key Then
①____
Else
②____
End If
Loop
划线处的语句为( )
i＝1：j＝n
xb＝0
Do While i＜＝j
m＝Fix((i＋j)/2)
If d(m)＝Key Then
xb＝m
Exit Do
End If
If d(m)＞Key Then
①____
Else
②____
End If
Loop
划线处的语句为( )
| A．①j＝m＋1 ②i＝m＋1 | B．①i＝m－1 ②j＝m－1 |
| C．①j＝m－1 ②i＝m＋1 | D．①i＝m＋1 ②j＝m－1 |
计算三角形面积的算法如下：
①输入三角形三边长a，b，c
②计算半周长p＝(a＋b＋c)/2
③计算三角形面积s＝Sqr(p*(p－a)*(p－b)*(p－c))
④输出面积s
上述算法属于( )
①输入三角形三边长a，b，c
②计算半周长p＝(a＋b＋c)/2
③计算三角形面积s＝Sqr(p*(p－a)*(p－b)*(p－c))
④输出面积s
上述算法属于( )
| A．排序算法 | B．解析算法 |
| C．枚举算法 | D．查找算法 |
7位幼儿园小朋友的体重(单位kg)从低到高依次为：13，15，16，18，20，21，23。用对分查找法找到23的过程中，依次被访问到的数据是( )
| A．23 | B．18，21，23 |
| C．18，23 | D．18，20，21，23 |
在数组元素a(1)到a(5)中查找键值为key的数，其查找算法的VB程序段如下：
Dim a(1 To 5) As Integer
Dim Key As Integer
Private Sub Command1_Click()
t＝0
For i＝1 To 5
If ____①____ Then
t＝i
Exit For ’②
End If
Next i
Print t
End Sub
Private Sub Form_Load()
’此过程用于对数组a和查找键Key进行赋初值，代码略
End Sub
(1)该程序段中所用的查找算法是_____________________________________。
(2)在程序①划线处，填入适当的语句或表达式，把程序补充完整：程序中①划线处应填入_____________________________________________。
当数组元素a(1)到a(5)中存储的数据为(2，5，1，9，5)，查找键Key为5时：
(3)该程序运行结束，t的值是_____________________________。
(4)如果将②所标记的Exit For语句删除，该程序运行结束时，t的值是________。
Dim a(1 To 5) As Integer
Dim Key As Integer
Private Sub Command1_Click()
t＝0
For i＝1 To 5
If ____①____ Then
t＝i
Exit For ’②
End If
Next i
Print t
End Sub
Private Sub Form_Load()
’此过程用于对数组a和查找键Key进行赋初值，代码略
End Sub
(1)该程序段中所用的查找算法是_____________________________________。
(2)在程序①划线处，填入适当的语句或表达式，把程序补充完整：程序中①划线处应填入_____________________________________________。
当数组元素a(1)到a(5)中存储的数据为(2，5，1，9，5)，查找键Key为5时：
(3)该程序运行结束，t的值是_____________________________。
(4)如果将②所标记的Exit For语句删除，该程序运行结束时，t的值是________。