题目

有如下VB程序段： 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范围内（输入输出都不包括双引号本身），下列说法不正确的是（  ） A . 若在文本框Text1中输入“ZGBG”，Text2中输入“0”，则Text3中显示“ZG，GB，BG” B . 若在文本框Text1中输入“CCAA”，Text2中输入“1”，则程序运行结束时变量c的值为2 C . 将数组a的定义语句改为“Dim a(1 To 9) As String”,程序依然能够正确运行 D . 若a(1)到a(4)的值为“AB”,“AC” ,“BC” ,“AC”，则调用函数check(4)的结果为False 答案：B

查看本题答案和解析