VB-第四章-数组习题

第一章数组一、选择题1．在窗体上画一个命令按钮，然后编写如下程序：OptionBase1PrivateSubCommand1_Click(IndexAsInteger)DimArr1(12)AsInteger,Arr2(3)AsIntegerDimSumAsIntegerSum=2Fori=1To12Arr1(i)=iNextiFori=1To3Arr2(i)=Arr1(i*i)NextiFori=1To3Sum=Sum+Arr2(i)NextiPrintSumEndSub程序运行后，单击命令按钮，在窗体上的输出结果是A．16B．24C．32D．362．在窗体上画一个文本框，然后编写如下代码：OptionBase1PrivateSubForm_Click()DimarrDimStartAsInteger,FinishAsIntegerDimSumAsIntegerarr=Array(12,4,8,16)Start=LBound(arr)Finish=UBound(arr)Sum=0Fori=StartToFinishSum=Sum+arr(i)Nextic=Sum/FinishText1.Text=cEndSub程序运行后，单击窗体，则在文本框中显示的内容是A．40B．10C．12D．163．阅读程序：OptionBase1PrivateSubForm_Click()DimArr(4,4)AsIntegerFori=1To4Forj=1To4Arr(i,j)=(i-1)*2+jNextjNextiFori=3To4Forj=3To4PrintArr(j,i);NextjPrintNextiEndSub程序运行后，单击窗体，输出结果是A．57B．68C．79D．81068798108114．用下面的语句所定义的数组的元素个数是DimA(-3To5)AsIntegerA．6B．7C．8D．95．用下面的语句所定义的数组的元素个数是Dimarr(3To5,-2To2)A．20B．12C．15D．246．在窗体上画一个命令按钮（其Name属性为Command1），然后编写如下代码：PrivateSubCommand1_Click()DimArr1(10),Arr2(10)AsIntegern=3Fori=1To5Arr1(i)=iArr2(n)=2*n+iNextiPrintArr2(n);Arr1(n)EndSub程序运行后，单击命令按钮，输出结果是A．113B．311C．133D．3137．在窗体上画一个命令按钮（其Name属性为Command1），然后编写如下代码：OptionBase1PrivateSubCommand1_Click()Dima(10),p(3)AsIntegerk=5Fori=1To10a(i)=iNextiFori=1To3p(i)=a(i*i)NextiFori=1To3k=k+p(i)*2NextiPrintkEndSub程序运行后，单击命令按钮，输出结果是A．35B．28C．33D．378．在窗体上画一个命令按钮（其Name属性为Command1），然后编写如下代码：OptionBase1PrivateSubCommand1_Click()Dimaa=Array(1,2,3,4)j=1Fori=4To1Step-1s=s+a(i)*jj=j*10NextiPrintsEndSub程序运行后，单击命令按钮，输出结果是A．4321B．12C．34D．12349．在窗体上画一个命令按钮（其Name属性为Command1），然后编写如下代码：OptionBase1PrivateSubCommand1_Click()DimArr(3)AsIntegerFori=1To3Forj=1To3Arr(j)=Arr(i)+1NextjNextiPrintArr(3)EndSub程序运行后，单击命令按钮，输出结果是A．7B．6C．5D．410．在窗体上画一个名称为List1的列表框，一个名称为Label1的标签框。列表框中显示若干城市的名称，当单击列表框中的某一城市名时，在标签中显示选中城市的名称。下列能正确实现上述功能的程序是A．PrivateSubList1_Click()B．PrivateSubList1_Click()Label1.Caption=List1.ListIndexLabel1.Name=List1.ListIndexEndSubEndSubC．PrivateSubList1_Click()D．PrivateSubList1_Click()Label1.Name=List1.TextLabel1.Caption=List1.TextEndSubEndSub11．为了使列表框中的项目分为多列显示，需要设置的属性为A．ColumnsB．StyleC．ListD．MultiSelect12．要想不使用Shift或Ctrl键就能在列表框中同时选择多个项目，则应把该列表框的MultiSelect属性设置为A．0B．1C．2D．其他13．删除列表框中指定的项目所使用的方法为A．MoveB．RemoveC．ClearD．RemoveItem14．用户在组合框中输入或选择的数据可以通过一个属性获得，这个属性是A．ListB．ListIndexC．TextD．ListCount二、填空题1．在窗体上画一个文本框，然后编写如下程序：OptionBase1PrivateSubForm_Click()DimArr(10)AsIntegerFori=6To10Arr(i)=i-3NextiText1.Text=Str(Arr(6)+Arr(Arr(6)+Arr(10)))EndSub程序运行后，单击窗体，在文本框中显示的内容是10。2．以下程序的功能是产生10个0～1000的随机整数，放入数组Arr中，然后输出其中的最大值。请填空。OptionBase1PrivateSubForm_Click()DimArr(10)AsIntegerDimMaxAsIntegerRandomizeFori=1To10Arr(i)=Int(Rnd*1000)NextiMax=Arr(1)Fori=2To10IfMaxArr(i)ThenMax=Arr(i)EndIfNextiPrintMaxEndSub3．以下程序的功能是，程序运行后，单击命令按钮，输出结果为：147258369请填空。PrivateSubCommand1_Click()DimArr(3,3)AsIntegerFori=1To3Forj=1To3Arr(i,j)=______PrintArr(i,j);NextjPrintNextiEndSub4．控件数组的名字由属性指定，而数组中的每个元素由属性指定。5．由Array函数建立的数组必须是变体类型。6．在窗体上画一个命令按钮（其Name属性为Command1），然后编写如下代码：PrivateSubCommand1_Click()Dimn()AsIntegerDima,bAsIntegera=InputBox(Enterthefirstnumber)b=InputBox(Enterthesecondnumber)ReDimn(aTob)Fork=LBound(n,1)ToUBound(n,1)n(k)=kPrintn(;k;)=;n(k)NextkEndSub程序运行后，单击命令按钮，在输入对话框中分别输入2和3，输出结果为。7．在窗体上画一个命令按钮（其Name属性为Command1），然后编写如下代码：PrivateSubCommand1_Click()Dima(5)Fori=0To4a(i)=i+1t=i+1Ift=3ThenPrinta(i);a(t-1)=a(i-2)Elsea(t)=a(i)EndIfIfi=3Thena(i+1)=a(t-4)a(4)=1Printa(i);NextiEndSub程序运行后，单击命令按钮，输出结果是。8．在窗体上画一个命令按钮（其Name属性为Command1），然后编写如下代码：PrivateSubCommand1_Click()DimM(10)AsIntegerFork=1To10M(k)=12-kNextkx=6PrintM(2+M(x))EndSub程序运行后，单击命令按钮，输出结果为。9．在窗体上画一个命令按钮（其Name属性为Command1），然后编写如下代码：PrivateSubCommand1_Click()Dima(5,5)Fori=1To3Forj=1To4a(i,j)=i*jNextjNextiForn=1To2ForM=1To3Printa(M,n);NextMNextnEndSub程序运行后，单击命令按钮，输出结果是。10．组合框有三种不同的类型，这三种类型是、、，分别通过把属性设置为、、来实现。11．在三种不同类型的组合框中，只能选择而不能输入数据的组合框式。12．在窗体上画一个列表框，然后编写如下两个事件过程：PrivateSubForm_Click()List1.RemoveItem1List1.RemoveItem3List1.RemoveItem2EndSubPrivateSubForm_Load()List1.AddItemItemAList1.AddItemItemBList1.AddItemItemCList1.AddItemItemDList1.AddItemItemEEndSub运行上面的程序，然后单击窗体，列表框中所显示的项目为。13．在窗体上画一个列表框、一个命令按钮和一个标签。程序运行后，在列表框中选择一个项目，然后单击命令按钮，即可将所选择的项目删除，并在标签中显示列表框当前的项目数，运行情况如图所示。下面是实现上述功能的程序，请填空。PrivateSubForm_Load()List1.AddItemAAAAAList1.AddItemBBBBBList1.AddItemCCCCCList1.AddItemDDDDDEndSubPrivateSubCommand1_Click()DimLAsIntegerL=Ifind=0ThenList1.RemoveItemLabel1.Caption=ElseMsgBox请选择要删除的项目EndIfEndSub三、编程题1.编写程序，输出魔方阵。魔方阵是一个n×n的二维数组，其中n为奇数。它由1～n×n的正整数组成，其中每行、每列及对角线上所有数字的总和都相同。产生魔方阵的算法由很多种，下面的程序用“右上斜行法”产生魔方阵，其算法如下：a)把“1”放在第一行的中间一列。b)从“1”往右上方走放下“2”，但已超出方阵范围，故将其置于同列第n行。c)从“2”往右上方走放下“3”，也超出方阵范围，将其置于同行第一列。d)由于3是n的倍数，接下来的数字“4”置于同行下一列。e)重复上述步骤，直到填满n×n个数为止。2.编写程序，用选择法对数组中的数据按由小到大的顺序进行排序。3.从键盘上输入10个整数，并放入一个一维数组中，然后将其前5个元素与后5个元素对换，即：第一个元素与第十个元素互换，第二个元素与第九个元素互换……第五个元素与第六个元素互换。分别输出数组原来各元素的值和对换后各元素的值。4.设有如下两组数据：A：2，8，7，6，4，28，70，25B：79，27，32，41，57，66，78，80编写一个程序，把上面两组数据分别读入两个数组中，然后把两个数组中对应下标的元素相加，即2+79，8+27，……，25+80，并把相应的结果放入第三个数组中，最后输出第三个数组的值。5.有一个n×m的矩阵，编写程序，找出其中最大的那个元素所在的行和列，并输出其值及行号和列号。6.某单位开运动会，共有10人参加男子100米短跑，运动员号和成绩如下：207号14.5秒077号15.1秒156号14.2秒231号14.7秒453号15.2秒276号13.9秒096号15.7秒122号