- 基础理论
- 数据及数据库技术
- 人工智能
- 算法理论
- 算法实例
- 面向对象程序设计 VB开发工具
- 算法实例的程序实现
- 算法及算法的表示方法
- 多媒体理论
- 基础软件操作
- 算法软件操作
- 多媒体软件操作
- 网络技术应用
在我国古代《孙子算经》中曾经提出这样一个问题，原文是这样的：“今有物，不知其数，三三数之，剩二；五五数之，剩三；七七数之，剩二；问物几何？”试用枚举算法来解决这一个问题。现分析如下，所寻找之数为满足如下条件的自然数：以3除余2，以5除余3，以7除余2。程序将从自然数1开始依次寻找，逐一判断某一自然数是否满足全部条件，直至在指定范围内找到满足条件的所有自然数。程序代码如下，请补充完整。
Private Sub Command1_Click()
Dim sum As Integer 'sum 用来统计符合条件的自然数个数'
Dim n, max As Integer
List1.Clear
sum = 0
max = ____（1）____ '指定查找范围的最大自然数，Text1文本框中输入'
n = 0
Do While n <= max
n =" n" + 1 '从自然数1开始不断往上寻找'
If ________（2）_______Then
List1.AddItem Str(n) '找到后在List1中显示结果'
___________（3）_________
End If
Loop
List1.AddItem ("共计" + Str(sum) + "个")
End Sub
（1）__________________
（2）__________________
（3）__________________
Private Sub Command1_Click()
Dim sum As Integer 'sum 用来统计符合条件的自然数个数'
Dim n, max As Integer
List1.Clear
sum = 0
max = ____（1）____ '指定查找范围的最大自然数，Text1文本框中输入'
n = 0
Do While n <= max
n =" n" + 1 '从自然数1开始不断往上寻找'
If ________（2）_______Then
List1.AddItem Str(n) '找到后在List1中显示结果'
___________（3）_________
End If
Loop
List1.AddItem ("共计" + Str(sum) + "个")
End Sub
（1）__________________
（2）__________________
（3）__________________
下列程序的功能是从键盘上任意输入一个数，判断这个数是正数，负数，还是零，并输出判断结果。程序中加框处有错误，请改正。
Private sub Command1_Click()
Dim a As Single
Dim py As String
a=
（1）
If a>0 Then py =”正数”
If a="0" Then py=”零”
If a<0 Then py=”负数”
（2）
End Sub
（1）_____________________
（2）_____________________
Private sub Command1_Click()
Dim a As Single
Dim py As String
a=
（1）If a>0 Then py =”正数”
If a="0" Then py=”零”
If a<0 Then py=”负数”
（2）End Sub
（1）_____________________
（2）_____________________
三个正整数a、b、c满足等式a2+b2=c2，a、b、c称为“勾股数”，求出100以内所有“勾股数”可采用的算法是（ ）
| A．枚举算法 | B．解析算法 | C．冒泡排序 | D．顺序查找 |
某校5名学生会推荐成员网络人气得票数依次为1201，2120，1009，1987，2009，
若采用选择排序算法对其进行从大到小排序，则第二趟的排序结果是（ ）
若采用选择排序算法对其进行从大到小排序，则第二趟的排序结果是（ ）
| 原始数据 | 1201 | 2120 | 1009 | 1987 | 2009 |
| 第一趟 | 2120 | 1201 | 1009 | 1987 | 2009 |
| 第二趟 | | | | | |
| 第三趟 | 2120 | 2009 | 1987 | 1009 | 1201 |
| 第四趟 | 2120 | 2009 | 1987 | 1201 | 1009 |
| A．2120 2009 1009 1987 1201 |
| B．2120 2009 1009 1201 1987 |
| C．1009 1201 2120 1987 2009 |
| D．1009 1201 2009 2120 1987 |
某地区公共自行车收费信息如下：“60分钟内免费；60分钟以上至120分钟（含），收费1元；120分钟以上至180分钟（含），收费2元；租用超过180分钟（含）以上的时间，按每小时3元计费（不足一小时的按一小时计）”。现按要求编写VB程序，界面如1图所示，程序功能如下：在文本框Text1中输入租车时间，单击“计费”按钮Command1，在标签Label5中输出对应的租车费用。
(1)在应用程序界面设计时，为添加“计费”按钮，应使用2图所示的“控件工具箱”中的__________（请填写相应编号），并在3图所示的“属性窗口”中，将____________属性值设置为“计费”。
(2)请根据题意将下列程序补充完整。
Private Sub Command1_Click()
Dim zysj As Single, zyfy As Single ‘zysj:租用时间，zyfy:租用费用
zysj = Val(Text1.Text)
If zysj <=" 60" Then
zyfy = 0
ElseIf zysj <=" 120" Then
zyfy = 1
ElseIf zysj <=" 180" Then
_______
ElseIf zysj Mod 60 =" 0" Then
zyfy =" (zysj" - 180) / 60 * 3 + 3
Else
zyfy =" (Int((zysj" - 180) / 60) + 1) * 3 + 3
End If
Label5.Caption = Str(zyfy)
End Sub
(1)在应用程序界面设计时，为添加“计费”按钮，应使用2图所示的“控件工具箱”中的__________（请填写相应编号），并在3图所示的“属性窗口”中，将____________属性值设置为“计费”。
(2)请根据题意将下列程序补充完整。
Private Sub Command1_Click()
Dim zysj As Single, zyfy As Single ‘zysj:租用时间，zyfy:租用费用
zysj = Val(Text1.Text)
If zysj <=" 60" Then
zyfy = 0
ElseIf zysj <=" 120" Then
zyfy = 1
ElseIf zysj <=" 180" Then
_______
ElseIf zysj Mod 60 =" 0" Then
zyfy =" (zysj" - 180) / 60 * 3 + 3
Else
zyfy =" (Int((zysj" - 180) / 60) + 1) * 3 + 3
End If
Label5.Caption = Str(zyfy)
End Sub
某超市面食区共有5种面食品种，其价格依次为6.20、4.5、5.5、2、3，若采用冒泡排序算法对其进行从小到大排序，则第二趟的排序结果是（ ）
| A．2 5.5 3 6.2 4.5 |
| B．2 3 6.2 4.5 5.5 |
| C．2 4.5 6.2 3 5.5 |
| D．2 3 5.5 4.5 6.2 |
已知Asc(“A”)的值为65，下列Visual Basic表达式的值等于数值131的是（ ）
| A．ASC(“A+B”) |
| B．CHR(65)+CHR(66) |
| C．"13"+"1" |
| D．Abs(69-200) |