Dim i as Integer, max as Integer Dim a(1 to 10) as Integer

‘代码略，随机产生 10 个不重复的数存于数组 a 的 10 个元素 a(1)~a(10)中max=a(1)

For i=2 to 10

       If a(i)>a(max)  then  max=i Next i

变量 max 用于存储（   ）

  Private Sub Command1_Click()

    For i=1 To 4

    s=””

      For j=1 To 7

     If        Then

s=s+“*“

 Else

       s=s+”  ”    ‘双引号内为1个空格

       End If

    Next j

    List1．AddItem s

    Next i

  End Sub

则方框中的语句是 （  ）

如果输入的成绩为90，则该流程的执行顺序为（  ）

s=Text.Text

c=0

For i=1 To 26

      ⑴ 

Next

For i=1 To Len(s)

      ⑵ 

IF d(t)=0 Then d(t)=i

      ⑶ 

Next

Text2 Text=Str(c)

填空处的代码可由以下部分组成

①d(i)=0 ②=val(Mid(si, 1) ③IFd(t)<>0Andi-d(t)> c Then c=i-d(t)

④d(i)=1 ⑤t=Asc(Mid(s, i, 1)-Asc("a")+1 ⑥fi-d(t)> c Then c=i-d(t)

代码顺序正确的是（  ）