计算机二级

设有如下程序： 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

参考答案和解析
正确答案：B
解析：本程序的功能是：查寻给定数字45在数组b中的位置n。用Array函数给数组b的各元素赋初值，其中数组变量名a应是Variant型的。用数组作为过程的形参时，应在数组名的后面加上一对圆括号(如数组a())；用数组作为调用过程的实参时，数组名的后面去掉一对圆括号(如数组b)。用类型说明符％来标识index和I为整型变量。Lbound(a)和Ubound(a)函数分别返回数组的下界和上界，下界值为0。在于程序search中，当key=a(I)条件(即45=a(6))成立时，变量index记录下数组下标值6，然后中断循环，退出于程序search，index反传送给变量n，最后打印出6。
如果没有搜索结果，请直接 联系老师 获取答案。
相似问题和答案

第1题：

符号%是声明( )类型变量的类型定义符。

A.Single

B.string

C.Integer

D.Variant


正确答案：C

第2题：

下列关于 Variant 类型的说法哪个是不正确的？（ ）

A.variant类型的变量被动态赋值为一个特定的数据类型后，不能再赋值为一个其它的数据类型

B.variant类型变量是无类型变量

C.variant类型是以前 Borland C++ 中固有的 Variant类型的模仿

D.variant类型无需进行释放，回收内存


正确答案：A

第3题：

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 为字符串表达式，其最右边的字符被返回。

第4题：

解决cint和clng溢出问题,提示'cint返回的是 Integer 子类型的 Variant:-32,768 到 32,767

之间,'clng返回的是 Long 子类型的 Variant:-2,147,483,648 到 2,147,483,647 之间


正确答案：
 

第5题：

设有如下程序：

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为字符串表达式，其最右边的字符被返回。

第6题：

在Visual Basic中,变量的默认类型是( )。

A.String

B.Integer

C.Double

D.Variant


参考答案：D

第7题：

设有如下程序： 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.ABCCDEDEFG

B.AABBCDEFG

C.ABCDEFG

D.AABBCCDDEEFFGG


正确答案：A
A。【解析】本题也是考查字符串的取值，当i=4时，y=Mid(x，4，4)+y=DEFG，当i=3时，Y=Mid(X，3，3)q-y=CDEDEFG，当i=2时，y=Mid(X，2，2)+y=BCCDEFG，当i=1时，y=Mid(x，1，1)+Y=ABCCDEFG，所以答案选择A。

第8题：

VBScript中声明Variant变量使用___________语句。


参考答案dim

第9题：

设有如下程序：

Private Sub Form_Click()

Dim i As Integer，x As String,Y As String

x=”ABCDEFG”

For i=4 To 1 Step-1

y=Mid(x，i，i)+y

Next i

Print y

End Sub

程序运行后，单击窗体，输出结果为

A．ABCCDEDEFG

B．AABBCDEFG

C．ABCDEFG

D．AABBCCDDEEFFGG


正确答案：A
解析：本题Mid函数的功能是从第i个字符开始取i个，当i=4时，从字母D开始取到G，并加在y的开头，当i=3时，从字母C开始取到E，并加在y的开头，当i=2时，从字母B开始取到C，并加在y的开头，当i=1时，只取字母A，并加在y的开头，因此本题答案为A)。

相关内容