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

2、5對于窗體，可改變窗體的邊框性質的屬性是（B）。 A. MaxButton B. FormBorderStyle C. Name D. Left6.若要使標簽控件顯示時不要覆蓋窗體的背景圖案，要對（A）屬性進行設置。 ABackColor B. BorderStyle CForeColor D.BackStyle7若要使命令按鈕不可操作，要對（A）屬性進行設置。A. Enabled B.Visible C. BackColor D. Text8.要使文本框中的文字不能被修改，應對（D）屬性進行設置。A. Locked B. Visible C. Enabled D. ReadOnly9.要使當

3、前Form1 窗體的標題欄顯示“歡迎使用VB.NET”，以下（B）語句是正確的。A. Form1.Text=“歡迎使用VB.NET” B. Me. Text=“歡迎使用VB.NET”C.Form1.Name=“歡迎使用VB.NET”D. Name=“歡迎使用VB.NET”10.當運行程序時，系統自動執行啟動窗體的（A）事件過程。 A. Load B. Click C. UnLoad D. GotFocus11.當文本框的ScrollBars屬性設置了非None值，卻沒有效果，原因是（B）。 A. 文本框沒有內容 B.框的MulitLine屬性為FalseC.框的MulitLine屬性為True

4、 D.本框的Locked屬性True12要判斷在文本框中是否按了Enter鍵，應在文本框的（D）事件中判斷。A. TextChanged B. LostFocus C. Click D. KeyPress 13.在VB.NE集成環境中創建VB.NET應用程序時，除了工具箱窗口、窗體窗口和屬性窗口外，必不可少的窗口是（C）。 A.窗體布局窗口 B.立即窗口 C.代碼窗口 D.監視窗口14當創建一個項目名為“引例”的項目時，該項目的所有代碼文件將保存在（C）文件夾下。 AMy Documents BVB.NET C引例 DWindows15將調試通過后生成的.exe 可執行文件放到其他機器上不能運

5、行的主要原因是（A）。 A .運行的機器上面無VB.NET系統 B .缺少. frm 窗體文件 C. 該可執行文件有病毒 D. 以上原因都不對16.對初學者而言,調試程序方便,有效的手段是 ( A)。A. 在可疑的代碼處設置斷點，逐語句跟蹤 B. 查看資料 C. 通過”立即”窗口顯示變量的值 D. 找老師問原因17. 在代碼窗口,代碼下方有藍色波浪線表示(B ) 。A .對代碼設置了格式 B. 編譯語法錯誤 C. 邏輯錯誤 D. 運行時錯誤二.填空題1.VB.NET 是完全面向對象的程序設計語言，其最大的特點是_引入了.net 框架_2._可視化編成技術_技術能讓編程人員不必編寫代碼就可以創建

6、GUI（圖形用戶界面）。3._解決方案_是由一個或幾個項目組成的VB.NET程序。4.當_自動隱藏_特性設置后，浮動窗口將自動隱藏。5.當進入VB.NET集成環境，發現沒有顯示 “工具箱”窗口，應選擇_視圖_菜單的_工具箱_。6要同時保存解決方案中的每個文件，最方便的方法是單擊工具欄的_全部保存_按鈕。7對象屬性是指_對象的性質來描述和反應對象特征的參數_。8對象的方法是指_對象的動作、行為_。9在剛建立項目時，使窗體上的所有控件具有相同的字體格式，應對_Form窗體_的_Font_屬性進行設置。10屬性窗口的屬性可以按照_分類順序_和_字母順序_順序排列。11當對命令按鈕的Image屬性裝入

7、.bmp圖形文件后，按鈕上并沒有顯示所需的圖形，原因是對_FlatStyle _屬性設置為_System_。12若已建立了Form1，Form2兩個窗體，默認啟動窗體為Form1。通過_項目_菜單的_屬性_的_常規_選項卡，可將啟動對象設置為Form2。13在文本框中，通過_SelectionStart_屬性能獲得當前插入點所在的位置。14要對文本框中已有的內容進行編輯，按下鍵盤上的按鈕，就是不起作用，原因是設置了_ReadOnly_的屬性為True。15在窗體上已建立多個控件，如TextBox1，Label1，Button1，若要使程序一運行焦點就定位在Button1控件上，應對Button

8、1控件設置_TabIndex_屬性的值為_0_。第二章 VB.NET語言基礎和順序結構一.選擇題 1.在一個語句內寫多條語句時，每個語句之間用（B）符號分隔。A， B. ： C.、 D. ；2. 一語句要在下一行繼續寫，用（C）符號作為續行符。A . + B . - C. _ D . 3. 下面屬于合法的變量名的是（ A）。A.X_yz B. 123abc C .Integer D.X-Y 4.下面屬于不合法的整常數的是( D). A.100 B. &O100 C. &H100 D. %1005.下面屬于合法的字符常數的是( B) 。A.ABC$ B. “ABC” C. ABC

9、 D.ABC6. 下面屬于合法的單精度型變量的是（A）。A. mun！ B. sum% D. xinte$ D. mm#7.下面屬于不合法的雙精度常數的是（D）。 A.100# B.100.0 C.1E+2 D.100.0D+28. 表達式16/4-25 * 8/4 Mod 52 的值為(B)。 .9.數學關系表達式x10表示成正確的VB.NET表達式為( B)。A3<=x<10 B. 3<=x AND x<10 C. x>=3 OR x<10 D.3<=x AND <1010.、/、Mod、* 四個算術運算符中，優先級別最低的是（C）。A. B

10、. / C. Mod D.*11.與數學表達式ab/(3cd)對應，VB.NET的不正確表達式是（D）。A. a*b/(3*c*d) B.a/3*b/c/d C. a*b/3/c/d D. a*b/3*c*d12.Rnd函數不可能為下列（B）值。A. 0 B.1 C. 0.1234 D. 0.000513.Int(198.555*100+0.5)/100的值是（C）。A. 198 B.199.6 C.198.56 D.20014.已知A$=“12345678”，則表達式Val(Mid(A,1,4)+Mid(A,4,2)的值為（B）。A.123456 B.123445 C.8 D.615.Msg

11、Box(DateAdd(“m”,2，#1/28/2005#)語句顯示結果是（A）。A. 2005-3-28 B.2005-1-30 C. 2007-1-28 D. 2003-1-2816.表達式DateDiff(“y”,#12/30/1999#,#1/13/2000#)的結果是（C）。A. 1 B. 11 C.14 D.99 17. 表達式Len（“123程序設計ABC”）的值是（A）。 A10 B.14 C.20 D.1718下面正確的賦值語句是（C）。 Ax+y=30 B .y=*r*r; C. y=x+30 D. 3y=x19. 為了給x、y、z三個變量賦初值1，下面正確的賦值語句是（A

12、）。A.x=1:y=1:z=1 B.x=1,y=1,z=1 C. x=y=z=1 D.xyz=120.賦值語句“a=123+MID(“123456”,3,2)”執行后，a變量中的值是（D）。 A. “12334” B.123 C.12334 D.15721賦值語句“a=123 & MID(“123456”,3,2)”執行后，a變量中的值是（A）。 A. “12334” B.123 C.12334 D.15722.已知a=12，b=20，復合賦值語句“a*=b+10”執行后，a變量中的值是（D）。 A.50 B.250 C.30 D.360二.填空題1 在VB.NET中，1234%，12

13、3456!，1.2346E+5三個常數分別表示_整型_，_單精度型_，_雙精度型_類型。2 整型變量x中存放了一個兩位數，要將兩位數交換位置，例如，13變成31，實現表達式是_（x mod 10）*10+x10_。3 表示x是5的倍數或是9的倍數的邏輯表達式為_ x mod 5 =0 Or x mod 9 =0_。4.已知a=3.5，b=5.0，c=2.5，d=True，則表達式a>=0 AND a+c>b+3 OR NOT d的值是_False_。5.Int(-3.5)、Int(3.5)、Fix(-3.5)、Fix(3.5)、Round(3.5)的值分別是 _-4_、_3_、_-

14、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. 要顯示當前機器內日期，函數為_Now_。9. 計算離你畢業（假定2008年6月30日畢業）還有多少個星期的函數表達式是_DateDiff(“w”,Now,#6/30/2008#)_。10. 表示s字符變量是字母字符（大小寫字母不區分）的邏輯表達式為_UCase(s) >= “A” and Ucase

15、(s) <= “Z”_。11.下面程序隨機產生一個三位正整數，然后逆序輸出，產生的數與逆序數同時顯示。例如，產生246，輸出是642。 Sub Button1_Click(.) Handles Button1.Click Dim x, y As Integer x=Int (_Rnd()*900 + 100_) y=(x Mod 10)*100+_(x mod 100)10)*10_+x100 MsgBox(“x=”& x & x &“y=” &y) End Sub. 第三章 選擇結構 一、選擇題：1 VB.NET提供了結構化程序設計的三種基本結構，三種基

16、本結構是（D）。A.遞歸結構，選擇結構，循環結構 B.選擇結構，過程結構，順序結構C.過程結構，輸入輸出結構，轉向結構 D.選擇結構，循環結構，順序結構2 按照結構化程序設計的要求，下面（C）語句是非結構化程序設計語句。Aif語句 B. For語句 C. GoTo語句 D. Select Case語句 3.下面程序段運行后，顯示的結果是（A）。 Dim x% If x Then MsgBox(x) Else MsgBox(x+1) A.1 B.0 C.-1 D.顯示出錯信息4語句“If x=1 Then y=1” 下列說法正確的是（C）。 A. “x=1” 和“y=1” 均為賦值語句B“x=1

17、” 和“y=1” 均為關系表達式C“x=1” 為關系表達式“y=1” 為賦值語句D“x=1” 為賦值語句“y=1” 為關系表達式5下面程序段顯示的結果是（A）。 Dim x% x=Int(Rnd)+5Select Case x Case 5MsgBox(“優秀”) Case 4MsgBox(“良好”) Case 3 MsgBox(“通過”) Case ElseMsgBox(“不通過”) End Select A. 優秀 B. 良好 C. 通過 D. 不通過6.下面If 語句統計滿足性別（sex）男、職稱（duty）為副教授以上、年齡（age）小于40歲條件的人數，正確的語句是（A）。A. If

18、 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 duty= “副教授” Then n=n+17.下面程序段求兩個數中的大數，（D）不正確。 A. Max1=IIf(x&g

19、t;y, x, y) B. If x>y Then Max1=x Else Max1=y C. Max1=Math.Max(x, y) D. If y>=x Then Max1=y Max=x8.下面三個程序設計段計算學生外語附加分：外語6級（lang6）為“優秀”加15分，“通過” 加10分；外語4級（lang4）為“優秀”加8分，“通過”加4分。外語附加分只能計一次最高的分數。（A）能正確計算。 A. If lang6=“優秀” Then langf=15 ElseIf lang6=“合格” Then langf=10 ElseIf lang4= “優秀” Then langf

20、=8 ElseIf lang4=“合格”Then langf=4 End if B If lang4= “合格” Then langf=4 ElseIf lang4=“優秀” Then langf=8 ElseIf lang6=“合格” Then langf=10ElseIf lang6=“優秀” Then langf=15 End ifC. If lang6=“優秀”Then langf=15 If lang6=“合格” Then langf=10 If lang4=“優秀” Then langf=8 If lang4= “合格” Then langf=4 D. If lang4= “合格”

21、Then langf=4 If lang4=“優秀” Then langf=8 If lang6=“合格” Thenlangf=10 If lang6=“優秀” Then langf=15 Else langf=0End if9.下面語句執行后，變量w中的值是（B）。w= Choose (Weekday(“2005,5,1”), “Red”, “Green” , “Blue”, “Yellow”) A. Nothing B. “Red” C. “Green” D. “Yellow”二.填空題1當C字符串變量中第三個字符是“C”時，利用MsgBox顯示“Yes”，否則顯示“No”。（1） If_

22、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.下面程序的功能是_分別統計輸入若干數的奇數和、偶數和，存放在m，n中_。Dim n%, m% Sub TextBox1_KeyPress(.)Handles TextBox1.KeypressIf Asc(e.KeyChar)=13 Then If IsNumeric(TextBox1.Te

23、xt) Then Select Case Val(TextBox1.Text) Mod 2Case 0n=n+Val(TextBox1.Text)Case 1m=m+Val(TextBox1.Text)End Select End If TextBox1.Text=” TextBox1.Focus( )End If End Sub<注意>該題中統計括號個數的變量m,n若在過程內聲明，程序會產生什么結果？(2)4下面的程序段是檢查輸入的算術表達式中圓括號是否配對，并顯示相應的結果。本程序在文本框中輸入表達式，邊輸入邊統計，以輸入回車符作為表達式輸入結束，然后顯示結果，如下圖所示。 D

24、im count1%Sub TextBox1_KeyPress( )Handles TextBox1.KeyPress If_ Me.KeyChar _=“(”Then count1+1 ElseIf _ Me.KeyChar _=“)” Then count1=_ count1-1_End If If Asc(e.KeyChar)=13 Then If_ count1=0_ Then MsgBox(“左右括號配對”) ElseIf count1>0 Then MsgBox(_“左括號多于右括號” & count1 & “個”_) Else MsgBox(“右括號多于左括

25、號”& count1 & “個”) End If End IfEnd Sub<注意>該題中統計括號個數的變量count1若在過程內聲明，程序會產生什么結果？5輸入若干個字符，統計有多少個元音字母，有多少個其他字母，直到按Enter鍵結束，顯示結果，大、小寫不區分。其中CountY中放元音字母個數，CountC中放其他字符數。 Dim CountY% , CountC% Sub TextBox1_KeyPress () Handles TextBox1.KeyPress Dim c As Charc=_If “A”<=c And c<= “Z”Then S

26、elect Case_ Case_ CountY=CountY+1 Case Else CountC=CountC+1End SelectEnd IfIf _ _ Then MsgBox(“元音字母有”& CountY & “個”) MsgBox(“其他字母有”& CountC & “個”)End IfEnd Sub 6.用If語句，Select Case語句兩種計算方法計算分段函數x2+3x+2 當x>20y=sqrt(3x)-2當10<=x<=201/2+|x| 當x<10Sub Button1_Click(.) Handles Bu

27、tton1.Click Dim x! , y! x=Val(TextBox1.Text) If_x>20_ Theny=x*x+3*x+2ElseIf_x<10_ Then y=1/2+Math.Abs(x)Else y=Math.Sqrt(3*x)-2End IfMsgBox(“y=”& y)End SubSub Button1_Click(.) Handles Button1.Click x=Val(TextBox1.Text)Select Case xCase_Is>20_y=x*x+3*x+2Case_Is<10_ y=1/2+Math.Abs(x)Ca

28、se Else y=Math.Sqrt(3*x)-2End SelectMsgBox(“y=”& y)End Sub 7.輸入三角形的三邊a、b、c的值，根據其數值，判斷能否構成三角形。若能，還要顯示三角形的性質：等邊三角形、等腰三角形、直角三角形、任意三角形。 Sub Button1_Click(.) Handles Button3.Click Dim x%, y%, z% x= Val(InputBox(“input x”) y= Val(InputBox(“input x”)z= Val(InputBox(“input x”) If_X+y>z and x+z>y a

29、nd 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 Math.Sqrt(y*y+z*z)=x Or Math.Sqrt(x*x+z*z)=y Then Msgbox (“是直角三角形”) Else _X=y Or y=z Or x=z_ End IfElseMsgBox(“不能構成三角形”)End IfEnd Sub8輸入一個年份，判斷它是否為閏年，

30、并顯示是否是閏年的有關信息。判斷閏年的條件是：年份能被4整除但不能被100整除，或能被400整除。同時請用日期型變量的IsLeepYear成員來驗證。 Sub Button1_Click(.) Handles Button3.Click Dim d As Date d=Now If_ d.year mod 4 = 0 and d.year mod 100 <> 0d.year_ Or d.year Mod 400=0 Then MsgBox(d.Year & “是閏年”) Else MsgBox(d.Year & “是平年”) End If If d.IsLeepY

31、ear（_） Then MsgBox(d.Year & “是閏年”) Else MsgBox(D.Year & “是平年”) End IfEnd Sub第四章 循環結構選擇題一.選擇題1.以下（B）是正確的For.Next結構。A. For x=1 To Step 10 B.For 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.下列循環體能正常結束的是（C）。A. i=5 Doi=i+1 L

32、oop Until i<0B. i=1 Doi=i+2Loop Until i=10C. i=10 Doi=i+1Loop Until i>0D. i=6 Doi=i-2Loop Until i=13.下面程序段的運行結果為（B）。 label1.text= “” For i=3 To 1 Step -1 Label1.Text &=Space(5-i)For j=1 To 2*i-1Label1.Text &=”*”Next jLabel1.Text &=vbCrLfNext iA. * B. * C.* D. * * * * * * *4.當在文本框輸入

33、“ABCD”四個字符時，窗體上顯示是（C）。 Sub TextBox1_TextChanged(.) Handles TextBox1.TextChangedLabel1.Text &=TextBox.TextEnd SubA. ABCD B. A C.AABABCABCD D.A B AB C ABC 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)

34、 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語句循環執行20次，循環變量的初值應當是： 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句共執行了_4_次，第41句共執行了_12_次。30 For j=1 To 12

35、 Step 340 For k=6 To 2 Step -241 MsgBox(j & “ ” & k)42 Next k43 Next j4.輸入任意長度的字符串，要求將字符順序倒置。例如，將輸入的“ABCDEFG”變換成“GFEDCBA”。Sub Button1_Click(.) Handles Button1.Click 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除，余數

36、為1的最小的5個正整數。 Sub Button1_Click(.) Handles Button1.Click 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 CountN < 5_End Sub 6.有個長階梯，如果每步跨2階最后剩1階，如果每步跨3階最后剩2階，如果每步跨4階最后剩3階，如果每步跨5階最后剩4階，如果每步跨6階最后剩5階，只有當每步跨7階時恰好走完，顯示這個階梯至少要

37、有多少階。<提示>利用其肯定是7的倍數這個條件，然后根據同時滿足除n余m（n=2，3，4，5，6；m=1，2，3，4，5）的邏輯關系即可。Sub Button1_Click(.) Handles Button1.Click 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 and n mod 5=4 and n mod 6=5_ Then MsgBox(n)_Exit For_End If NextEnd Sub 7.某班在一周中6天內考三門分別為x、y、z的考試課程，規定一天只

38、能考一門，先考x，后考y，最后考z，最后一門最早周五考。用計算機排考試，列出滿足條件的方案數。 Sub Button1_Click(.) Handles Button1.Click Dim x%, y%, z%, n% n=0Label1.Text= “”For x=1 To 4 For y=_X+1_To 5 For z=5 To 6 If_X<y_ And y<z ThenLabel1.Text &=x & space(9) & y & Space(9) & z & vbCrlf _n=n+1_End If Next _Label

39、1.Text &=_ “滿足條件的方案為；” & nEnd Sub 8某次大獎賽，有7個評委打分，以下程序是針對一名參賽者，輸入7個評委的打分分數，去掉一個最高分、一個最低分，求出平均分，為該參賽者的得分。 Sub Button1_Click(.) Handles Button1.Click Dim mark!,aver!,max1!,min1!aver=0For i=1 To 7mark=InputBox(“輸入第”& i & “位評委的打分”) If i=1 Then max1=mark:_Min1=mark_ ElseIf mark<min1 The

40、n_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 第五章 數組一.選擇題1如下數組聲明語句中正確的是（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.如下數組聲明語句中正確的是（B）。A. Dim (9) As Single=1,2

41、,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.如下數組聲明語句中，數組a包含元素的個數有（C）。Dim a(3,0,5) A.15 B.8 C.24 D.164.如下程序輸出的結果是（D）。 Dim a() As Integer=1,2,3,4,5,6,7 For i=0 To UBound(a)a(i)a=(i)*a(i)Next

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

43、l1.Text &=vbCrLf Next iEnd Sub A.1 2 3 B.1 C.1 4 7 D. 1 2 3 4 5 6 4 5 2 4 6 4 6 7 8 9 7 8 9 3 6 9 9 二.填空題1 在一維數組中利用移位的方法顯示如圖所有的結果。Sub Button1_Click(.) Handles Button1.Click Dim a(7) As Integer, i%, t%, j% Label1.Text= “” For i=1 To 7a(i)=iLabel1.Text &=a(i) & “ ” Next iLabel1.Text &=

44、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 7Label1.Text &=a(j) & “ ”Next jLabel1.Text &=_vbcrlf _Next iEnd Sub 2.下面程序對已知數組a（），刪除數組中某個元素。 Sub Button1_Click(. .) Handles Button1.ClickDim a() As Integer=1,6,8,3,5,9,10,2,7,4 ,Key%, i%, j%Key=Va

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