设有如下程序： Private Sub search(a()As Variant，ByVal key As Variant，index%) Dim I％ For I = Lbound(a)To Ubound(A)If key=a(I)Then index=I Exit Sub End If Next I index=-1 End Sub Private Sub Form_Load() Show Dim b()As Variant Dim n As Integer b=Array(21，64，92，15，72，38，45，72) Call search(b， 45， n) Print n End Sub 程序运行后，输出的结果是A．2B．6C．10D．12
设有如下程序： Private Sub search(a()As Variant，ByVal key As Variant，index%) Dim I％ For I = Lbound(a)To Ubound(A)If key=a(I)Then index=I Exit Sub End If Next I index=-1 End Sub Private Sub Form_Load() Show Dim b()As Variant Dim n As Integer b=Array(21，64，92，15，72，38，45，72) Call search(b， 45， n) Print n End Sub 程序运行后，输出的结果是
A．2
B．6
C．10
D．12
相关考题：
设有如下程序：Private Sub Form_Click()Dim i As Integer，x As String,Y As Stringx=”ABCDEFG”For i=4 To 1 Step-1y=Mid(x，i，i)+yNext iPrint yEnd Sub程序运行后，单击窗体，输出结果为A．ABCCDEDEFGB．AABBCDEFGC．ABCDEFGD．AABBCCDDEEFFGG
设有如下程序： Private Sub Form. Click（ ） Dim i As Integer，x As String，y As String x="ABCDEFG" For i=4 To 1Step-1 y=Mid(X，i，i)+y Next i Print y End Sub 程序运行后，单击窗体，输出结果为（ ）。A.ABCCDEDEFGB.AABBCDEFGC.ABCDEFGD.AABBCCDDEEFFGG
设有如下程序：Private Sub Form—Click()Clsa$=“ABCDFG”For i=1 T0 6Print Tab(12-i)；【 】NextiEnd Sub程序运行后，单击窗体，结果如图所示，请填空。
解决cint和clng溢出问题,提示'cint返回的是 Integer 子类型的 Variant:-32,768 到 32,767之间,'clng返回的是 Long 子类型的 Variant:-2,147,483,648 到 2,147,483,647 之间
9）设有如下程序：Private Sub Form_Click( )Clsa$="ABCDFG"For i=1 To 6Print Tab(12-i); 【9】Next iEnd Sub程序运行后，单击窗体，结果如图所示，请填空。
下列关于 Variant 类型的说法哪个是不正确的？（ ）A.variant类型的变量被动态赋值为一个特定的数据类型后，不能再赋值为一个其它的数据类型B.variant类型变量是无类型变量C.variant类型是以前 Borland C++ 中固有的 Variant类型的模仿D.variant类型无需进行释放，回收内存
符号%是声明( )类型变量的类型定义符。 A.SingleB.stringC.IntegerD.Variant