大学计算机VB程序设计考试题目

大学计算机VB程序设计考试题目.z.实验三第1题四则运算题设计如下窗体，为五个命令按钮编写5段代码完成四则运算及退出程序，其中在计算除法时，如果第二个数是零，在消息框中显示信息“除数为零〞。PublicClassForm1PrivateSubButton1_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton1.ClickDima,bAsSinglea=Te*tBo*1.Te*tb=Te*tBo*2.Te*tTe*tBo*3.Te*t=a+bEndSubPrivateSubButton2_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton2.ClickDima,bAsSinglea=Te*tBo*1.Te*tb=Te*tBo*2.Te*tTe*tBo*3.Te*t=a-bEndSubPrivateSubButton3_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton3.ClickDima,bAsSinglea=Te*tBo*1.Te*tb=Te*tBo*2.Te*tTe*tBo*3.Te*t=a*bEndSubPrivateSubButton4_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton4.ClickDima,bAsSinglea=Te*tBo*1.Te*tb=Te*tBo*2.Te*tIfb=0ThenMessageBo*.Show("除数为零")大学计算机VB程序设计考试题目全文共28页，当前为第1页。Else大学计算机VB程序设计考试题目全文共28页，当前为第1页。Te*tBo*3.Te*t=a/bEndIfEndSubPrivateSubButton5_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton5.ClickEndEndSubEndClass第2题一元二次方程求解输入系数后，单击“求解〞按钮后，根据判别式的3种不同情况，分别显示如下的不同结果。PublicClassForm1PrivateSubButton1_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton1.ClickDima,b,c,deltaAsDoublea=Te*tBo*1.Te*tb=Te*tBo*2.Te*tc=Te*tBo*3.Te*tdelta=b*b-4*a*cIfdelta>0ThenLabel5.Visible=TrueLabel6.Visible=TrueLabel4.Te*t="方程有两个不相等实根"Label5.Te*t="*1="&((-b+Math.Sqrt(delta))/2/a)Label6.Te*t="*2="&((-b-Math.Sqrt(delta))/2/a)ElseIfdelta=0ThenLabel4.Te*t="方程有两个相等实根"Label5.Visible=TrueLabel5.Te*t="*1=*2="&(-b/2/a)Label6.Visible=FalseElseLabel4.Te*t="方程没有实根"Label5.Visible=FalseLabel6.Visible=FalseEndIfEndSubPrivateSubButton2_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton2.Click大学计算机VB程序设计考试题目全文共28页，当前为第2页。End大学计算机VB程序设计考试题目全文共28页，当前为第2页。EndSubEndClass第3题文本框中前风光和背风光的不同组合目的：单项选择按钮的使用〔1〕设计窗体如下所示窗体中包含两组单项选择按钮、两个框架和一个命令按钮。〔2〕程序功能：分别单击不同的前风光和背风光按钮，在文本框中显示颜色的改变。〔3〕设置控件的主要属性1〕窗体的文本属性为“不同前风光背风光的组合〞2〕初始前风光为红色、背风光为黄色3〕其它属性根据图中显示来设置〔4〕事件代码PublicClassForm1PrivateSubRadioButton1_CheckedChanged(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesRadioButton1.CheckedChangedTe*tBo*1.ForeColor=Color.RedEndSub大学计算机VB程序设计考试题目全文共28页，当前为第3页。PrivateSubRadioButton2_CheckedChanged(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesRadioButton2.CheckedChanged大学计算机VB程序设计考试题目全文共28页，当前为第3页。Te*tBo*1.ForeColor=Color.GreenEndSubPrivateSubRadioButton3_CheckedChanged(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesRadioButton3.CheckedChangedTe*tBo*1.ForeColor=Color.BlackEndSubPrivateSubRadioButton4_CheckedChanged(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesRadioButton4.CheckedChangedTe*tBo*1.BackColor=Color.WhiteEndSubPrivateSubRadioButton5_CheckedChanged(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesRadioButton5.CheckedChangedTe*tBo*1.BackColor=Color.YellowEndSubPrivateSubForm1_Load(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesMyBase.LoadEndSubEndClass第4题三位整数的反序显示在窗体中添加二个文本框、二个标签和一个命令按钮，在一个文本框中输入一个三位的整数，单击命令按钮后，在另一个框中按相反顺序显示该数，例如，输入123，则在另一个文本框中显示321。提示：此题先将每位上的数字分解出来，这要用到整除和计算余数的运算符，例如123整除100后的结果1就是百位，而123除以10的余数就是个位，至于十位，大家可以自己确定。分解后的三位数再倒序组合成新的三位整数。PublicClassForm1PrivateSubButton1_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton1.ClickDima,b,c,d,yAsSinglea=Te*tBo*1.Te*tb=a\100大学计算机VB程序设计考试题目全文共28页，当前为第4页。c=(a-100*b)\10大学计算机VB程序设计考试题目全文共28页，当前为第4页。d=a-100*b-10*cTe*tBo*2.Te*t=d&c&bEndSubEndClass试验五第1题累加编写程序，计算1~100之间的所有偶数之和，程序窗口界面及控件自行设计。PublicClassForm1PrivateSubButton1_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton1.ClickDimi,sumAsLongFori=2To100Step2sum+=iNe*tTe*tBo*1.Te*t=sumEndSubEndClass第2题使用循环求解水仙花数的问题要求：〔1〕参考教材上例4-3关于水仙花数的定义。〔2〕程序窗口界面及控件与例4-3的结果即图4-3一样。〔3〕单击“开场〞按钮后，在文本框中显示求出的结果。PublicClassForm1PrivateSubButton1_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton1.ClickDimM,k1,k2,k3AsIntegerTe*tBo*1.Clear()ForM=100To999k1=M\100k2=(M\10)Mod10k3=MMod10大学计算机VB程序设计考试题目全文共28页，当前为第5页。IfM=k1^3+k2^3+k3^3Then大学计算机VB程序设计考试题目全文共28页，当前为第5页。Te*tBo*1.Te*t+=M.ToString()+"="+k1.ToString()+"^3+"+k2.ToString()+"^3+"+k3.ToString()+"^3"+vbCrLfEndIfNe*tEndSubEndClass第3题统计整数的因子编写程序，向一个文本框输入一个整数，单击“开场〞按钮后，找出该数的所有因子，并统计因子的个数和总和，结果在另一个文本框中显示，共有三行，其中第一行该数的所有因子，第二行显示该数的因子个数，最后一行显示该数所有因子之和，窗体界面如下：PublicClassForm1PrivateSubButton1_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton1.ClickDima,b,c,dAsLongc=0a=Te*tBo*1.Te*tb=1Whileb<=aIfaModb=0Thenc+=1d+=bTe*tBo*2.Te*t="该整数的因子是："&+=CStr(b)+","+vbCrLf+"因子个数为："+c.ToString()+vbCrLf+"因子之和为："+d.ToString()EndIfb=b+1EndWhileEndSubEndClass第4题判断素数编写程序，判断*个整数是否是素数，在一个文本框中输入一个整数，单击命令按钮后，在另一个文本框中显示该数是否是素数，程序代码可以参考例4-10的代码，在此根底上改写。以下是输入不同整数后的两种不同的结果，窗体构造也参照以下图。大学计算机VB程序设计考试题目全文共28页，当前为第6页。PublicClassForm1大学计算机VB程序设计考试题目全文共28页，当前为第6页。PrivateSubButton1_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton1.ClickDimi,jAsIntegerDimflagAsBoolean=Truei=Te*tBo*1.Te*tj=2Whilej<=i-1IfiModj=0Thenflag=FalseE*itWhileEndIfj=j+1EndWhileIfflagThenTe*tBo*2.Te*t="是素数"ElseTe*tBo*2.Te*t="不是素数"EndIfEndSubPrivateSubButton2_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton2.ClickEndEndSubEndClass试验六第1题元素交换编写程序，通过使用inputbo*将10个整数放入一个一维数组中，然后将前5个元素和5个元素交换，方法是将第一个元素与第10个元素，第2个元素与第9个互换，依次类推，要求在文本框中显示交换以前和交换以后的结果。提示:使用inputbo*将10个整数放入一个一维数组中Fori=1To10a(i)=InputBo*("请输入整数")Te*tBo*1.Te*t+=a(i).ToString+""Ne*tk=0大学计算机VB程序设计考试题目全文共28页，当前为第7页。Te*tBo*1.Te*t+=vbCrLf+"交换后："大学计算机VB程序设计考试题目全文共28页，当前为第7页。Fori=1To10Ifi>5Thenk=a(i)a(i)=a(11-i)a(11-i)=kTe*tBo*1.Te*t+=a(11-i).ToString+""Elsek=a(11-i)a(11-i)=a(i)a(i)=kTe*tBo*1.Te*t+=a(i).ToString+""EndIfNe*t完整程序;PublicClassForm1PrivateSubButton1_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton1.ClickDima(10),kAsIntegerFori=1To10a(i)=InputBo*("请输入整数")Te*tBo*1.Te*t+=a(i).ToString+""Ne*tk=0Te*tBo*1.Te*t+=vbCrLf+"交换后："Fori=1To10Ifi>5Thenk=a(i)a(i)=a(11-i)a(11-i)=kTe*tBo*1.Te*t+=a(11-i).ToString+""Elsek=a(11-i)a(11-i)=a(i)a(i)=kTe*tBo*1.Te*t+=a(i).ToString+""EndIfNe*tTe*tBo*1.Te*t="交换前："+Te*tBo*1.Te*tEndSub大学计算机VB程序设计考试题目全文共28页，当前为第8页。PrivateSubForm1_Load(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesMyBase.Load大学计算机VB程序设计考试题目全文共28页，当前为第8页。EndSubEndClass第2题元素平均编写程序，通过使用inputbo*将10个整数放入一个一维数组中，然后计算这10个整数的平均值，在文本框中显示平均值和这10个数中低于平均值的数PublicClassForm1PrivateSubButton1_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton1.ClickDima(10),sum,iAsIntegerDimavAsSingleFori=1To10a(i)=InputBo*("请输入整数")sum+=a(i)Ne*tav=sum/10Fori=1To10Ifa(i)<avThenTe*tBo*1.Te*t+=a(i).ToString+""EndIfNe*tTe*tBo*1.Te*t="该组数的平均值为："+av.ToString+vbCrLf+"小于平均值的数有："+Te*tBo*1.Te*tEndSubEndClass第3题矩阵转置编写程序，实现矩阵转置，即矩阵的行、列互换，将一个3行4列的矩阵转换为4行3列，要示在文本框中分别显示转换前后的两个矩阵。提示:str="交换前："+vbCrLfFori=0To3大学计算机VB程序设计考试题目全文共28页，当前为第9页。Forj=0To2大学计算机VB程序设计考试题目全文共28页，当前为第9页。str+=a(i,j).ToString()+""b(j,i)=a(i,j)Ne*tstr+=vbCrLfNe*tstr+="交换后:"+vbCrLfFori=0To2Forj=0To3str+=b(i,j).ToString+""Ne*tstr+=vbCrLfNe*t完整程序:PublicClassForm1PrivateSubButton1_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton1.ClickDima(,)AsInteger={{1,2,3,4},{4,5,6,7},{6,7,8,9}}Dimi,j,b(3,2)AsInteger,strAsStringstr="交换前："+vbCrLfFori=0To2Forj=0To3str+=a(i,j).ToString()+""b(j,i)=a(i,j)Ne*tstr+=vbCrLfNe*tstr+="交换后："+vbCrLfFori=0To3Forj=0To2str+=b(i,j).ToString()+""Ne*tstr+=vbCrLfNe*tTe*tBo*1.Te*t=strEndSubEndClass大学计算机VB程序设计考试题目全文共28页，当前为第10页。试验七:大学计算机VB程序设计考试题目全文共28页，当前为第10页。第1题完全数编写程序，找出2~2000之间的所有完全数。完全数是指*个整数的每个因子之和正好等于该数本身，例如：因为6=1+2+3，28=1+2+4+7+14，所以这两个数都是完全数。要求：〔1〕程序窗口界面及控件自行设计。〔2〕单击“开场〞按钮后，在文本框中显示求出的结果。〔3〕请用进度条提示.PublicClassForm1PrivateSubButton1_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton1.ClickDima,b,c,d,iAsIntegerFora=2To2000c=0Forb=1Toa-1d=aModbIfd=0Thenc+=bEndIfNe*tIfa=cThenTe*tBo*1.Te*t+=a.ToString+""EndIfProgressBar1.Value=aNe*tEndSubEndClass第2题杨辉三角形打印以下的杨辉三角形〔打印10行〕。1111211331大学计算机VB程序设计考试题目全文共28页，当前为第11页。14641大学计算机VB程序设计考试题目全文共28页，当前为第11页。15101051┋提示：〔1〕使用一个二维数组a保存这些数据〔2〕第0列、主对角线上元素都为1〔3〕其它元素为其上一行元素与上一行左侧元素之和,即:a(I,j)=a(i-1,j)+a(i-1,j-1)PublicClassForm1PrivateSubButton1_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton1.ClickDima(10,10)AsIntegerDimi,jAsIntegera(1,1)=1Fori=2To10a(i,1)=1Forj=2Toia(i,j)=a(i-1,j-1)+a(i-1,j)Ne*tNe*tFori=1To10Forj=1ToiTe*tBo*1.Te*t+=a(i,j).ToString+""Ne*tTe*tBo*1.Te*t+=vbCrLfNe*tEndSubEndClass第3题求最小值建立一个4行3列的二维数组，找出其中最小的元素所在的行和列，并在文本框中输出该值及其行、列位置。PublicClassForm1PrivateSubButton1_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton1.ClickDima(,)AsInteger={{45,21,13},{42,15,16},{37,18,29},{39,51,62}}Dimi,j,m,bAsInteger大学计算机VB程序设计考试题目全文共28页，当前为第12页。DimminAsInteger=100大学计算机VB程序设计考试题目全文共28页，当前为第12页。Fori=0To3Forj=0To2Ifa(i,j)<minThenmin=a(i,j)m=i+1:b=j+1EndIfNe*tNe*tTe*tBo*1.Te*t+=min.ToString+""+m.ToString+"行"+b.ToString+"列"EndSubEndClass试验八:第1题计算阶乘设计如下的窗体，向第一个文本框中输入一个整数，单击“计算〞按钮，在另外一个文本框中显示该整数的阶乘，要求，阶乘的计算在按钮的单击事件中完成。PublicClassForm1PrivateSubButton1_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton1.ClickDima,b,cAsIntegera=Te*tBo*1.Te*tb=1Forc=1ToaStep1b=b*cNe*tTe*tBo*2.Te*t=bEndSubEndClass第2题计算阶乘设计窗体与第1题一样，向第一个文本框中输入一个整数，单击“计算〞按钮，在另外一个文本框中显示该整数的阶乘，要求采用SUB子过程计算阶乘，整数通过参数传递，阶乘在子过程中显示。大学计算机VB程序设计考试题目全文共28页，当前为第13页。PublicClassForm1大学计算机VB程序设计考试题目全文共28页，当前为第13页。PrivateSubButton1_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton1.ClickDimaAsIntegera=Te*tBo*1.Te*tjch(a)EndSubSubjch(ByValnAsInteger)Dimi,sAsIntegers=1Fori=1Tons=s*iNe*tTe*tBo*2.Te*t=sEndSubEndClass第3题计算阶乘设计窗体与第1题一样，向第一个文本框中输入一个整数，单击“计算〞按钮，在另外一个文本框中显示该整数的阶乘，要求采用FUCTION函数过程，整数通过参数传递，阶乘由该过程返回。PublicClassForm1PrivateSubButton1_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton1.ClickDimaAsIntegera=Te*tBo*1.Te*tTe*tBo*2.Te*t=jch(a)EndSubFunctionjch(ByValnAsInteger)Dimi,sAsIntegers=1Fori=1Tons=s*iNe*tReturnsEndFunction大学计算机VB程序设计考试题目全文共28页，当前为第14页。EndClass大学计算机VB程序设计考试题目全文共28页，当前为第14页。第4题找出一维数组元素中的最大值和最小值设计窗体如以下图，单击“开场〞按钮后，从键盘输入10个整数，输入到一维数组中，输入时采用inputbo*函数，见图〔2〕，然后找出这10个数中的最大值和最小值，并在文本框中输出，见图，PublicClassForm1PrivateSubButton1_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton1.ClickDima(9),b,c,iAsIntegera(0)=InputBo*("输入第一个数")a(1)=InputBo*("输入第二个数")a(2)=InputBo*("输入第三个数")a(3)=InputBo*("输入第四个数")a(4)=InputBo*("输入第五个数")a(5)=InputBo*("输入第六个数")a(6)=InputBo*("输入第七个数")a(7)=InputBo*("输入第八个数")a(8)=InputBo*("输入第九个数")a(9)=InputBo*("输入第十个数")b=a(0):c=a(0)Fori=0To9Ifa(i)<bThenb=a(i)EndIfIfa(i)>cThenc=a(i)EndIfTe*tBo*1.Te*t+=a(i).ToString+""Ne*tTe*tBo*1.Te*t=Te*tBo*1.Te*t+vbCrLf+"最大数为："+c.ToString+vbCrLf+"最小数为："+b.ToStringEndSubPrivateSubButton2_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton2.ClickEndEndSubEndClass大学计算机VB程序设计考试题目全文共28页，当前为第15页。试验九:大学计算机VB程序设计考试题目全文共28页，当前为第15页。第1题计算数列之和求a+aa+aaa+aaaa+......+aa...a〔n个〕，其中a为1～9之间的整数。例如：当a=1,n=3时，求1+11+111之和；当a=5,n=7时，求5＋55＋555＋5555＋55555＋5555555之和。PublicClassForm1PrivateSubButton1_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton1.ClickDima,n,s,i,m,bAsIntegera=Te*tBo*1.Te*tn=Te*tBo*2.Te*tb=nFori=1Tonm=a*(10^(i-1))*bb=b-1s=s+mNe*tTe*tBo*3.Te*t=sEndSubEndClass第2题计算长方形的面积和周长设计如下的窗体，向前两个文本框中分别输入长和宽，单击“计算〞，在另外一个文本框中显示长方形的面积，要求采用FUNCTION函数过程计算面积，长和宽通过参数传递。Functionarea(ByRefaAsInteger,ByRefbAsInteger)AsLongDimmAsLongm=a*bReturnmEndFunctionFunctionccc(ByRefaAsInteger,ByRefbAsInteger)AsIntegerDimnAsIntegern=2*(a+b)ReturnnEndFunction大学计算机VB程序设计考试题目全文共28页，当前为第16页。PrivateSubButton1_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton1.Click大学计算机VB程序设计考试题目全文共28页，当前为第16页。Dima,b,cAsIntegerDimsAsLonga=Te*tBo*1.Te*tb=Te*tBo*2.Te*ts=area(a,b)c=ccc(a,b)Te*tBo*3.Te*t=sTe*tBo*4.Te*t=cEndSubEndClass第3题综合题，统计各个分数段的人数设计窗体如下：编程要求：〔1〕单击“开场〞按钮后，显示如下的消息框，向框中输入总的人数：如果输入的人数小于1，则显示以下的消息框，然后重新输入人数〔2〕输入人数后，接下来分别输入这些学生的分数，如果输入的分数不在0~100之间，则显示下面的消息框，然后重新输入〔3〕输入分数时同时统计每个分数段的人数，每个分数段按以下的规定：90~100：优80~89：良70~79：中60~69：及格60分以下：不及格〔4〕最后按以下图显示统计后的结果：〔图中是输入10个分数后的结果〕PublicClassForm1大学计算机VB程序设计考试题目全文共28页，当前为第17页。PrivateSubButton1_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton1.Click大学计算机VB程序设计考试题目全文共28页，当前为第17页。DimstrAsStringDimaAsIntegerstr="请输入学生人数"a=InputBo*(str)Ifa<1ThenMessageBo*.Show("请重新输入")EndIfDims(a),iAsIntegerFori=1Toastr="请输入分数"s(i)=InputBo*(str)Ifs(i)<0Ors(i)>100ThenMessageBo*.Show("分数不对，请重新输入")EndIfNe*tDimyou,liang,zhong,ji,buAsIntegerFori=1ToaIfs(i)>=90Thenyou+=1ElseIfs(i)>=80Thenliang+=1ElseIfs(i)>=70Thenzhong+=1ElseIfs(i)>=60Thenji+=1Else:bu+=1EndIfNe*tstr=""Fori=1Toastr+=s(i).ToString+""Ne*tTe*tBo*1.Te*t="分数："+vbCrLf+str+vbCrLf+"总人数"+"="+a.ToString+vbCrLf+"各等级分数的人数："+vbCrLf+"优秀"+"="+you.ToString+vbCrLf+"良"+"="+liang.ToString+vbCrLf+"中"+"="+zhong.ToString+vbCrLf+"及格"+"="+ji.ToString+vbCrLf+"不及格"+"="+bu.ToStringEndSubPrivateSubButton2_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton2.ClickTe*tBo*1.Clear()大学计算机VB程序设计考试题目全文共28页，当前为第18页。EndSub大学计算机VB程序设计考试题目全文共28页，当前为第18页。PrivateSubButton3_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton3.ClickEndEndSubEndClass试验十:第1题计算二维数组每行的最大元素要求如下：〔1〕程序运行时，显示如下的窗体，窗体中有两个标签、两个文本框和四个命令按钮：〔2〕单击“显示二维数组〞的按钮时，在第一个文本框中显示3行4列的二维数组，其中数组元素要求使用随机函数产生，*围在0~100之间，也就是每次单击都产生不同的数据，如下所示：〔3〕单击“计算各行最大值〞按钮时，计算二维数组各行的最大值，并在第二个文本框中显示，如下所示：〔4〕单击“去除〞按钮时，去除两个文本框中的内容。〔5〕单击“退出〞按钮，完毕程序的执行。编程提示〔1〕由于两段事件代码都要用到同一个二维数组，因此，可以在过程之外定义如下的数组：Publica(2,3)AsInteger〔2〕“显示二维数组〞的按钮参考代码如下：〔3〕“计算各行最大值〞按钮参考代码如下：PublicClassForm1Publica(2,3)AsIntegerPrivateSubButton1_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton1.ClickDimi,jAsIntegerDimstrAsStringstr=""Randomize()Fori=0To2Forj=0To3a(i,j)=Int(Rnd()*100)str+=a(i,j).ToString+""Ne*t大学计算机VB程序设计考试题目全文共28页，当前为第19页。str+=vbCrLf大学计算机VB程序设计考试题目全文共28页，当前为第19页。Ne*tTe*tBo*1.Te*t=strEndSubPrivateSubButton2_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton2.ClickDimi,j,ma*AsIntegerDimstrAsStringstr=""Fori=0To2ma*=a(i,0)Forj=0To3Ifa(i,j)>ma*Thenma*=a(i,j)Ne*tstr+=ma*.ToString+vbCrLfNe*tTe*tBo*2.Te*t=strEndSubPrivateSubButton3_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton3.ClickTe*tBo*1.Clear()Te*tBo*2.Clear()EndSubPrivateSubButton4_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton4.ClickEndEndSubEndClass第2题两个一维数组对应元素相加此题的有些方法可参考上一题，要求如下：〔1〕程序运行时，显示如下的窗体，窗体中有三个标签、三个文本框和四个命令按钮〔2〕单击“产生两个一维数组元素〞的按钮时，在前两个文本框中分别显示含有10个元素的一维数组，其中数组元素要求使用随机函数产生，*围在0~100之间，〔3〕单击“数组相加〞按钮时，计算这两个一维数组对应元素的和，即第0个元素和第0个相加，相加结果保存在第3个数组的第0个元素中，第1个和第1个相加，结果保存在第1个元素中，计算后在第三个文本框中显示第三个一维数组，大学计算机VB程序设计考试题目全文共28页，当前为第20页。〔4〕单击“去除〞按钮时，去除三个文本框中的内容。大学计算机VB程序设计考试题目全文共28页，当前为第20页。〔5〕单击“退出〞按钮，完毕程序的执行。PublicClassForm1Publicc(10)AsIntegerPublica(10)AsIntegerPublicb(10)AsIntegerPrivateSubButton1_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton1.ClickDimiAsIntegerDimstr1,str2AsStringstr1=""str2=""Randomize()Fori=1To10a(i)=Int(Rnd()*100)str1+=a(i).ToString+""b(i)=Int(Rnd()*100)str2+=b(i).ToString+""Ne*tTe*tBo*1.Te*t=str1Te*tBo*2.Te*t=str2EndSubPrivateSubButton2_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton2.ClickDimi,nAsIntegerDimstrAsStringstr=""Fori=1To10n=a(i)+b(i)str+=n.ToString+""Te*tBo*3.Te*t=strNe*tEndSubPrivateSubButton3_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton3.ClickTe*tBo*1.Clear()Te*tBo*2.Clear()Te*tBo*3.Clear()EndSubPrivateSubButton4_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton4.Click大学计算机VB程序设计考试题目全文共28页，当前为第21页。End大学计算机VB程序设计考试题目全文共28页，当前为第21页。EndSubEndClass第3题计算二维数组中的最大值及出现的次数〔1〕程序运行时，显示如下的窗体，窗体中有二个文本框和四个命令按钮〔2〕单击“显示二维数组〞的按钮时，在第一个文本框中显示3行4列的二维数组，其中数组元素要求使用随机函数产生，*围在0~100之间，也就是每次单击都产生不同的数据〔3〕单击“计算最大值〞按钮时，计算二维数组中的最大值，并统计最大值出现的次数，并在第二个文本框中显示〔4〕单击“去除〞按钮时，去除二个文本框中的内容。〔5〕单击“退出〞按钮，完毕程序的执行。PublicClassForm1Publica(2,3)AsIntegerPrivateSubButton1_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton1.ClickDimi,jAsIntegerDimstrAsStringstr=""Randomize()Fori=0To2Forj=0To3a(i,j)=Int(Rnd()*100)str+=a(i,j).ToString+""Ne*tstr+=vbCrLfNe*tTe*tBo*1.Te*t=strEndSubPrivateSubButton2_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton2.ClickDimb,i,j,ma*AsIntegerma*=a(0,0)b=0Fori=0To2Forj=0To3Ifa(i,j)>ma*Thenma*=a(i,j)Ne*t大学计算机VB程序设计考试题目全文共28页，当前为第22页。Ne*t大学计算机VB程序设计考试题目全文共28页，当前为第22页。Fori=0To2Forj=0To3Ifa(i,j)=ma*Thenb+=1Ne*tNe*tTe*tBo*2.Te*t="最大值="+ma*.ToString+vbCrLf+"出现次数="+b.ToStringEndSubPrivateSubButton3_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton3.ClickTe*tBo*1.Clear()Te*tBo*2.Clear()EndSubPrivateSubButton4_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton4.ClickEndEndSubEndClass第4题计算一维数组元素的和设计窗体如以下图〔1〕，单击“开场〞按钮后，从键盘输入10个整数，输入到一维数组中，输入时采用inputbo*函数，见图〔2〕，然后调用FUNCTION函数过程，计算这里10个数的和，将和作为返回值在文本框中输出，见图〔3〕，其中输入框的使用如下：Fori=1to10str="请输入第"+i.ToString+"个整数"a(i)=InputBo*(str)ne*tPublicClassForm1Publica(10)AsIntegerFunctionqiuhe(ByValcAsInteger)AsLongDimiAsIntegerFori=1To10c+=a(i)Ne*tReturncEndFunction大学计算机VB程序设计考试题目全文共28页，当前为第23页。PrivateSubButton1_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton1.Click大学计算机VB程序设计考试题目全文共28页，当前为第23页。Dimi,mAsIntegerDimstrAsStringFori=1To10str="请输入第"+i.ToString+"个整数"a(i)=InputBo*(str)Ne*tm=qiuhe(m)Te*tBo*1.Te*t="和="+m.ToStringEndSubEndClass第5题计算长方形的面积和周长设计如下的窗体，向前两个文本框中分别输入长和宽，单击“计算〞，在另外两个文本框中显示长方形的面积和周长，要求采用SUB函数过程计算面积和周长，长和宽通过参数传递，面积和周长通过引用传递返回。其中计算面积的SUB过程参考代码如下：Subarea(ByValheightAsInteger,byvalwidthasinteger,byrefsasinteger,byreflasinteger)DimsasintegerS=height*widthL=(height+width)*2EndSub完整程序:PublicClassForm1Subarea(ByValheightAsInteger,ByValwidthAsInteger)DimsAsIntegerDimlAsIntegers=height*widthl=(height+width)*2Te*tBo*3.Te*t=s.ToStringTe*tBo*4.Te*t=l.ToStringEndSubPrivateSubButton1_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton1.ClickDima,bAsIntegera=Te*tBo*1.Te*t大学计算机VB程序设计考试题目全文共28页，当前为第24页。b=Te*tBo*2.Te*t大学计算机VB程序设计考试题目全文共28页，当前为第24页。area(a,b)EndSubEndClass试验十一第1题画图参考如下的代码，在窗体中绘制不同的图形，绘制时可以采用不同的工具、颜色和线宽。要求：绘制的图形在颜色、位置、宽度等方面与例题不要完全一样。在绘图中应明确以下的问题：〔1〕不同工具的定义方法〔2〕所使用的坐标系〔3〕所绘图形的位置〔4〕不同图形的绘制方法。PublicClassForm1PrivateSubForm1_Paint(ByValsenderAsObject,ByValeAsSystem.Windows.Forms.PaintEventArgs)HandlesMe.PaintDimgAsGraphics=e.GraphicsDimpengreenAsPen=NewPen(Color.Green)DimpenyellowAsPen=NewPen(Color.Yellow,5)DimbrushSolidAsSolidBrush=NewSolidBrush(Color.DarkGreen)DimfontMyfavorAsFont=NewFont("幼圆",26,FontStyle.Italic)DimptP1AsPoint=NewPoint(12,12)DimptP2AsPoint=NewPoint(50,90)g.DrawLine(penyellow,55,55,224,99)g.DrawLine(pengreen,ptP1,ptP2)g.DrawRectangle(pengreen,55,200,100,100)g.DrawEllipse(penyellow,0,0,300,200)g.DrawEllipse(pengreen,300,0,400,300)g.FillEllipse(brushSolid,155,200,100,100)g.DrawEllipse(pengreen,300,0,400,300)g.DrawString("欢送来到**交通大学！",fontMyfavor,brushSolid,0,400)EndSubPrivateSubForm1_Load(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesMyBase.LoadEndSub大学计算机VB程序设计考试题目全文共28页，当前为第25页。EndClass大学计算机VB程序设计考试题目全文共28页，当前为第25页。第2题创立菜单〔1〕使用工具栏中的菜单控件创立菜单，主菜单中包含3项，