?新建工程，界面如下圖，將窗體名稱改為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