下列数组描述中不正确的代码是（）。A、integer cou [7:0] ;B、reg bool [16:0] ;C、integer mat [4:0][0:127] ;D、reg [8*8:1] carray_value;
题目
下列数组描述中不正确的代码是（）。
- A、integer cou [7:0] ;
- B、reg bool [16:0] ;
- C、integer mat [4:0][0:127] ;
- D、reg [8*8:1] carray_value;
相似考题
更多“下列数组描述中不正确的代码是（）。A、integer cou [7:0] ;B、reg bool [16:0] ;C、integer mat [4:0][0:127] ;D、reg [8*8:1] carray_value;”相关问题
-
第1题：
函数过程F1的功能是：如果参数b为奇数，则返回值为1，否则返回值为0。以下能正确实现上述功能的代码是（ ）。
A．Function F1（b As Integer）
If b Mod 2 = 0 Then
Return 0
Else
Return 1
End If
End Function
B．Function F1（b As Integer）
If b Mod 2 = 0 Then
F1 = 0
Else
F1 = 1
End If
End Function
C．Function F1（b As Integer）
If b Mod 2 = 0 Then
F1 = 1
Else
F1 = 0
End If
End Function
D．Function F1（b As Integer）
If b Mod 2 <> 0 Then
Return 0
Else
Return 1
End If
End Function
正确答案：B
-
第2题：
下列一维数组初始化语句中，正确且与语句floata[]={0,3,8,0,9};等价的是().
A.floata[6]={0,3,8,0,9};
B.floata[4]={0,3,8,0,9};
C.floata[7]={0,3,8,0,9};
D.floata[5]={0,3,8,0,9};
正确答案：D
-
第3题：
以下定义数组或给数组元素赋值的语句中，正确的是
A．Dim x%(2) x(1)="等级考试"
B．Dim x(3)， y(3)As Integer x(0)=1：y=x
C．Dim x x=Array(0，1，2)
D．Dim x(3)As Integer x=Array(0，1，2)
正确答案：C
解析：在选项A中，用类型说明符“%”放在变量名x的尾部来标识该变量为整型数组，执行语句“x(1)=“等级考试"”会产生“类型不匹配”的错误。在选项B中，执行语句“y=x”，会产生“不能给数组赋值”的错误。在使用Array函数对数组进行初始化时，数组变量不能是具体的数据类型，只能是Variant(变体)类型。所以选项C是正确的，选项D是错误的。 -
第4题：
当Command1_Click事件发生时，窗体上显示的内容是 ______。 Private Sub Command1_Click() Dim a As Integer，b As Integer，c As Integer If a = 0 Then x = x-1 Else If b ＜＞ 0 Then x = 7 Else x=x+8 End If If c ＜＞ 0 Then x = x-3 Else x = 4 End If Print x End Sub
A．7
B．8
C．4
D．3
正确答案：C
解析：本题先定义了三个变量，其默认值都为0。执行If语句，其条件“a=0”为True，“b＞0”为False，“c＞0”为False.依次执行结构体中的语句后，x的值为4。 -
第5题：
函数过程F1的功能是：如果参数b为奇数，则返回值为1，否则返回值为0。以下能正确实现上述功能的代码的是______。
A． Function Fl(b As Integer) If b Mod 2=0 Then Return 0 Else Return 1 End If End Function
B．Function Fl(b As Integer) If b Mod 2=0 Then F1=0 Else F1=1 End If End Function
C．Function F1(b As Integer) If b Mod 2=0 Then F1=1 Else F1=0 End If End Function
D．Function Fl(b As Integer) If b Mod 2＜＞Then Return 0 Else Return 1 End If End Function
正确答案：B
解析：Visual Basic程序中不能使用Return语句来返回一个函数的值。要返回一个函数的值，需要把这个值赋值给函数名。所以本题中AD选项错误，而题目中，当b为奇数时返回0，所以本题答案是B。 -
第6题：
单击一次命令按钮之后，下更程序代码的执行结果为______ 。 Public Sub Proc(a() As Integer) Static i As Integer Do a(i) = a(i) + a(i + 1) i=i+1 Loop While i ＜ 2 End Sub Private Sub Command1_Cliek() Dim m As Integer Dim i As Integer Dim x(10) As Integer For i = 0 To 4 x(i) = i + 1 Next i For i = 1 To 2 Call Proc (x) Next i For i = 0 To 4 Print x(i); Next i End Sub
A．3 4 7 5 6
B．3 5 7 4 5
C．1 2 3 4 5
D．1 2 3 5 7
正确答案：B
-
第7题：
语句Dim a(一3 T0 4，3 T0 6)As Integer定义的数组的元素个数是（ ）
正确答案：D
本题考查二维数的运用。它的格式如下：Dim数组名([下界To]上界[，[下界To]上界]．．…·)As类型名称就本题而言，a为数组名。a(一3T04)其下标的下界为一3，上界为4，下标值在一3～4之间，数组元素为a(～3)、a(一2)、a(～1)、a(o)、a(1)、a(2)、a(3)、a(4)，共8个元素；a(3T06)其下标的下界为3，上界为6，下标值在3～6之间，数组元素为a(3)、a(4)、a(5)、a(6)，共4个元素。所以该数组的元素个数为32(8×4)个。 -
第8题：
单击命令按钮后，下列程序代码的执行结果是______。
Public Sub fun (a As Integer, b As Integer, c As Integer)
Do
a=b+ c
n=n+1
Loop While n ＞ 3
End Sub
Private Sub command1_ click()
Dim m As Integer, n As Integer, i As Integer
For i = 0 To 2: m = n + 1: Next i
For i = 1 To 2: Call fun (m, n, i): Next i
For i = 0 To 3
Print m;
Next i
End Sub
正确答案：2 2 2 2
2 2 2 2 -
第9题：
程序代码如下，当单击窗体上的Command1控件时，在窗体上输出的结果是( )。 Private Sub Command1_Click() Dim aa(3，3)As Integer Dim i As Integer,j As Integer Dim s As Integer For i=0 To 3 For j=0 To 3 aa(i，j)=i*4+j+1 Next j Next i For i=0 To 3 s=s+aa(i，1) Next i Print s End Sub
A．32
B．28
C．30
D．36
正确答案：A
解析：当发生Command1_click事件时，将定义一个4行4列的数组aa(数组下标从0开始)，然后通过一个两层For循环给它的各个元素赋值，赋值规律是给每一个元素赋它的行下标值乘以4，再加上列下标值再加1。然后通过一个For循环把数组元素aa(0，1)、aa(1，1)、aa(2，1)和aa(3，1)的值2、6、10、14加到s中，s的值为32。 -
第10题：
在窗体上画一个名称为Commandl的命令按钮，然后编写如下事件过程： Private Sub Command1_Click() Dim n As Integer For n = 0 To 9 Step 3 Print rel(n)； Next n End Sub Private Function rel(ByVal i As Integer)As Integer Dim x As Integer x = 0 For j = 1 To i If i ＜ 5 Then rel = i： EXit Function x = x + i Next i rel = x End Function 程序运行后，单击命令按钮，则窗体上显示的内容是
A．1 3 5 7
B．2 8 14 53
C．0 3 21 45
D．0 5 11 34
正确答案：C
解析：ExitFunction的功能是立即终止函数的运行并回到调用函数的地方继续执行其他语句。在Function过程的任何位置都可以设置ExitFunction语句。变量n传值为0、3、6、9，4次调用rel函数过程，由于0和3都小于5，使得i5不成立，被执行了“ExitFunction”语句，函数名将0和3返回。而6和9没有使得i5成立，变量x的计算结果分别为21和45，也被函数名返回。 -
第11题：
在窗体上面画一个命令按钮和一个标签，其名称分别为Command1和Label1，然后编写如下代码： Sub S(X As Integer，y As Integer) Static z As Integer y=x*x+Z z=y End Sub Private Sub Command1 Click（ ） Dim i As Integer．z As Integer m=0 z=0 For i=1 T0 3 S i，Z m=m+z Next i Label1．Caption=Str(m) 程序运行后，单击命令按钮，在标签中显示的内容是（ ）。
A.50
B.20
C.14
D.7
正确答案：B
B。【解析】本题中有Sub过程，此过程中s函数使用的参数传递为地址传递，并且z变量为静态变量，所以变量2将会保存上=次计算的值，而z=Y是为静态变量进行赋值。在Click事件中的2和Sub过程中的z只是同名，没有其他的关系，所以当i=1时调用s函数，此时的y=1*1+0=1，z=y=1，当i=2时，y=2*2+1=5，z=y=5，当i=3时，y=3*3+5=14，z=14，此时m=m+z，所以m=0+1+5+14=20，所以答案选择B。 -
第12题：
下列程序段的执行结果为______。 Dim m(3,3)As Integer Dim i As Integer Dim j As Integer Dim x As Integer For i=1 To 3 m(i,i)=i Next For i=0 T0 3 For j=0 To 3 x=x+m(i, j) Next Next Print x
A．3
B．4
C．5
D．6
正确答案：D
解析：通过第一个以i为循环变量的循环，令a(1，1)=1，a(2，2)=2，a(3，3)=3。然后通过双重循环，求数组a中所有元素的和并将结果赋值给x，由于在数组a中除了a(1，1)、a(2，2)和a(3，3)外其他元素都为0，所以x=1+2+3=6。 -
第13题：
阅读程序： Private Sub Command1_Click（ ） Dim arr Dim i As Integer arr=Array(0，1，2，3，4，5，6，7，8，9，10) For i=0 To 2 Print arr(7-i)； Next End Sub 程序运行后，窗体上显示的是（ ）。
A.8 7 6
B.7 6 5
C.6 5 4
D.5 4 3
正确答案：B
B。【解析】该题首先计算出arr(7-i)，得出arr(7)，arr(6)，arr(5)这三个数是数组中的第8，7，6个元素，VB数组下表从0开始，所以输出应该为7，6，5。 -
第14题：
以下定义数组或给数组元素赋值的语句中，正确的是
A．Dim a As Variant a=Array(1，2，3，4，5)
B．Dim a (10) As Integer a=Array(1，2，3，4，5)
C．Dim a%(10) a(1)="ABCDE"
D．Dim a (3)，b(3) As Integer a(0)=0 a(1)=1 a(2)=2 b=a
正确答案：A
解析：对于一数组，赋值一般可以用For循环来逐一赋值，也可以用Array函数来赋值。Array函数赋值的方法为：数组变量名=Array(表达式，表达式，…)故答案A是正确的。注意，在用Array函数赋值时，数组变量名后面不需要加“()”。选项B的错误在于它首先定义了一个静态数组，然后用Array函数赋值，并且所赋的元素只用5个，少于a数组应有的数组元素个数。选项c的错误在于数据类型不搭配，Dim定义a为%数据类型，而a(1)被赋以字符串数据。选项D中a数组的赋值方法是正确的，但b的赋值不能通过b=a这种方式，可以使用For循环语句来赋值。考生需特别注意。 -
第15题：
要定义数组a，使得其中每个元素的数据依次为3，9，4，8，0，0，0，错误的定义语句是 ( )。
A．int a[]={3,9,4,8,0,0,0};
B．int a[9]={3,9,4,8,0,0,0};
C．int a[]={3,9,4,8};
D．int a[7]={3,9,4,8,0,0,0};
正确答案：C
解析：选项C的定义方式中，a数组只包含4个元素，因此选项C不符合题意要求。而其他3个选项中的定义方式都可以实现题目的要求。 -
第16题：
在窗体上画一个名称为CoilTlilandl的命令按钮，然后编写如下事件过程： Private Sub command1 Click() Dim m As Integer， i As Integer， x(3)As Integer For i=0 To 3：x(i)=i：Next i For i = 1 To 2： Call sub1(x，i)：Next i For i = 0 To 3： Print x(i)；： Next i End Sub Private Sub sub1(a()As Integer，k As Integer) Dim i As Integer Do a(k)=a(k)+a(k+1) j = j + 1 Loop While j ＜ 2 End Sub 程序运行后，单击命令按钮，则窗体上显示的内容是
A．0 3 7 5
B．0 1 2 3
C．3 2 4 5
D．0 5 8 3
正确答案：D
解析：数组也可以作为函数或者过程的参数，使用方法是直接使用数组名加括号，也可以直接使用数组名，采用sub1(x)和sub1(x())的调用形式都正确。变量i的作用只控制循环次数。 -
第17题：
23 有如下程序段，该程序段循环的次数是______。 Dim i As Integer Dim j As Integer Dim k As Integer k=0 For i = 0 To 10 Step 3 For j = 1 To 5 If j ＞ 3 Then k = k + 4: Exit For k=k+1 Print k Next j If i ＞ 8 Then Exit For Next i
A．9
B．10
C．11
D．12
正确答案：D
-
第18题：
在窗体上画一个按钮，然后编写如下的事件代码。在按钮上单击，输出为( )。 Private Sub fun() Static a As Integer a=a+2 Print a； End Sub Private Sub Command1_Click() Dim m As Integer For m=1 To 3 Call fun Next m End Sub
A．2 2 2
B．0 0 0
C．2 4 8
D．2 4 6
正确答案：D
解析：当发生Command1的单击事件时，事件过程中的For循环执行三次，调用三次Sub过程，在Sub过程中定义了一个静态变量a，注意，过程调用结束后静态变量的值仍旧保留，下一次进入的时候静态变量的值是上一次退出时的值，所以每调用一次fun过程，a的值就加2，所以三次调用分别输出的值为246。 -
第19题：
要定义数组A，使得其中每个元素的数据依次为：3、9、4、8、0、0、0，错误的定义语句是( )。
A．int A[]={3,9,4,8,0,0,0)；
B．int A[9]：{3,9,4,8,0,0,0)；
C．int A[]={3,9,4,8)；
D．int A[7]={3,9,4,8)；
正确答案：C
-
第20题：
下面4个CT函数中是用来判断用户输入的数是否为奇数的，是奇数的返回1，否则返回0，其中正确的是
A．Function CT(ByVal a As Integer) If a Mod 2=0 Then Return 0 ElSe Return 1 End if End Function
B．Function CT(ByVal a As Integer) If a Mod 2=0 Then CT=0 Else CT=1 End if End Function
C．Function CT(ByVal a As Integer) If a Mod 2=0 Then CT=1 Else CT=0 End if End Function
D．Function CT(ByVal a As Integer) If a Mod 2=0 Then Return 1 Else Return 0 End if End Function
正确答案：B
解析：在此题中考查了函数的定义，及其有关操作，对于奇数的判断是用取模来判断的，奇数不能被2争取，或者说奇数除以2后的余数是1，而偶数能被2整数，即偶数除以2后的余数是0，因此判断语句应为IfaMod2=0ThenCT=0ElseCT=1；即当a为偶数时返回值是0，a为奇数时返回值是1，符合题意。 -
第21题：
程序代码如下，当单击窗体上的Command1控件时，窗体上显示的结果是( )。 Private Sub Command1_Click() Dim i As Integer，a(9)As Integer For i=9 To 0 Step-1 a(i)=10-i Next i Print a(2); a(5)；a(8) End Sub
A．2 5 8
B．7 4 1
C．8 5 2
D．3 6 9
正确答案：C
解析：本题首先定义了一个一维数组a，它具有10个元素，分别是a(0)～a(9)。然后通过一个For循环给它的各个元素赋值，赋值规律是“10-元素下标”，赋值过后，元素a(0)～a(9)的值依次是10～1。最后输出的a(2)、a(5)和a(8)的值分别是852。 -
第22题：
函数过程n的功能是：如果参数b为奇数，则返回值为1，否则返回值为0。以下能正确实现上述功能的代码的是______。
A．Function F1(b As Integer) If b Mod 2=0 Then Return 0 Else Return 1 End If End Function
B．Function F1(b As Integer) If b Mod 2=0 Then F1=0 Else F1=1 End If End Function
C．Function F1(b As Integer) If b Mod 2=0 Then F1=1 Else F1=0 End If End Function
D．Functionn(b As Integer) If b Mod 2 ＜＞0Then Return 0 Else Return 1 End If End Function
正确答案：B
解析：Visual Basic程序中不能使用Return语句来返回一个函数的值。要返回一个函数的值，需要把这个值赋值给函数名。所以本题中AD选项错误，而题目中，当b为奇数时返回0，所以本题答案是B。 -
第23题：
程序代码如下，当单击窗体上的Command1控件时，窗体上输出的结果是( )。 Private Sub Command1_Click() Dim Y As Integer，I As Integer Dim A(7)As Integer Y=18：I=0 Do A(I)=Y Mod 2 I=I+1 Y=Y\2 Loop Until Y＜1 For j=I-1 To 0 Step-1 Print A(j)； Next j End Sub
A．1 0 0 0
B．1 0 0 1 0
C．0 0 1 1 0
D．1 0 1 0 0
正确答案：B
解析：程序中Do-Loop循环的执行过程是：第一次I=0，Y=18，把YMod2的值0存入a(0)，I加1使I值变成1，Y\2存入Y，从而使Y变成9，Y为9不小于1，依旧循环：第二次I=1，Y=9，把YMod2的值1存入a(1)，i加1变成2，Y\2存入Y，从而使Y变成4，Y为4不小于1，依旧循环：第三次I=2，Y=4，把YMod2的值0存入a(2)，i值加1变成3，Y\2存入Y，从而使Y变成2，Y为2不小于1，依旧循环；第四次I=3，Y=2，把YMod2的值0存入a(3)，i值加1变成4，Y\2存入Y，从而使Y变成1，Y为1不小于1，依旧循环：第五次I=4，Y=1，把YMod2的值1存入a(4)，i值的加1变成5，Y/2存入Y，从而使Y变成0，Y为0小于1，循环退出。再通过For循环从a(4)到a(0)输出数组元素，结果是“10010”。