以下叙述中错误的是

单项选择题

设有下面的程序段： 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 Imeger
B．Dim a(5)As Variant
C．Dim a(1 To 5)As Integer
D．Dim a As Variant

单项选择题

设有如下一段程序： Private Sub Command1_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

单项选择题

在窗体上画一个命令按钮(其Name属性为Command1)，然后编写如下代码： Private Sub Command1_Click() Dim n()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

单项选择题

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

单项选择题

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

A．20
B．24
C．25
D．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)

单项选择题

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

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

单项选择题

有下面程序代码： Private Sub Command1_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 程序运行后，单击命令按钮Command1，输出结果是

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

单项选择题

有下面程序代码： Option Base1 Private Sub Command1_Click() Dim a(10)As Integer，x，b x=InputBox("请输入一个多位整数") For k=l 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、Command2两个命令按钮。现编写以下程序： Option Base 0 Dim a()As Integer，m As Integer Private Sub Command1_Click() m=InputBox("请输入一个正整数") ReDim a(m) End Sub Private Sub Command2 Click() m=InputBox("请输入一个正整数") ReDim a(m)End Sub 运行程序时，单击Command1后输入整数10，再单击Command2后输入整数5，则数组a中元素的个数是

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

单项选择题

在窗体上画一个名为Command1的命令按钮，然后编写以下程序： Private Sub Command1_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 Command1_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

单项选择题

在窗体上画一个名称为Text1的文本框，并编写如下程序： Option Base1 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=c End Sub 运行程序，单击窗体，则在文本框中显示的是

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

单项选择题

以下过程的功能是从数组中寻找最大值： Pfivate Sub FindMax(a() As Integer，ByRef Max As Integer) Dim S As Integer，f As 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用于存放找到的最大值

单项选择题

窗体上有一个名称为Command1的命令按钮，并有如下程序代码： Option Base1 Private Sub Command1_Click() Dim a％(3，3) For i=l To 3 For i=l To 3 Ifi>1 And{>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

单项选择题

窗体上有一个名称为Command1的命令按钮，其单击事件过程如下： Option Base1 Private Sub Command1_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 For i=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 Command1_Click() Open"c：＼f1．txt"For Input As #1 Open"c：＼f2．txt"For OutputAs #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方式，打开t2．txt应该使用Input方式
B．Not EOF(2)应该改为Not EOF(1)
C．Line Input应改为Get
D．Close语句改为Close AIl

以下叙述中错误的是

你可能感兴趣的试题

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

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

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

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

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

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

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

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

下列数组定义中错误的是

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

设有如下声明语句 Option Base1 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 Command1_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)

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

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

有下面程序代码： Private Sub Command1_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 程序运行后，单击命令按钮Command1，输出结果是

在窗体上画一个名为Command1的命令按钮，然后编写以下程序： Private Sub Command1_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 运行程序，单击命令按钮，在窗体上显示的是