Private Sub Commandl_Click()

     Dim i As Integer,j As Integer.s As String

     Dim a(1 To 5) As Integer

     List1.Clear

     Randomize             

     For i=1 To 10

       j=Int(Rnd*6)+1

       a(j)=a(j)+1

Next i

For i=1 To 5

  s=Str(a(i))

  List1.AddItem s

Next i

End Sub

程序运行时，单击按钮Commandl后弹出如图所示的错误提示。出现错误的语句是(   )

Private Sub Command1_Click( )

   Dim  s  As  Integer

   Dim  I  As  Integer

   S=0

   For i=1 To 10

      s=s+i\7

   Next i

   Text1.text=str(s)

End sub

该程序段运行后，文本框Text1中显示{#blank#}1{#/blank#} 

s = ""

For i = 1 To Len(Text1.Text)

   s = s + Mid(Text1.Text, Len(Text1.Text) - i + 1, 1)

Next i

若文本框Textl中输入“a1b2c3”,执行程序后，变量s的值为（  ）

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=“Hello world”

s1=“”

n=Len(s)

For i=1 To n\2

If Mid(s， i， 1) > Mid(s， n-i+1， 1) Then

s1=s1 + Mid(s， i， 1)

Else

s1=Mid(s， n-i+1， 1)+s1

End If

Next i

Text1.Text=s1

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

Private Sub Command1_Click()

Dim d(1 To 8) As Integer

Dim i As Integer, s As Integer

d(1)=1

For i=2 To 10

    d(i)=d(i-1)*i

Next i

For i=1 To 5

    s=s+d(i)

Next i

Text1.Text = Str(s)

End Sub

程序运行时，单击命令按钮Command1后，将会出现的提示信息是（  ）