①把身份证前 17 位的每个数字和加权系数相乘并累加求和。身份证号码前17位数的加权系数见下表：

②根据步骤①求得的和值，与11做取余运算得到序号，再根据序号提取校验码字符。如：所得和值除以11的余数为“0”，则对应的校验码为“1”。如下表：

    若步骤②中提取的校验码和身份证号最后一位相同，则校验通过，否则校验失败。

    某人根据上述原理设计了一个身份证校验VB程序，功能如下：程序启动时从数据库student.accdb中读入全校学生身份证数据(全校共15个班级），并在列表框List1中显示，单击“校验”按钮Command1，在列表框List2中输出各班身份证号出错学生的信息和出错人数，若某班无出错学生，则不显示。程序界面如图所示。实现上述功能的VB程序如下，请回答下列问题：

  Function delStr(S As String，m As Integer)As String

    Dim n As Integer：n=Len(S)

    If m<1 Or m>n Then delStr=“输入位置有误!”

    If m=1 Then delStr=Mid(s，2，n-1)

    If m<n Then delStr=Mid(s，1，m-1)+Mid(s，m+1，n-m)

    If m=n Then delStr=Mid(s，1，n-1)

  End Function

  Private Sub Command1_Click()

    Dim S As String：Dim i As Integer

    S=Text1．Text

    For i=1 To 10 Step 2

      S=delStr(S，i)

    Next i

  Text2.Text=S

  End Sub

文本框Text1中输入Happybirthday，执行该程序段，文本框Text2中显示的是（  ）

请根据算法将下列程序补充完整。

Function prime(a As Integer)As Boolean

  Dim j As Integer

  prime=True

  j=2

  Do While prime And j<=a\2

   If a Mod j=0 Then

     prime=False

     Exit Do

   End If

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

    Loop

End Function

Private Sub Command1_Click( )

  Dim i As Integer, a As Integer, b As Integer

  Dim count As Integer

  a=Val(Text1.Text)

  b=Val(Text2.Text)

  For i=a To b

    If{#blank#}2{#/blank#}=True Then

       List1.AddItem Str(i)

       count=count + 1

     End If

  Next i

   Label1.Caption=“素数共有” + Str(count) + “个!”

End Sub

程序界面如图所示，当单击“求解”按钮Command1时，在列表框List1中显示所有满足条件的组合。

程序代码如下，请在划线处填上合适的代码。

Dim a(0 To 9) As Integer

Private Sub Command1_Click()

 Dim i, n, m As Integer

 For i = 123 To 333

  For n = 1 To 9

   a(n) = 0

 Next n

 s = 0

 call fenjie (i)    ‘使用call调用自定义过程,下同

 call fenjie (2 *i)

 call fenjie (3 *i)

 For m = 1 To 9

  s ={#blank#}1{#/blank#}

 Next m

  If s = 9 Then List1.AddItem i & “ ” & 2 * i & “ ” & 3 * i

 Next i

 End Sub

Sub fenjie(x As Integer)    ‘自定义过程,将3位数分解并修改对应下标元素的值

 a(x Mod 10) = 1

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

 a(x \ 100) = 1

End Sub