VB筆試習(xí)題練習(xí)

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

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

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

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

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

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

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

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

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

10、. / C. Mod D.*11.與數(shù)學(xué)表達(dá)式ab/(3cd)對(duì)應(yīng)，VB.NET的不正確表達(dá)式是（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函數(shù)不可能為下列（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”，則表達(dá)式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#)語句顯示結(jié)果是（A）。A. 2005-3-28 B.2005-1-30 C. 2007-1-28 D. 2003-1-2816.表達(dá)式DateDiff(“y”,#12/30/1999#,#1/13/2000#)的結(jié)果是（C）。A. 1 B. 11 C.14 D.99 17. 表達(dá)式Len（“123程序設(shè)計(jì)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三個(gè)變量賦初值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)”執(zhí)行后，a變量中的值是（D）。 A. “12334” B.123 C.12334 D.15721賦值語句“a=123 & MID(“123456”,3,2)”執(zhí)行后，a變量中的值是（A）。 A. “12334” B.123 C.12334 D.15722.已知a=12，b=20，復(fù)合賦值語句“a*=b+10”執(zhí)行后，a變量中的值是（D）。 A.50 B.250 C.30 D.360二.填空題1 在VB.NET中，1234%，12

13、3456!，1.2346E+5三個(gè)常數(shù)分別表示_整型_，_單精度型_，_雙精度型_類型。2 整型變量x中存放了一個(gè)兩位數(shù)，要將兩位數(shù)交換位置，例如，13變成31，實(shí)現(xiàn)表達(dá)式是_（x mod 10）*10+x10_。3 表示x是5的倍數(shù)或是9的倍數(shù)的邏輯表達(dá)式為_ x mod 5 =0 Or x mod 9 =0_。4.已知a=3.5，b=5.0，c=2.5，d=True，則表達(dá)式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.表達(dá)式UCase（Mid（“abcdefgh”，3，4）的值是_CDEF_。7.在直角坐標(biāo)系中，x、y是坐標(biāo)系中任意點(diǎn)的位置，用x和y表示在第一象限或第三象限的表達(dá)是_x >0 and y >0 Or x<0 and y<0_。8. 要顯示當(dāng)前機(jī)器內(nèi)日期，函數(shù)為_Now_。9. 計(jì)算離你畢業(yè)（假定2008年6月30日畢業(yè)）還有多少個(gè)星期的函數(shù)表達(dá)式是_DateDiff(“w”,Now,#6/30/2008#)_。10. 表示s字符變量是字母字符（大小寫字母不區(qū)分）的邏輯表達(dá)式為_UCase(s) >= “A” and Ucase

15、(s) <= “Z”_。11.下面程序隨機(jī)產(chǎn)生一個(gè)三位正整數(shù)，然后逆序輸出，產(chǎn)生的數(shù)與逆序數(shù)同時(shí)顯示。例如，產(chǎn)生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. 第三章 選擇結(jié)構(gòu) 一、選擇題：1 VB.NET提供了結(jié)構(gòu)化程序設(shè)計(jì)的三種基本結(jié)構(gòu)，三種基

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

17、” 和“y=1” 均為關(guān)系表達(dá)式C“x=1” 為關(guān)系表達(dá)式“y=1” 為賦值語句D“x=1” 為賦值語句“y=1” 為關(guān)系表達(dá)式5下面程序段顯示的結(jié)果是（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)計(jì)滿足性別（sex）男、職稱（duty）為副教授以上、年齡（age）小于40歲條件的人數(shù)，正確的語句是（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.下面程序段求兩個(gè)數(shù)中的大數(shù)，（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.下面三個(gè)程序設(shè)計(jì)段計(jì)算學(xué)生外語附加分：外語6級(jí)（lang6）為“優(yōu)秀”加15分，“通過” 加10分；外語4級(jí)（lang4）為“優(yōu)秀”加8分，“通過”加4分。外語附加分只能計(jì)一次最高的分?jǐn)?shù)。（A）能正確計(jì)算。 A. If lang6=“優(yōu)秀” Then langf=15 ElseIf lang6=“合格” Then langf=10 ElseIf lang4= “優(yōu)秀” Then langf

20、=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 langf=8 If lang4= “合格” Then langf=4 D. If lang4= “合格”

21、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當(dāng)C字符串變量中第三個(gè)字符是“C”時(shí)，利用MsgBox顯示“Yes”，否則顯示“No”。（1） If_

22、Mid(c，3，1) = “C”_Then MsgBox(“yas”) Else MsgBox(“No”)2.程序運(yùn)行后輸出的結(jié)果是_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)計(jì)輸入若干數(shù)的奇數(shù)和、偶數(shù)和，存放在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<注意>該題中統(tǒng)計(jì)括號(hào)個(gè)數(shù)的變量m,n若在過程內(nèi)聲明，程序會(huì)產(chǎn)生什么結(jié)果？(2)4下面的程序段是檢查輸入的算術(shù)表達(dá)式中圓括號(hào)是否配對(duì)，并顯示相應(yīng)的結(jié)果。本程序在文本框中輸入表達(dá)式，邊輸入邊統(tǒng)計(jì)，以輸入回車符作為表達(dá)式輸入結(jié)束，然后顯示結(jié)果，如下圖所示。 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(“左右括號(hào)配對(duì)”) ElseIf count1>0 Then MsgBox(_“左括號(hào)多于右括號(hào)” & count1 & “個(gè)”_) Else MsgBox(“右括號(hào)多于左括

25、號(hào)”& count1 & “個(gè)”) End If End IfEnd Sub<注意>該題中統(tǒng)計(jì)括號(hào)個(gè)數(shù)的變量count1若在過程內(nèi)聲明，程序會(huì)產(chǎn)生什么結(jié)果？5輸入若干個(gè)字符，統(tǒng)計(jì)有多少個(gè)元音字母，有多少個(gè)其他字母，直到按Enter鍵結(jié)束，顯示結(jié)果，大、小寫不區(qū)分。其中CountY中放元音字母?jìng)€(gè)數(shù)，CountC中放其他字符數(shù)。 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 & “個(gè)”) MsgBox(“其他字母有”& CountC & “個(gè)”)End IfEnd Sub 6.用If語句，Select Case語句兩種計(jì)算方法計(jì)算分段函數(shù)x2+3x+2 當(dāng)x>20y=sqrt(3x)-2當(dāng)10<=x<=201/2+|x| 當(dāng)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的值，根據(jù)其數(shù)值，判斷能否構(gòu)成三角形。若能，還要顯示三角形的性質(zhì)：等邊三角形、等腰三角形、直角三角形、任意三角形。 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(“能構(gòu)成三角形”) 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(“不能構(gòu)成三角形”)End IfEnd Sub8輸入一個(gè)年份，判斷它是否為閏年，

30、并顯示是否是閏年的有關(guān)信息。判斷閏年的條件是：年份能被4整除但不能被100整除，或能被400整除。同時(shí)請(qǐng)用日期型變量的IsLeepYear成員來驗(yàn)證。 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第四章 循環(huán)結(jié)構(gòu)選擇題一.選擇題1.以下（B）是正確的For.Next結(jié)構(gòu)。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.下列循環(huán)體能正常結(jié)束的是（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.下面程序段的運(yùn)行結(jié)果為（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.當(dāng)在文本框輸入

33、“ABCD”四個(gè)字符時(shí)，窗體上顯示是（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語句循環(huán)執(zhí)行20次，循環(huán)變量的初值應(yīng)當(dāng)是： For k=_33_ To -5 Step -2 2.下面程序段顯示_10_個(gè)“*”。 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

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除，余數(shù)

36、為1的最小的5個(gè)正整數(shù)。 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.有個(gè)長階梯，如果每步跨2階最后剩1階，如果每步跨3階最后剩2階，如果每步跨4階最后剩3階，如果每步跨5階最后剩4階，如果每步跨6階最后剩5階，只有當(dāng)每步跨7階時(shí)恰好走完，顯示這個(gè)階梯至少要

37、有多少階。<提示>利用其肯定是7的倍數(shù)這個(gè)條件，然后根據(jù)同時(shí)滿足除n余m（n=2，3，4，5，6；m=1，2，3，4，5）的邏輯關(guān)系即可。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天內(nèi)考三門分別為x、y、z的考試課程，規(guī)定一天只

38、能考一門，先考x，后考y，最后考z，最后一門最早周五考。用計(jì)算機(jī)排考試，列出滿足條件的方案數(shù)。 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某次大獎(jiǎng)賽，有7個(gè)評(píng)委打分，以下程序是針對(duì)一名參賽者，輸入7個(gè)評(píng)委的打分分?jǐn)?shù)，去掉一個(gè)最高分、一個(gè)最低分，求出平均分，為該參賽者的得分。 Sub Button1_Click(.) Handles Button1.Click Dim mark!,aver!,max1!,min1!aver=0For i=1 To 7mark=InputBox(“輸入第”& i & “位評(píng)委的打分”) 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 第五章 數(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.如下數(shù)組聲明語句中正確的是（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.如下數(shù)組聲明語句中，數(shù)組a包含元素的個(gè)數(shù)有（C）。Dim a(3,0,5) A.15 B.8 C.24 D.164.如下程序輸出的結(jié)果是（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.程序出錯(cuò)5如下程序輸出的結(jié)果是（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 在一維數(shù)組中利用移位的方法顯示如圖所有的結(jié)果。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.下面程序?qū)σ阎獢?shù)組a（），刪除數(shù)組中某個(gè)元素。 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(“輸入要?jiǎng)h除的值”)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(“找到不要?jiǎng)h除的元素”)End Sub 3.矩陣相乘兩個(gè)矩陣能相乘的必要條件是：前一個(gè)矩陣的列數(shù)等于后一個(gè)矩陣的行數(shù)。例如，已知A為n×k的矩陣，B為k×m的矩陣，A×B的結(jié)果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