在搭乘一次地铁后可以获得一张面额为本次地铁价格的优惠券，有效期为60分钟，在有效期内可以使用这张优惠券，免费搭乘一次票价不超过这张优惠券的公交车。在有效期内指开始乘公交车的时间与开始乘地铁的时间之差小于等于60分钟。搭乘地铁获得的优惠券可以累积，即可以连续搭乘若干次地铁后再连续使用优惠券搭乘公交车，但每次搭乘公交车只能使用一张优惠券。搭乘公交车时，如没有合适的优惠券，则自己全额支付；如果有多张优惠券满足条件，则优先消耗获得最早的优惠券。

小叶同学根据优惠政策，编写了计算优惠后需要支付费用的程序，同时将乘车记录按时间先后顺序逐行显示。在Text1里输入乘车记录的数量n，Text2里输入n组数据，每组乘车记录有3个数据，依次是车型（1表示地铁、2表示公交）、开始乘车时间、乘车票价。每个数据以逗号结尾。不会有两次乘车记录出现在同一分钟。数组d存储乘车记录的结构如图a所示：

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

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

（1）自然语言

第1步：输入车牌号

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

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

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

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

  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”。)

Private Sub Command1_Click（） Dim i As Integer, k As Integer

Dim s As String, c As String, ch As String

Dim letter As String, ret As String       'letter 用于存放字母序列

s = Text1.Text k = 1

For i = 1 To Len（s）

c = Mid（s, i, 1）

If c >= "A" And c <= "Z" Or c >= "a" And c <= "z" Then letter = letter + c

ElseIf c = "," Then

________

ch = Chr（Asc（ch） + 4）

If Not （ch >= "A" And ch <= "Z" Or ch >= "a" And

ch <= "z"） Then ch = Chr（Asc（ch） - 26）

End If

If ______ Then ret = ret + ch + " "

Else

ret = ret + ch

End If

______

k = k + 1

End If

Next i

Text 2.Text = ret

End Sub