（加试题）某字符串（字节数为 2 的倍数）编码规则如下：
（1）将该字符串内码分成 2 个字节一组，每个字节前补上一个 0，构成 9 位二进制，顺次链接后得到 18 位二进制；
（2）将得到的 18 位二进制数字分成 3 组，每组 6 位；
（3）在每组数字前补上两个 0，得到 3 个字节的二进制数；
（4）将（3）中得到的三个字节的二进制数分别转换为十进制数；
（5）将每个十进制数转换为 1 个加密字符，对应的“ 密码表 ”按数值由小到大依次为 012345678ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz+/” 小明按照上述方法，设计了一个字符串（仅包含 ASCII 字符）加密的 VB 程序，功能如下：单击“加密”按钮 Command1，程序依次将文本框 Text1 中每 2 个字符的 ASCII 码值按编码规则转换为三个加密字符，连接这些加密字符，最后在文本框 Text2 中输出加密结果。程序效果如下图所示。

实现上述功能的 VB 程序如下：
（1）在 Text1 中输入明文“AB”，用上述加密算法得到的密文为_____。
（2）实现上述功能的 VB 程序如下。请在划线处填入合适的代码。
Function cc(n As Integer) As String
Dim s As String
s = "012345678ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz+/"
①_____
End Function
Private Sub Command1_Click()
Dim n As Integer, s As String, i As Integer, ss As String
Dim a1 As Integer, a2 As Integer
Dim b1 As Integer, b2 As Integer, b3 As Integer
s = Text1.Text
n = Len(s)
ss = ""
For i = 1 To n    Step 2
a1 = Asc(Mid(s, i, 1))
②_____
b1 = a1 \ 8
b2 = ③_____
b3 = a2 Mod 64
ss = ss + cc(b1) + cc(b2) + cc(b3) Next i
Text2.Text = ss
End Sub

   编写VB程序，实现如下功能：在文本框Text1和Text2中分别输入体重（单位：Kg）和身高（单位：m），单击命令按钮Command1，计算BMI指数（BMI指数=体重÷身高的平方），如果BMI <18.5，则在标签Label5中显示“体重过轻！”；如果18.5≤BMI≤25，则在标签Label5中显示“正常！”；如果BMI>25，则在标签Label5中显示“体重过重！”。运行效果如左图所示。

（1）若要删除标签Label5中显示的内容“Label5”，可在其属性窗口（如上边右图）中将___________属性的属性值删除。
（2）为实现上述功能，请在划线处填入合适代码或选项。
Private  Sub  Command1_Click()
Dim  gao  as  single, zhong  as  single, bmi  As  Single
Dim  x  As  String
zhong = val(text1.Text)
gao =val(text2.text)
bmi = _____________① 
If  bmi < 18.5  Then
x = "体重过轻！"
Else
If  bmi<=25  Then  x = "正常！"  Else  x = "体重过重！"
End If
______________②
End Sub
（3）若某同学的身高为160cm，体重为120斤，则运行结果为___________

有两个以字母结尾的字符串s 1和s 2，在忽略字符串中空格的前提下判断它们是否相同。实现该功能的VB程序段如下：




Else

End If
Loop
.“相同”.“不相同”方框中的代码由以下三部分组成：
①
②
③＜＞" " ＜＞" " Then Exit Do 'Exit Do表示退出循环代码顺序正确的是（   ）

A．①②③

B．②①③

C．②③①

D．③②①

算法设计与程序实现
判断车牌的单双号
（背景知识）

 为了保障空气质量，减少雾霾，某市决定当空气污染严重时，实行汽车单双号限行，违反规定的车辆将予以处罚。

如何让高清摄像头自动判断车牌的单双号，交警犯了愁，他需要编程高手的你帮忙，完善下面的程序。（提示：（1）所有车牌号中都含有数字，并且车牌号的长度都是6；（2）以车牌中最后一位阿拉伯数字的奇、偶来决定单双号。）

（1）输入：AD2367	（2）输入：A8888A	(3)输入：A8963C
输出：单号	输出：双号	输出：单号

 

（算法描述）

（1）自然语言

第1步：输入车牌号

第2步：取车牌号的最后一位x；

第3步：判断x是否为数字，如果是，转第4步；如果不是，则依次取得倒数第二、三……位判断，直到找到数字为止；

第4步：判断x 是奇数还是偶数，然后输出相应的结果。

（2）流程图

请根据上述算法描述补全代码

  Dim n As Integer

  Dim s As String ‘定义s 为字符串类型

  Dim x As String

  s=InputBox(“s=”,s)   ‘将输入的车牌号赋值给s

  n=6 ‘车牌号的长度为6

  x=Mid(s,n,1) ‘取车牌号s的第n位

  Do While x<”0” Or x>”9”  ‘x不是数字字符，则取x的前一位

   ①

   x=Mid(s,n,1) ‘取车牌号s的第n位

  Loop

  If   ②    then

Print “双号”

   Else

Print “单号”

   End If

(提示：Mid(s,m,n)的功能：从字符串s的第m位开始，截取长度为n的子串。例如：Mid(“A8963C”,5,1)的返回值是“3”。)

1. 根据题意，程序中空白①处应填写：_______________________________ 。
2. 根据题意，程序中空白②处应填写：______（填写字母：A/B/C/D）。

A、Val(x)\ 2= 0   B、Val(x)Mod 2 = 1   C、Val(x) Mod 2=0   D、Val(x) Mod 2 <> 0

学校对高一年级500位同学进行月零花钱的调查，要进行如下统计：
（1）统计月平均零花钱金额
（2）统计月零花钱超过300元同学的数量。
以下流程图是该算法的描述请补充流程图，并写出相应的程序。
变量说明：数组money存放500位同学的月零花钱金额；number存放月零花钱金额超过300元同学的数量。
（1）   ；（2） ；（3） 。