Private Sub Command1_Click()

Dim s As Integer, j As Integer

s = 0

For j = 1 To 10

  If j Mod 2 <> 0 Then

    s = s + j

  End If

Next j

Label1.Caption = Str(s)

End Sub

 S=0

 For i =         to 5

   S = s+i

 Next i

该程序运行后，循环体  S = s+i被执行4次，则循环变量i的初值是（     ）

图1

图2

当n的值为10时，关于该两段程序，下列说法不正确的是(  )

Dim i As Integer, s As String, flag As Boolean

s = Text1.Text

flag = True:      ⑴     

Do While i <= Len(s) And flag = True

  If    ⑵      Then  flag = False

i = i + 1 

Loop

If    ⑶      Then

  Label2.Caption = s + "满足条件！"

Else

Label2.Caption = s + "不满足条件！"

End If

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

①flag = True                             ②i=2

③Mid(s, i, 1) < Mid(s, i - 1, 1)         ④i=1       ⑤flag = False

代码顺序正确的选项是（   ）

n = Len(Text1.Text)

For i = 1 To n

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

Next i

Do While n > 1

 If Asc(a(n)) >= Asc(a(n - 1)) Then

    m = 1

 Else

    m = 2

 End If

 b(m) = b(m) + 1

 n = n-1

Loop

数组b各元素的初始值都为0，文本框Text1的内容为“2018Python”。执行程序后，变量b(1)的值为（  ）