一、选择题 添加题型下试题

二、操作题 添加题型下试题

16-17高三·全国·单元测试

操作题 | 适中(0.65)

4. 学校为每位同学办理一张校园卡，该卡可供同学们在食堂用饭、图书馆借书、超市消费等，因此称为一卡通，一卡通的卡号是唯一的，卡内会记录每位同学的姓名、班级、金额等信息。下列程序的功能是根据卡号查找对应的姓名，程序中数组a保存卡号，数组b保存姓名，第i位同学的卡号是a(i)，姓名是b(i)。
程序界面如下图所示，左边列表框列出所有同学的卡号和姓名，在右边文本框Text1中输入卡号，单击“查询”按钮(Command1)，程序就按卡号进行查找，如果找到就在标签Label3中输出姓名，否则就输出“查无此人”。

解决此问题的算法流程图如下图所示，相应的程序如下，在程序(1)和(2)画线处，填入适当的语句或表达式，把程序补充完整。
Private Sub Command1_Click()
Dim x As String，i As Integer，s As String，f As Boolean
x＝Text1.text
i＝0；f＝False ’f标志是否已经找到，值为True时表示已经找到，值为False时表示没找到
Do While(i＜n) And((1)________) ’n是总人数
i＝i＋1
If x＝a(i) Then
f＝True
End If
Loop
If f＝True Then
(2)________
Else
s＝“查无此人！”
End If
Label3.Caption＝s
End Sub

(1)解决此问题所用的算法是________。(选填：顺序查找或对分查找)
(2)程序中画线处(1)应填入________。
(3)程序中画线处(2)应填入________。

2017-07-14更新 | 94次组卷 | 1卷引用：2017届信息技术必修3算法与程序设计 第2单元算法与程序实现复习题

相似题 纠错 收藏 详情 加入试卷

16-17高三·全国·单元测试

操作题 | 适中(0.65)

5. 小树要买一本书，收集了各个网上书店中该书的售价，她设计了一个VB排序程序，帮助她将售价由低到高排序。程序运行界面如图所示，左边列表框List1中显示排序前数据，单击“排序”按钮Command1，在右边列表框List2中显示按售价从低到高排序后的结果，在标签Label3中显示比较次数(此图中比较的次数用图像处理软件遮挡)。程序中数组a和数组b分别存储网上书店名称和对应的售价。

程序代码如下：
Const n As Integer ’n为比较次数
Dim a(1 To n)As String ’数组a用于存储网上书店名称
Dim b(1 To n) As Integer ’数组b用于存储售价
Private Sub Command1_Click()
Dim i As Integer，j As Integer，k As Integer，t As Single，s As String
Dim num As Integer
num＝0
For i＝1 To 4
k＝i
For j＝____①____ To 5
If b(k)＞b(j) Then k＝j
②____
Next j
If ____③____ Then
s＝a(i)：a(i)＝a(k)：a(k)＝s
t＝b(i)：b(i)＝b(k)：b(k)＝t
End If
Next i
For i＝1 To 5
List2.AddItem a(i)＋“       ”＋Str(b(i))
Next i
Label3.Caption＝“比较次数为：”＋Str(num)＋“次”
End Sub
Private Sub Form_Load()
’此过程用于对数组a和数组b进行赋初值，并显示在List1中，代码略
End Sub
(1)在程序①、②和③划线处填入适当的语句或表达式，将程序补充完整：
程序中①划线处应填入________________________________________。
程序中②划线处应填入________________________________________。
程序中③划线处应填入________________________________________。
(2)程序结果中被遮掉的比较次数是多少？ ______________________。

2017-07-14更新 | 72次组卷 | 1卷引用：2017届信息技术必修3算法与程序设计 第2单元算法与程序实现复习题

相似题 纠错 收藏 详情 加入试卷

三、选择题 添加题型下试题

四、操作题 添加题型下试题

16-17高三·全国·单元测试

操作题 | 适中(0.65)

10. 学校需要统计学生的作业完成数，需要将学生的完成数按从高到低显示，下列程序模拟该信息处理过程，程序在数据库stud中找到的学生信息(编号和完成次数)，并将所有学生按照完成数从高到低显示。先将所有学生的编号和完成次数从数据库stud的info表中ID和finshed两字段中取出分别保存在数组a和数组b中，第i个学生的编号保存在a(i)中，对应的作业完成次数保存在b(i)中。
数据库文件“stud.accdb”信息如图1所示。

图1
程序界面如图2所示，左边列表框List1中显示所有学生信息(包括编号和完成次数)，单击“排序”按钮(Command1)，所有编号按照作业完成次数从高到低显示在列表框List2中。

图2
代码如下：
Dim conn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim n As Integer
Dim a(500) As String
Dim b(500) As Integer
Private Sub Form_Load()
Dim i As Integer
conn.ConnectionString＝“Provider＝Microsoft.ACE.OLEDB.12.0；DATA Source＝”& App.Path & “/stud.accdb”
conn.Open
Set rs.ActiveConnection＝conn
rs.Open “SELECT*FROM info”
n＝0
Do While Not rs.EOF ’到记录集最后一条记录后退出循环
n＝n＋1
a(n)＝rs.fields(“id”)
b(n)＝rs.fields(“finshed”)
rs.MoveNext       ’移动到下一条记录
Loop
For i＝1 To n
List1.AddItem a(i)＋“”＋Str(b(i))
Next i
rs.Close
conn.Close
Set rs＝Nothing
Set conn＝Nothing
End Sub
Private Sub Command1_Click()
Dim i As Integer，j As Integer，t1 As Integer，t2 As String，k As Integer

For j＝i＋1 To n
If b(k)＜b(j) Then k＝j ’比较完成数
①____
If ____②____ Then
t1＝b(i)：b(i)＝b(k)：b(k)＝t1 ’交换完成次数
t2＝a(i)：a(i)＝a(k)：a(k)＝t2 ’交换编号
End If
Next i
For i＝1 To n ’在列表框List2中输出排序结果
List2.AddItem a(i)＋“       ”＋Str(b(i))
Next i
End Sub
(1)当“Form_Load()”事件处理过程运行结束时，变量n的值为：________。
(2)加虚线框中的代码采用的排序算法为： ______________________________。
(3)为实现上述功能，程序中划线处的代码为：
①________；②________。

2017-07-14更新 | 70次组卷 | 1卷引用：2017届信息技术必修3算法与程序设计 第2单元算法与程序实现复习题

相似题 纠错 收藏 详情 加入试卷

五、选择题 添加题型下试题

16-17高三·全国·单元测试

选择题 | 容易(0.94)

名校

12. 计算两个并联电阻总电阻的算法如下：
①输入两电阻R1，R2的值
②计算总电阻R=
③输出总电阻
上述算法属于（     ）

A．枚举算法

B．解析算法

C．排序算法

D．查找算法

2017-07-14更新 | 121次组卷 | 3卷引用：2017届信息技术必修3算法与程序设计 第2单元算法与程序实现复习题

相似题 纠错 收藏 详情 加入试卷

六、操作题 添加题型下试题

七、选择题 添加题型下试题

八、操作题 添加题型下试题

16-17高三·全国·单元测试

操作题 | 适中(0.65)

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)划线①处应填入的语句为________。
划线②处应填入的语句为________。

2017-07-14更新 | 130次组卷 | 1卷引用：2017届信息技术必修3算法与程序设计 第2单元算法与程序实现复习题

相似题 纠错 收藏 详情 加入试卷

九、选择题 添加题型下试题

十、操作题 添加题型下试题

16-17高三·全国·单元测试

操作题 | 适中(0.65)

19. 小敏的E­Mail邮箱密码忘记了，但她需要收一封很重要的来信，请你帮她尽可能找出密码。
她零星记得自己的密码信息：
①密码是六位数字，前面两位为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)程序中②画线处应填入________。

2017-07-14更新 | 118次组卷 | 1卷引用：2017届信息技术必修3算法与程序设计 第2单元算法与程序实现复习题

相似题 纠错 收藏 详情 加入试卷

十一、填空题 添加题型下试题

十二、选择题 添加题型下试题

十三、操作题 添加题型下试题

16-17高三·全国·单元测试

操作题 | 较难(0.4)

22. 某协会进行钓鱼比赛，最后有十人进入决赛，录入员编制了如下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)程序中①画线处应填入________。
程序中②画线处应填入________。

2017-07-14更新 | 115次组卷 | 1卷引用：2017届信息技术必修3算法与程序设计 第2单元算法与程序实现复习题

相似题 纠错 收藏 详情 加入试卷

十四、选择题 添加题型下试题

十五、操作题 添加题型下试题

16-17高三·全国·单元测试

操作题 | 适中(0.65)

24. 编写VB程序，实现如下功能：在文本框Text1中输入一个整数，单击“查找删除”按钮Command1，采用对分查找法在数组A(从小到大排列，并显示在标签Label1中)中查找该数。若找到，则从数组A中删除该数(该数后面的数组元素都前移一位)，并在标签Label2中显示删除后的结果(运行效果如图所示)；否则，在标签Label2中显示“该数没有找到”。

实现上述功能的VB代码如下，请在划线处填入适当的语句：
Dim A(1 To 10) As Integer ’用于保存10个按从小到大顺序排列的整数
’Form_Load事件过程产生10个整数，按升序保存在数组A中，并在标签Label1中显示Private Sub Form_Load()
’代码略
End Sub
Private Sub Command1_Click()
Dim i As Integer，j As Integer，m As Integer，k As Integer
Dim x As Integer，f As Boolean   ’变量f用于标记是否在数组中找到x
x＝Val(Text1.Text)
i＝1：j＝10
f＝False
Do While(i＜＝j)And (f＝False)
m＝Int((i＋j)/2)
If A(m)＝x Then f＝True
If （1）      Then i＝m＋1 Else j＝m－1
Loop
If f＝True Then
For k＝m To 9
       （2）      
Next k
Label2.Caption＝“”
For k＝1 To 9
Label2.Caption＝Label2.Caption＋Str(A(k))＋“”
Next k
Else
Label2.Caption＝“该数没有找到”
End If
End Sub

2017-07-14更新 | 87次组卷 | 1卷引用：2017届信息技术必修3算法与程序设计 第2单元算法与程序实现复习题

相似题 纠错 收藏 详情 加入试卷

16-17高三·全国·单元测试

操作题 | 适中(0.65)

26. n个数据的冒泡排序需要经过n－1遍加工，每一遍加工自下而上比较相邻两个数据，把较小者交换到上面。小刘发现：当某一遍加工过程中没有数据交换，说明数据已经有序，无需进一步加工。为此，小刘对算法进行优化，编写了一个VB程序，功能如下：运行程序时，在列表框List1中显示排序前数据，单击“排序”按钮Command1，在列表框List2中显示这些数据按升序排序后的结果，在标签Label3中显示排序过程的加工遍数。运行效果如图所示。

实现上述功能的VB代码如下，请在横线处填写正确的语句。
Dim a(1 To 8) As Integer
Dim n As Integer
Private Sub Form_Load()
’n＝8，排序前数据存储在数组a中，并在列表框List1中显示
’代码略
End Sub
Private Sub Command1_Click()
Dim flag As Boolean ’flag值为True表示一遍加工中发生过交换
i＝1
flag＝True
Do While      （1）        
flag＝False
For j＝n To i＋1 Step－1
If a(j)＜a(j－1) Then
k＝a(j)：a(j)＝a(j－1)：a(j－1)＝k
flag＝True
End If
Next j
i＝i＋1
Loop
Label3.Caption＝“排序过程的加工遍数为”＋ “      （2）        ”
For i＝1 To n
List2.Addltem Str(a(i))
Next i
End Sub

2017-07-14更新 | 81次组卷 | 1卷引用：2017届信息技术必修3算法与程序设计 第2单元算法与程序实现复习题

相似题 纠错 收藏 详情 加入试卷