VB数组选择题

VB数组选择题 数组 一数组的概念 一维 多维 静态 动态 控件数组 1在VB语言中，定义数组时，其下标允许是(B) A变量B常量C算数 表 关于同志近三年现实表现材料材料类招标技术评分表图表与交易pdf视力表打印pdf用图表说话 pdf 达式(可含变量)D变量?常量?算术表达式(可含变量) 2以下关于数组的说法正确的是(D) A在VB中，一个数组所包含的元素只能是相同类型的数据 B在VB中，数组只能在模块中定义，不能在过程中定义 C同普通变量一样，数组也可以不定义，先使用 D在定义数组时，数组的每一维元素的个数必须是常数，不能是变量或表达式 3(C).用语句 Dim A(-3 to 5) As Long 定义的数组元素个数是__。 A. 7 B. 8 C. 9 D.10 4(A).下列语句声明的数组a包含的元素个数有_。A120 . B. 75 C. 60 D. 13 Dim a(3 ，-2 to 2，5) 5(C). 使用下列语句:Dim x(1 to 10,3) As Single，则数组占用内存空间的字节数是 _______。A. 132 B. 80 C. 160 D. 120 6(A).下列语句声明的数组a包含的元素个数有_。A120 . B. 75 C. 60 D. 13 Dim a(3 ，-2 to 2，5) 7控件数组是通过( )来区分控件数组元素的。 A 名称 B Count属性 C Index属性 D 控件标题 8下列程序运行时，会产生( )错误。 Dim Stu(2, 3) For I = 1 To 4 For j = 1 To 5 Stu(I, j) = I * j Next j Next I A 下标越界 B 大小写不匹配 C 数组定义错误 D 循环嵌套错 9下面的数组定义语句正确的是( )。 A Dim a(3 to 6) B Dim a[3 to 4] C Dim a(10 4) D Dim a[3] 10有以下数组声明语句:Option Base 1: Dim A(3,2 to 4)，则数组A有( )个元素。 A 3 B 4 C 12 D 9 11语句:Dim S(-1 to 5) 定义的数组有( )个元素。 A 4 B 6 C 5 D 7 12语句:Dim student(10,5) As String定义的数组元素的类型为( )。 A 数值型 B 逻辑型 C 字符型 D 日期型 13语句:Dim student(10,5) 定义的是一个( )维数组。 A 1 B 2 C 5 D 10 14语句:Dim student(10,5) 定义的数组有( )个元素。 A 66 B 6 C 15 D 50 15语句:Dim student(2 to 4, 5 to 6) 定义的数组有( )个元素。 A 3 B 7 C 6 D 10 16若在“通用说明”段写有Option Base 1语句，那么Dim a(3,4) As Integer声明的数组共有(C)个元素 A 20 B 7 C 12 D 15 17用Dim A (-3 TO 3) As Integer语句定义的数组的元素个数是(D) A 6 B 7 C 8 D 9 Cint(-3.5)=Cint(-3.5)=Fix(-3.5)=-4 DLcase$(“ABC”)=”abc”,Ucase$(“Abc”)=”ABC” 18阅读以下程序，执行该程序后，数组A和数组B的值分别是(C) Private Sub From_Click() Dim a(100), b(100) For i=1 to 100 A(i) = i Next i For i=1 to 100 b(i)= a(i) +a(i-1) Next i End Sub A数组A和数组B各存储1~100的自然数 B数组A存储1~100的自然数，数组B存储101~200的自然数 C数组A存储1~100的自然数，数组B存储1~199的奇数 D数组A存储1~100的自然数，数组B存储2~200的偶数 19控件数组的index的值是从(B)开始的 A 于TabIndex相同 B 0 C 1 D 无效值 20下列程序段的执行结果为(A) Dim A(10) As Integer,B(5) As Integer For I=1 To 10 A(I)=I Next I For J=1 To 5 B(J)=J*20 Next J A(5)=B(2) Print “A(5)=”;A(5) A A(5)=5 B A(5)=10 C A(5)=20 D A(5)=40 21(C). 使用下列语句:Dim x(1 to 10,3) As Single，则数组占用内存空间的字节数是 _______。A. 132 B. 80 C. 160 D. 120 22(C). 下列程序段的循环结构执行后，i的输出值是_______。 Dim y as Integer For i = 1 To 10 Step 2 y = y + i Next i Print i A) 25 B) 10 C) 11 D) 因为y初值不知道，所以不确定 16(B). 设有如下的记录类型 Type Student number As String name As String age As Integer End Type 则正确引用该记录类型变量的代码是_______。 A. Student.name="张红" B. Dim s As Student s.name="张红" C. Dim s As Type Stuent D. Dim s As Type s.name="张红" s.name="张红" 23(A). 以下程序段的运行结果是_______。 Private Sub Form_Click() a = 1 b = a Do Until a >= 5 X = a * b Print Str(a) & "*" & Str(b) & "="; Str(X); a = a + b b = b + a Loop End Sub A. 1*1=1 2*3=6 B. 1*1=2 2*2=4 C. 1*1=1 3*3=9 D. 1*1=2 3*2=6 24(D). 在窗体上画一个命令按钮Command1，然后编写如下代码: Private Sub Command1_Click() Dim a(4, 4) For i = 1 To 4 For j = 1 To 4 a(i, j) = (i - 1) * 3 + j Next j Next i For i = 3 To 4 For j = 3 To 4 Print a(j, i); Next j Print Next i End Sub 程序运行后，单击命令按钮，输出结果是_______。 A. 6 9 B. 7 10 C. 8 11 D. 9 12 7 10 8 11 9 12 10 13 25(B). 下列程序段的运行结果是_______。 Private Sub Command1_Click() Dim a(3) As Long a(0) = 1: a(1) = 2: a(2) = 3: a(3) = 4 j = 1 For i = 3 To 0 Step -1 s = s + a(i) * j j = j * 10 Next i Print s End Sub A. 4321 B. 1234 C. 34 D. 12 26若有说明:Dim a (1 to 10) AS Integer,则下列应用(C)合法 A a (1)=”adk” B a (7)=32768C a (8)=”23”D a (0)=2.3 27下列语句中(B)可以用来正确声明一个动态数组 A Private A(n) As Integer B Dim A() As Integer C Dim A(,) As Integer D Dim A(1 to n) 28如下数组声明语句，(B)正确 A Dim a[3] As Integer B Dim a(3)As Integer C Dim a(n)As Integer D Dim a(,) As Integer 29下列的数组声明语句中(B)是正确的 A Dim A[3,4] As Integer B Dim A(3,4) As Integer C Dim A[3;4] As Integer D Dim A(3;4) As Integer 30一下说法中，不正确的是(A) A数组下标的下界默认值是0，上届可以为负数，但下届必须小于上届 B Dim(-1 TO 1,5,10 TO 15)定义了数组X，则数组X可存储的元素个数是108 C同一数组中的各元素，在计算机中的存储是连续的，大小是固定的 D数组元素的下标可以是常数，变量，但不能是表达式 31若有说明:Dim a(3,4) As Integer,则下面正确的叙述是(C) A此说明语句不正确 B只有a(0，0)初值为0 C数组a中每个元素的初值都为0 D每个元素都有初值，但未必都为0 32二维数组元素在内存中存放的顺序是(A) A按列主顺序存放 B按行住顺序存放 C不在内存中 D随机存放 33若二维数组a有m行，则计算任一元素a(i,j)在数组中的位置的公式为(D)(设a(0,0) 位于第一位) A i*m+j B j*m+i C i*m+j-1 D i*m+j+1 34若二维数组a有m行，则在a(i,j)前的元素的个数为(A) A i*m+j B j*m+i C i*m+j-1 D i*m+j+1 35一下说法不正确的是(C) A使用ReDim语句可以改变数组的维数 B使用ReDim语句可以改变数组的类型 C使用ReDim语句可以改变数组每一维的大小 D使用ReDim语句可以对数组中的所有元素进行初始化 36(C). 以下程序段的运行结果是_______。 Private Sub Form_Click() Dim x() As String a = " How are you!" n = Len(a) ReDim x(1 To n) For i = n To 1 Step -1 x(i) = Mid(a, i, 1) Next I For i = 1 To n Print x(i); Next i End Sub A. !uoy era woHB. !uoy era woh C. How are you! D. how are you! 37在窗体上画三个单选按钮，组成一个名为chkOption的控件数组，用于标识控件数组各 元素的参数是(B) A Tag B Index C ListIndex D Name 二 数组相关 函 关于工期滞后的函关于工程严重滞后的函关于工程进度滞后的回复函关于征求同志党风廉政意见的函关于征求廉洁自律情况的复函 数 Array LBound UBound 38执行以下Command1的Click事件过程结果(B) Option Base 0 Private Sub Command1_Click() Dim a a=Array(“a”,”b”,”c”,”d”,”e”,”f”,”g”) Print a(1);a(3);a(5) End Sub A abc B bdf C ace D 出错 39执行以下Command1的Click事件过程结果(D) Option Base 1 Private Sub Command1_Click() Dim a a=Array(1，2，3，4) j=1 For i=4 To 1 Step -1 s=s+a(i)*j j=j*10 Next i Print s End Sub A 4321 B12 C34 D1234 40(D). 以下程序运行的结果是_______。 Dim a a=Array(1, 3, 4, 5, 6, 7) For i = LBound(a) To UBound(a) a(i) = a(i) * a(i) Next i Print a(i) A) 49 B) 0 C) 不确定 D) 下标越界 41(C). 定义数组Array(1 to 5,5)后，下列哪一个数组元素不存在_______。 A. Array(1,1) B. Array(1,0) C. Array(0,1) D. Array(5,5) 42(D). 在窗体上添加一个命令按钮Command1，然后编写如下代码: Private Sub Command1_Click() Dim city As Variant city = Array("北京", "上海", "天津", "重庆") Print city(1) End Sub 程序运行后，单击命令按钮，输出结果是_______。 A. 空白 B. 错误提示 C. 北京 D. 上海 43(D). 以下程序运行的结果是_______。 Option Base 1 Private Sub Command1_Click() Dim a,b(3,3) a=array(1,2,3,4,5,6,7,8,9) For i=1 To 3 For j=1 To 3 b(i,j)=a(i*j) If (j>=i) Then Print Tab(j*3);Format(b(i,j),"# # #"); Next j Print Next i End Sub A. 1 2 3 B. 1 C. 1 4 7 D.1 2 3 4 5 6 4 5 2 4 6 4 6 7 8 9 7 8 9 3 6 9 9 44(B). 在窗体上画一个命令按钮Command1，然后编写如下代码: Private Sub Command1_Click() Dim arr1(10), arr2(10) As Integer n = 3 For i = 1 To 5 arr1(i) = i arr2(n) = 2 * n + i Next i Print arr1(n),arr2(n); End Sub 程序运行后，单击命令按钮，输出结果是_______。 A) 11 3 B) 3 11 C) 13 3 D) 3 13 45(C). 有如下程序: Private Sub Form_Load() Dim arr1(10, 10) As Integer Dim i, j As Integer For i = 1 To 3 For j = 2 To 4 arr1(i, j) = i + j Next j Next i Text1.Text = arr1(2, 3) + arr1(3, 4) End Sub 程序运行后，单击窗体，在文本框显示的值是_______。 A. 5 B. 7 C. 12 D. 20 46(C). 在窗体上添加一个命令按钮Command1，然后编写如下代码: Option Base 1 Private Sub Command1_Click() d = 0: c = 10 x = Array(10, 12, 21, 32, 24) For i = 1 To 5 If x(i) > c Then d = d + x(i) c = x(i) Else d = d - c End If Next i Print d End Sub 程序运行后，单击命令按钮，输出结果是_______。 A. 89 B. 99 C. 23 D. 77 三 基本操作 输入 输出 复制 47设用复制，粘帖的方法建立了一个命令按钮数组Command1,以下对该数组的说法错误的是 (B) A命令按钮的所有Caption属性都是Command1 B在代码中访问任意一个命令按钮只需使用名称Command1 C命令按钮的大小都相同 D命令按钮共享共同的事件过程 48(A). 在Visual Basic中，InputBox函数的默认返回值类型为字符串，用InputBox函数 输入数值型数据时，下列操作中可以有效防止程序出错的操作是_______。 A. 事先对要接收的变量定义为数值型 B. 在函数InputBox前面使用Str函数进行类型转换 C. 在函数InputBox前面使用Value函数进行类型转换 D. 在函数InputBox前面使用String函数进行类型转换 49(A). 在Visual Basic中，InputBox函数的默认返回值类型为字符串，用InputBox函数 输入数值型数据时，下列操作中可以有效防止程序出错的操作是_______。 A. 事先对要接收的变量定义为数值型 B. 在函数InputBox前面使用Str函数进行类型转换 C. 在函数InputBox前面使用Value函数进行类型转换 D. 在函数InputBox前面使用String函数进行类型转换 50InputBox 函数返回值的类型是( )。 B 数值 C 变体 D 逻辑 A 字符串 51设执行以下程序段时依次输入1，3，5，执行结果为(A) 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) A 1 B 3 C 5 D 0 52(A). 执行如下程序段时，从键盘输入-5，输出的结果是_______。 x=-5 s=Val(InputBox("请输入s的值:")) Select Case s Case Is>0 y=x+1 Case Is=0 y=x+2 Case Else y=x+3 End Select Print x;y A. -5 -2 B. -5 -4 C. -5 -3 D. -5 -5