38、VB数组A中存放了某校学生的身高数据（单位：厘米），数据存放情况如下表：
若要查找数组中是否存在数据174，以下表述正确的是（ ） A、 本组数据如采用对分查找算法，只需比较4次即能得到结果 B、 本组数据采用对分查找算法的查找效率不比顺序查找算法高 C、 由于数组中不存在174，所以只能进行顺序查找
D、 本组数据由于存在相同数据176，所以不能采用对分查找算法
39、在某篮球赛季中，明星队6场比赛得分依次为103，77，95，71，68，89，若采用冒泡排序算法对其进行排序，第一轮排序结果是68，103，77，95，71,89。则第三轮排序中共进行了 次数据交换。
40、以下程序需要完成的功能是：\\n输入若干个整数，分别统计奇数和偶数的个数。直至输入0结束统计。
m=0 :n=0
x=val(inputbox(\
do while x<>0 if then
m = m + 1 else end if
x=val(inputbox(\ loop
print \奇数个数为\；m，\偶数个数为\；
在以下提供的语句中选取正确的选项给以上2个空缺部分填空，实现程序的功能。 (A) x mod 2=0 (B) x mod 2=1 (C) m = m + 1 (D) n = n + x
(E) n = n + 1 位置（1）选取的是 ，位置（2）选取的是。
41、程序改错题（3分）
某中小型城市目前的工业年产值为5亿元，假设该城市的工业产值年增长率为c%，请编程计算需经过多少年后工业产值可以达到20亿元。 如年增长率为7.5%，输入：7.5，则输出：需经20年，工业产值可以翻两番! 点击进入VB环境，将仅有的一处错误语句的编号填到试卷指定位置并填写输出结果。 注意：把修改后的程序以原文件名保存在默认位置，否则不得分。 （1）程序中仅有的一个错误语句编号是 。
（2）程序运行正确后，若输入2.2（即增长率为2.2%），需经 s年，工业产值可以翻两番!
Private Sub Command1_Click()
Dim c As Single, s As Single, n As Integer c = Val(InputBox(\请输入增长率c\
'上面是定义变量和输入的正确代码，不必作修改
'请修改以下代码中仅存在的一处错误，并将错误语句的编号填到试卷指定位置
s = 5 '(1) n = 0 '(2) Do While s < 20 '(3) n = n + 1 '(4) s = s * c ^ n '(5) Loop '(6)
'下面是输出语句的正确代码，不必作修改 Print \需经\年，工业产值可以翻两番!\
'程序调试正确后按试题要求输入相应的数据，并将运行结果填写到试卷指定位置
'最后请将调试正确的本工程文件保存在原来位置
End Sub
42、完善程序题（4分）
本程序要求完成的功能是： 求S?11111??????? 678930点击进入VB环境，在代码界面内的指定位置填写空缺部分的代码（只能将规定部分替换为补充代码，不能修改其它代码），并将补充代码和程序的运行结果填写到试卷指定位置。
注意：请在默认位置以原文件名保存修改后的程序，否则不得分。 本题补充代码：for i=____________。（2分）
程序的运行结果是：s =__________。（2分）
Private Sub Command1_Click() Dim i As Integer, s As Single s = 0
For i = __________ '下划线部分为补充代码位置 s = s + 1 / i Next
Print \End Sub
43、编写程序题（5分）
该程序要实现的功能是：
计算如图所示的圆柱体的表面积。
（π取3.14159，结果要求四舍五入保留三位小数）
圆柱体的高为h，半径为r，均由输入决定。 点击进入VB环境，在代码界面内编写程序，并填写运行结果。 注意：请在默认位置以原文件名保存，否则不得分。
（2）请输入h、r的值88，66；运行结果是___________。 （3分） Private Sub Command1_Click()
End Sub
