违法和不良信息举报 联系客服
免费注册 登录

以下有关数组定义的语句序列中,错误的是______。A.Static arrl(3) arrl(1)=100 arrl(2)="Hello" a

题目

以下有关数组定义的语句序列中，错误的是______。

A．Static arrl(3) arrl(1)=100 arrl(2)="Hello" arrl(3)=123.45

B．Dim arr2()As Integer Dim size As Integer Private Sub Command2 Click() size=InputBox("输入：") ReDimarr2(size) End Sub

C．Option Basel Private Sub Command3 Click() Dim arr3(3)As Integer End Sub

D．Dim n As Integer Private Sub Command4 Click() Dim arr4(n) As Integer End Sub

如果没有搜索结果或未解决您的问题，请直接 联系老师 获取答案。
相似问题和答案

第1题：

在窗体上画一个命令按钮Commandl,然后编写下列代码： Private Sub Commandl_Click() Dim Arrl(10)As Integer,Arr2(10)As Integer n=3 For i=1 To 5 Arrl(i)=i Arr2(n)=2*n+1 Next i Print Arr2(n)；Arrl(n) End Sub 运行程序后，单击命令按钮，输出结果是A.11 3 B.3 11 C.13 3 D.3 13


正确答案：A
【解析】本题使用For循环给数组Arr1、Arr2的各个元素赋值，Arr1的5个元素分别赋值为1、2、3、4、5；循环后i的值为5，Arr2(n)=2*n+i=11，因为循环时n一直没有变化，因此，Arr2(n)=Arr2(3)。在窗体上输出时，Arr2(n)=Arr2(3)=11；Arr1(n)=Arr1(3)=3。

第2题：

以下有关数组定义的语句序列中，错误的是

A．Static arrl(3) arr1(1)=100 arrl(2)="Hello" arrl(3)=123.45

B．Dim arr2()As Integer Dim size As Integer Private Sub Command2_Click() size=InputBOX(“输入：”) ReDim arr2(size) ┄ End Sub

C．Option Base 1 Private Sub Command3_Click() Dim arr3(3)As Integer ┄ End Sub

D．Dim n As Integer Private Sub Command4_Click() Dim arr4(n)As Integer ┄ End Sub


正确答案：D
解析：本题考查动态数组的定义。A项定义了一个默认数组。B项定义了一个动态数组。C项直接定义。由于声明数组时不能通过变量声明数组长度，故D项是错误的。

第3题：

设有如下程序

Option Base 1

Private Sub Command1_Click()

Dim arrl

Dim Min As Integer，i As Integer

arrl=Array(12，435，76，-24，78，54， 866， 43)

Min=____

For i=2 To 8

If arrl(i)＜Min Then

Next i

Print “最小值是：”；Min

End Sub

以上程序的功能是：用Arcay函数建立一个含有8个元素的数组，然后查找并输出该数组中各元素的最小值。请填空。


正确答案：arrl(1)或12Min=arrl(i)
arrl(1)或12,Min=arrl(i) 解析：本题考查考生对简单算法的掌握。题目要求找出数组的最小值，利用一个For循环和条件语句来实现。首先应该给Min赋值，这里注意For循环是从i=2 To 8，并没有包含i=1，因此这里的初值应该是arrl(1)，也就是12。然后从数组的第2个元素开始和Min做比较，如果小于Min则应该将两者进行交换，即Min=arrl(i)。这样Min总是做过比较的元素的最小值，循环结束后，它也是整个数组的最小值。如果题目的For循环是Fori=1 To 8，那么 Min的初值可以是任意一个大于arrl最小值的数，而不一定是arr(1)。

第4题：

设有以下程序：

Option Base 1

Private Sub Command1_Click( )

Dim arr1 ,Max as Integer

art1 = Array(12,435,76,24,78,54,866,43)

【 】= arr1(1)

For i = 1 To 8

If arrl(i)＞Max Then【 】

Next i

Print "最大值："； Max

End Sub

以上程序的功能是：用Array函数建立一个含有8个元素的数组，然后查找并输出该数组中元素的最大值。


正确答案：Max Max＝arr1(i)
Max , Max＝arr1(i) 解析：Max＝arr1(1)是先将第1个元素设为最大值，然后在循环中逐一和数组元素arr1(i)进行比较，如果比当前的Max值大，则更新Max。以上程序的功能是：用Array函数建立一个含有8个元素的数组，然后查找并输出该数组中元素的最大值。

第5题：

以下有关数组定义的语句序列中，错误的是( )。

 


正确答案：D

第6题：

用下面的语句定义的数组元素的个数是 ______。 Dim Arrl(-2 To 6)As Integer

A．6

B．7

C．8

D．9


正确答案：D
解析：定义一维数组时可以定义下标上界(Up)和下界(Down)，数组元素的个数为Up-Down+1。所以其元素个数为9。

第7题：

以下有关数组定义的语句序列中，错误的是 ______。

A．Static arrl(3) arrl(1)=100 arrl(2)="Hello" arrl(3)123.45

B．Dim arr2()As Integer Dim size As Integer Private Sub Command2_click() size=InputBox("输入:") ReDimarr2(size) End Sub

C．Option Base1 Private Sub Command3_click() Dim arr3(3)As Integer End Sub

D．Dim n As Integer Private Sub Command4_Click() Dim arr4(n)As Integer End Sub


正确答案：D
解析：在数组定义中，定义的数组元素个数不能是变量。而选项D中的n是一个变量。

第8题：

在窗体上添加一命令按钮，其名为Command1，然后编写代码如下：

private Sub Command1_Click()

Dim an(5) As Integer，arrl(5) As Integer

n=3

For i=1 To 5

arr(i)=i

arrl(n)=2*n+i

Next

Print arrl(n);arr(n)

End Sub

程序的运行结果为

A．3 11

B．11 3

C．13 3

D．3 13


正确答案：B
解析：在给数组赋值时，如果每次都是赋给数组中同一个成员，那么后面的赋值将覆盖以前的值。

第9题：

下列数组定义语句中，错误的是( )。

A．Static a(10) As Integer

B．Dim c(3，1 To 4)

C．Dim d(-10)

D．Dim b(0 To 5，1 To 3)As Integer


正确答案：C
解析：本题考查的考点是有关数组定义的。在Visual Basic中，可以用4个关键字来定义数组，分别是Dim、ReDim、Public和Static。在Visual Basic中定义数组有两种格式。
格式一：Dim数组名(下标上界)＞As类型名称＞
Dim(数组名(第一维下标上界，第二维下标上界)＞As类型名称＞
格式二：Dim(数组名(下界To上界[,下界To上界]…)＞As类型名称＞
其中上界必须大于下界。本题中选项C采取第一种格式定义数组，则数组默认下界为0，上界-10小于0，故不符合要求。

第10题：

下列数组定义语句错误的是

A．k％=10 Dim Arr(k)

B．Const k％=10 Dim Arr(k)

C．Dim Arrl(10) As Integer Dim Arr2(10)

D．Dim Arrl(1 To 10) Dim Arr2(1 To 10，2 To 11)


正确答案：A
解析：数组使用前要先定义，定义数组是为了给数组分配存储空间，所以定义数组维的界不能是变量，但可以是符号常量。选项A)错误，定义数组Arr语句中，维的界用了变量k选项B)正确，定义数组Arr语句中，维的界k是符号常量；选项C)正确，用AsInteger说明数组Arrl是整型数组，数组Arr2没有指明类型，则隐含数组为Variant类型；选项D)正确。维的界用“<下界>To<上界>”的形式定义是正确的。注意：OptionBasen语句的使用。

更多相关问题
相关内容