设有如下程序： 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，7
题目
设有如下程序： 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 search(a()As Variant,ByVal key As Variant,index%) Dim I% ForI = L ”相关问题
-
第1题：
设有如下程序：
Private Sub Form—Click()
Cls
a$=“ABCDFG”
For i=1 T0 6
Print Tab(12-i)；【 】
Nexti
End Sub
程序运行后，单击窗体，结果如图所示，请填空。
正确答案：Right(a $．i)
Right(a $．i) 解析：mght函数用语从字符串右边返回指定数目的字符。格式为：Right(string，length)，参数string为字符串表达式，其最右边的字符被返回。 -
第2题：
9）设有如下程序：
Private Sub Form_Click( )
Cls
a$="ABCDFG"
For i=1 To 6
Print Tab(12-i); 【9】
Next i
End Sub
程序运行后，单击窗体，结果如图所示，请填空。
正确答案：
（9）【答案】Right(a $,i)
【解析】Right函数用于从字符串右边返回指定数目的字符。格式为：Right（string,length）.其中，参数string 为字符串表达式，其最右边的字符被返回。
-
第3题：
符号%是声明( )类型变量的类型定义符。A.Single
B.string
C.Integer
D.Variant
正确答案：C
-
第4题：
解决cint和clng溢出问题,提示'cint返回的是 Integer 子类型的 Variant:-32,768 到 32,767
之间,'clng返回的是 Long 子类型的 Variant:-2,147,483,648 到 2,147,483,647 之间
正确答案：
-
第5题：
下列关于 Variant 类型的说法哪个是不正确的？（ ）
A.variant类型的变量被动态赋值为一个特定的数据类型后，不能再赋值为一个其它的数据类型
B.variant类型变量是无类型变量
C.variant类型是以前 Borland C++ 中固有的 Variant类型的模仿
D.variant类型无需进行释放，回收内存
正确答案：A