阅读下列程序，写出运行结果

当输入x=8,y=10时，输出x=__________, y=______________

程序有三种基本结构，下列不属于这种基本结构的是（）

A．循环结构

B．树形结构

C．顺序结构

D．选择结构

某算法部分流程图如图所示。执行这部分流程，依次输入20、-3、10、8、-11、0，则输出值是（ ）

A．-11

B．-3

C．8

D．20

在  VB 窗体中，当前对象的属性窗口如图所示。下列说法正确的是（　　）

A．该对象属于标签类

B．该对象属于文本框类

C．该对象的标题是“转换”

D．该对象的  Default 属性值是“True”

从离地500米的空中自由落下一个小球，求从开始落下的时刻起，小球在最后1秒内的位移（重力加速度g以9.8米/秒2计）。程序如下，回答以下问题。
import math
h = 500
g = 9.8
t = math.sqrt（2*h/g）
hx = g*（t-1）*（-1）/2
hh = h-hx
print（“小球最后1秒下落的位移是：”，hh，“m”）
（1）该程序代码中使用了库，库的名称是_____。
A.Limport B.math C.sqrt D.print
（2）该程序代码中使用了常量，它的名称是_____。
A.h B.t C.500 D.hh
（3）该程序代码中使用了变量hh，它的数据类型是_____。
A.int B.float C.列表 D.字符串
（4）该程序中print（“小球最后1秒下客的位移是：”，hh，“m”），其中“m”的数据类型是_____。
A.int B.float C.列表 D.字符串
（5）该程序使用了物理公式计算空中自由落下个小球的位移，采用的算法处_____。
A.解析算法 B.穷举算法 C.递归法 D.选择排序

下面的流程图

运行结果：______________

下面的流程图

运行结果：______________

数组a中有20个正整数，以降序排序。在文本框Text1中输入一个正整数data，寻找数组中是否存在两个元素之差等于给定的数据。若是则输出这两个数（有多对数满足条件，只输出最先找到的数对）。否则输出“not find”。实现此问题的算法程序如下，加框处代码有误，请改正。
①________________________
②________________________
③________________________
Private Sub Command1_Click()
Const n = 20
Dim a(20) As Integer
Dim data As Integer, left As Integer, right As Integer, m As Integer
Dim f As Boolean
f = True
data = Val(Text1.Text)
' 随机产生符合题意的数组a中各元素并按降序排序
For i = 1 To n - 1

①

right = n

Do While ②

m = (left + right) \ 2
If a(i) - a(m) > data Then
right = m - 1
ElseIf a(i) - a(m) < data Then
left = m + 1
Else
Text2.Text = a(i) & a(m)
③
End If
Loop
Next i
If f=True Then Text2.Text = "not find"
End Sub

数组a中存放着1到20的正整数，要求对其中的元素进行分段排序，在Text2中输入每段元素的个数，在文本框Text3中显示每段降序排序后的数据，其中多余的元素不做处理。具体程序实现如图所示。

实现该功能的VB程序代码如下，请在划线处填入合适代码。
Dim a(0 To 100) As Integer
Const high = 16
Private Sub Form_Load()
Randomize
For i = 1 To high
a(i) = Int(Rnd * 20) + 1
Text1.Text = Text1.Text + Str(a(i))
Next i
End Sub
Private Sub Command1_Click()
Dim p As Integer, q As Integer, t As Integer
Dim m As Integer, n As Integer, k As Integer
m = Val(Text2.Text)
For i = 1 To ①________
c = ""
For j = 1 To m
p =②________
q = i * m
k = sort(p, q)
If a(k) <> a(p) Then
t = a(p): a(p) = a(k): a(k) = t
End If
c = ③________
Next j
Text3.Text = Text3.Text + " " + c
Next i
End Sub
Function sort(f As Integer, g As Integer) As Integer
s = f
For i = f To g
If a(i) > a(s) Then
s = i
End If
Next i
sort = s
End Function

某算法的部分流程图如图所示，执行该流程，以下说法正确的是（   ）

A．8

B．16

C．32

D．64