若输入两数1，-4，输出结果_______

A．-5	B．-3
C．5	D．3

在机场托运行李，每人免费25千克，超过25千克不到50千克，则超出部分按每千克10元收费，如果超过50千克，则超过部分按每千克20元收费。这种计费程序最适合用到的程序结构是（  ）。

A．循环

B．赋值

C．分支

D．顺序

在一次学校的运动会上,高一女子100米决赛的成绩已出来，前8名的成绩记录单由于不小心丢掉一张,只剩下7 个成绩,并已按成绩排序，分别是(单位:秒)14.5，15.1，16.5，16.8，17.1，17.5，17.9，后来找到了,请将找到的成绩插入相应的位置,使数据序列仍保持有序,并求出该成绩的名次。根据已有程序段,请补齐流程图中的空格。

程序如下：
Dim a(1 To 8) As Integer
Dim n, i, j, x As Integer
Private Sub Command1_Click()
x = Val(Text2．Text)
If x > a(n) Then
i=n+1
else
i = 1
Do While x > a(i)
i =" i" + 1
Loop
End If
Text3．text=str(i)‘在文本框text3 显示名次
End Sub
Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii =" 13" Then
n =" n" + 1
a(n) = Val(Text1．Text)
List1．AddItem Str(a(n))
Text1．Text = "": Text1．SetFocus ‘准备在text1 接受下一个数据
End If
End Sub

如图8-a、图8-b所示，是求绝对值的算法，其描述方式分别是(    )

A．自然语言、流程图	B．伪代码、流程图
C．自然语言、伪代码	D．流程图、自然语言

编写VB程序，实现如下功能：在文本框Text1 输入字母字符串，单击“加密”按钮Command1，字符进行逐个加密，加密过程是，先在“密码本”m中找到相应字符，再从Text3中得到其所对应位置的密钥,并在文本框Text2中显示密文（运行效果如下图所示）。本题暂时不考虑解密问题。实现上述功能的VB代码如下：

请在划线处填入合适代码。
Private SubCommand1_Click()
Dim s As String, m As String
Dim t As String
Dim k As String
Dim c As Integer
s = Text1.Text
n1 = Len(s)
s3 = Text3.Text
n3 = Len(s3)
If n3 < 26 Then
Label1.Caption = "请重新输入密钥！"
Text3.Text = ""
Exit Sub
End If
m = "abcdefghijklmnopqrstuvwxyz"
For i =" 1" To n1
k =" Mid(s," i, 1)
If ①Then    '将大写字母转换为小写
k =" Chr(Asc(k)" + 32)
End If
c = 1
Do While c <= Len(m)
If k =" Mid(m," c, 1) Then
Exit Do
End If
②
Loop
t =" t" +③
Next i
Text2.Text = t
End Sub