Private Sub Command1_Click()

Dim ch As String, s As String

Dim i As Integer, j As Integer

ch = Text1.Text

   For i = 1 To {#blank#}1{#/blank#} 

        j = Asc(Mid(ch, i, 1))

        If j > 96 And j < 123 Then

           s = s + Chr(j - 32)

        Else

         s = s + Chr(j)    

        End If

   Next

   {#blank#}2{#/blank#}

End Sub

Dim a(1 To 10) As Integer, b(5 To 10) As Integer

a(1) = 71: a(2) = 73: a(3) = 90: a(4) = 79: a(5)  = 76

a(6) = 88: a(7) = 91: a(8) = 84: a(9) = 100: a(10) = 80

For i = 10 To 1 Step -1

  b((a(i) - 1) \ 10) = b((a(i) - 1) \ 10) + 1

Next i

该程序段运行后，数组元素b(7)的值是（  ）

   max=a(1)

   For i=2 To 10

   Next i

当虚线框内的语句刚好执行完第6次后(此时循环变量i的值为7)，变量max的值是（  ）

Dim a(1 To 5) As Integer

For i = 1 To 5

    a(i) = Int(Rnd * 30 + 10)

    t = t + a(i) \ 10

Next i

For j = 1 To t \ 3

    If j Mod 2 = 1 Then a(j) = a(j) + 1 Else a(j) = a(j) - 1

Next j

运行程序后，数组a各个元素的值，不可能的是（  ）