VBNET習(xí)題集匯編.doc

VB.NET習(xí)題集匯編整理者: 華中科技大學(xué)管理學(xué)院 龔曉光一、單項(xiàng)選擇題1.VB.NET是否完全符合CLS? （ A ）。A. 是 B. 否2.VB.NET窗體中提供的是Hide方法的作用是（ D ）。A. 銷毀窗體對(duì)象 B. 關(guān)閉窗體 C. 將窗體極小化 D.隱藏窗體3.VB.NET窗體對(duì)象的Close方法的作用（ C ）。A. 極小化窗體 B. 隱藏窗體 C. 關(guān)閉窗體 D. 銷毀窗體對(duì)象（注意，這個(gè)題目有問題，參考后面的多選題）4.VB.NET中編寫對(duì)象的成員方法代碼時(shí)，表示本對(duì)象的關(guān)鍵字為（ D ）。A. loca10bject B. self C. this D. Me5.VB.NET程序中的邏輯錯(cuò)誤能否被VB.NET編譯器發(fā)現(xiàn)？（ B ）。注：編譯器只能捕獲語法錯(cuò)誤，而不能捕獲運(yùn)行時(shí)錯(cuò)誤和邏輯錯(cuò)誤。A.能 B.不能6.對(duì)于VB.NET語句 Speed=Miles/Hours（其中Speet,Miles,Hours都是Double值），當(dāng)Hours=0時(shí)，該語句將引發(fā)（ C ）。.A.邏輯錯(cuò)誤 B.編譯錯(cuò)誤 C.運(yùn)行錯(cuò)誤 D.語法錯(cuò)誤7.在.NET構(gòu)架中，VB.NET程序被編譯成（ B ）。 A.腳本 B.MSIL碼 C.匯編碼 D.機(jī)器碼8.InputBox( )函數(shù)括號(hào)中的第一個(gè)參數(shù)代表（ A ）。A、提示信息B、標(biāo)題C、默認(rèn)值D、對(duì)話框位置9.以下哪種項(xiàng)目是VB.NET不能創(chuàng)建的（ B ）。A、Windows應(yīng)用程序 B、Dos應(yīng)用程序 C、Web應(yīng)用程序 D、Windows服務(wù)10.要在文本框中顯示文本，應(yīng)給其（ A ）屬性賦值。A、Text B、Caption C、Name D、File11.將按鈕的Visible屬性設(shè)為False，按鈕會(huì)（ B ）。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可以簡寫為（ B ）。A、x+B、x+=1C、x=+1D、x+113.下面哪個(gè)控件在程序運(yùn)行時(shí)是不可見的（ C ）。A、單選鈕 B、組合框 C、計(jì)時(shí)器 D、框架14.Select Case對(duì)應(yīng)的結(jié)束語句是（ A ）。A、End Select B、End Case C、Select End D、Case End15.過程Sub Test（ByVal x As Integer, ByRef y As Integer）中（ A ）。A、x、y都是傳值參數(shù) B、x、y都是引用參數(shù)C、x是傳值參數(shù)，y是引用參數(shù) D、x是引用參數(shù)，y是傳值參數(shù)16.要調(diào)整某控件的寬度，應(yīng)修改（ C ）屬性。A、Top B、Left C、Width D、Height17.下面哪個(gè)控件的特點(diǎn)同ListBox最接近（ A ）。A、ComboBoxB、TextBoxC、PictureBoxD、Form18.在窗體裝入時(shí)，將發(fā)生（ B ）事件。A、ClickB、LoadC、DeactivateD、Closed19.要將TextBox1中的文本用MessageBox函數(shù)顯示出來，應(yīng)使用（ A ）。A、MessageBox.Show（TextBox1.Text）B、MessageBox.Show（TextBox1）C、MessageBox.Show（”TextBox1.Text”）D、MessageBox.Show（”TextBox1”）20. VB.NET中用于字符串連接的運(yùn)算符是（ C ）。A、*B、#C、&D、21. 下面哪一項(xiàng)是正確的日期型數(shù)據(jù)（ D ）。A、12/12/2004B、”12/12/2004”C、12/12/2004D、#12/12/2004#22.以StructureEnd Structure定義的是一個(gè)（ D ）。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.All24.變量a為整型，b為長整型，c為雙精度型，且規(guī)定了強(qiáng)制類型轉(zhuǎn)換，以下哪項(xiàng)是正確的（ C ）。A、a=bB、b=cC、a=cD、c=a* 25.下面哪個(gè)不是邏輯運(yùn)算符（ C ）。A、OrB、XorC、IfD、Not注：Xor對(duì)兩個(gè) Boolean 表達(dá)式執(zhí)行邏輯異或運(yùn)算，或?qū)蓚€(gè)數(shù)值表達(dá)式執(zhí)行按位異或運(yùn)算False Xor False =False; True Xor False =True False Xor True =True ; True Xor True =False 26.下面哪種不是循環(huán)結(jié)構(gòu)（ A ）。A、TryCatchEnd TryB、ForNextC、For EachNext D、DoLoop27.要在窗體上創(chuàng)建一個(gè)狀態(tài)欄，可使用（ B ）控件。A、TrackBarB、StatusBarC、ToolBarD、Panel二、多項(xiàng)選題（包括單項(xiàng)）1.在窗體的成員方法中，關(guān)于Close()和Hide()說法正確的是 （ ACD ? ）。A. Close()方法關(guān)閉窗體，并銷毀窗體對(duì)象B. Close()方法關(guān)閉窗體，但并不銷毀窗體對(duì)象C. Hide()方法是窗體不可見，但不銷毀窗體對(duì)象D. Hide()方法隱藏了窗體，使用Show（）方法可重新顯示該窗體2.所有控件都有的屬性是 （ D ）。A. TextB. BackColorC. ItemD. Name3.下列說法錯(cuò)誤的是 （ ACD ? ）。A使用MessageBox.Show()顯示的窗體一定是模態(tài)窗體B使用MessageBox.Show()顯示的窗體一定是非模態(tài)窗體C使用MessageBox.Show()顯示的窗體既可以是模態(tài)窗體，也可以是非模態(tài)窗體DMessageBox.Show（String1，String2）中String1是消息框的標(biāo)題，String2是顯示的文本4.在Option Strict Off的情況下執(zhí)行下列代碼后，變量i的值是什么？（ A ? ）。Dim i As IntegerDim b As Booleani = bA0 CFalseB-1 DTrue注：布爾值只有True or False , 整型值: True = -1, False = 05.下列關(guān)于值類型和引用類型說法正確的是 （ ACD ? ）。A.對(duì)一個(gè)值類型變量的操作不會(huì)影響到其他變量B.對(duì)一個(gè)引用型變量的操作不會(huì)影響到其他變量C.引用型變量存放的是指向?qū)嶋H對(duì)象數(shù)據(jù)的地址D.NET中所有的數(shù)字類型都是值類型（注意，這個(gè)題目的內(nèi)容沒有講過，不會(huì)考的）6.符合變量命名規(guī)則的變量名有（ BCD ? ）。A. 42AnswerB. _nameC. Money$D. Str_name（注意，Money$是隱式聲明，$代表字符串）7.在Option Explicit Off的情況下執(zhí)行下列代碼后，變量currentBonus的值是什么？（ C ）。Dim currentSalary As Integer=3Dim currentBonus As DoublecurrentBonus = currentSalary .10A. 0B. 0.0C. 0.3D. 0.30（注意，原來題目有問題，currentSalry 現(xiàn)在修改為currentSalary）8.在單擊了10次按鈕后，靜態(tài)變量items的值是（ D ）。Private Sub Button1_Click（）Static items As Integer = 1items += 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*6 ）。A. 120B. 210C. 209D. 21111.下列語句執(zhí)行后，array（3）的值是什么？（ C ? ）。Dim array() As Integer = 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ū)⑤敵觯?A ? ）。Sub Main()Dim byvalArray(10) As IntegerDim byrefArray(10) As IntegerArrayProcByRef(byvalArray, byrefArray)Console.WriteLine(UBound(byvalArray)Console.WriteLine(UBound(byrefArray)End SubSub ArrayProcByRef (ByVal arr() As Integer, ByRef arr2() As Integer)Redim arr(100)Redim arr2(100)End SubA. 10，100B. 100，100C. 10，10D. 100，10（注意，數(shù)組參數(shù)傳遞比較復(fù)雜，這個(gè)題目的內(nèi)容沒有講過，不會(huì)考的）14.可以使用參數(shù)數(shù)組為過程傳遞不確定個(gè)數(shù)的參數(shù)，下面的函數(shù)聲明都用到了參數(shù)數(shù)組，其中正確的是（ A ? ）。A.Sub StudentScores(ByVal name As String, ByVal ParamArray scores( ) As String)B.Sub StudentScores(ByVal name As String, ByRef ParamArray scores( ) As String)C. Sub StudentScores(ByVal name As String, ByVal ParamArray scores(, ) As String)D.Sub StudentScores(Optional ByVal name As String, ByVal ParamArray scores( ) As String)（注意，ParamArray是一個(gè)特殊的修飾符，這個(gè)題目的內(nèi)容沒有講過）15.下列哪些語句將得到filename文件的擴(kuò)展名（假設(shè)擴(kuò)展名為3個(gè)字符）？（ AD ? ）。A.Right(filename,3)B.Left(filename,3)C. Left(filename,Len(filename)-3)D.Mid(filename,Instr(filename,”.”)+1)16.下列布爾表達(dá)式的值為 （ B ? ）。Not False And True Xor True Or FalseA.TrueB.FalseC.OrElseD. AndAlso17.執(zhí)行下列程序后，變量i的值和sum的值分別為 （ D ）。Dim i As IntegerDim sum As IntegerFor i = 0 To 100 Step 2 sum = sum + iNextA.102, 2500B.100, 2500C.100, 2550D. 102, 255018.執(zhí)行下列代碼后，變量count的值為 （ C ）。Dim count As IntegerFor count = 10 To 0, Step -1 count = count - 3NextA.0B.-1C. -2D.-319.下列關(guān)于Do循環(huán)說法正確的是（ C ）。A.DoLoop Until和Do UntilLoop都是在條件為假時(shí)退出循環(huán)B.DoLoop While和Do WhileLoop都是在條件為假時(shí)退出循環(huán)C. DoLoop Until和DoLoop While中的代碼至少會(huì)執(zhí)行一次D.Do UntilLoop和Do WhileLoop中的代碼至少會(huì)執(zhí)行一次20.要表示廣州市的車牌號(hào)碼，對(duì)輸入有以下格式要求：（ B ）。l 前面必須有漢字“粵”；l 車牌為6位數(shù)；l 車牌第一位為字母“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) Handles Button1.Click Dim r As Double r = CType(TextBox1.Text, Double) TextBox2.Text = r * r * Math.PI MsgBox(TextBox2.Text)End Sub或者Private Function Calculate(ByVal Radius) As Double Dim RadiusDoubled As Double Dim dblResult As Double RadiusDoubled = Radius * Radius dblResult = RadiusDoubled * Math.PI Return dblResult End Function Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim Area As Double Area = 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 System.EventArgs) Handles Button1.Click Dim I, max As Long Dim s As Single s = 0 : max = 100000 For I = 100000 To 999999 If (I Mod 6 = 0) And (I Mod 100) 10 4) Then s = s + I If (max I) Then max = I End If End If Next I MsgBox(和是 & s &”,” & 最大值是 & max) End Sub3.編寫程序，計(jì)算并輸出所有6位正整數(shù)中同時(shí)能被13和20整除的數(shù)的個(gè)數(shù)n及它們的立方根的和。（結(jié)果：個(gè)數(shù)：3462 立方根和：275112.31253）Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim n, i As Integer, s As Double n = 0 : s = 0 For i = 100000 To 999999 If i Mod 13 = 0 And i Mod 20 = 0 Then n = n + 1 s = s + i (1 / 3) End If Next i MsgBox(個(gè)數(shù)是 & n & “,” & 立方根的和是 & s) End Sub4.編寫程序，計(jì)算并輸出下面級(jí)數(shù)前n項(xiàng)(n=40)中偶數(shù)項(xiàng)的和。s = 1*2+2*3+3*4+4*5+n*(n+1)+（結(jié)果：11900）Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim n As Integer, s As Double s = 0 For n = 2 To 40 Step 2 s = s + n * (n + 1) Next n MsgBox(前40項(xiàng)中偶數(shù)項(xiàng)和S= & s) End Sub5.編寫程序，計(jì)算并輸出所有5位正整數(shù)中能被7整除且其十位數(shù)不是7的數(shù)之和，并求它們中的最大數(shù)。（和：6.364356E+08 最大值：99995）Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim I, max As Long Dim s As Single s = 0 : max = 10000 For I = 10000 To 99999 If (I Mod 7 = 0) And (I Mod 100) 10 7) Then s = s + I If (max I) Then max = I End If End If Next I MsgBox(和是 & s &”,” & 最大值是 & max)End Sub6.編寫程序，統(tǒng)計(jì)10000到40000之間回文數(shù)的個(gè)數(shù)。（例：23732即為回文數(shù)，即正反讀數(shù)據(jù)相同）（結(jié)果：300）Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim i, j, p As Integer Dim a, b, c, d, f As Integer p = 0 For i = 10000 To 40000 a = i Mod 10 b = (i Mod 100) 10 c = (i Mod 1000) 100 d = (i Mod 10000) 1000 f = i 10000 j = a * 10000 + b * 1000 + c * 100 + d * 10 + f If i = j Then p = p + 1 End If Next MsgBox(p) End Sub7.編寫程序，求5664，144的最大公約數(shù)。（48）Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim num1 As Integer Dim num2 As Integer Dim inlarge As Integer Dim insmall As Integer Dim inrem As Integer num1 = 5664 num2 = 144 If num1 num2 Then inlarge = num2 insmall = num1 Else inlarge = num1 insmall = num2 End If inrem = inlarge Mod insmall While inrem 0 inlarge = insmall insmall = inrem inrem = inlarge Mod insmall End While MsgBox（insmall） End Sub8.從三位奇數(shù)中找出其值恰好等于該數(shù)每位數(shù)字立方和的各個(gè)數(shù)之和。（結(jié)果：931）Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim i, m, n, k As Integer Dim s As integer s = 0 For i = 101 To 999 Step 2 m = i 100 n = (i Mod 100) 10 k = i Mod 10 If (i = m *