vb实验任务12答案

《vb实验任务12答案》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、实验任务12课程名称：程序设计基础VB实验名称——实验十二数组（2）一、实验目的：1．掌握数组的声明和数组元素的引用2．掌握定长数组的使用3．掌握数组的基本操作算法4．掌握控件数组的使用二、实验内容（包括实验要求(题目)、实验步骤、程序清单、运行情况）：实验1在课前做好，课上验证实验1人工写出如下程序的运行结果，并利用单步调试工具验证执行流程和运行结果，进一步深入弄清和理解数组的访问。（1）执行下面程序，单击命令按钮，输出结果是。OptionBase1Dimarr()AsIntegerPrivateSubForm_Click()Di

2、miAsInteger,jAsIntegerReDimarr(3,2)Fori=1To3Forj=1To2arr(i,j)=i*2+jNextjNextiReDimPreservearr(3,4)Forj=3To4arr(3,j)=j+9NextjPrintarr(3,2);arr(3,4)EndSub（2）运行程序，单击窗体，则在窗体上显示的是。OptionBase1PrivateSubForm_Click()Dima,SumAsInteger,iSum=0a=Array(1,3,5,7,9,11,13,15,17,19,21,2

3、3)ForEachiInaIfi/3=i3ThenSum=Sum+iNextPrintSumEndSub实验2实验7-2下列程序代码读入N个数，用选择排序法对这N个数按从大到小的顺序排序，并在文本框Textl中输出排序结果。（动态数组）部分程序代码如下，请填空。Dima()AsIntegerPrivateSubCommand1_C1ick()N=Val(InputBox("请输入N:")):ReDimA(N)ForI=1ToNA(I)=Val(InputBox("请输入A("&I&"):",,I))NextIText1.Text=

4、""ForI=1ToN−1ForJ=I+1ToNIfA(I)

5、ivateSubForm_Click()Dima(N,N)AsInteger,iAsInteger,jAsInteger,tempAsIntegerPicture1.Cls'每次数据生成前清除图片框中的内容Picture1.Print"原数组为:"图7-7实验7-3运行界面Fori=1ToNForj=1ToNa(i,j)=Int(100*Rnd)+1Picture1.Printa(i,j),NextjPicture1.PrintNextiPicture1.Print"转置后数组为:"Fori=1ToNForj=i+1toN'填写代码

6、段,实现矩阵的转置Temp=a(I,j)A(i,j)=a(j,i)A(j,i)=tempNextjNextiFori=1ToN'填写代码段,输出矩阵Forj=1ToNPicture1.Printa(i,j),NextjPicture1.PrintNextiEndSub（2）调试程序，并保存文件。实验4实验7-7利用控件数组设计一个简易计算器。提示如下：（1）界面设计。在窗体上按照图7-13所示界面放置一个按钮（CommadButton）控件，其Caption属性设置为0，名称设置为cmdDigit；并将其Index属性设为0（作为控

7、件数组的起始索引值），利用复制粘贴的方法复制出其他11个按钮控件，它们的标题（Caption）属性分别设置为“1”、“2”、“3”、“4”、“5”、“6”、“7”、“8”、“9”、“00”、“.”构成控件数组，并按照所示界面排放好各个控件。利用同样方法设计标题为“+”、“−”、“×”、“÷”、“=”的按钮控件数组，控件名为cmdOperator；标题为“+”、“−”、“×”、“÷”、“=”的Index属性设分别为0、1、2、3、4。把标题为“1/X”、“EXP”、“LOG”和“X^Y”的按钮控件作为一个控件数组，控件名为cmdAcc

8、umulate；并依次设置它们的Index属性值为0、1、2、3。将标题为“±”、“C”和“AC”的按钮控件分别命名为cmdSign、cmdClear和cmdAllClear。放置一个文本框，属性值默认，文本框左边上放置标题为“+”的