浙江省嘉兴市高三2月一模测试（二）信息技术试卷

已知三角形三条边的长度分别为a、b、c，用海伦公式计算此三角形的面积s的算法如下：
①电脑屏幕显示：“请输入三边长度（a,b,c）：”
②计算P，P为三角形周长的一半，即P=(a+b+c)/2
③输入变量a、b、c的值
④输出三角形的面积S
⑤计算面积S，S=
计算三角形面积S，正确的次序是（   ）

下列叙述正确的是（   ）

已知n的值，求1至n的所有的偶数之和s，下列算法的功能是计算s值：
① 输入变量n的值，将变量s赋初值0，将变量i赋初值1
② 如果i的值大于n则转⑤否则转③
③ 如果i是偶数，则将s的值加上i的值，结果存放在s中
④ 将i的值增加1并转②
⑤ 输出s的值
上述算法描述中包含的控制结构有（   ）

在VB中，要将“Welcome”这个单词显示在标签Label1上，下列语句正确的是（   ）

在VB中，定义数组d，用于存储10个学生的年龄，数组定义为dim d(1 to 10) as integer，下列有关数组d的说法正确的是（   ）

数学表达式“a>b>c”对应的VB表达式是（   ）

VB提供了大量的标准函数，可供用户编写程序时直接使用，如数学函数Exp(X)表示（   ）

已知a=3.69，b= -6，则VB表达式int(-a)+b mod 5的值为（   ）

VB的字符串函数Len(X)的功能是计算字符串的长度，len("1234abc")的值为（   ）

执行以下VB程序段后, 变量s的值为（   ）
s=0
a=10
b=a-3*s
a=2*a-b
s=a-b

下面的程序代码是通过函数求出二个整数型变量a、b中的较大值，其中所定义的函数名是（   ）
Function max(a, b As Integer) As Integer
If a > b Then max = a  Else  max = b
End Function
Private Sub Command1_Click()
Dim a As Integer, b As Integer, s as integer
a =" Val(Text1.Text):" b = Val(Text2.Text)
s =" max(a," b)
Text3.Text = s
End Sub

小明买了6个西瓜，这6个西瓜的质量（单位：kg）分别为8.1、3.4、9.5、2.2、1.2、5.6，若采用冒泡排序算法对其进行从小到大排序，则需要进行数据互换的次数是（   ）

某数组有8个元素，依次为500、419、352、350、300、200、180、100，若采用顺序查找法在该数组中查找数据300，需要查找的次数是（   ）

下列VB程序运行时，在文本框Text1中输入数据-25，在文本框Text2中输入数据-100，单击命令按钮Command1后，文本框Text3中显示的内容是______。
Private Sub Command1_Click( )
Dim a As Integer, b As integer, c as integer
a = Val(Text1.Text)
b = Val(Text2.Text)
If a>b and a>0 Then c="sqr(a)" else c=sqr(abs(b))
Text3.Text = str(c)
End Sub

下列VB程序运行时，单击命令按钮Command1后，文本框Text1中显示的内容是______，文本框Text2中显示的内容是______。
Private Sub Command1_Click( )
Dim a(1 To 5) As Integer, i As Integer, s As Integer
a(1)=5
a(2)=10
For i =" 3" To 5
a(i) = a(i-1)-a(i-2)
Next i
Text1.Text = Str(a(5))
s = 0
For i =" 1" To 5
If a(i)>0 then s =" s" + 1
Next i
Text2.Text = Str(s)
End Sub

输入一个三位数的整数，要求将此三位数的各位上的数字重新排列，组成一个尽可能大的三位数。例如：输入213，重新排列可得到尽可能大的三位数是321。
现要求编写VB程序（运行界面如图所示），实现如下功能：在文本框Text1中输入一个三位数整数，单击“求解”按钮Command1，在文本框Text2中显示重新组合后的最大三位数整数。某同学按此要求编写的程序如下，其中函数max(x)用于求解最大三位数整数，但加框处代码有错，请改正。

①___________________    ②___________________
Function max(x As Integer) As Integer
Dim a As Integer, b As Integer, c As Integer, t As Integer
a =" x" \ 100
b = (x \ 10) \ 10           ' ①
c =" x" mod 10
If a < b Then t =" a:" a =" b:" b = t
If a < c Then t =" a:" a =" c:" c = t
If b < c Then t =" c:" c =" b:" b = t
max = c* 100 + b * 10 + a     ' ②
End Function
Private Sub Command1_Click()
Dim n As Integer, y As Integer
n = Val(Text1.Text)
y = max(n)
Text2.Text = Str(y)
End Sub

小王同学正在学习二元一次方程，老师布置了一个二元一次方程求解的题目，方程为2x+3y=10。请利用VB编程帮他求出此二元一次方程的所有整数解（10≥x≥-10，10≥y≥-10），并将每组解在列表框List1中输出，同时统计出共有多少组解，并将统计结果在文本框Text1中显示。
程序运行界面如图所示，为实现以上功能，请在划线处填入合适代码。

①___________________②___________________
Private Sub Command1_Click()
Dim x As Integer, y As Integer, t As Integer
t = 0
For x =" -10" To 10
For y =" -10" To 10
If         ①       Then
List1.AddItem "X:" + Str(x) + "  " + "Y:" + Str(y)
t=t+1
      ②     
Next y
Next x
Text1.Text = Str(t)
End Sub

农农摘桃子。农农家的院子里有一棵桃子树，每到秋天树上都会结出很多桃子（假设桃子距地的高度为50—300厘米）。桃子成熟的时候，农农就会跑去摘桃子（假设农农碰到桃子，桃子就会掉下来）。农农有个30厘米高的板凳，当他不能直接用手摘到桃子的时候，就会踩到板凳上再试试。如果今天树上有10个成熟的桃子，请帮农农算一下他能够摘到多少个桃子。
（1）程序运行时界面如图所示，List1中桃子的高度数据由计算机随机产生，Text1中输入农农手伸直的最大高度，Text2中显示农农摘到的桃子数目。

设计如图所示应用程序界面时，应在图中所示的“属性窗口”中，将Form1的__________________属性设置为“农农摘桃子”；为添加列表框List1，应使用图中所示的“控件工具箱”中的______________（填写相应编号）。

（2）“开始摘果”按钮单击事件处理过程的流程图如图所示。请根据流程图将下列程序补充完整。
①___________________    ②___________________

Private Sub Command1_Click()
Dim a(1 To 10) As Integer,
Dim h As Integer, i As Integer, t As Integer
Randomize           '初始化Rnd函数
h = Val(Text1.Text)
t=0
For i =" 1" To 10  
'随机产生桃子的高度(50-300厘米)
a(i) =" Int(Rnd" * 251) +50   
List1.AddItem "桃子"+Str(i)+"高度:"+Str(a(i))
If          ①         Then t =" t" + 1
Next i
        ②       
End Sub