Private Sub Command1_Click()

  Dim sjzs As Integer

  Dim rjzs As String

  sjzs = Val(Text1.Text)

  rjzs = ""

  Do While Int(sjzs / 2) > 0

    rjzs = Str(sjzs Mod 2) + rjzs

    sjzs = Int(sjzs / 2)

  Loop

  Label1.Caption = rjzs

End Sub

n = 0

For i = 1 To Len(Text1.Text)

    c = Mid(Text1.Text, i, 1)

    If c >= "0" And c <= "9" Then m = 1 Else m = 2

    a(m) = a(m) + 1

    If a(m) = 1 Then n = n + 1

Next i

数组a各元素的初始值都为0，文本框Textl的内容为“Luck2018”。执行程序后，变量n的值为{#blank#}1{#/blank#}

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中将显示（  ）

  a = "360"

  b = Val(a)

  c = Len(a)

  If b > c Then

    Label1.Caption = "取数值"

  Else

    Label1.Caption = "取字符"

  End If

该程序段运行后，在标签Label1上显示的是{#blank#}1{#/blank#}。