Function s(m) As Boolean

 Dim i As Integer

 ______1_______

For i = 2 To Int(Sqr(m))

 If m / i = 0 Then  s = false     ‘3

Next i

End Function

Private Sub Command1_click()

 Dim i, n As Integer

 Dim p1, p2 As Boolean

  n = Val(Text1.Text)

  p1 = s(3)

  List1.Clear

  For i = ______2_____

  p2 = s(i)

  If p2 = True Then List1.AddItem = Str(i - 2) + " " + Str(i)   ‘4

  p1 = p2

Next i

End Sub

请在划线处填入合适的代码

Private Sub Command1_Click()

  Dim s As String, k As Integer

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

  k = Val(Text2.Text)

  Label3.Caption=“对应的十进制数：”+Str(toD(s, k))

End Sub

Function toD(s As String, k As Integer) As Integer

  Dim ans As Integer, x As Integer

  ans = 0

  For i = 1 To Len(s)

    If Mid(s, i, 1) >= "A" And Mid(s, i, 1) <= "F" Then

      x = Asc(Mid(s， i, 1))- Asc(“A”)十 10

    Else

      x = Val(Mid(s, i, 1))

    End If

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

  Next i

  {#blank#}3{#/blank#}

End Function

Private Sub Command1_Click()

    Dim s1 As String, s2 As String, ch As String

    s1 ＝ Text1.Text

    s2 ＝””

    ch ＝””

    For i ＝ 1 To Len(s1)

      ch ＝ Mid (s1, i, 1)

      If Asc(ch) <＝ 122 And Asc(ch) >＝ 97 Then

        ch ＝Chr(Asc(ch) － 32)

      End If

      If Asc(ch) >＝ 65 And Asc(ch)<＝ 90 Then

        ch ＝ Chr(65 ＋ (Asc(ch) － 62) Mod 26)

      End If

      s2 ＝ s2 ＋ ch

    Next i

    Text2.Text ＝ s2

  End Sub

已知大写字母A的ASCII码值为65，且小写字母的 ASCII 码为对应的大写字母的ASCII码加上32。运行上述程序，若文本框Text1 中的内容为“Text1”，单击命令按钮 Command1，则文本框Text2中将显示（  ）

Dim x As Integer, y As Integer, s As Integer

    x=3:y=4

    If x<y And y<0 Then

        s=x Mod y

    ElseIf y>0 and y<x Then

        s=x*y

    ElseIf x=0 Or y=0 Then

        s=x+y

    Else

        s=0

    End If

该程序段运行之后，变量s的值为（  ）