⑴以字节为单位进行加密处理；

⑵将1个字节的8位二进制数分割成前4位与后4位两个二进制数；

⑶分别将上述两个4位二进制数转换为十进制数；

⑷将每个十进制数转换为1个加密字符，对应的“密码表”如下：

小明按照上述方法，设计了一个字符串（仅包含ASCII字符）加密的VB程序，功能如下:单击“加密”按钮Commandl,程序依次将文本框Textl中每个字符的ASCII码值作为1个字节转换为两个加密字符，连接这些加密字符，最后在文本框Text2中输出加密结果。下表显示了字符串中一个字符的加密过程：

程序运行效果如图所示。

实现上述功能的VB程序如下：

用VB软件设计的自摘收费程序，功能如下：在文本框Textl中输入自摘的人数n，在文本框Text2中输入摘得桔子重量w。界面右上方是小游戏部分，程序在文本框Text3显示随机产生的桔子层数m，根据图中所示的堆桔子方法（第1层1个；第2层4个；第3层9个……），请顾客计算出m层桔子总数s，输入到文本框Text4中，单击“是否优惠计算”按钮Command1，就会在标签Label4中输出最后的费用f，并在标签Label7中给出提示是否“优惠后的费用”。运行效果如图所示： 

实现上述功能的VB程序代码如下，但加框处代码有错，请改正。

Private Sub Command1_Click()

  Dim s As String, ch As String

  Dim ch2 As String, sum As Double

  Dim n As Integer, i As Integer

  s = Text1.Text

  n = Len(s)

  i = 1: sum = 0

  Do While                                    ＇①

    ch = Mid(s, i, 1)

    If ch >= "0" And ch <= "9" Then

      j = i

      ch2 = Mid(s, j, 1)

      Do While ch2 >= "0" And ch2 <= "9"

        j = j + 1

        ch2 = Mid(s, j, 1)

      Loop

      sum = sum + Val（ ）     ＇②

      i = j

    End If

    i = i + 1

  Loop

  Label3.Caption = Str(sum)

End Sub

①{#blank#}1{#/blank#} ②{#blank#}2{#/blank#} 

Dim i As Integer, s As Integer

Dim a (1 To 10)As Integer

For i =1 To 10

a(i)=i^2

If a(i)Mod 3=0 And a(i)Mod 5 =0 Then s= 50000+ a(i)

If a(i)Mod 3=0 Or a(i) Mod 5 =0 Then s =s+ a(i)

Next i

Text1. Text Str(s)

执行该程序段后，下列说法正确的是（  ）