设有下面的程序段： x=InputBox(”请输入一个整数”) ...

单项选择题

设有下面的程序段： x=InputBox(”请输入一个整数”) ReDim a(x) For k=x To 0 Step一1 a(k)=k Next k 一般，在这段程序之前应先进行数组a的定义。下面定义语句中正确的是

A．Dim a(100)As Integer
B．Dim a()As Integer
C．Dim a As Integer
D．Dim a(0 To 100)As Integer

单项选择题

如果要在语句：a=Array(1，2，3，4，5)的前面声明变量a，则正确的声明是

A．Dim a(4)As Integer
B．Dim a(5)As Variant
C．Dim a(1 To 5、)As Integer
D．Dim a As Variant

单项选择题

设有如下一段程序： Private Sub Commandl_Click() Static a As Variant a=Array(”one”，”two”，”three”，”four”，”five”) Print a(3) End Sub 针对上述事件过程，以下叙述中正确的是

A．变量声明语句有错，应改为Static a(5)As Variant
B．变量声明语句有错，应改为Static a
C．可以正常运行，在窗体上显示three
D．可以正常运行，在窗体上显示four

单项选择题

1个二维数组可以存放1个矩阵，在程序开始有语句Option Base0，则下面定义的数组中正好可以存放1个4(3矩阵(即只有12个元素))的是

A．Dim a(-2 To 0,2)As Integer
B．Dim a(3，2)As Integer
C．Dim a(4，3)As Integer
D．Dim a(一1，To-4，一1 To -3)As Integer

单项选择题

在窗体上画一个命令按钮(其Name属性为Commandl)，然后编写如下代码： Private Sub Commandl_Click() Dim n0 As Integer：Dim a，b As Integer a=InputBox(”Enter the first number”) b=InputBox(”Enter the second number”) ReDim n(a To b) For k=LBound(n) To UBound(n) n(k)=k Print n(k)； Next k End Sub 程序运行后，单击命令按钮，在输入对话框中分别输入2和3，输出结果为

A．1 2
B．2 3
C．3 4
D．4 5

单项选择题

默认情况下，下面声明的数组的元素个数是 Dim a(5，-2 To 2)

A．20
B．24
C．25
D．30

单项选择题

在程序中要使用Array函数给数组arr赋初值，则以下数组变量定义语句中错误的是

A．Static art
B．Dim arr(5)
C．Dim arr()
D．Dim arr As Variant

单项选择题

有下面程序代码： Private Sub Commandl_Click() a=Array(1，2，3，4，5，6，7，8，9，10) n=UBound(a) For k=0 To UBound(a)／2 Print a(k)*a(n)；：n=n-1 Next k End Sub 程序运行后，单击命令按钮Commandl，输出结果是

A．2 6 12 20 30
B．2 12 20 56 90
C．30 28 24 18 10
D．10 18 24 28 30

单项选择题

设程序中有如下数组定义和过程调用语句： Dim a(10)As Integer Call p(a) 如下过程定义中，正确的是

A．Private Sub p(a As Integer)
B．Private Sub p(a()As Integer)
C．Private Sub p(a(10)As Integer)
D．Private Sub p(a(n)As Integer)

单项选择题

有下面程序代码： Option Base 1 Private Sub Commandl_Click() Dim a(10)As Integer,x，b x=InputBox(”请输入一个多位整数”) For k=1 To Len(x) b=Mid(x，k，1) a(Val(b)+1)=a(Val(b)+1)+1 Next k For k=1 To 10 Print a(k)： Next k End Sub 程序运行时，单击命令按钮Command1，输入2355270224，则输出是

A．1 0 4 1 1 2 0 1 0 0
B．0 4 1 1 2 0 1 0 0 0
C．2 3 5 5 2 7 0 2 2 4
D．4 2 2 0 7 2 5 5 3 2

单项选择题

在窗体上画一个名为Command1的命令按钮，然后编写以下程序： Private Sub Commandl_Click() Dim M(10)As Integer For k=1 To 10 M(k)=12-k Next k x=8 Print M(2+M(x)) End Sub 运行程序，单击命令按钮，在窗体上显示的是

A．6
B．5
C．7
D．8

单项选择题

在窗体上画一个命令按钮和一个标签，其名称分别为Command1和Label1，然后编写如下事件过程： Private Sub Commandl_Click() Dim arr(10) For i=6 To 10 arr(i)=i一5 Next i Label1．Caption=arr(0)+arr(arr(10)/arr(6)) End Sub 运行程序，单击命令按钮，则在标签中显示的是

A．0
B．1
C．2
D．3

单项选择题

窗体上有Command1、Command2两个命令按钮。现编写以下程序： Option Base 0 Dim a()As Integer,m As Integer Private Sub Commandl_Click() m=InputBox(”请输入一个正整数”) ReDim a(m) End Sub Private Sub Command2 Click() m=InputBox(”请输入一个正整数”) ReDim afm)End Sub 运行程序时，单击Command1后输入整数10，再单击Command2后输入整数5，则数组a中元素的个数是

A．5
B．6
C．10
D．11

单项选择题

在窗体上画一个名称为Text1的文本框，并编写如下程序： Option Base 1 Private Sub Form_Click() Dim arr Dim Start As Integer,Finish As Integer Sum As Integer arr=Array(12，4，8，16) Start=LBound(arr) Finish=UBound(arr) Sum=0 For i=Start To Finish Sum=Sum+arr(i) Next i c=Sum/Finish Text1．Text=cEnd Sub 运行程序，单击窗体，则在文本框中显示的是

A．40
B．10
C．12
D．16

单项选择题

窗体上有一个名称为Command1的命令按钮，并有如下程序代码： Option Base 1 Private Sub Commandl_Click() Dim a％(3，3) For i=1 To 3 Forj=1 To 3 Ifi>4 Andj>1 Then a(i，j)=a(a(i—1，j-1)，a(i，j-1))+1 Else a(i，j)=i*j End If Next Next Print a(2，2)；a(3，3)End Sub 运行程序，单击命令按钮，窗体上显示的是

A．1 3
B．2 1
C．2 2
D．3 3

单项选择题

以下过程的功能是从数组中寻找最大值： Private Sub FindMax(a() As Integer,ByRef Max As Integer) Dim S As Integer,fAs Integer：Dim i As Integer S=LBound(a):f=UBound(a) Max=a(s) For i=S To f Ifa(i)>Max Then Max=a(i) Next End Sub 以下关于上述过程的叙述中，错误的是

A．语句Call FindMax(a，m)可以调用该过程，其中的a是数组，m是Integer类型变量
B．For循环次数等于a数组的元素数
C．过程末尾应该增加一条返回最大值的语句FindMax=Max
D．参数Max用于存放找到的最大值

单项选择题

窗体上有一个名称为Commandl的命令按钮，其单击事件过程如下： Option Base 1 Private Sub Commandl_Click() Dim a(4，4)As Integer For i=1 To 4 Forj=1 To 4 a(i，j)=Int(Rnd*100) Next Next x=a(1，1)y=a(1，1) For i=1 To 4 Forj=1 To 4 Ifxa(i，j)Then y=a(i，j) Next s=s+a(i，i) Next Print x，y，S End Sub 关于以上程序，以下叙述中错误的是

A．二维数组元素的值是不大于99的随机整数
B．计算结果x是二维数组各元素中的最大数
C．计算结果y是二维数组各元素中的最小数
D．计算结果s是二维数组各行第一个元素之和

单项选择题

窗体上有一个名称为Command1的命令按钮。要求编写程序，把文件f1．txt的内容写到文件f2．txt中，然后将f1．txt删除。命令按钮的单击事件过程如下： Private Sub Commandl_Click() Open”c：\f1．txt”For Input As#1 Open”c：＼f2．txt”For Output As#2 Do While Not EOF(2) Line Input#1．str1 Print #2，str1 Loop Close Kill”c：＼f1．txt”End Sub 该程序运行时发生错误，应该进行的修改是

A．打开f1．txt应该使用Output方式，打开f2．txt应该使用Input方式
B．Not EOF(2)应该改为Not EOF(1)
C．Line Input应改为Get
D．Close语句改为Close All

单项选择题

窗体上有名称为Commandl的命令按钮，其事件过程如下： Option Base 1 Private Sub Commandl_Click() Dim a Dim b(10)As Integer a=Array(2，4，7，3，9，6) For i=LBound(a)To UBound(a) b(i)=a(i)+i Sum=Sum+b(i) Next i Print SumEnd Sub 运行程序，单击命令按钮时，窗体上显示的是

A．44
B．46
C．50
D．52

单项选择题

窗体上有一个名称为Commandl的命令按钮，有程序如下： Option Base 1 Private Sub Commandl_Click() Dim a(10)As Integer’第1个For For i=1 To 10 a(i)=Int(Rnd*100+100) Print a(i)； Next x=a(i)：y=x‘第2个For For i=1 To 10 Ifxa(i)Then y=a(i) s=s+a(i) Next Print x，y，s End Sub 关于上述程序的叙述中，正确的是

A．程序运行出错，第1个For循环之后的x=a(i)赋值语句错
B．程序正常运行，x是10个随机数中的最大值
C．程序正常运行，s是10个随机数的和
D．程序正常运行，10个随机数的范围是100-200

单项选择题

在窗体上画一个文本框，其名称为Text1，然后编写如下程序：Option Base 1 Private Sub Form_Click()Dim Arr(10)As Integer For i=6 To 10 Arr(i)=i一3 Next i Text1．Text=Str(Arr(6)+Arr(Arr(6)+Arr(10))) End Sub 程序运行后，单击窗体，在文本框中显示的内容是

A．7
B．8
C．9
D．10

单项选择题

假定有如下程序： Private Sub Form_Click() Dim a(4)As Integer,b(4)As Integer For k=0 To 2 a(k+1)=Val(InputBox(”请输入一个整数：”)) b(3一k)=a(k+1) Next k Print b(k)End Sub 运行程序，单击窗体，依次输入3、6、9，输出结果为

A．3
B．6
C．9
D．1

单项选择题

阅读程序： Option Base 1 Private Sub Form_Click() Dim a(3，3)As Integer For i=1 To 3 Forj=1 To 3 a(i，j)=_____ Print a(i，j)； Nextj Print Next i End Sub 运行上面的程序，单击窗体，输出结果如下： 1 4 7 2 5 8 3 6 9 则在横线处应填入的内容为

A．i+j
B．i*j
C．(i—1)*3+j
D．i+(j-1)*3

单项选择题

阅读程序： Option Base 1 Sub P(bO As Integer) For i=1 To 4 b(i)=2*i Next i End Sub Private Sub Form Click() Dim a(4)As Integer For i=1 To 4 a(i)=i+4 Next i P a For i=1 To 4 Print a(i) Next i End Sub 运行上面的程序，单击窗体，输出结果为

A．2 4 6 8
B．5 6 7 8
C．10 12 14 16
D．4 8 12 16

单项选择题

在窗体上画一个命令按钮，然后编写如下程序： Option Base 1 Pfivme Sub Commandl_Click() Dim Arr(10)As Integer For i=1 To 10 Arr(i)=11-i Next i X=InputBox(”输入一个整数(3～10)”) PrintArr(2+Arr(x)) End Sub 程序运行后，单击命令按钮，在输入对话框中输入7，则输出结果为

A．3
B．4
C．5
D．6

单项选择题

设有下面程序代码： Pfivme Sub Command1_Click() Dim a As Variant a=Array(22，43，23，56，87，45，67，12，98，98，56，34，23，75，64) m=a(0)n=m For k=1 To UBound(a) Ifa(k)>mThen n=m：m=a(k) Elselfa(k)>n And a(k)<>m Then n=a(k) End If Next k Print n End Sub 程序运行时的输出是

A．数组中最大的数(即98)
B．数组中最小的数(即12)
C．数组中第2大的数(即87)
D．数组中第1个数(即22)

单项选择题

设有下面程序代码： Option Base 1 Pfivate Sub Commandl_Click() Dim x(6) a=Array(4，2，5，1，6，3) b=Array(64，24，98，27，58，41) For k=1 To 6 x(a(k))=b(k) Next k For k=1 To 6 Print x(k)： Next k End Sub 程序运行时的输出是

A．27 24 41 64 98 58
B．64 24 98 27 58 41
C．24 27 41 58 64 98
D．98 64 58 41 27 24

单项选择题

以下关于控件数组的叙述中，正确的是

A．数组中各个控件具有相同的名称
B．数组中可包含不同类型的控件
C．数组中各个控件具有相同的Index属性值
D．数组元素不同，可以响应的事件也不同

单项选择题

以下关于控件数组的叙述中，错误的是

A．各数组元素共用相同的事件过程
B．各数组元素通过下标进行区别
C．数组可以由不同类型的控件构成
D．各数组元素具有相同的名称

单项选择题

假定通过复制、粘贴操作建立了一个命令按钮数组Command1，以下说法中错误的是

A．数组中每个命令按钮的名称(Name属性)均为Command1
B．若未做修改，数组中每个命令按钮的大小都一样
C．数组中各个命令按钮使用同一个Click事件过程
D．数组中每个命令按钮的Index属性值都相同

单项选择题

窗体上已有的3个单选按钮组成了1个名为ChkOpt1的控件数组。用于区分控件数组ChkOptl中每个元素的属性是

A．Caption
B．ListCount
C．Listlndex
D．Index

单项选择题

窗体上有一个名称为Optionl的单选按钮数组，程序运行时，当单击某个单选按钮时，会调用下面的事件过程 Private Sub Optionl_Click(Index As Integer) End Sub 下面关于此过程的参数Index的叙述中正确的是

A．Index为1表示单选按钮被选中，为0表示未选中
B．Index的值可正可负
C．Index的值用来区分哪个单选按钮被选中
D．Index表示数组中单选按钮的数量

单项选择题

设在窗体上有一个名称为Checkt的复选框数组，并有以下事件过程： Private Sub Checkl_Click(Index As Integer) End Sub 则下面叙述中错误的是

A．单击数组中任何复选框都会调用此事件过程
B．参数Index的值等于单击数组中某个复选框的Index属性的值
C．上面的过程是数组中第1个复选框的事件过程
D．从过程的首部(即第1行)无法确定数组中复选框的个数

单项选择题

下面关于控件数组的叙述中正确的是

A．控件数组中所有控件的名称相同，但其Index属性值各不相同
B．控件数组中所有控件的名称相同，但其Value属性值各不相同
C．控件数组中每个元素都是独立的控件，因此都有各自的事件过程
D．上述都是错误的

单项选择题

下列关于控件数组的叙述中，正确的是

A．控件数组可以由不同类型的控件组成
B．控件数组元素的最小下标值为1
C．在设计阶段，可以改变控件数组元素的Index属性值
D．控件数组的名字由Caption属性指定

单项选择题

窗体上有一个由两个文本框组成的控件数组，名称为Text1，并有如下事件过程： Private Sub Textl_Change(Index As Integer) Select Case Index Case 0 Textl(1)．FontSize=Textl(0)．FontSize*2 Textl(1)．Text=Textl(0)．Text Case 1 Text1(0)．FontSize=Textl(1)．FontSize／2 Textl(0)．Text=Textl(1)．Text Case Else MsgBox”执行Else分支” End Select End Sub 关于上述程序，以下叙述中错误的是

A．Index用于标识数组元素
B．本程序中Case Else分支的语句永远不会被执行
C．向任何一个文本框输入字符，都会在另一个文本框中显示该字符
D．下标为0的文本框中显示的字符尺寸将越来越小

设有下面的程序段： x=InputBox(”请输入一个整数”) ReDim a(x) For k=x To 0 Step一1 a(k)=k Next k 一般，在这段程序之前应先进行数组a的定义。下面定义语句中正确的是

你可能感兴趣的试题

假定建立了一个名为Commandl的命令按钮数组，则以下说法中错误的是

列表框中的项目保存在一个数组中，这个数组的名字是

下面的语句用Array函数为数组变量a的各种元素赋值整数值：

以下数组定义语句中，错误的是

语句Dim a(-3 To 4，3 To 6)As Integer定义的数组的元素个数是

下面正确使用动态数组的是

设有如下数组定义语句： Dim a(一1 To 4，3)As Integer 以下叙述中正确的是

语句Dim Arr(-2 To 4)As Integer所定义的数组的元素个数为

下列数组定义中错误的是

以下关于数组的叙述中，错误的是

设有如下声明语句 Option Base 1 Dim arr(2，-1 To 5)As Integer 则数组arr中数组元素的个数是

以下叙述中错误的是

设有下面的程序段： x=InputBox(”请输入一个整数”) ReDim a(x) For k=x To 0 Step一1 a(k)=k Next k 一般，在这段程序之前应先进行数组a的定义。下面定义语句中正确的是

如果要在语句：a=Array(1，2，3，4，5)的前面声明变量a，则正确的声明是

设有如下一段程序： Private Sub Commandl_Click() Static a As Variant a=Array(”one”，”two”，”three”，”four”，”five”) Print a(3) End Sub 针对上述事件过程，以下叙述中正确的是

1个二维数组可以存放1个矩阵，在程序开始有语句Option Base0，则下面定义的数组中正好可以存放1个4(3矩阵(即只有12个元素))的是

默认情况下，下面声明的数组的元素个数是 Dim a(5，-2 To 2)

在程序中要使用Array函数给数组arr赋初值，则以下数组变量定义语句中错误的是

有下面程序代码： Private Sub Commandl_Click() a=Array(1，2，3，4，5，6，7，8，9，10) n=UBound(a) For k=0 To UBound(a)／2 Print a(k)*a(n)；：n=n-1 Next k End Sub 程序运行后，单击命令按钮Commandl，输出结果是

设程序中有如下数组定义和过程调用语句： Dim a(10)As Integer Call p(a) 如下过程定义中，正确的是

在窗体上画一个名为Command1的命令按钮，然后编写以下程序： Private Sub Commandl_Click() Dim M(10)As Integer For k=1 To 10 M(k)=12-k Next k x=8 Print M(2+M(x)) End Sub 运行程序，单击命令按钮，在窗体上显示的是

以下过程的功能是从数组中寻找最大值： Private Sub FindMax(a() As Integer,ByRef Max As Integer) Dim S As Integer,fAs Integer：Dim i As Integer S=LBound(a):f=UBound(a) Max=a(s) For i=S To f Ifa(i)>Max Then Max=a(i) Next End Sub 以下关于上述过程的叙述中，错误的是

在窗体上画一个文本框，其名称为Text1，然后编写如下程序：Option Base 1 Private Sub Form_Click()Dim Arr(10)As Integer For i=6 To 10 Arr(i)=i一3 Next i Text1．Text=Str(Arr(6)+Arr(Arr(6)+Arr(10))) End Sub 程序运行后，单击窗体，在文本框中显示的内容是

假定有如下程序： Private Sub Form_Click() Dim a(4)As Integer,b(4)As Integer For k=0 To 2 a(k+1)=Val(InputBox(”请输入一个整数：”)) b(3一k)=a(k+1) Next k Print b(k)End Sub 运行程序，单击窗体，依次输入3、6、9，输出结果为

阅读程序： Option Base 1 Private Sub Form_Click() Dim a(3，3)As Integer For i=1 To 3 Forj=1 To 3 a(i，j)=_____ Print a(i，j)； Nextj Print Next i End Sub 运行上面的程序，单击窗体，输出结果如下： 1 4 7 2 5 8 3 6 9 则在横线处应填入的内容为

阅读程序： Option Base 1 Sub P(bO As Integer) For i=1 To 4 b(i)=2*i Next i End Sub Private Sub Form Click() Dim a(4)As Integer For i=1 To 4 a(i)=i+4 Next i P a For i=1 To 4 Print a(i) Next i End Sub 运行上面的程序，单击窗体，输出结果为

设有下面程序代码： Option Base 1 Pfivate Sub Commandl_Click() Dim x(6) a=Array(4，2，5，1，6，3) b=Array(64，24，98，27，58，41) For k=1 To 6 x(a(k))=b(k) Next k For k=1 To 6 Print x(k)： Next k End Sub 程序运行时的输出是

以下关于控件数组的叙述中，正确的是

以下关于控件数组的叙述中，错误的是

假定通过复制、粘贴操作建立了一个命令按钮数组Command1，以下说法中错误的是

窗体上已有的3个单选按钮组成了1个名为ChkOpt1的控件数组。用于区分控件数组ChkOptl中每个元素的属性是

窗体上有一个名称为Optionl的单选按钮数组，程序运行时，当单击某个单选按钮时，会调用下面的事件过程 Private Sub Optionl_Click(Index As Integer) End Sub 下面关于此过程的参数Index的叙述中正确的是

设在窗体上有一个名称为Checkt的复选框数组，并有以下事件过程： Private Sub Checkl_Click(Index As Integer) End Sub 则下面叙述中错误的是

下面关于控件数组的叙述中正确的是

下列关于控件数组的叙述中，正确的是