VB筆試習習題練習

1、第一章 環(huán)境和程序設計初步一.選擇題1.在Visual 的集成開發(fā)的環(huán)境中，下面不屬于該環(huán)境編程語言的是（C）。 + C. Pascal D. J# 2.在集成開發(fā)環(huán)境中有兩類窗口，浮動窗口和固定窗口，下面不屬于浮動窗口的是（D）。 A.工具箱窗口 B.屬性窗口 C.解決方案管理器窗口 D.窗體窗口3.在中，在窗體上顯示控件的文本，用（A）屬性設置。 A. Text B. Name C. Enabled D. Image4.不論何種控件，共同具有的屬性是( B)。A. Text B. Name CForeColor DText 5對于窗體，可改變窗體的邊框性質的屬性是（B）。 A. MaxBu

2、tton B. FormBorderStyle C. Name D. Left6.若要使標簽控件顯示時不要覆蓋窗體的背景圖案，要對（A）屬性進行設置。 ABackColor B. BorderStyle CForeColor 7若要使命令按鈕不可操作，要對（A）屬性進行設置。A. Enabled C. BackColor D. Text8.要使文本框中的文字不能被修改，應對（D）屬性進行設置。A. Locked B. Visible C. Enabled D. ReadOnly9.要使當前Form1 窗體的標題欄顯示“歡迎使用”，以下（B）語句是正確的。A. =“歡迎使用” B. Me. Te

3、xt=“歡迎使用”歡迎使用”D. Name=“歡迎使用”10.當運行程序時，系統(tǒng)自動執(zhí)行啟動窗體的（A）事件過程。 A. Load B. Click C. UnLoad D. GotFocus11.當文本框的ScrollBars屬性設置了非None值，卻沒有效果，原因是（B）。 A. 文本框沒有內(nèi)容 B.框的MulitLine屬性為FalseC.框的MulitLine屬性為True D.本框的Locked屬性True12要判斷在文本框中是否按了Enter鍵，應在文本框的（D）事件中判斷。A. TextChanged B. LostFocus C. Click D. KeyPress 13.在集

4、成環(huán)境中創(chuàng)建應用程序時，除了工具箱窗口、窗體窗口和屬性窗口外，必不可少的窗口是（C）。 A.窗體布局窗口 B.立即窗口 C.代碼窗口 D.監(jiān)視窗口14當創(chuàng)建一個項目名為“引例”的項目時，該項目的所有代碼文件將保存在（C）文件夾下。 AMy Documents B C引例 DWindows15將調試通過后生成的.exe 可執(zhí)行文件放到其他機器上不能運行的主要原因是（A）。 A .運行的機器上面無系統(tǒng) B .缺少. frm 窗體文件 C. 該可執(zhí)行文件有病毒 D. 以上原因都不對16.對初學者而言,調試程序方便,有效的手段是 ( A)。A. 在可疑的代碼處設置斷點，逐語句跟蹤 B. 查看資料 C.

5、 通過”立即”窗口顯示變量的值 D. 找老師問原因17. 在代碼窗口,代碼下方有藍色波浪線表示(B ) 。A .對代碼設置了格式 B. 編譯語法錯誤 C. 邏輯錯誤 D. 運行時錯誤二.填空題 是完全面向對象的程序設計語言，其最大的特點是_引入了 框架_可視化編成技術_技術能讓編程人員不必編寫代碼就可以創(chuàng)建GUI（圖形用戶界面）。解決方案_是由一個或幾個項目組成的程序。4.當_自動隱藏_特性設置后，浮動窗口將自動隱藏。5.當進入集成環(huán)境，發(fā)現(xiàn)沒有顯示 “工具箱”窗口，應選擇_視圖_菜單的_工具箱_。6要同時保存解決方案中的每個文件，最方便的方法是單擊工具欄的_全部保存_按鈕。7對象屬性是指_對

6、象的性質來描述和反應對象特征的參數(shù)_。8對象的方法是指_對象的動作、行為_。9在剛建立項目時，使窗體上的所有控件具有相同的字體格式，應對_Form窗體_的_Font_屬性進行設置。10屬性窗口的屬性可以按照_分類順序_和_字母順序_順序排列。11當對命令按鈕的Image屬性裝入.bmp圖形文件后，按鈕上并沒有顯示所需的圖形，原因是對_FlatStyle _屬性設置為_System_。12若已建立了Form1，F(xiàn)orm2兩個窗體，默認啟動窗體為Form1。通過_項目_菜單的_屬性_的_常規(guī)_選項卡，可將啟動對象設置為Form2。13在文本框中，通過_SelectionStart_屬性能獲得當前插

7、入點所在的位置。14要對文本框中已有的內(nèi)容進行編輯，按下鍵盤上的按鈕，就是不起作用，原因是設置了_ReadOnly_的屬性為True。15在窗體上已建立多個控件，如TextBox1，Label1，Button1，若要使程序一運行焦點就定位在Button1控件上，應對Button1控件設置_TabIndex_屬性的值為_0_。第二章 語言基礎和順序結構一.選擇題 1.在一個語句內(nèi)寫多條語句時，每個語句之間用（B）符號分隔。A， B. ： C.、 D. ；2. 一語句要在下一行繼續(xù)寫，用（C）符號作為續(xù)行符。A . + B . - C. _ D . 3. 下面屬于合法的變量名的是（ A）。 B.

8、123abc C .Integer 4.下面屬于不合法的整常數(shù)的是( D). B. &O100 C. &H100 D. %1005.下面屬于合法的字符常數(shù)的是( B) 。$ B. “ABC” C. ABC 6. 下面屬于合法的單精度型變量的是（A）。A. mun！ B. sum% D. xinte$ D. mm#7.下面屬于不合法的雙精度常數(shù)的是（D）。 # +2 表達式16/4-25 * 8/4 Mod 52 的值為(B)。 .9.數(shù)學關系表達式x10表示成正確的表達式為( B)。A3<=x<10 B. 3<=x AND x<10 C. x>=3

9、 OR x<10 <=x AND <1010.、/、Mod、* 四個算術運算符中，優(yōu)先級別最低的是（C）。A. B. / C. Mod D.*11.與數(shù)學表達式ab/(3cd)對應，的不正確表達式是（D）。A. a*b/(3*c*d) 3*b/c/d C. a*b/3/c/d D. a*b/3*c*d函數(shù)不可能為下列（B）值。A. 0 C. D. *100+/100的值是（C）。A. 198 14.已知A$=“”，則表達式Val(Mid(A,1,4)+Mid(A,4,2)的值為（B）。 (DateAdd(“m”,2，#1/28/2005#)語句顯示結果是（A）。A. 2005

10、-3-28 C. 2007-1-28 D. 2003-1-2816.表達式DateDiff(“y”,#12/30/1999#,#1/13/2000#)的結果是（C）。A. 1 B. 11 17. 表達式Len（“123程序設計ABC”）的值是（A）。 A10 18下面正確的賦值語句是（C）。 Ax+y=30 B .y=*r*r; C. y=x+30 D. 3y=x19. 為了給x、y、z三個變量賦初值1，下面正確的賦值語句是（A）。=1:y=1:z=1 =1,y=1,z=1 C. x=y=z=1 =120.賦值語句“a=123+MID(“123456”,3,2)”執(zhí)行后，a變量中的值是（D）。

11、 A. “12334” 21賦值語句“a=123 & MID(“123456”,3,2)”執(zhí)行后，a變量中的值是（A）。 A. “12334” 22.已知a=12，b=20，復合賦值語句“a*=b+10”執(zhí)行后，a變量中的值是（D）。 二.填空題1 在中，1234%，123456!，+5三個常數(shù)分別表示_整型_，_單精度型_，_雙精度型_類型。2 整型變量x中存放了一個兩位數(shù)，要將兩位數(shù)交換位置，例如，13變成31，實現(xiàn)表達式是_（x mod 10）*10+x10_。3 表示x是5的倍數(shù)或是9的倍數(shù)的邏輯表達式為_ x mod 5 =0 Or x mod 9 =0_。4.已知a=，b=

12、，c=，d=True，則表達式a>=0 AND a+c>b+3 OR NOT d的值是_False_。、Int、Fix、Fix、Round的值分別是 _-4_、_3_、_-3_、_3_、_-4_、_4_。6.表達式UCase（Mid（“abcdefgh”，3，4）的值是_CDEF_。7.在直角坐標系中，x、y是坐標系中任意點的位置，用x和y表示在第一象限或第三象限的表達是_x >0 and y >0 Or x<0 and y<0_。8. 要顯示當前機器內(nèi)日期，函數(shù)為_Now_。9. 計算離你畢業(yè)（假定2008年6月30日畢業(yè)）還有多少個星期的函數(shù)表達式是_D

13、ateDiff(“w”,Now,#6/30/2008#)_。10. 表示s字符變量是字母字符（大小寫字母不區(qū)分）的邏輯表達式為_UCase(s) >= “A” and Ucase(s) <= “Z”_。11.下面程序隨機產(chǎn)生一個三位正整數(shù)，然后逆序輸出，產(chǎn)生的數(shù)與逆序數(shù)同時顯示。例如，產(chǎn)生246，輸出是642。 Sub Button1_Click(.) Handles Dim x, y As Integer x=Int (_Rnd()*900 + 100_) y=(x Mod 10)*100+_(x mod 100)10)*10_+x100 MsgBox(“x=”& x &

14、amp; x &“y=” &y) End Sub. 第三章 選擇結構 一、選擇題：1 提供了結構化程序設計的三種基本結構，三種基本結構是（D）。A.遞歸結構，選擇結構，循環(huán)結構 B.選擇結構，過程結構，順序結構C.過程結構，輸入輸出結構，轉向結構 D.選擇結構，循環(huán)結構，順序結構2 按照結構化程序設計的要求，下面（C）語句是非結構化程序設計語句。Aif語句 B. For語句 C. GoTo語句 D. Select Case語句 3.下面程序段運行后，顯示的結果是（A）。 Dim x% If x Then MsgBox(x) Else MsgBox(x+1) D.顯示出錯信息4語

15、句“If x=1 Then y=1” 下列說法正確的是（C）。 A. “x=1” 和“y=1” 均為賦值語句B“x=1” 和“y=1” 均為關系表達式C“x=1” 為關系表達式“y=1” 為賦值語句D“x=1” 為賦值語句“y=1” 為關系表達式5下面程序段顯示的結果是（A）。 Dim x% x=Int(Rnd)+5Select Case x Case 5MsgBox(“優(yōu)秀”) Case 4MsgBox(“良好”) Case 3 MsgBox(“通過”) Case ElseMsgBox(“不通過”) End Select A. 優(yōu)秀 B. 良好 C. 通過 D. 不通過6.下面If 語句統(tǒng)計

16、滿足性別（sex）男、職稱（duty）為副教授以上、年齡（age）小于40歲條件的人數(shù)，正確的語句是（A）。A. If sex= “男” And age<40 And InStr(duty, “教授”)>0 Then n=n+1B. If sex= “男” And age<40 And duty=“教授” or duty= “副教授” Then n=n+1C. If sex= “男” And age<40 And Right(duty,2)= “教授” Then n=n+1D. If sex= “男” And age<40 And duty= “教授”And du

17、ty= “副教授” Then n=n+17.下面程序段求兩個數(shù)中的大數(shù)，（D）不正確。 A. Max1=IIf(x>y, x, y) B. If x>y Then Max1=x Else Max1=y C. Max1=(x, y) D. If y>=x Then Max1=y Max=x8.下面三個程序設計段計算學生外語附加分：外語6級（lang6）為“優(yōu)秀”加15分，“通過” 加10分；外語4級（lang4）為“優(yōu)秀”加8分，“通過”加4分。外語附加分只能計一次最高的分數(shù)。（A）能正確計算。 A. If lang6=“優(yōu)秀” Then langf=15 ElseIf lan

18、g6=“合格” Then langf=10 ElseIf lang4= “優(yōu)秀” Then langf=8 ElseIf lang4=“合格”Then langf=4 End if B If lang4= “合格” Then langf=4 ElseIf lang4=“優(yōu)秀” Then langf=8 ElseIf lang6=“合格” Then langf=10ElseIf lang6=“優(yōu)秀” Then langf=15 End ifC. If lang6=“優(yōu)秀”Then langf=15 If lang6=“合格” Then langf=10 If lang4=“優(yōu)秀” Then la

19、ngf=8 If lang4= “合格” Then langf=4 D. If lang4= “合格”Then langf=4 If lang4=“優(yōu)秀” Then langf=8 If lang6=“合格” Thenlangf=10 If lang6=“優(yōu)秀” Then langf=15 Else langf=0End if9.下面語句執(zhí)行后，變量w中的值是（B）。w= Choose (Weekday(“2005,5,1”), “Red”, “Green” , “Blue”, “Yellow”) A. Nothing B. “Red” C. “Green” D. “Yellow”二.填空題1

20、當C字符串變量中第三個字符是“C”時，利用MsgBox顯示“Yes”，否則顯示“No”。（1） If_Mid(c，3，1) = “C”_Then MsgBox(“yas”) Else MsgBox(“No”)2.程序運行后輸出的結果是_7_。x=Int(Rnd)+3If x2>8 Then y=x2+1If x2=9 Then y=x2-2If x2<8 Then y=x3MsgBox(y)3.下面程序的功能是_分別統(tǒng)計輸入若干數(shù)的奇數(shù)和、偶數(shù)和，存放在m，n中_。Dim n%, m% Sub TextBox1_KeyPress(.)Handles If Asc=13 Then I

21、f IsNumeric Then Select Case Val Mod 2Case 0n=n+ValCase 1m=m+ValEnd Select End If =” ( )End If End Sub<注意>該題中統(tǒng)計括號個數(shù)的變量m,n若在過程內(nèi)聲明，程序會產(chǎn)生什么結果(2)4下面的程序段是檢查輸入的算術表達式中圓括號是否配對，并顯示相應的結果。本程序在文本框中輸入表達式，邊輸入邊統(tǒng)計，以輸入回車符作為表達式輸入結束，然后顯示結果，如下圖所示。 Dim count1%Sub TextBox1_KeyPress( )Handles If_ _=“(”Then count1+1

22、ElseIf _ _=“)” Then count1=_ count1-1_End If If Asc=13 Then If_ count1=0_ Then MsgBox(“左右括號配對”) ElseIf count1>0 Then MsgBox(_“左括號多于右括號” & count1 & “個”_) Else MsgBox(“右括號多于左括號”& count1 & “個”) End If End IfEnd Sub<注意>該題中統(tǒng)計括號個數(shù)的變量count1若在過程內(nèi)聲明，程序會產(chǎn)生什么結果5輸入若干個字符，統(tǒng)計有多少個元音字母，有多少個其

23、他字母，直到按Enter鍵結束，顯示結果，大、小寫不區(qū)分。其中CountY中放元音字母個數(shù)，CountC中放其他字符數(shù)。 Dim CountY% , CountC% Sub TextBox1_KeyPress () Handles Dim c As Charc=_If “A”<=c And c<= “Z”Then Select Case_ Case_ CountY=CountY+1 Case Else CountC=CountC+1End SelectEnd IfIf _ _ Then MsgBox(“元音字母有”& CountY & “個”) MsgBox(“其他

24、字母有”& CountC & “個”)End IfEnd Sub 6.用If語句，Select Case語句兩種計算方法計算分段函數(shù)x2+3x+2 當x>20y=sqrt(3x)-2當10<=x<=201/2+|x| 當x<10Sub Button1_Click(.) Handles Dim x! , y! x=Val If_x>20_ Theny=x*x+3*x+2ElseIf_x<10_ Then y=1/2+(x)Else y=(3*x)-2End IfMsgBox(“y=”& y)End SubSub Button1_Clic

25、k(.) Handles x=ValSelect Case xCase_Is>20_y=x*x+3*x+2Case_Is<10_ y=1/2+(x)Case Else y=(3*x)-2End SelectMsgBox(“y=”& y)End Sub 7.輸入三角形的三邊a、b、c的值，根據(jù)其數(shù)值，判斷能否構成三角形。若能，還要顯示三角形的性質：等邊三角形、等腰三角形、直角三角形、任意三角形。 Sub Button1_Click(.) Handles Dim x%, y%, z% x= Val(InputBox(“input x”) y= Val(InputBox(“inp

26、ut x”)z= Val(InputBox(“input x”) If_X+y>z and x+z>y and y+z>x_ Then Msgbox(“能構成三角形”) If_ X=y and y=z_ Then Msgbox (“是等邊三角形” ElseIf _ X=y Or y=z Or x=z_ ThenMsgbox (“是等腰三角形”) ElseIf Sqrt(x*x+y*y)=z Or (y*y+z*z)=x Or (x*x+z*z)=y Then Msgbox (“是直角三角形”) Else _X=y Or y=z Or x=z_ End IfElseMsgBox

27、(“不能構成三角形”)End IfEnd Sub8輸入一個年份，判斷它是否為閏年，并顯示是否是閏年的有關信息。判斷閏年的條件是：年份能被4整除但不能被100整除，或能被400整除。同時請用日期型變量的IsLeepYear成員來驗證。 Sub Button1_Click(.) Handles Dim d As Date d=Now If_ mod 4 = 0 and mod 100 <> Or Mod 400=0 Then MsgBox & “是閏年”) Else MsgBox & “是平年”) End If If （_） Then MsgBox & “是閏年

28、”) Else MsgBox & “是平年”) End IfEnd Sub第四章 循環(huán)結構選擇題一.選擇題1.以下（B）是正確的For.Next結構。A. For x=1 To Step 10 x=3 To -3 Step -3 . . Next x Next xC. For x=1 To 10 D. For x=3 To 10 Step 3 re:. If i=10 Then GoTo re Next x .Next y2.下列循環(huán)體能正常結束的是（C）。A. i=5 Doi=i+1 Loop Until i<0B. i=1 Doi=i+2Loop Until i=10C. i

29、=10 Doi=i+1Loop Until i>0D. i=6 Doi=i-2Loop Until i=13.下面程序段的運行結果為（B）。 = “” For i=3 To 1 Step -1 &=Space(5-i)For j=1 To 2*i-1 &=”*”Next j &=vbCrLfNext iA. * B. * C.* D. * * * * * * *4.當在文本框輸入“ABCD”四個字符時，窗體上顯示是（C）。 Sub TextBox1_TextChanged(.) Handles &=End SubA. ABCD B. A B AB C AB

30、C D ABCD5.下列程序段不能分別正確顯示 1！、2！、3！、4！的值的是（B）。 A. For i=1 To 4 B. For i=1 To 4 n=1 For j=1 To i For j=1 To i n=1 n=n*j n=n*j Next j Next j MsgBox(n) MsgBox(n) Next i Next i C. n=1 D. n=1 For j=1 To 4 j=1 n=n*j Do While j<=4 MsgBox(n) n=n*j Next j MsgBox(n) j=j+12. 填空題 Loop1要使下列For語句循環(huán)執(zhí)行20次，循環(huán)變量的初值應當

31、是： For k=_33_ To -5 Step -2 2.下面程序段顯示_10_個“*”。 For i=1 To 5 For j=2 To i MsgBox(“*”) Next jNext i 3.下列第40句共執(zhí)行了_4_次，第41句共執(zhí)行了_12_次。30 For j=1 To 12 Step 340 For k=6 To 2 Step -241 MsgBox(j & “ ” & k)42 Next k43 Next j4.輸入任意長度的字符串，要求將字符順序倒置。例如，將輸入的“ABCDEFG”變換成“GFEDCBA”。Sub Button1_Click(.) Hand

32、les Dim a$, I%, c$, d$, n%a=InputBox$(“輸入字符串”)n=_Len(a)_d=”For I=1 To_n_c=Mid(a,I,1)d=c & dNext IMsgBox(d)End Sub 5找出被3、5、7除，余數(shù)為1的最小的5個正整數(shù)。 Sub Button1_Click(.) Handles Dim CountN% , n%CountN=0n=1Don=n+1If_n mod 3 =1 and n mod 5 =1 and m mod 7 =1_ Then MsgBox(n) countN=CountN+1End IfLoop_while C

33、ountN < 5_End Sub 6.有個長階梯，如果每步跨2階最后剩1階，如果每步跨3階最后剩2階，如果每步跨4階最后剩3階，如果每步跨5階最后剩4階，如果每步跨6階最后剩5階，只有當每步跨7階時恰好走完，顯示這個階梯至少要有多少階。<提示>利用其肯定是7的倍數(shù)這個條件，然后根據(jù)同時滿足除n余m（n=2，3，4，5，6；m=1，2，3，4，5）的邏輯關系即可。Sub Button1_Click(.) Handles Dim n%, m% For n=7 To 10000 Step 7 If n Mod 2=1 And _n mod 3=2 and n mod 4=3 an

34、d n mod 5=4 and n mod 6=5_ Then MsgBox(n)_Exit For_End If NextEnd Sub 7.某班在一周中6天內(nèi)考三門分別為x、y、z的考試課程，規(guī)定一天只能考一門，先考x，后考y，最后考z，最后一門最早周五考。用計算機排考試，列出滿足條件的方案數(shù)。 Sub Button1_Click(.) Handles Dim x%, y%, z%, n% n=0= “”For x=1 To 4 For y=_X+1_To 5 For z=5 To 6 If_X<y_ And y<z Then &=x & space(9) &a

35、mp; y & Space(9) & z & vbCrlf _n=n+1_End If Next &=_ “滿足條件的方案為；” & nEnd Sub 8某次大獎賽，有7個評委打分，以下程序是針對一名參賽者，輸入7個評委的打分分數(shù)，去掉一個最高分、一個最低分，求出平均分，為該參賽者的得分。 Sub Button1_Click(.) Handles Dim mark!,aver!,max1!,min1!aver=0For i=1 To 7mark=InputBox(“輸入第”& i & “位評委的打分”) If i=1 Then max1=

36、mark:_Min1=mark_ ElseIf mark<min1 Then_Min1=mark_ ElseIf mark>max1 Then _Max1=mark_End IfEnd If _Aver=aver + mark_ Next i aver=_(aver-max1-min1)/5_ MsgBox(aver)End Sub 第五章 數(shù)組一.選擇題1如下數(shù)組聲明語句中正確的是（B）。A. Dim a3,4 As Integer B. Dim a(3,4) As IntegerC. Dim a3,4 As Integer D. Dim a(3 4) As Integer2.如

37、下數(shù)組聲明語句中正確的是（B）。A. Dim (9) As Single=1,2,3,4,5,6,7,8,9,10B. Dim a( ) As Single=1,2,3,4,5,6,7,8,9,10C. Dim a( ) As Single=1,“a”, “bc”2. ,4,5,6,7,8,9,10D. Dim a(,) As Integer=1,2,3,4,5,6,7,8,9,103.如下數(shù)組聲明語句中，數(shù)組a包含元素的個數(shù)有（C）。Dim a(3,0,5) 4.如下程序輸出的結果是（D）。 Dim a() As Integer=1,2,3,4,5,6,7 For i=0 To UBound

38、(a)a(i)a=(i)*a(i)Next iMsgBox(a(i) C.不確定 D.程序出錯5如下程序輸出的結果是（D）。 Sub Button1_Click(. .) Handles Dim i%, j%Dim a( ) As Integer=0,1,2,3,4,5,6,7,8,9,b(3,3) As Integer= “”For i=1 To 3 &=Space(i*3)For j=i To3b(i,j)=a(i*j) &=Space(6-Len(b(i,j) & b(i,j) Next j &=vbCrLf Next iEnd Sub 2 3 4 7 D

39、. 1 2 3 4 5 6 4 5 2 4 6 4 6 7 8 9 7 8 9 3 6 9 9 二.填空題1 在一維數(shù)組中利用移位的方法顯示如圖所有的結果。Sub Button1_Click(.) Handles Dim a(7) As Integer, i%, t%, j% = “” For i=1 To 7a(i)=i &=a(i) & “ ” Next i &=vbCrLfFor i=1 To 7t=_a(7) _For j=6 To 1 Step -1 _a(j+1)=a(j)_Next ja(1)=_a(1)=t_For j=1 To 7 &=a(j)

40、 & “ ”Next j &=_vbcrlf _Next iEnd Sub 2.下面程序對已知數(shù)組a（），刪除數(shù)組中某個元素。 Sub Button1_Click(. .) Handles Dim a() As Integer=1,6,8,3,5,9,10,2,7,4 ,Key%, i%, j%Key=Val(InputBox(“輸入要刪除的值”)For i=0 To UBound(a)If_key=a(i)_ ThenFor j=i+1 To UBound(a)_a(j-1)=a(j)_Next jReDim _Preserve a(Ubound(a)-1)_MsgBox(“

41、刪除完成”)Exit Sub End IfNext iMsgBox(“找到不要刪除的元素”)End Sub 3.矩陣相乘兩個矩陣能相乘的必要條件是：前一個矩陣的列數(shù)等于后一個矩陣的行數(shù)。例如，已知A為n×k的矩陣，B為k×m的矩陣，A×B的結果C矩陣為n×m，即：51015520350800A=B=1025C=20253015308001925Sub Button1_Click(.) Handles Dim a%(2,3),b%(3,2),c%(2,2),i%, j%, n%, k%=“”n=5For i=1 To 2For j=1 To 3 a(i,j

42、)=n_b(j,i)=n_n=_n+5_Next jNext iFor i=1 To 2For j=1 To 2c(i,j)=0For k=1 To 3c(i,j)=c(i,j)+_a(i,k)*b(k,j)_ Next k &=c(i,j) & “ ”Next j &=vbCrLfNext iEnd Sub4.下面的程序是將輸入的一個數(shù)插入到遞減的有序數(shù)列中，插入后使該序列仍有序。Sub Button1_Click(.) Handles Dim i% , n% ,m% Dim a() As Integer=9,17,15,13,11,9,7,5,3,1 n=UBoun

43、d(a) ReDim _Preserve a(n+1)_ m= Val(InputBox(“輸出欲插入的數(shù)”) For i=UBound(a) -1 To 0 Step -1 If m>=a(i) Then _a(i+1) = a(i)_ If i=0 Then a(i)=m Else _a(i+1)=m_ Exit For End If Next i For i=0 To _Ubound(a)_ &=a(i) & “ ” Next i End Sub 5. 改進的冒泡法排序。 在教材中已介紹選擇法、冒泡法。上例使用了插入法排序。本例使用改進的冒泡法排序，冒泡法排序在每一輪排序時將相鄰的兩個數(shù)比較，當次序不對就交換位置，出了內(nèi)循環(huán)，最大數(shù)已沉底，小數(shù)上浮；每一輪僅使沉底的數(shù)確定了位置，有個n個數(shù)，外循環(huán)要進行n-1輪排序。為了提高效率，若在某一輪排序時，未發(fā)生排序位置交