此题为2016年高考题
高职高考题出的很混蛋，错误多多，出题老师真没水平，没有在程序中验证。

没有正确答案？
比较接近的是D？

前面刚有人问了个InStr函数的问题，里面提到了一个“第四参数”，跟你这里的Split函数的第四参数是一个意思，指定这个参数为1时表示操作字符串时不区分大小写；如果将该参数改为0，或者省略该参数，则本题选B
然后就是有关题目细节的问题，这里面对空格的处理很不严谨，导致没有正确答案，如果将D选项改为"Zhengzhou "," Beijing"（注意Zhengzhou后面有空格），就选D了（或者在题干的"AND"里面加上空格，变成" AND"，则也可以选D）

感谢大神解决问题
灵光一闪，原来是这样
Dim a() As String
ReDim a(1) As String
a = Split("Zhengzhou and Beijing", "AND", , 1)
Print a(0)， a(1)
吐槽此题是因为教材中根本没有提到Split函数的具体语法，对学生来说，教材上根本没有涉及这么深。试题的深度和广度难易把握

Split 函数可返回基于 0 的一维数组（动态），此数组包含指定数目的子字符串。
语法：Split(expression[,delimiter[,count[,compare]]])
Split函数语法中各参数及说明
参数 说明
expression 必选参数。包含子字符串和分隔符的字符串表达式。如果表达式是一个长度为零的字符串（""）,则Split返回一个空数组，即没有元素和数据的数组
delimiter 可选参数。用于识别子字符串边界的字符串字符。如果忽略，则使用空格字符（" "）作为分隔符。如果字符是一个长度为零的字符串，则返回的数组仅包含一个元素，即完整的expression字符串
count 可选参数。要返回的子字符串数。-1 指示返回所有的子字符串。
compare 可选参数。数字值，表示判别子字符串时使用的比较方式。关于其值，请参阅下表
Compare参数的设置
常数 值 描述
vbUseCompareoption -1 用Option Compare语句中的设置执行比较
vbBinaryCompare 0 执行二进制比较
vbTextCompare 1 执行文本比较
vbDatabaseCompare 2 仅用于Microsoft Access
二进制比较是比较的字符代码，文本比较仅比较字符。
二进制比较区分大小写，文本比较不区分大小写。
例如：
二进制比较 "A"和"a"是不同的
文本比较 "A"和"a"是相同的

这几个题选择几，为什么
为什么写Text1(1).Text = a(1)会溢出
在开头写ReDim a（10） as string也不行