VBNET復(fù)習(xí)材料匯編

1、1.2.3.、單項(xiàng)選擇題VB.NETA.是VB.NETVB.NET習(xí)題集匯編整理者：華中科技大學(xué)管理學(xué)院龔曉光是否完全符合CLS?B.否窗體中提供的是HideA.銷毀窗體對(duì)象B.關(guān)閉窗體方法的作用是（C.將窗體極小化VB.NET窗體對(duì)象的Close方法的作用（A.極小化窗體B.隱藏窗體C.關(guān)閉窗體（注意，這個(gè)題目有問題，參考后面的多選題）4. VB.NET中編寫對(duì)象的成員方法代碼時(shí)，表示A. Ioca10bjectB. self C. thisD. Me）。D.隱藏窗體）。D.銷毀窗體對(duì)象"本對(duì)象"的關(guān)鍵字為（D）。5. VB.NET程序中的邏輯錯(cuò)誤能否被 VB.NET編譯

2、器發(fā)現(xiàn)？（）。注：編譯器只能捕獲語法錯(cuò)誤，而不能捕獲運(yùn)行時(shí)錯(cuò)誤和邏輯錯(cuò)誤。A.能B.不能6.對(duì)于 VB.NET 語句 Speed=Miles/Hours（其中Sp eet,Miles,Hours都是Double 值)，當(dāng) Hours=0時(shí)，該語句將引發(fā)（）。A.邏輯錯(cuò)誤B.編譯錯(cuò)誤C.運(yùn)行錯(cuò)誤D.語法錯(cuò)誤7.在.NET構(gòu)架中，VB.NET程序被編譯成（A.腳本B.MSIL 碼C.匯編碼D.機(jī)器碼8.Inpu tBox（）函數(shù)括號(hào)中的第一個(gè)參數(shù)代表）。提示信息B、標(biāo)題C、默認(rèn)值D、對(duì)話框位置9.以下哪種項(xiàng)目是 VB.NET不能創(chuàng)建的）。Win dows 應(yīng)用程序B、Dos應(yīng)用程序Web應(yīng)用程序D

3、、Windows 服務(wù)10.要在文本框中顯示文本，應(yīng)給其（）屬性賦值。A、TextB、CaptionC NameD、 File11.將按鈕的Visible屬性設(shè)為False，按鈕會(huì)（A、可用且可見B、可用不可見C、可見不可用D、不可用不可見(注意，Visible屬性設(shè)為False，在程序中測(cè)試，發(fā)現(xiàn)控件的enable屬性是沒有被修改的，所以控件是可用的。而事實(shí)上，控件不可見，沒有辦法接受焦點(diǎn)，不能觸發(fā)相關(guān)事件，對(duì)用戶事實(shí)不可用，程序中還是可以用的（涉及到 DDE等內(nèi)容）。綜合看，選B合適）12.語句x=x+1 可以簡(jiǎn)寫為（A、 x+B、 x+=1C、 x=+1D、x+113.下面哪個(gè)控件在程序

4、運(yùn)行時(shí)是不可見的）。A、單選鈕B、組合框C、計(jì)時(shí)器D、框架14. Select Case對(duì)應(yīng)的結(jié)束語句是（A )。A、End SelectB、End Case C Select EndCase End15.過程 Sub Test ( ByVal x As Integer, ByRef y As Integer）中（A）。A、X、y都是傳值參數(shù)B、X、y都是引用參數(shù)16.要調(diào)整某控件的寬度，應(yīng)修改（）屬性。A、TopB、LeftC、WidthD、Height17.下面哪個(gè)控件的特點(diǎn)同ListBox最接近（）。A、ComboBox B、TextBoxC、PictureBox D、Form18.在窗

5、體裝入時(shí)，將發(fā)生B ）事件。A、ClickB、 LoadC、DeactivateD、Closed19.要將 TextBox1中的文本用MessageBox函數(shù)顯示出來，應(yīng)使用（MessageBox.Show(TextBox1.Text )B、MessageBox.Show(TextBox1 )C、MessageBox.Show(” TextBox1.Text ”)MessageBox.Show(” TextBox1 ”)20.VB.NET中用于字符串連接的運(yùn)算符是C、&21.下面哪一項(xiàng)是正確的日期型數(shù)據(jù)（）。A、 12/12/2004B、” 12/12/2004C、12/12/2004

6、D、#12/12/2004#22.以 StructureEnd Structure定義的是一個(gè)（）。A、類B、過程C、模塊D、結(jié)構(gòu)* 23 .有兩個(gè)數(shù)組s1和s2，要將s1的內(nèi)容“拷貝” 一份給 s2，使用（C )。A、 s2=s1B、 s2=s1.CopyC、s2=s1.CloneD、s2=s1.AII24.變量a為整型，b為長整型,c為雙精度型，且規(guī)定了強(qiáng)制類型轉(zhuǎn)換，以下哪項(xiàng)是正確的（ C ）oA、a=bB、 b=cC、a=cD、c=a* 25 .下面哪個(gè)不是邏輯運(yùn)算符（C ）。A、OrB、XorC、IfD、Not注：Xor對(duì)兩個(gè)Boolea n表達(dá)式執(zhí)行邏輯異或運(yùn)算，或?qū)蓚€(gè)數(shù)值表達(dá)式執(zhí)

7、行按位異或運(yùn)算FalseXorFalse =False;TrueXorFalse =TrueFalseXorTrue =True ;TrueXorTrue =False26.下面哪種不是循環(huán)結(jié)構(gòu)（A、Try Catch End TryForNextD、DoLoopC、For Each Next27.要在窗體上創(chuàng)建一個(gè)狀態(tài)欄,可使用（B ）控件。A、TrackBarB、StatusBarC、ToolBarD、 Panel二、多項(xiàng)選題（包括單項(xiàng)）1.在窗體的成員方法中，關(guān)于CloseO和Hide（）說法正確的是（ACD ?）。A. CloseO方法關(guān)閉窗體，并銷毀窗體對(duì)象B. CIoseO方法關(guān)閉

8、窗體，但并不銷毀窗體對(duì)象C. HideO方法是窗體不可見，但不銷毀窗體對(duì)象D. Hide（）方法隱藏了窗體，使用 Show （）方法可重新顯示該窗體2.所有控件都有的屬性是（ D ）。A. TextB. BackColorC. ItemD. Name3.F列說法錯(cuò)誤的是(ACD ?）。使用 MessageBox.Show(）顯示的窗體一定是模態(tài)窗體B.使用 MessageBox.Show(）顯示的窗體一定是非模態(tài)窗體C.使用 MessageBox.Show(）顯示的窗體既可以是模態(tài)窗體，也可以是非模態(tài)窗體Stri ng2是顯示的文本4.在 OptionStrict Off的情況下執(zhí)行下列代碼后

9、，變量i的值是什么？MessageBox.Show (Stringl , String2 )中 Stringl 是消息框的標(biāo)題,B. -1注：布爾值只有5.下列關(guān)于值類型和引用類型說法正確的是(ACD ?）。Dim i As In tegerDim b As Boolea nC. FalseD. TrueTrue or False , 整型值：True = -1, False = 0A. 對(duì)一個(gè)值類型變量的操作不會(huì)影響到其他變量B. 對(duì)一個(gè)引用型變量的操作不會(huì)影響到其他變量C. 引用型變量存放的是指向?qū)嶋H對(duì)象數(shù)據(jù)的地址D.NET中所有的數(shù)字類型都是值類型（注意，這個(gè)題目的內(nèi)容沒有講過，不會(huì)考的

10、）6.符合變量命名規(guī)則的變量名有（BCD）。A. 42AnswerB. nameC. Mo ney$D. Str name（注意,Mon ey$是隱式聲明，$代表字符串）7.在 OptionExp licitOff的情況下執(zhí)行下列代碼后，變量curre ntBon us 的值是什么？ （ C）。Dim currentSalary As Integer=3Dim curre ntBonus As Doublecurre ntBo nus = curre ntSalaryx.1OA. 0B. 0.0C. 0.3D. 0.30（注意，原來題目有問題，currentSalry現(xiàn)在修改為currentS

11、alary ）。8. 在單擊了 10次按鈕后，靜態(tài)變量items的值是（ DPrivate Sub Butto n1 ClickStatic items As In teger = 1 items += 1End SubA. 0B. 1C. 10D. 119.對(duì)于一個(gè)字符串型的變量num 二“128 ”，要將其轉(zhuǎn)換為整型，有哪幾種方法?( AD ?)。A. CType ( num , Integer )B. CStr (num )C. DirectCast(num , Integer)D. CInt (num )10.在三維數(shù)組array （4 ,5, 6）中共有多少個(gè)數(shù)組元素？（B 4*5*

12、6）。A. 120B. 210C. 209D. 21111 .下列語句執(zhí)行后，array（3）的值是什么？ （ C）。Dim arrayO As In teger = 1,2, 3, 4, 5, 6ReDim array(8)A. 3B. 4C. 0D. nothing注：如果是數(shù)，重新定義后為 0 ;如果是字符串，則不顯示。12.在VB.NET中，有返回值的過程稱為過程（B )。A. SubB. FunctionC. PropertyD. Main13.下列代碼執(zhí)行完畢后，程序?qū)⑤敵觯ˋ ?)。Sub Main()Dim byvalArray(10) As In tegerDim byref

13、Array(10) As In tegerArrayP rocByRef(byvalArray, byrefArray)Con sole.WriteL in e(UBou nd(byvalArray)Con sole.WriteLi ne(UBou nd(byrefArray)End SubSub Array ProcByRef (ByVal arr() As In teger, ByRef arr2() As In teger)Redim arr(100)Redim arr2(100)End SubA. 10 , 100B.100 , 100C. 10 , 10D. 100 , 10（注意，

14、數(shù)組參數(shù)傳遞比較復(fù)雜，這個(gè)題目的內(nèi)容沒有講過，不會(huì)考的）14.可以使用參數(shù)數(shù)組為過程傳遞不確定個(gè)數(shù)的參數(shù)，下面的函數(shù)聲明都用到了參數(shù)數(shù)組，其中正確的是（A ?)。A.Sub Stude ntScores(ByVal name As Stri ng, ByValP aramArray scores( ) As String)B.Sub Stude ntScores(ByVal name As Stri ng, ByRefP aramArray scores( ) As String)C. Sub StudentScores(ByVal name As String, ByValParamArra

15、y scores(, ) As String)D.Sub Stude ntScores( Op tio nal ByVal name As Stri ng, ByValParamArray scores( ) As String)（注意，ParamArray 是一個(gè)特殊的修飾符，這個(gè)題目的內(nèi)容沒有講過）15.下列哪些語句將得到file name文件的擴(kuò)展名（假設(shè)擴(kuò)展名為3個(gè)字符）？(AD ?）?！?.”)+1)16.下列布爾表達(dá)式的值為）。A. Right(file name,3)B. Left(file name,3)C. Left(filename,Len(filename)-3)D. M

16、id(file name,l nstr(file name,Not False And True Xor True Or FalseA.TrueB. FalseC.OrElseD. AndAlso17.執(zhí)行下列程序后，變量i的值和sum的值分別為）。Dim i As In tegerDim sum As In tegerFor i = 0 To 100 Ste p 2sum = sum + iNextA.102, 2500B.100, 2500C.100, 2550D. 102, 255018 .執(zhí)行下列代碼后，變量 count的值為(c )。D.Do Un til Loop和Do While

17、Loop中的代碼至少會(huì)執(zhí)行一次Dim count As In tegerFor cou nt = 10 To 0, Ste p -1count = count - 3NextA. 0B. -1C. -2D. -319.下列關(guān)于Do循環(huán)說法正確的是（C )。A.Do Loop Un til和Do Un tilLoop都是在條件為假時(shí)退出循環(huán)B.Do Loop While和Do WhileLoop都是在條件為假時(shí)退出循環(huán)C. Do Loo P Un til和DoLoop While 中的代碼至少會(huì)執(zhí)行一次）。Handles Buttonl.Click20.要表示廣州市的車牌號(hào)碼，對(duì)輸入有以下格式要

18、求：（前面必須有漢字“粵”；車牌為6位數(shù);車牌第一位為字母“ A”，車牌最后一位必須為數(shù)字，其他位置字符數(shù)字不限;下列對(duì)Masked Edit 的Mask屬性設(shè)置正確的是A.粵 AAAAA#B.粵 AAAAA0C. 粵 A?#D. 粵 AAAAA9三、編程題1.編寫一個(gè)Function 過程，求圓的面積（圓的半徑作為過程的參數(shù)）（參考指定教程）Private Sub Button1_Click( ByVal sender As System.Object, ByVal e As System.EventArgs)Dim r As Doubler = CType (TextBoxl.Text,D

19、ouble )TextBox2.Text = r * r * Math .PIMsgBox (TextBox2.Text)End Sub或者 Private Function Calculate( ByVal Radius) As DoubleDim RadiusDoubled As DoubleDim dblResult As DoubleRadiusDoubled = Radius * Radius dblResult = RadiusDoubled * Math .PIReturn dblResultEnd FunctionPrivate Sub Button1_Click( ByVal

20、 sender As System.Object, ByVal e As System.EventArgs) HandlesButtonl.ClickDim Area As DoubleArea = Calculate(100)MsgBox("圓的面積是"& Area)End Sub2.編寫程序，計(jì)算并輸出所有6位正整數(shù)中能被6整除且其十位數(shù)不是4的數(shù)之和,并求它們中的最大數(shù)。（結(jié)果：和：7.42508E+10最大值：999996）Private Sub Button1_Click( ByVal sender As System.Object, ByVal e As

21、 System.EventArgs)HandlesButt on I.CIickDim I, max As LongDim s As Single s = 0 : max = 100000For I = 100000 To 999999If (IMod 6 = 0) And (I Mod 100) 10 <> 4) ThenIf (max < I) The nmax = IEnd IfEndIfNext IMsgBox("和是 ” & s & ”，”&”最大值是” & max)End Sub3.編寫程序，計(jì)算并輸出所有6位正整數(shù)中同時(shí)

22、能被13和20整除的數(shù)的個(gè)數(shù)n及它們的立方根的和。（結(jié)果：個(gè)數(shù)：3462立方根和:275112.31253)Butt on I.CIickDim n, i As Integer , s As DoubleFor i = 100000 To 999999If i Mod 13 = 0 And i Mod 20 = 0 Thens = s + i A (1 / 3)EndIfNext iMsgBox("個(gè)數(shù)是 ” &n &“，”&"立方根的和是” & s）End Sub4.編寫程序，計(jì)算并輸出下面級(jí)數(shù)前n項(xiàng)（n=40）中偶數(shù)項(xiàng)的和。s = 1*2

23、+2*3+3*4+4*5+n*(n +1)+（結(jié)果：11900）Private Sub Button1_Click( ByVal sender AsSystem.Object, ByVal e As System.EventArgs) HandlesButt on 1.CIickDim n As Integer , s As DoubleFor n = 2 To 40 Step 2s = s + n * (n + 1)Next nMsgBox（"前40項(xiàng)中偶數(shù)項(xiàng)和 S=" & s）End Sub5.編寫程序，計(jì)算并輸出所有5位正整數(shù)中能被7整除且其十位數(shù)不是7的數(shù)之

24、和,并求它們中的最大數(shù)。Private Sub Button1_Click( ByVal sender As System.Object, ByValeAs System.Eve ntArgs)Han dles(和：6.364356E+08最大值：99995）As System.Eve ntArgs)Han dlesPrivate Sub Button1_Click( ByVal sender As System.Object, ByValButt on 1.ClickDim I, max As LongDim s As Single s = 0 : max = 10000For I = 10

25、000 To 99999If (IMod 7 = 0) And (I Mod 100) 10 <> 7) ThenIf (max < I) The nmax = IEnd IfEndIfNext IMsgBox("和是” & s & ”，”&”最大值是” & max)End Sub6.編寫程序,統(tǒng)計(jì)10000到40000之間回文數(shù)的個(gè)數(shù)。（例：23732即為回文數(shù),即正反讀數(shù)據(jù)相同）（結(jié)果：300）Butt on 1.ClickDim i, j, p As IntegerDim a, b, c, d, f As IntegerFor

26、i = 10000To 40000a = iMod10b = (iMod100) 10c = (iMod1000) 100d = (iMod10000) 1000f= i10000j = a * 10000 + b * 1000 + c * 100 + d * 10 + fNextIf i = jEnd IfMsgBox( p)End Sub7.編寫程序，求The n5664 , 144的最大公約數(shù)。(48 )Private Sub Butto n1_Click( ByVal sen der As System.Object, ByVal e As System.Eve ntArgs)Han

27、diesButt on 1.ClickDim num1 As IntegerDim num2 As IntegerDim in large As In tegerDim in small As In tegerDim inrem As Integer num1 = 5664 num2 = 144If num1 < num2The nini arge = num2 in small = num1Elsein large = num1 in small = num2End If inrem = in large Mod in smallWhile inrem <> 0in lar

28、ge = in small in small = inrem inrem = in large Mod in smallEnd WhileMsgBox (in small )End Sub8.從三位奇數(shù)中找出其值恰好等于該數(shù)每位數(shù)字立方和的各個(gè)數(shù)之和。（結(jié)果：931）Butt on I.CIickDim i, m, n, k As IntegerDim s As integerFor i = 101 To999 Step 2m = i100n = (i Mod100) 10k = i Mod10NextEnd SubIf (i = m * m * m + n * n * n + k * k * k)End IfMsgBox(s)The n9. 如果一個(gè)數(shù)的因子之和等于這個(gè)數(shù)本身，則稱這樣的數(shù)為“完全數(shù)”。例如28=1+2+4+7+14,因此28是一個(gè)完全數(shù)。編寫程序,找出四位數(shù)中的所有完全數(shù)之和。結(jié)果：（8128）Private Sub B