visual basic 数组选择题

《visual basic 数组选择题》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、数组一数组的概念一维多维静态动态控件数组1在VB语言中，定义数组时，其下标允许是（B）A变量B常量C算数表达式（可含变量）D变量·常量·算术表达式（可含变量）2以下关于数组的说法正确的是（D）A在VB中，一个数组所包含的元素只能是相同类型的数据B在VB中，数组只能在模块中定义，不能在过程中定义C同普通变量一样，数组也可以不定义，先使用D在定义数组时，数组的每一维元素的个数必须是常数，不能是变量或表达式3(C).用语句DimA(-3to5)AsLong定义的数组元素个数是__。A.7B.8C.9D.104(A).下列语句声明的数组a包含的元素个数有_。A120.B.75

2、C.60D.13Dima(3，-2to2，5)5(C).使用下列语句：Dimx(1to10,3)AsSingle，则数组占用内存空间的字节数是_______。A.132B.80C.160D.1206(A).下列语句声明的数组a包含的元素个数有_。A120.B.75C.60D.13Dima(3，-2to2，5)7控件数组是通过（）来区分控件数组元素的。A名称BCount属性CIndex属性D控件标题8下列程序运行时，会产生（）错误。DimStu(2,3)ForI=1To4Forj=1To5Stu(I,j)=I*jNextjNextIA下标越界B大小写不匹配C数组定义错误

3、D循环嵌套错9下面的数组定义语句正确的是（）。ADima(3to6)BDima[3to4]CDima(104)DDima[3]10有以下数组声明语句：OptionBase1:DimA(3,2to4)，则数组A有（）个元素。A3B4C12D911语句：DimS(-1to5)定义的数组有（）个元素。A4B6C5D712语句：Dimstudent(10,5)AsString定义的数组元素的类型为（）。A数值型B逻辑型C字符型D日期型13语句：Dimstudent(10,5)定义的是一个（）维数组。A1B2C5D1014语句：Dimstudent(10,5)定义的数组有（）个

4、元素。A66B6C15D5015语句：Dimstudent(2to4,5to6)定义的数组有（）个元素。A3B7C6D1016若在“通用说明”段写有OptionBase1语句，那么Dima(3,4)AsInteger声明的数组共有（C）个元素A20B7C12D1517用DimA(-3TO3)AsInteger语句定义的数组的元素个数是（D）A6B7C8D9Cint(-3.5)=Cint(-3.5)=Fix(-3.5)=-4DLcase$(“ABC”)=”abc”,Ucase$(“Abc”)=”ABC”18阅读以下程序，执行该程序后，数组A和数组B的值分别是（C）Pri

5、vateSubFrom_Click()Dima(100),b(100)Fori=1to100A(i)=iNextiFori=1to100b(i)=a(i)+a(i-1)NextiEndSubA数组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相同B0C1D无效值20下列程序段的执行结果为（A）DimA(10)AsInteger,B(5)As

6、IntegerForI=1To10A(I)=INextIForJ=1To5B(J)=J*20NextJA(5)=B(2)Print“A(5)=”;A(5)AA(5)=5BA(5)=10CA(5)=20DA(5)=4021(C).使用下列语句：Dimx(1to10,3)AsSingle，则数组占用内存空间的字节数是_______。A.132B.80C.160D.12022(C).下列程序段的循环结构执行后，i的输出值是_______。DimyasIntegerFori=1To10Step2y=y+iNextiPrintiA)25B)10C)11D)因为y初值不知道，所以

7、不确定16(B).设有如下的记录类型TypeStudentnumberAsStringnameAsStringageAsIntegerEndType则正确引用该记录类型变量的代码是_______。A.Student.name="张红"B.DimsAsStudents.name="张红"C.DimsAsTypeStuentD.DimsAsTypes.name="张红"s.name="张红"23(A).以下程序段的运行结果是_______。PrivateSubForm_Click()a=1b=aDoUntila>=5X=a*bPrintStr(a)&"*