a = "360"

  b = Val(a)

  c = Len(a)

  If b > c Then

    Label1.Caption = "取数值"

  Else

    Label1.Caption = "取字符"

  End If

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

Dim c As String, i As Integer

Dim s As String, s1 As String

s = "Jishu_Xuankao_2020"

s1 =""

For i = 1 To Len(s) Step 2

  c = Mid(s, i, l)

  If c >= "a" And c <= "z" Then s1=c+s1

Next i

Text1. Text = s1

执行该程序段后，文本框Text1显示的内容是（  ）

 s=0

   For i=1 To 10

     t=1

     for j=1 to i

t=t*j

     next j

     s=s+t

   Next i

Private Sub Command1_Click()

Dim i As Integer, n As Integer

Dim s1 As String, s2 As String, c As String

s1=Text1.Text

s2=” ”

n=Len(s1)

For i=1 To n

c=Mid(s1,i,1)

s2=c+s2

Next i

Text2.Text=s2

End Sub