2011年会考程序填空题解答

2011年会考程序填空题选

一、为了找出QQ在线时间最长的5名学生，李风设计了一个排序程序。程序运行界面如图所示，左边列表框List1中显示排序前数据，单击"排序"按钮Command1，在右边列表框List2中显示在线时间从高到低排名前5名的数据。程序中数组a和数组b分别存储学生的QQ昵称和对应的QQ在线时间。

程序代码如下：

Const n As Integer=14'n为学生数

Dim a(1To n)As String'数组a用于存储学生的QQ昵称

Dim b(1To n)As Integer'数组b用于存储学生的QQ在线时间

Private Sub Command1_Click()

Dim i As Integer,j As Integer,t As String,p As Integer

For i=1To n-1

For j=n To i+1Step-1

If①b(j)>b(j-1)Then

t=a(j-1):a(j-1)=a(j):a(j)=t

p=b(j-1):b(j-1)=b(j):b(j)=p

End If

Next j

Next i

For i=1To5

List2.AddItem SpaceEx(a(i))+Str(b(i))+"分钟"

Next i

End Sub

'以下函数用于在字符串后补插空格

Function SpaceEx(s As String)As String

Dim t As String,d As Integer,i As Integer

t=s:d=Len(s)

For i=1To5-d

t=t+""

Next i

SpaceEx=t②

End Function

Private Sub Form_Load()

'此过程用于对数组a和数组b进行赋值，并显示在List1中，代码略

End Sub

（1）解决此问题采用的算法是。（填：选择排序/冒泡排序）在程序①和②划线处填入适当的语句或表达式，将程序补充完整：

（2）程序中①划线处应填入___b(j)>b(j-1)__。

（3）程序中②划线处应填入______t________。

二、小黄编制了一个Visual Basic程序，能根据输入的城市名查找并显示该城市的日照时间。程序运行界面如图所示，左边列表框List1中显示各城市的日照时间和相应的城市名，在文本框Text1中输入查找的城市名，单击"查找"按钮Command1，若找到，则在文本框Text2中显示该城市的日照时间。程序中数组a和数组b分别存储城市名和对应的日照时间。

程序代码如下：

Const n As Integer=10'n为城市数

Dim a(1To n)As String'数组a存储城市名

Dim b(1To n)As Single'数组b存储日照时间

Private Sub Command1_Click()

Dim i As Integer,s As String's用于存储输入的城市名称

Dim f As Boolean'f用于表示是否找到，当f=True时，表示未找到

s=Text1.Text

f=True

i=1

Do While i<=n And f

If①s=a(i)Then

Text2.Text=Str(b(i))

f=False

End If

②i=i+1

Loop

If f Then

Text2.Text="没有该城市数据"

End If

End Sub

Private Sub Form_Load()

'此过程用于对数组a和数组b进行赋值，并显示在List1中，代码略

End Sub

（1）解决此问题的算法是。（填：顺序查找/对分查找）在程序①和②划线处，填入适当的语句或表达式，把程序补充完整：

（2）程序中①划线处应填入______s=a(i)_____________。

（3）程序中②划线处应填入_____i=i+1______________。

三、张松编写了一个用求π近似值的Visual Basic程

序。主要算法：将问题转化为求,其中(n为大于1的整数)。程序运行界面如图所示，在文本框Text1中输入计算项数n（计算到第n 项），单击"计算"按钮Command1，在文本框Text2中输出π值。

程序代码如下：

Private Sub Command1_Click()

Dim n As Integer,i As Integer,j As Double,s As Double

n=Val(Text1.Text)

j=1

s=1

For i=2To n

j=j*((i-1)/(2*i-1))

s=s+j①

Next i

Text2.Text=2*s②

End Sub

（1）解决此问题采用的算法是。（填：解析算法/递归算法）在程序①和②划线处填入适当的语句或表达式，将程序补充完整：

（2）程序中①划线处应填入____s+j_______________。

（3）程序中②划线处应填入_____2*s______________。

四、张强喜欢研究汽车，他编写了一个模拟选汽车牌照号码的Visual Basic程序。程序运行界面如图所示，单击"开始"按钮Command1后，随机产生6个汽车牌照号码，并按序显示在列表框List1中，单击其中的一个号码后，该号码显示在文本框Text1中。每个号码的后5位是从0-9、A-Z的36个字符中随机产生。

程序代码如下：

Private Sub Command1_Click()

Dim p(1To6)As String'数组p用于存储6个车牌号码

Dim i As Integer,j As Integer,t As Integer

Dim c As String,s As String

Randomize'初始化随机数种子

List1.Clear'清除列表框List1中的内容

'随机产生6个5位号码

For i=1To6

s=""

For j=1To5

t=Int(Rnd()*36)'产生一个0到35的随机整数

If t<=9Then

c=Chr(t+48)'将t转换为相应的字符后赋值给c

Else

c=Chr(t-10+65)'将t转换为对应的英文大写字母后赋值给c

End If

s=①s+c

Next j

p(i)=s

Next i

'对数组中的5位车牌号码按字符串先后顺序进行排序

For i=1To5

For j=1To6-i

If p(j)>p(j+1)Then

s=p(j+1):p(j+1)=p(j):p(j)=s

End If

Next j

Next i

'在6个随机号码前添加"浙A"

For i=1To6

p(i)="浙A"+p(i)

List1.AddItem②p(i)

Next i

End Sub

'将选中的号码显示在文本框中

Private Sub List1_Click()

Text1.Text=List1.List(List1.ListIndex)

End Sub

（1）对候选字符串进行排序时主要采用的算法是_____________。（填：冒泡排序/选择排序）

在程序①和②划线处，填入适当的语句或表达式，把程序补充完整：

（2）程序中①划线处应填入_____s+c_____。

（3）程序中②划线处应填入_____p(i)_________。

五、李强设计了一个求一元三次方程x3+2x2-5x+2=0的近似实数根的Visual Basic程序。单击"求解"按钮Command1，程序在[-4，4]范围内求解，并将所有实数根显示在列表框List1中。程序运行界面如图所示：

李强的方法是：设f(x)=x3+2x2-5x+2，从-4开始到4为止，每隔一个求解精度e取一个x值，并求出f(x)和f(x+e)的值。若f(x)×f(x+e)≤0，则表示x和x+e的中点就是方程的一个近似解。

程序代码如下：

Private Sub Command1_Click()

Const e As Double=0.00001'e为求解精度

Dim s(1To3)As String

Dim x As Double

Dim m As Double,k As Integer'm为实数解

s(1)="x1":s(2)="x2":s(3)="x3"

k=0

For x=-4To4-e Step e

If①f(x)*f(x+e)<=0Or f(x+e)=0Then

k=k+1

If f(x+e)=0Then m=x+e Else m=x+e/2

m=Fix(m*10000+0.5)/10000'保留四位小数

List1.AddItem s(k)+"="+str(m)②

End If

Next x

End Sub

'以下的自定义函数，用于求f(x)的值

Private Function f(x As Double)As Double

f=x*x*x+2*x*x-5*x+2

End Function

（1）解决此问题主要采用的算法是_____________。（选填：递归算法/枚举算法）在程序①和②划线处，填入适当的语句或表达式，把程序补充完整：

（2）程序中①划线处应填入___f(x)*f(x+e)<=0_。

（3）程序中②划线处应填入____str(m)_______。