2010学年高一信息技术第二学期期中检测（2011年4月）

用计算机无法解决"打印所有素数"的问题，其原因是解决该问题的算法违背了算法特征中的

在Visual Basic中，Hello.vbp文件属于

在Visual Basic中，语句Year.Caption = "2010" 中的"Year"是

“和谐号”列车规定：旅客可免费携带20Kg行李，携带品的长、宽、高相加不超过130cm，对超过规定的携带品，应提前办理托运手续。用算法描述行李能否托运的处理过程，合适的算法流程是

下列属于Visual Basic数值常量的是

在Visual Basic中，如果要给变量i,j,k都赋值为1，则下列语句正确的是

在Visual Basic中，窗体中添加文本框Text1的正确方法是

在Visual Basic中，要定义一个一维数组name，用于存储10位学生姓名信息，则正确的数组定义语句是

在Visual Basic中，表达式 Abs(-3.5)的值是

为找自己第一次上幼儿园时的照片，小张同学依次翻开自己的多本相册来逐张查找。这种查找方法为

在Visual Basic中，要在标签Label2上显示“注意”，则下列操作正确的是

在Visual Basic中，若x表示能被5整除的正整数，则下列逻辑表达式的值一定为真的是

在校内跳蚤市场中，某班准备的5类商品售出的数量(单位：件)分别是8，10，4，6，3。采用冒泡排序对其进行排序，若完成第一遍时的结果是：3，8，10，4，6，则完成第二遍时的结果是

"计算计件工资"的Visual Basic程序运行界面如图所示，单击"计算"命令按钮Command1，触发的事件处理过程名是
　　

报名参加冬季越野赛跑的某班5位学生的学号是：5，8，11，33，45。利用对分查找，查找学号为33号学生的过程中，依次被访问到的学号是

在Visual Basic中，a = -100，表达式"360" + Str(a)的值是

有如下Visual Basic程序段：
For j=1 To ______ Step 2
t=t*j
Next j
要使循环体t=t*j执行5次，循环变量的终值可以是

卫星沿某星球圆轨道运行，轨道半径是r千米，周期是t秒，根据这些数据估算该星球的质量m的步骤有：
①输出星球质量m
②pi=3.14159
③计算星球质量m=4*pi^2*r^3/(g*t^2)
④输入轨道半径r和周期t
⑤g=6.67*10^-11
其正确的顺序是

下列Visual Basic表达式正确的是

下面流程图所表示的是"根据居民月用电量a，按阶梯递增电价计算相应电费y"的算法，该算法属于
　　

下面程序段是利用For语句给数组a赋值：
For i= 1 To 6
a(i)=i+1
Next i
该程序段运行后数组元素a(3)的值为

运行如下Visual Basic程序，单击命令按钮Command1，出现如图所示的出错信息。发生"除数为零"错误时所执行的语句是
Private Sub Command1_Click()
Dim a As Integer, b As Integer, c As Single
a = 2                                      '①
b = a + 1                                  '②
c = a / (b - 3)                            '③
Text1.Text = Str(c)                        '④
End Sub
　　

在Visual Basic中，若a=1，b=2，c=5，则下列逻辑表达式值为真的是

某校有5位学生参加学生会主席竞选，得票数依次为110，98，3，150，67。使用选择排序的方法对得票数进行从大到小排序，需要进行数据互换的次数是

在Visual Basic中，设x=4126，能得到其百位上数字“1”的正确表达式是

以下程序段是一个完整的Visual Basic块If语句，则划线处的语句应该是
If a>100 Then
a=a+1
Else
a=a-1
________

下面程序段是利用For语句给数组a赋值，使a(1)=2，a(2)=4，a(3)=6，…，a(100)=200，则划线处的语句应该是
For i= 1 To 100
_____________
Next i

计算某球队平均年龄的部分算法流程图如图所示，其中：c用来记录已输入球员的人数，sum用来计算有效数据之和，d用来存储从键盘输入的球员年龄值，输入0时表示输入结束。
图中空白处理框①和②处应填入的是
　　

在Visual Basic中，有如下程序：
Private Sub Command1_Click()
Dim a As Integer, b As Integer, c As Integer
Dim d As Integer
a = Val(Text1.Text): b = Val(Text2.Text): c = Val(Text3.Text)
d = max(a, b) + max(b, c)
Text4.Text = Str(d)
End Sub
Function max(x As Integer, y As Integer) As Integer
If x > y Then max = x Else max = y
End Function
运行该程序，在文本框Text1、文本框Text2、文本框Text3中分别输入2、-5、6后，单击命令按钮Command1，文本框Text4中显示的是

有如下Visual Basic程序段：
s="good"
s=s+"luck"
该程序段运行后，变量s的值是＿＿。

有如下Visual Basic程序段：
m = -5
n = -2.6
s = m + Int(n)
该程序段运行后，变量s的值为＿＿。

有如下Visual Basic程序段：
Dim x As Single, c As String
x=Val(Text1.Text)
If x>12 Then
c= "PM"
Else
c= "AM"
End If
Label1.Caption=c
该程序段运行时，在文本框Text1中输入15.6，Label1标签上将显示的是＿＿。

有如下Visual Basic程序段：
a = 30 : b = 20 : c = 5
m=a
If b < m Then m = b
If c < m Then m = c
该程序段运行后，变量m的值为＿＿。

有如下Visual Basic程序段：
s = 0
i = 3
Do While s <= 10
s = s + i
i = i + 3
Loop
该程序段运行后，变量s的值为_＿＿。

有如下Visual Basic程序段：
k = 0
For i = 1 To 10
If i Mod 3 = 0 Then k = k + 1
Next i
该程序段运行后，变量k的值为＿＿。

下列Visual Basic程序的功能是：计算表达式12+42+72+…+972的值，并在文本框Text1中输出表达式的值。为了实现这一目标，程序中For语句划线处的循环变量步长应为＿＿。
Private Sub Command1_Click()
Dim sum As Long
Dim i As Integer
sum = 0
For i =1 To 97 Step
sum = sum + i*i
Next i
Text1.Text = Str(sum)
End Sub

有如下Visual Basic程序段：
s = 0:t=1
For i = 1 To 4
t=-t
s=s+t*i
Next i
该程序段运行后，变量s的值为＿＿。

以下Visual Basic程序的功能是： 计算表达式1+2+4+8+16+32+…+1024的值，并在文本框Text1中输出结果。为了实现这一功能，程序中划线处的语句应更正为＿＿。
Private Sub Command1_Click()
Dim a As Integer, s As Long
s = 0
a = 1
Do While a <= 1024
s = s + a
a = a + 2
Loop
Text1.Text=Str(s)
End Sub

以下Visual Basic程序的功能是：找出自然数1-100之间被3整除的数，并在文本框Text1中输出这些数的累加和。为了实现这一功能，程序中划线处的语句应更正为＿＿。
Private Sub Command1_Click()
Dim i As Integer, sum As Integer
sum = 0
For i = 1 to 100
If  i Mod 3=0  Then sum = sum + 3
Next i
Text1.Text=Str(sum)
End Sub

有一道趣味题，张老师问李老师:"你今年几岁？你爱人今年几岁？"李老师笑笑说："我年龄的平方与我爱人年龄之和恰好等于1053。而我爱人年龄的平方与我的年龄之和却等于873。你计算一下吧！"
设李老师年龄为x岁，他爱人年龄为y岁，由题意可得x，y满足的数学式为：
x2 + y = 1053
x + y2  = 873
解决此问题的流程图如VB-1所示。根据流程图VB-1编写的Visual Basic程序如下，在(1)和(2)划线处，填入合适的语句或表达式，把程序补充完整。
　　
Private Sub Command1_Click()
Dim x As Integer, y As Long
x = 1
y = 1053 - x * x
Do While        （1）
（2）
y = 1053 - x * x
Loop
Text1.Text = Str(x)
Text2.Text = Str(y)
End Sub
程序中划线处(1)应填入＿＿。
程序中划线处(2)应填入＿＿。

某超市打折促销，规定如下：
①购物未超过500元按原价支付；
②购物超过500元但未超过1000元，超过500元部分按9折优惠计价；
③购物超过1000元但未超过1500元，超过1000元部分按8折优惠计价；
④购物超过1500元但未超过3000元，超过1500元部分按7折优惠计价；
⑤购物超过3000元，超过3000元部分按6折优惠计价。
根据以上规定，假定购物货款为x元，则实付金额y为:
程序界面如图所示，在"输入购物金额（单位：元）"后的文本框orgtext中输入购物金额（单位：元），单击"实付金额计算"按钮（Command1）后，在"实际支付金额（单位：元）为"后的文本框cashText中输出实付金额。
　　
解决此问题相应的Visual Basic程序如下：
Private Sub Command1_Click()
Dim x As Single, y As Single
x = Val(orgtext.Text)
If x <= 500 Then
y = x
ElseIf      ①      Then
y = 500 + (x - 500) * 0.9
ElseIf x <= 1500 Then
y = 500 + 500 * 0.9 + (x - 1000) * 0.8
ElseIf x <= 3000 Then
y = 500 + 500 * 0.9 + 500 * 0.8 + (x - 1500) * 0.7
Else
y = 500 + 500 * 0.9 + 500 * 0.8 + 1500 * 0.7 + (x - 3000) * 0.6
End If
②
End Sub
（1）解决此问题的算法是＿＿。  （选填：解析法 或 枚举法）
在程序①和②划线处，填入适当的语句或表达式，把程序补充完整。
（2）程序中①划线处应填入＿＿。
（3）程序中②划线处应填入＿＿。