Private Sub Command1_Click( )

   Dim x As Integer，y As Integer

   x = 8

   y = 10^x

   Text1.Text = Str(y)

End Sub                                                 

运行程序时，单击Command1后弹出如上图所示的出错提示，引起该错误的原因是（   ）

Dim a(l To 100) As String

Private Sub Commandl_Click()

  Dim c As Integer, t As String, ans As String

  s = Textl. Text

  k = Val(Text2. Text)

  ans =“”

  For i = 1 To Len(s) - k - 1

    c = c + 1

    a(c) = Mid(s, i, 1) + Mid(s, i + k + 1, 1)

    If check(c) Then

      ans = ans + a(c) + "，"

    Else

      c = c - 1

    End If

  Next i

  Text3. Text = ans

End Sub

Function check(k As Integer) As Boolean

  Dim i As Integer

  check = True

  For i = 1 To k - 1

    If a(i) = a(k) Then check = False: Exit For

  Next i

End Function

若该程序段执行后，在文本框Text1中输入的字符串长度不超过10，文本框Text2中输入的值在0到8范围内（输入输出都不包括双引号本身），下列说法不正确的是（  ）

for i in range(10):

    k=int(input())

    if k<=20 and k>0:

        if k>15:

            if k>18:

                x=0

            else:

                x=1

        else:

            if k>12:

                x=4

            else:

                x=5

s = "A-b2c " ; ch = ""

list=[4 , 3 , 1 , 5 ,2]

for i in range(1en( s)):

    if "A " <= s [i] <= "Z " :

        ch = ch + chr (ord(s [i]) + list[i])

    elif "a " <= s [i] <= "z " :

        ch = ch + chr (ord(s [i]) - list[i])

    else:

        ch= s [i]+ch

print(ch)

该程序运行后，输出的结果是（   ）

图 a

图 b

图 c

编写程序：对给定的标准答案，生成并输出每道题的填涂信息，对应的选项、分值（答对得2分，答错或不答得0分），以及最后的总得分，输出结果如图c所示。请回答下列问题：