(完整版)VB上机练习题

•新建工程，界面如下图，将窗体名称改为fl,标题属性为“我的第一个工程”Text2允许多行，三个命令按钮名称分别为Cl、C2、C3，单击C1按钮将Textl的字体改为黑体，Text2的字体改为隶书。单击C2按钮将Textl的文字颜色改为红色，Text2的背景颜色改为蓝色。单击C3按钮结束程序运行。筍我的第一个工程□回冈欧迎使用VisualBasicText1転测试事件□回区fcLiVi运行。筍我的第一个工程□回冈欧迎使用VisualBasicText1転测试事件□回区fcLiVi的动亠后矗

51®咼Text2改变窗体顔色I修改字体|修改颜刨退出|PrivateSubCommand1_Click()Textl.Font=PrivateSubCommand1_Click()Textl.Font=黑体EndSubPrivateSubCommand2_Click()Textl.ForeColor=vbRedText2.ForeColor=vbBlueEndSubPrivateSubCommand3_Click()EndEndSub2•新建工程，界面如上图，运行时，鼠标在“改变窗体颜色”按钮上按下时使窗体背景色变为红色，鼠标抬起时使窗体背景色变为绿色。鼠标在窗体空白地方按下时使Textl的内容为“在窗体上按下了鼠标”鼠标抬起时使Textl的内容为“在窗体上抬起了鼠标”PrivateSubCommand1_MouseDown(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)Forml.BackColor=vbRedEndSubPrivateSubCommand1_MouseUp(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)Forml.BackColor=vbGreenEndSubPrivateSubForm_MouseDown(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)Textl.Text="在窗体上按下了鼠标"EndSubPrivateSubForm_MouseUp(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)Textl.Text="在窗体上抬起了鼠标"EndSub3•新建工程，界面如下图，运行时，在文本框Textl中输入内容的同时，在文本框Text2、Text3中显示相同的内容，但字体不同(字体自定)。PrivateSubCommand1_Click()Textl.Text=""

Text2.Text=""Text3.Text=""EndSubText2.Text=""Text3.Text=""EndSubPrivateSubCommand2_Click()EndEndSubText2.Text=Textl.TextText3.Text=Textl.TextEndSub«文本框字体效果设置□口区］要使文本框能够显亦多行文本，可以将其MultiLine属性设置为True.要便文本框带滚动条，可以设置其ScrollBarsJM性粗体«文本框字体效果设置□口区］要使文本框能够显亦多行文本，可以将其MultiLine属性设置为True.要便文本框带滚动条，可以设置其ScrollBarsJM性粗体斜体下划线删除线PrivateSubCommand4_Click()PrivateSubCommand4_Click()Textl.Fontltalic=TrueEndSubPrivateSubCommand5_Click()Textl.FontUnderline=TrueEndSubPrivateSubCommand6_Click()Textl.FontStrikethru=TrueEndSub个窗体，如下图所示。程序中将n定义成符号常量（用Const），运行时，输入底面半径r4.设计一个窗体，如上图所示。当单击某个命令按钮时，对文本框中的文字完成相应的设置。其中,每单击一次“增大”或“缩小”按钮将使文本框中的文字增大或缩小5磅，“粗体”按钮将使文本框中的文字加粗，“斜体”按钮将使文本框中的文字倾斜，“下划线”按钮将使文本框中的文字加下划线,“删除线”按钮将使文本框中的文字加删除线。PrivateSubCommand1_Click()Textl.FontSize=Textl.FontSize+5EndSubPrivateSubCommand2_Click()Textl.FontSize=Textl.FontSize-5EndSubPrivateSubCommand3_Click()Textl.FontBold=TrueEndSub5.设计和圆柱高h，然后单击“计算”命令按钮，在相应文本框中显示计算结果。运算结果为只读。PrivateSubCommand1_Click()Constpi=3.14h=Val(Textl)r=Val(Text2)Text3.Text=pi*r人2Text4.Text=2*pi*r*hText5.Text=pi*r人2*hEndSub□回区I荃甘算底面取、髓面黑、体超□回区I荃甘算底面取、髓面黑、体超6.设计界面如上图所示。单击“出题”按钮，产生任意两个【1,100】之间的随机整数于Textl、Text2中，单击“计算”按钮，求两个数的和。运算结果为只读。PrivateSubCommand1_Click()Textl.Text=Int(100*RndPrivateSubCommand1_Click()Textl.Text=Int(100*Rnd+1)Text2.Text=Int(100*Rnd+1)EndSubPrivateSubCommand2_Click()a=Val(Textl.Text)b=Val(Textl.Text)Text3.Text=a+bEndSub7.设计一个数字钟表程序，界面如图所示。运行时单击窗体，显示当前的年月日星期及时间。PrivateSubForm_Click()Label2.Caption=Year(Now)Label4.Caption=Month(Now)Label6.Caption=Day(Now)Label9.Caption=Weekday(Now)Label11.Caption=TimeEndSub8.设计一个数学函数程序，界面如图所示。程序运行时，在文本框中输入任意数值，单击相应按钮8.设计一个数学函数程序，界面如图所示。程序运行时，在文本框中输入任意数值，单击相应按钮标签中显示结果。文本框始终处于选中状态。PrivateSubCommand1_Click()Label3.Caption=Abs(Val(Text1))标签中显示结果。文本框始终处于选中状态。PrivateSubCommand1_Click()Label3.Caption=Abs(Val(Text1))Text1.SetFocusText1.SelStart=0Text1.SelLength=Len(Text1.Text)EndSubPrivateSubCommand2_Click()Label3.Caption=Sqr(Val(Text1))Text1.SetFocusText1.SelStart=0Text1.SelLength=Len(Text1.Text)EndSubPrivateSubCommand3_Click()Label3.Caption=Fix(Val(Textl))Textl.SetFocusPrivateSubCommand3_Click()Label3.Caption=Fix(Val(Textl))Textl.SetFocusTextl.SelStart=0Textl.SelLength=Len(Textl.Text)EndSubPrivateSubCommand4_Click()Label3.Caption=Int(Val(Text1))Textl.SetFocusTextl.SelStart=0Textl.SelLength=Len(Textl.Text)EndSubPrivateSubCommand5_Click()Label3.Caption=Sgn(Val(Text1))Textl.SetFocusTextl.SelStart=0Textl.SelLength=Len(Textl.Text)EndSub设计一工程，在文本框中输入一整数，单击“判断”按钮，判断能否同时被3、5、7整除，若能用MsgBox函数显示“能同时被3、5、7整除”，否则显示“不能整除”。PrivateSubCommand1_Click()a=Val(Textl)IfaMod3=0AndaMod5=0AndaMod7=0ThenMsgBox"能同时被3、5、7整除"ElseMsgBox"不能整除"EndIfEndSubl0.设计一个计算购书价钱的程序，界面如下图所示。为了提高运行速度，设置Tab键序，使得输入完单价后，焦点定位到输入数量文本框中。单击求为只读属性。完成相应功能。PrivateSubCommand1_Click()a=Val(Textl)b=Val(Text2)完单价后，焦点定位到输入数量文本框中。单击求为只读属性。完成相应功能。PrivateSubCommand1_Click()a=Val(Textl)b=Val(Text2)Text3.Text=a*bEndSub计算总价”或用访问键，算出总价。总价文本框要PrivateSubCommand2_Click()EndEndSub设计一工程，界面如上图所示。程序运行，单击“计算”求出对应角度的三角函数的绝对值于文本框Text2中，同时要求选中文本框Textl内容，以便继续输入。PrivateSubCommand1_Click()a=Val(Textl)b=a*3.14/180c=Abs(Sin(b))d=Abs(Cos(b))Text2.Text=Text2.Text&a&Space(10)&Format(c,"0.000")_&Space(10)&Format(d,"0.000")&vbCrLfText1.SetFocusText1.SelStart=0Text1.SelLength=Len(Text1.Text)EndSub设计一个程序，用户界面如下图所示。程序运行后，单击“计算，”求出应付款额；单击“清除”清除所有文本框内容。PrivateSubCommand1_Click()a=Val(Text1)PrivateSubCommand1_Click()a=Val(Text1)b=Val(Text2)c=Val(Text3)Text4.Text=a*b*cEndSubPrivateSubCommand2_Click()Text1.Text=""Text2.Text=""Text3.Text=""Text4.Text=""EndSub输入一个学生的学号和考试成绩，然后按如图格式在图片框中输出学号、考试成绩及评语，评语:90〜100优秀；80〜89良好；70〜79中等；60〜69及格；0〜59不及格。PrivateSubCommand1_Click()a=Val(Text2)SelectCaseaCase90To100

h="PrivateSubCommand1_Click()a=Val(Text2)SelectCaseaCase90To100

h="优秀"Case80To89

h="良好"Case70To79h="中等!!h="及格"Case0To59h="不及格"EndSelectPicture1.PrintPicture1.Print"学号:Picture1.PrintPicture1.Print"分数:EndSub"&Text1.Text"&a&Space(3)&hCase60To69■E的面积和周怅口问冈■E的面积和周怅口问冈设计一个窗体Form1,界面如上图所示。编写适当的事件过程，程序运行后在第一个文本框中输入圆的半径，单击“计算”按钮，分别在第二个和第三个文本框中显示圆的面积和周长。PrivateSubCommand1_Click()Text3.Text=2*a*3.14a=Va1(Text1)EndSubText2.Text=a人2*3.14设计一个程序，用户界面如下图所示。程序运行后，单击Command】按钮，求出最大、最小数。PrivateSubCommand1_Click()a=Va1(Text1):b=Va1(Text2):c=Va1(Text3)Ifa<bThent=a:a=b:b=tIfa<cThent=a:a=c:c=tIfb<cThent=b:b=c:c=tText4.Text=aText5.Text=cEndSub

界面如下图所示。编写适当的事件过程，程序运行后在三个文本框中分别输入三角形的边长值,单击“判断并计算”按钮，判断它们是否能组成三角形，若能组成三角形在Text4中显示三角形的面积，否则在Text4中显示“FALSE”。PrivateSubCommand1_Click()a=Val(Text1):b=Val(Text2):c=Val(Text3)Ifa+b<cOra+c<bOrb+c<aOrAbs(a-b)>cOrAbs(a-c)>bOrAbs(b-c)>aThenText4.Text="FALSE"Elseh=(a+b+c)/2s=Sqr(h*(h-a)*(h-b)*(h-c))Text4.Text=Format(s,"0.00")EndIfEndSub设计一个程序运行界面如下图所示，将输入的三个不同数，按从小到大的顺序排列。PrivateSubCommand1_Click()a=Val(Text1):b=Val(Text2):c=Val(Text3)Ifa<bThent=a:a=b:b=tIfa<cThent=a:a=c:c=tIfb<cThent=b:b=c:c=tText1.Text=c:Text2.Text=b:Text3.Text=aEndSub

18.18.在窗体上画两个命令按钮分别求11+22+33+44++nn小于100000最大值和n!=1!+2!+3!+…+20!的累加和并将结果输出到Label1和Label2中。Fori=1To20n=1Fori=1To20n=1Fork=1Toin=n*kNextks=s+nNextiLabel2.Caption=sEndSubn=0:s=0Don=n+1s=s+n人nLabel1.Caption=sLoopUntils>100000EndSubPrivateSubCommand2_Click()s=0在窗体上画两个文本框输入a和n的值（a和n均为一位数字），单击命令按钮输出Sn=a+aa+aaa+aaaa++aa^a（最后一项n个a,例如3+33+333+3333）的值于标签中。b=String(i,a)Sn=Sn+Val(b)NextiLabel1.Caption=Snb=String(i,a)Sn=Sn+Val(b)NextiLabel1.Caption=SnEndSuba=Text1.textn=Val(Text2)Sn=0Fori=1Ton单击命令按钮将3到200之间的所有奇数显示在列表框中。NextiEndSubNextiEndSubFori=3To200Step2List1.AddItemi在窗体上画一文本框用于输入n值，画两个命令按钮分别求下述表达式的值111S1=4X(1—+—…+(—1)n+1)352n—1S2=1X3X5X7X・・・X（2n-1）并将S1、S2的结果输出到图片框。S2=1Fori=1TonS2=S2*(2*nS2=1Fori=1TonS2=S2*(2*n-1)NextiPicture1.Print4*sPicture1.PrintS2s=0Fori=1Tons=s+(-1)人(i+1)/(2*i-1)Nexti

EndSub22.在文本框T1中打印100〜999之间的所有水仙花数。(该数为各位数字的立方和。例如：153=13+53+33)PrivateSubCommand1_Click()Fori=100To999a=Fix(i/100)b=Fix(i/10)-a*10c=i-Fix(i/10)*10Ifa人3+b人3+c人3=iThenT1.Text=T1.Text&i&vbCrLfNextiEndSub水仙花薮Forml04370731459,4371881Z3581Z3G9nxForml数列和水仙花薮Forml04370731459,4371881Z3581Z3G9nxForml数列和有一数列，它的头2个数为0、1,以后的每个数都是其前2个数之和。编程在文本框T1中输出所有这些数列，直到第30个数或最后一项等于出所有这些数列，直到第30个数或最后一项等于1000为止，同时在另PrivateSubCommand1_Click()a=0:b=1:s=0Text1.Text=a&vbCrLf&b&vbCrLfFori=1To14s=s+a+ba=a+b文本框中输出它们的和。b=a+bText1.Text=Text1.Text&a&vbCrLf&b&vbCrLfNextiText2.Text=sEndSub设计如下图所示界面，单击时输出相应结果，2〜N之间素数在列表框中输出，要求判断素数用过程实现。Functionh(aAsInteger)AsBoolean程实现。Functionh(aAsInteger)AsBooleanDimmAsInteger,sAsBooleanm=0Fori=2To(a-1)IfaModi=0Thenm=m+1NextiIfm=0Thens=TrueElses=Falseh=sEndFunctionPrivateSubCommand1_Click()DimaAsIntegera=Val(Text1)Ifh(a)=FalseThenText2.Text="不是素数"ElseText2.Text="是素数"EndIfEndSubPrivateSubCommand2_Click()DimiAsIntegera=Val(Text1)Fori=2ToaIfh(i)=TrueThenList1.AddItemiNextiEndSub界面如上图，单击各按钮时输入行数，按此行数在窗体上显示不同的图形（参考教材练习6-15界面如上图，单击各按钮时输入行数，按此行数在窗体上显示不同的图形（参考教材练习6-15）。PrivateSubCommand1_Click()Cisa=Val(InputBox("请输入行数"))Fori=1ToaPrintTab(i);String(a,"*")NextiEndSubPrivateSubCommand3_Click()Clsa=Val(InputBox("请输入行数"))Fori=aTo1Step-1PrintTab(a-i+1);String(2*i-1,"*")NextiEndSubPrivateSubCommand2_Click()ClsPrivateSubCommand2_Click()Clsa=Val(InputBox("请输入行数"))Fori=1ToaPrintTab(a-i+1);String(2*i-1,"*")NextiEndSubPrivateSubCommand4_Click()Clsa=Val(InputBox("请输入行数"))Fori=aTo1Step-1PrintTab(a-i+1);String(2*i-1,"*");Space(3);String(2*(a-i)+1,"*")NextiEndSubFunctionh(nAsInteger)AsIntegerDimsAsIntegers=1n=Val(Text1)Text2.Text=h(n)EndSubFunctionh(nAsInteger)AsIntegerDimsAsIntegers=1n=Val(Text1)Text2.Text=h(n)EndSub26.设计如下图所示界面，单击时输出N!和1!+2!+・・・+N!结果，要求N!用过程实现。Fori=1Ton*iNextiForn=1Toms=s+h(n)NextnPrivateSubCommand2_Click()DimnAsIntegerm=Val(Text1)s=0EndFunctionPrivateSubCommand1_Click()DimnAsInteger

Text3.Text=sEndSubIiiLForillIff1LI1222Text3.Text=sEndSubIiiLForillIff1LI1222121212221222121212221OptionBase1DimA(5,5)AsIntegerPrivateSubForm_Click()Fori=1To5Forj=1To5A(i,j)=2Ifi=jThenA(i,j)=1Ifi+j=6ThenA(i,j)=1Nextj,i该矩阵主、负对角线上元素均为1,其余元素均为2,Fori=1To该矩阵主、负对角线上元素均为1,其余元素均为2,Fori=1To5CurrentY=i*300Forj=1To5CurrentX=j*300PrintA(i,j);Nextj,iEndSubx、y,用展转相除的方法求自然数x,DimaAsInteger,bAsInteger,xAsInteger,yAsInteger,rasIntegerPrivateSubCommand1_Click()x=Val(Textl)y=Val(Text2)a=x:b=yr=xModyDoWhiler<>0x=yy=rr=xModyLoopLabel3.Caption=yEndSubPrivateSubCommand2_Click()Label4.Caption=a*b/yEndSubLabel4Textlext2Label356564534231229.仿照25题画四个命令按钮，单击各按钮在图片框上显示如下不同的数据图形。1TOC\o"1-5"\h\z212132143215432154343232121165432166666655555444433322PrivateSubCommand1_Click()Fori=1To6Forj=iTo1Step-1Printj;NextjPrintNextiEndSubPrivateSubCommand2_Click()Fori=6To1Step-1PrintSpace(18-3*i);Forj=1ToiPrintj;NextjPrintNextiEndSubPrivateSubCommand3_Click()Fori=1To6PrintSpace(18-3*i);Forj=iTo1Step-1Print7-j;NextjPrintNextiEndSubPrivateSubCommand4_Click()Fori=6To1Step-1Forj=iTo1Step-1Printj;NextjPrint个窗体Forml个窗体Forml,编写适当的事件过程。控制Textl中背景色和字体格式。(字体默认为宋体,PrivateSubOption1_Click()Text1.BackColor=vbRedEndSubPrivateSubOption2_Click()Text1.BackColor=vbYellowEndSubPrivateSubOption3_Click()Text1.BackColor=vbBlueEndSubNextiEndSub30.设计内容为“欢迎学习VB”)程序运行界面如图所示。PrivateSubCheck1_Click()Textl.FontBold=TrueEndSubPrivateSubCheck2_Click()Textl.Fontltalic=TrueEndSubPrivateSubCheck3_Click()Text1.FontUnderline=TrueEndSub利用两个列表框控件，设计选项移动窗体如上图。编写适当的事件过程实现功能要求。PrivateSubCommand1_Click()IfListl.ListCount=0ThenMsgBoxPrivateSubCommand1_Click()IfListl.ListCount=0ThenMsgBox咧表中没有可选的列，〃注意〃ExitSubIfListl.Listlndex>=0ThenFori=0ToListl.ListCount—EndIfEndSubPrivateSubCommand2_Click()Fori=0ToList1.ListCount-1List1.Selected(0)=TrueList2.AddItemList1.TextList1.RemoveItem0NextiEndSubPrivateSubCommand4_Click()Fori=0ToList2.ListCount-1List2.Selected(0)=TrueList1.AddItemList2.TextList2.RemoveItem0NextiEndSub设计界面如下图所示，运行时，当移动滚动条时，在标签中能正确显示摄氏、华氏温度值(C=5(F-32)/9)PrivateSubForm_Load()VScrolll.Min=100VScrolll.Max=0PrivateSubForm_Load()VScrolll.Min=100VScrolll.Max=0EndSubPrivateSubVScroll1_Change()Label2.Caption=VScrolll.ValueLabell.Caption=Format(VScroll1.Value*9/5+32,"#.0")EndSubEndSubDimaAsIntegerEndSubDimaAsIntegerPrivateSubTimer1_Timer()a=a+1设计上面界面，按“开始”按钮使标签在窗体上从左向右移动，当遇到窗体的右侧后，改成从右向左移动，按“停止”按钮停止标签移动。DimaAsIntegerPrivateSubCommand1_Click()Timer1.Enabled=TrueEndSubPrivateSubCommand2_Click()Timer1.Enabled=FalseEndSubPrivateSubTimer1_Timer()编写一个程序，实现在标签中自动依次显示“祝你”，“考试”，“成功”。Ifb=1ThenLabel1.Caption="祝你"Ifb=2ThenLabel1.Caption="考试"Ifb=0ThenLabel1.Caption="成功"EndSubb=aMod3EndSub窗体上有一个名为L1的列表框，通过属性向列表框添加3个项目，分别是“123、456、789”。当启动后，每次双击列表框中任何一项，则总在最后添加一项，该项是所有项之和。界面如下图。PrivateSubU^blCUckOa=PrivateSubU^blCUckOs=0DimbAsDouble,sAsDoubleFori=0Toa

b=Val(Ll.List(i))s=s+bLl.AddltemsEndSuborml设计如上界面，编写适当的事件过程。程序运行后，每过1秒钟文本框的背景色能够由红到绿,绿到蓝，再由蓝到红循环变化。DimaAsIntegerPrivateSubTimerl_Timer()a=a+1Ll.AddltemsEndSuborml设计如上界面，编写适当的事件过程。程序运行后，每过1秒钟文本框的背景色能够由红到绿,绿到蓝，再由蓝到红循环变化。DimaAsIntegerPrivateSubTimerl_Timer()a=a+1b=aMod3Ifb=1ThenText1.BackColor=vbRedIfb=2ThenText1.BackColor=vbGreenIfb=0ThenText1.BackColor=vbBlueEndSub单击第一个按钮，生成20个［0,100］之间的随机整数，显示于文本框1中，单击第二个按钮，求这20个数中的最大数和最小数，显示于文本框2中。OptionBase1Dima(20)AsIntegerPrivateSubCommandl_ClickOText1.Text=""Fori=1To20a(i)=Int(99*Rnd-0)Text1.Text=Text1.Text&a(i)&vbCrLfNextiFori=1To19Forj=i+1To20Ifa(i)>a(j)Thent=a(i)a(i)=a(j)a(j)=tEndIfNextj,iText2.Text=a(1)&Space(3)&a(20)EndSubDimA(1To4,1To5)AsInteger,B(1To4,1To5)AsIntegerDimA(1To4,1To5)AsInteger,B(1To4,1To5)AsIntegerPrivateSubCommandl_Click()Fori=1To4s1=""Forj=1To5A(i,j)=Int(91*Rnd+10)s1=s1&Space(2)&A(i,j)NextjPicture1.Prints1&vbCrLfNextiEndSubPrivateSubCommand2_Click()Fori=1To4编写程序，单击第一个按钮，用随机函数产生4行5列的两位整数并输出到图片框1中。单击第二个按钮，实现将第1行和第3行数据交换或第2列和第4列数据交换，输出到图片框2中。s1=""Forj=1To5IfiMod2<>0Thenc=4-iB(i,j)=A(c,j)s1=s1&Space(2)&B(i,j)ElseB(i,j)=A(i,j)s1=s1&Space(2)&B(i,j)EndIfNextjPicture2.Prints1&vbCrLfNextiEndSub

m!39.牙」FunctionN.,口mn!(m-n)!°在文本框1中输入n,文本框2中输入m,单击命令按钮，在文本框3中显示组合结果。FunctionA(hAsInteger)AsIntegerDimsAsInteger,iAsIntegers=1Fori=1TohNextiFunctionA(hAsInteger)AsIntegerDimsAsInteger,iAsIntegers=1Fori=1TohNextiEndFunctionPrivateSubCommand1_Click()DimmAsInteger,nAsInteger,pAsInteger,kAsDoublen=Val(Text1):m=Val(Text2):p=m-nx=A(m):y=A(n):z=A(p)k=x/(y*z)Text3.Text=kEndSub生成两个0~10之间的随机整数矩阵,如下图所示。生成两个0~10之间的随机整数矩阵,如下图所示。PrivateSubForm_Load()Fori=1To5s1=""Forj=1To5a(i,j)=Int(Rnd*11)s1=s1&Format(a(i,j),"!@@@")NextjList1.AddItems1&vbCrLfNextiFori=1To5s1=""Forj=1To5b(i,j)=Int(Rnd*11)s1=s1&Format(b(i,j),"!@@@")NextjList2.AddItems1&vbCrLf分别放入两个列表框，求两个矩阵之和放入第三个列表框NextiEndSubPrivateSubCommand1_Click()Fori=1To5s1=""Forj=1To5c(i,j)=a(i,j)+b(i,j)s1=s1&Format(c(i,j),"!@@@")NextjList3.AddItems1&vbCrLfNextiEndSubPrivateSubCommand2_Click()EndEndSubilkForml-Ini-Ini矩阵人矩阵E；8105275U1325101010UUUSilkForml-Ini-Ini矩阵人矩阵E；8105275U1325101010UUUS5434182404464175Id'd941314867157476111117151U9912Furrnl排序前：显示I[”""”菴序■"”jWj|退出生成10个两位数的随机整数，放入A数组，单击显示按钮全部显示在文本框1中，单击排序按钮由小到大排序，显示在文本框2中。（如上图）OptionBase1DimA(10)AsIntegerPrivateSubCommand1_Click()Fori=1To10A(i)=Int(91*Rnd+10)Text1.Text=Text1.Text&A(i)OptionBase1DimA(10)AsIntegerPrivateSubCommand1_Click()Fori=1To10A(i)=Int(91*Rnd+10)Text1.Text=Text1.Text&A(i)&Space(1)NextiEndSubPrivateSubCommand2_Click()Fori=1To9Forj=i+1To10IfA(i)>A(j)Thent=A(i)A(i)=A(j)A(j)=tEndIfNextj,iFori=1To10Text2.Text=Text2.Text&A(i)&Space(1)NextiEndSub如下图，单击显示按钮，将20个随机两位整数，输出在LIST1中；单击排序按钮，将使用子过程降序排序的结果输出在LIST2中。OptionBase1DimA(10)AsIntegerPrivateSubCommand1_Click()Fori=1To10A(i)=Int(91*Rnd+10)List1.AddItemA(i)NextiEndSubPrivateSubCommand2_Click()Fori=1To9Forj=i+1To10IfA(i)>A(j)Thent=A(i)A(i)=A(j)A(j)=tEndIfNextj,iFori=1To10List2.AddItemA(i)NextiEndSub编写适当的事件过程，在窗体上输出相应行数的杨辉三角形。点击窗体弹出InputBox对话框，在对话框中输入行数，打印出如上图所示形态的杨辉三角形。DimA()AsIntegerPrivateSubForm_Click()DimmAsInteger,nAsIntegerm=Val(InputBox("请输入行数"))n=mReDimA(m,n)Fori=0Tom-1A(i,i)=1A(i,0)=1NextiPrintTab(3*m-1);1Fori=2Ton-1s=Forj=1Toi-1A(i,j)=A(i-1,j)+A(i-1,j-1)s=s&Space(5)&A(i,j)NextiEndSubNextiEndSubPrintTab(3*(m-i));A(i,0)&s&Space(5)&A(i,i)编写程序，实现矩阵转置，即将一个nm的矩阵（均由随机函数产生，并且是两位整数）的行和列互换。单击显示按钮将原矩阵放在图片框1,单击转置按钮将转置后的矩阵输出在图片框2。OptionBase1Dima(4,5)AsInteger,b(5,4)AsIntegerPrivateSubCommand1_Click()Fori=1To4s=""Forj=1To5a(i,j)=Int(91*Rnd+10)s=s&Space(2)&a(i,j)NextjPicture1.PrintsNextiPrivateSubCommand2_Click()Fori=1To5s=""Forj=1To4b(i,j)=a(j,i)s=s&Space(2)&b(i,j)NextjPicture2.PrintsNextiEndSubEndSub45.编写函数过程计算1+2+3+。。。+n,运行时输入m,n,p的值，单击“Y=”输出结果（保留三位小数）。(1+2+3+...+m)+(1+2+3+...+n)(1+2+3+...+p)如上图所示。FunctionA(hAsInteger)AsIntegerDimsAsInteger,iAsIntegers=0Fori=1Tohs=s+iNextiA=sEndFunctionPrivateSubCommand1_Click()DimmAsInteger,nAsInteger,pAsInteger,kAsDoublem=Val(Text1):n=Val(Text2):p=Val(Text3)x=A(m):y=A(n):z=A(p)EndSubk=(x+y)/zEndSubText4.Text=k46.利用控件数组Textl、Text2将Textl中随机产生的数，交换到Text2中，界面如下图所示。PrivateSubForm_Load()Fori=0To5PrivateSubForm_Load()Fori=0To5Text1(i).Text=Int(91*Rnd+10)NextiEndSubPrivateSubCommand1_Click()Fork=0To5Text2(k).Text=Text1(5-k).TextNextkEndSub47•在一工程中有两窗体，界面如图所示，试完成相应功能。EndSub，这是标准模块的代码：PublicwAsInteger47•在一工程中有两窗体，界面如图所示，试完成相应功能。EndSub，这是标准模块的代码：PublicwAsInteger这是Forml的代码PrivateSubCommand1_Click()n=Val(Text1)Text2.Text=n人3PrivateSubCommand1_Click()s=1Fori=1TonEndSubEndSubNextiText2.Text=sPrivateSubCommand2_Click()Form2.ShowUnloadMeEndSub这是Form2的代码PrivateSubForm_Load()Text1.Text=nEndSubPrivateSubCommand2_Click()Form1.ShowUnloadMeEndSub48.在窗体放一个文本框和四个组合框，界面如下图所示，组合框1和组合框2的颜色包括：白、黑、红、绿、蓝、黄。组合框3的对齐方式有左、中、右。组合框4字体大小有10、12、14、18、20、22磅，试完成相应功能。文字顏色ICcnnbol〒|背景颜色|Combo22J对齐方式|Combo3字体大小|Cuinbij4〒|当肮刃已为0时,殂合框为下拉坦合框。当肮y"为1时,俎合框为简单殂合框。当当Style为2时组合框为下拉式列表框。||亀For>L口回冈文字颜色IQHE]背景顔色启对齐方式字体大小西―3当Sty"为0A时，组合框为下拉组合框口当Styg为1时，组合框为简单组合v=PrivateSubCombo1_Click()SelectCaseCombo1