新股首个交易日的涨停上限为44%，其余的交易日涨停上限为10%，并将相应股票价格四舍五入到分。公式提示：日收益=（本交易日股价-前一交易日股价)×股数

程序运行界面如图所示：

实现上述功能的VB程序如下，请在划线处填入合适的代码。

Private Sub Command1_Click()

Dim a(1 To 10) As Integer    ‘存储0~9每个数字出现的次数

Dim b(1 To 26) As Integer    ‘存储a~z每个字母出现的次数

Dim zf As String, x As String, p As Integer

Dim maxa As Integer, maxb As Integer

{#blank#}1{#/blank#}

For i = 1 To Len(zf)

 x = Mid(zf, i, 1)

 If pd(x) = 1 Then

  p = Asc(x) - Asc(“0”) + 1

  a(p) = a(p) + 1

  {#blank#}2{#/blank#}

  p = Asc(x) - Asc(“A”) + 1

  b(p) = b(p) + 1

 Else

  p = Asc(x) - Asc(“a”) + 1

  b(p) = b(p) + 1

 End If

Next i

k = a(1):maxa = 1

For i = 2 To 10

 If a(i) > k Then k = a(i):maxa = i

Next i

k = b(1) :maxb = 1

For i = 2 To 26

 If{#blank#}3{#/blank#}Then k = b(i) :maxb = i

Next i

Label1.Caption =“出现最多的数字是” + Chr(maxa+ Asc(“0”)-1)

Label2.Caption = “出现最多的字母是” + Chr(maxb + Asc(“A”)-1)

End Sub

Function pd(ch As String) As Integer ’函数用于判断每个字符类型

 If ch >= “0” And ch <= “9” Then pd = 2

 If ch >= “A” And ch <= “Z” Then pd = 2

 If ch >= “a” And ch <= “z” Then pd = 3

End Function

①两位D组裁判分别打“难度分”，取平均值作为该参赛选手的最终难度分。

②五位E组裁判分别打“完成分”，在5个E组打分结果中，去掉一个最高分和一个最低分，然后取平均值作为该参赛选手的最终完成分。

③难度分和完成分之和，即该参赛选手的最终得分。

例如：某参赛选手打分如下：

该选手“难度分”为(6.5+6.9)/2=6.7。E组裁判打分去掉一个最高分和一个最低分之后，计算“完成分”为(9.0+8.3+8.8)/3=8.7。所以该选手最终得分为6.7+8.7=15.4分。

小杜编写一个VB程序:程序运行时从数据库读取参赛选手人数和参赛选手的打分数据，依次存储在数组a中;单击“统计”按钮，依据数组a中的相关数据统计各选手的“难度分”“完成分”和“最终得分”，并在列表框List1中输出。数组a各元素的含义如下，程序运行界面如图所示。

实现上述功能的VB程序如下，请回答下列问题：

转换方法：先从右往左将二进制数分割成 4 位一组，若最左边的一组不足4位，则用 0 将高位补足，然后将每 4 位二进制数转换为 1 位十六进制数。