x = x * i Else x = x + i End If Next i
该程序段运行后，x的值是____________。
29．如下程序运行后输出的结果为： ___________________。 Private sub test36( ) Dim i as integer, j as integer Dim s as integer For i=1 to 20
For j=15 to 2 step -2 S=i*j Next j Next i Print s End sub
30．如下程序运行后，输出结果为_________。 Private sub test( )
Dim i as Integer
Dim Arr(1 to 10) as integer For i =1 to 10 Arr( i )= i * i Next i Print Arr( 8 ) End Sub
三、程序填空或改错（本大题共5题，每空2分，共26分）
31．有如下程序，缺少一变量定义语句，请补充完整：（注：输出的结果为 250000） Private Sub Test Dim a as Integer
‘定义变量sum Sum=0
For a =1 to 1000 step 2 Sum=Sum+a Next a Print Sum End Sub
32.一个酵母细胞每一分钟分裂为2个，在下一分钟，就有4个细胞，然后，8个、16个、??以此类推。一个酵母细胞，经过多少分钟后数目超过250个。解决此问题的部分程序如下： Dim n as long ,x as long
5
n = 1 : x = 2 Do while x <= 100 n = n + 1 x = x^2 Loop 问：
（1）为了实现这一目标，程序划线处的表达式应更正为____________。 （2）运行更正后的程序，在经过________________分钟后细胞数目超过250个。 33．如下是计算圆面积的VB界面和所有程序代码：
（1）由VB界面和程序代码可知，用于输入圆半径的文本框对象名为：________________。 （2）为实现圆面积的计算，用户除了点击计算按钮，还可以执行的操作有:______________。 34．把整数3025从中剪开分为30和25，将这两个数之和平方：（30+25）^2=3025，则其计算结果又等于原数。求所有符合 这样条件 的四位数，将下面程序中画线处填写完整。 （1）__________________________（2）__________________________ Private Sub Command1_Click()
Dim n as Integer, a as Integer, x as Integer Dim n1 as Integer, n2 as Integer List1.Clear For a=32 to 99 n=a*a
(1) n2=n mod 100 x=n1+n2
if (2) then List1.AddItem Str( n ) Next a End Sub
35．某地出租车计价方式如下：3公里内（包括3公里）起步价10元； 超过3公里，但10公里内，则3公里内收费10元，超出部分每公里2元；如果超过10公里，则10公里内收
6
费24元，超出部分每公里3元。其程序实现如下：
Private Sub Command1_Click( ) x=val( Text1.Text ) if x<=3 then y = 10
if (1) then y=10+(x-3)*2 if x>10 then y = (2) if x<=0 then y = 0 Label1.Caption = x Label2.Caption = y End Sub
请把上面程序补充完整：（1）_______________________（2）________________________ 36. 小明家的院子里有一棵桃子树，每到秋天树上都会结出很多桃子。今天小明共摘到了10个桃子，并称出了这十个桃子的重量，现在，他想找出第K重的桃子的重量。
程序运行时界面如第44题-1图所示，列表框list1中显示十个桃子的重量，Text1中输入K的值，
Text2中显示第K重的桃子的重量。
（1）设计第44题-1图所示应用程序界面时，应在第44题-2图所示的“属性窗口”中，将窗体Form1的__________________属性设置为“寻找第K重的桃子”；为添加列表框List1，应使用第44题-3图所示的“控件工具箱”中的______________（填写相应编号）。
第44题-1图
第44题-2图 第44题-3图
（2）“开始寻找”按钮单击事件处理过程的代码如下所示。为实现算法功能，请将下列程序补充完整。
7
（1）___________________ （2）___________________ Private Sub Command2_Click() k =val(text1.text) For i = 1 To 9
For j = 10 To i + 1 Step -1 If （1） Then t=d(j):d(j)=d(j-1):d(j-1)=t End If Next j Next i
Text2.Text = （2） End Sub
算法与程序设计模块
一、选择题 1 B 11 C 21 B 2 C 12 D 22 A 3 C 13 A 23 B 4 D 14 C 5 B 15 B 6 B 16 B 7 A 17 A 8 D 18 C 9 C 19 D 10 B 20 B 二、读程序
24．_____ Love1314___ ______ 25．________123456___________ 26．_____ _33________________ 27．________16________________ 28．_______47____________ ___ 29．________60_________________ 30．_______64_________________ 三、程序填空和改错
31． __ Dim sum as Long ______ 把sum写成s也给分 32．（1）_____ x = 2*x _________ （2）______8____________
33．（1）_____ TextR______________（2）_____按回车键______________ 34．（1）_____ n1=n\\100___________（2）_____n=x^2___或者n=x*x__________ 35．（1）____ x>3 and x<=10______ （2）_____24+(x-10)*3_____________ 36．（1）______ Caption __________ 、 _______8________________ （2）___ d(j)>d(j-1)__、 _ d(k)___ （降序） 或者 _ d(j) 8
