Private Sub Command1_Click()

Dim I  as integer

    For  i=1  to 10  step 2

    If  i>=5  then

    List1.additem str(i-3)

    Else

    List1.additem str(i)

Next i

End Sub

    S=Text1.Te×t

    For i=1 To Len(s)

    c=Mid(s，i，1)

    If c>=“0”And c<=“9”Then

    m=m+1

    Elself c>=“a”And c<=“z”Then

    n=n+1

    Else

    t=t+1

    End If

    Next i

    Label1．Caption：Str(t)

在文本框Text1输入“as674ER29，86Gu”。(不包括双引号)，执行程序后，标签Label1显示：（  ）

s=0

For k=1 To 5

s=s * k

Next k

Print s