当前位置:首页 >> 其它课程 >>

信息技术VB专题练习四——冒泡选择排序


VB 专题练习四
一、选择题

班级

姓名

1、在 VB 中,如果变量 p 用来存储某张试卷上的缺考填涂标记,则 p 应采用的最适合的数据类型是(



A.Integer B.Boolean C.Single D.String 2、在 VB 中,若 x=3.1415926,则表达式 fix(-1*Int(x*100+0.5)/100)的值是( ) A.-3 B.-4 C.-3.14 D.-3.142 3、VB 语句“Dim a(49) As String”定义的数组元素个数以及第 8 个数组元素分别为( ) A. 49,a(7) B.50,a(7) C. 49,a(8) D.50,a(8) 4、下列 VB 表达式的值等于 13 的是( ) A. Val("11") + 2 B. Str(11) + "2" C. Sqr(11) + 2 D. Len("11") + 2 sinx 5、将数学表达式 -2|5-3|(x 的单位为弧度)写成 VB 表达式,正确的是( ) 2a A.Sinx/2a-2sqr(5-3) B.Sin(x)/2*a-2*abs(2) C.Sinx /(2*a) -2*sqr(5-3) D.Sin(x) / (2*a) -2*abs(2) 6、下列关于排序的算法,不正确的是( ) A.对 N 个数组元素进行排序,冒泡排序和选择排序排序的遍数一样 B.对 N 个数组元素进行排序,冒泡排序和选择排序比较的次数一样 C.对 N 个数组元素进行排序,冒泡排序和选择排序在排序过程中交换次数一样 D.一般情况下,选择排序比冒泡排序效率更高 7、 用选择排序算法对一组学生的身高数据进行升序排序, 已知第一遍排序结束后的数据序列为 165, 168, 178, 175, 171,则下列选项中可能是原始数据序列的是( ) A、175,178,168,165,171 B、178,168,165,175,171 C、165,178,168,175,171 D、165,168,171,175,178 8、在 NBA 某赛季中,快船队 5 场比赛得分依次为 97 89 111 70 90,若采用冒泡排序算法对其进行从小到大排 序,在整个排序过程中,数据 97 被交换的次数是( ) A.1 次 B.2 次 C.3 次 D.4 次 9、有如下 Visual Basic 程序段: k = 2 For j = 3 To 100 If a(j) < a(k) Then k = j Next j x = a(k) 该程序段执行后,变量 x 中存储的是( ) A、a(1)至 a(100)中的最小值 B、a(1)至 a(100)中的最大值 C、a(2)至 a(100)中的最小值 D、a(2)至 a(100)中的最大值 10、对存储在 stu ( 0 to n )中的 n+1 个元素用选择排序算法进行排序,元素交换次数的范围和元素比较次数的 值分别为( ) A、[0,n], (n-1)*n/2 B、[1,n-1], (n-1)*n/2 C、[0,n], (n+1)*n/2 D、[1,n-1], (n+1)*n/2 11、以下是选择排序的主要部分,其中线框内代码用于寻找 d(a)到 d(n)的最小值的下标(即通常所说的位置)。 For a=1 to n-1 K=a For b=a+1 to n If d(b)<d(k) then Next b If d(b)<d(k) then k=b
1

k=b

Next a 框内代码运行结束时,保存最小值的数组元素一定是 ( ) A、d(n) B、d(b) C、d(a) D、d(k) 以下程序段是选择排序的核心代码,阅读并完成以下 12-14 题: #1 for i=1 to n-1 #2 K=i : j=i+1 #3 Do while j<=n #4 If d(j)<d(k) then k=j #5 Loop #6 Next i 12、这段程序使用了两层循环(即双循环) ,循环次数总共( ) A、无限次 B、n*(n-1)/2 次 C、n 次 D、0 次 13、代码中缺少一个语句,造成程序错误,应补充在 ( ) A、#2 后面 B、#3 后面 C、#4 后面 D、#5 后面 14、缺少的语句是 ( ) A、while j<=n B、j=j+1 C、end if D、i=i+1 15、有如下程序段: For i=7 to 5 step -1 For j=7 to 9-i 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 Next i 数组元素 a(1)到 a(7)的数据依次为 3 9 1 5 8 6 2 经过该程序段加工后,a(1)到 a(3)排列为( A.1 2 3 B. 9 8 6 C. 3 9 1 D. 8 6 5 16、有一组数据 23、12、56、34、10 分别存放在数组 a(1)——a(5)中,以下程序执行后,i 的值是( Dim a(1 To 5) As Integer Dim f As Boolean a(1) = 23: a(2) = 12: a(3) = 56: a(4) = 34: a(5) = 10 i = 1: f = True Do While i <= 5 And f = True If a(i) = 56 Then f = False i = i + 1 Loop Label1.Caption = i A.6 B.3 C.4 D.5 17、 某 Visual Basic 程序如下: Private Sub Command1_Click() Dim a(-1 To 8) As Integer Dim i As Integer For i = -1 To 8 a(i) = i * i Next i List1.AddItem Str (a(i)) End Sub 运行程序,单击命令按钮 Command1 后,出现的错误提示为( ) A.下标越界 B.子程序或函数未定义
2

) )

C. 溢出 D.类型不匹 18、下列 VB 程序段 Dim x As Single, y As Single x = Val(Text1.Text) If x > 10 Then y = x * x ElseIf x > 0 Then y = 10 * x Else y = 0 End If Text2.Text = Str(y) 小言要测试所有分支程序代码是否正确,以下测试数据中,最恰当的一组是( ) A.0,10 B.11,2,-1 C.-2,2,5 D.12,100,-1 二、填空题 1、有如下 VB 程序段,已知数组 a(0 to 9) 中有 10 个元素,保存的数据依次分别为:80、7、56、21、18、64、 72、49、3、22,则程序运行后变量 m 的值为○ 1 i 的值为○ 2 。

m=0 i=9 Do while i>=1 if m<a(i) then m=a(i) i=i-1 Loop 2、已知数组 a(2 to 11) 中保存的数据依次分别为:80、7、56、21、18、64、72、49、38、22,则程序运行后变 量 m 的值为○ 1 j 的值为○ 2 text1.text 中显示的内容为○ 3 。

m=80 For j=2 to 9 step 1 If m<=a(j+1) then m=a(j+1) Next j Text1.text=str(a(j+1)) 3、一个程序功能如下:单击开始按钮,每隔 1 秒产生一个[1,100]的随机数,赋给变量 n,对产生的随机数进行判 断,如果是偶数就显示在列表框 1 中,如果是奇数显示在列表框 2 中。当随机数达到 20 个时,停止。Timer 控件的 Enabled 属性设置为 False,即程序刚运行时不起作用。程序代码如下: Dim m As Integer 'm 为模块级变量,用于记录随机数个数 Private Sub Command1_Click( ) Randomize:Timer1.Enabled = True End Sub Private Sub Timer1_Timer( ) Dim n As Integer 1 ○ If ○ 2 List1.AddItem n Else
3

Then

List2.AddItem n End If m = m + 1 If m = 20 Then ○ 3

End Sub 4、角谷猜想。对任意一个大于 1 的正整数 n,进行如下运算:若 n 是奇数时,n 的值替换为 3n+1,若 n 是偶数时, n 的值替换为 n/2;重复以上运算,n 最终变为 1。验证角古猜想的程序界面如图所示,将程序空白处补充完整。 Private Sub Command1_Click() Dim n As Single, i As Integer n = Val(Text1.Text) List1.Clear '清除列表框 List1 中的内容 If Int(n) <> n Or n <= 1 Then List1.AddItem "请输入大于 1 的正整数!" Else i = 0 Do While ○ 1 If n Mod 2 = 0 Then n = ○ 2 Else n = n * 3 + 1 End If i = i + 1 List1.AddItem 3 ○

Loop End If End Sub 3、在方框处填写以下功能的完整程序:点击名为 com 的按钮,实现以下功能,程序随机产生 20 个 100-200 之间的 偶数,并将该 20 个偶数一一显示在列表框 1 中,找出 20 个数中最大和最小的偶数并计算剩余 18 个数的平均数, 并以“随机数去掉最高和最低最后的平均数为: ”** 格式显示。(可以尝试多种写法)

4

5


相关文章:
信息技术VB专题练习二(一轮复习)
VB 专题练习二班级 姓名 一、选择题 1、为了搜索出 1000 以内所有的素数,我们可以采用的算法是( ) A、枚举算法 B、选择排序 C、解析算法 D、冒泡排序 2、...
浙江省高中信息技术选考加试题VB专项练习题五及答案
浙江省高中信息技术选考加试题 VB 专项练习题五 一、选择题:本大题 13 小题...②选择排序是对冒泡排序的改进; ③枚举算法是顺序查找,穷举算法是二分查找; ④...
VB选考代码复习
1 壶镇中学信息技术 VB 考复习 1.典型冒泡排序代码 Private Sub Command2_Click() '冒泡排序按钮 List2.Clear For i = 1 To num - 1 '冒泡排序递增 ...
浙江高中信息技术选考复习排序专题
浙江高中信息技术选考复习排序专题_其它课程_高中教育...、a(5)的值分别是 68,10,98,24,35,采用冒泡...为此,小刘对算法进行优化,编写了一个 VB 程序, ...
高中信息技术VB试题及答案
高中信息技术VB试题及答案_其它课程_高中教育_教育...继承性 A .4 A.6.5 A .9 A.LABEL B.多态...冒泡排序法 D.算法包括数据结构 D.Dim a Integer ...
冒泡法排序教学设计_图文
选择排序 冒泡速度最慢, 但可 插入排序 以原地进行...激发学生进 8 一步学习算法和 VB 程序的热情 假如...4、运行程序验证结 果 练习 讨论并完成: 提高任 ...
VB编程冒泡排序法
VB 编程冒泡排序法(Vb 企业版) 随机产生 50—100 之间的 10 个数,按从小到...VB编程选择排序法 1页 免费 冒泡排序课堂练习题 4页 免费 高一数学必修四期...
VB NET实现选择排序与冒泡排序
VB NET实现选择排序冒泡排序_计算机软件及应用_IT...Button4.Text = "重?新?开a始? ?" Button5....专题推荐 2014教师资格材料分析辅... 2014小学教师...
信息技术vb1
信息技术必修3 信息技术vb3 信息技术vb4 信息技术必修...A、窗体 B、复选框 C、列表框 D、图片框 填空...假如采用冒泡排序算法对其进 行从小到大排序,如下图...
高中信息技术vb练习1
(C)排序算法 4.某算法的部分程序代码与其相对应的流程图分别表示如下: 程序...高中信息技术 程序设计V... 2页 1下载券 高中信息技术选VB专题... 暂无...
更多相关标签: