VB.NET習題集匯編整理者: 華中科技大學管理學院 龔曉光一、單項選擇題1.VB.NET是否完全符合CLS? （ A ）。A. 是 B. 否2.VB.NET窗體中提供的是Hide方法的作用是（ D ）。A. 銷毀窗體對象 B. 關閉窗體 C. 將窗體極小化 D.隱藏窗體3.VB.NET窗體對象的Close方法的作用（ C ）。A. 極小化窗體 B. 隱藏窗體 C. 關閉窗體 D. 銷毀窗體對象（注意，這個題目有問題，參考后面的多選題）4.VB.NET中編寫對象的成員方法代碼時，表示本對象的關鍵字為（ D ）。A. loca10bject B. self C. this D. Me5.VB.NET程序中的邏輯錯誤能否被VB.NET編譯器發現？（ B ）。注：編譯器只能捕獲語法錯誤，而不能捕獲運行時錯誤和邏輯錯誤。A.能 B.不能6.對于VB.NET語句 Speed=Miles/Hours（其中Speet,Miles,Hours都是Double值），當Hours=0時，該語句將引發（ C ）。.A.邏輯錯誤 B.編譯錯誤 C.運行錯誤 D.語法錯誤7.在.NET構架中，VB.NET程序被編譯成（ B ）。 A.腳本 B.MSIL碼 C.匯編碼 D.機器碼8.InputBox( )函數括號中的第一個參數代表（ A ）。A、提示信息B、標題C、默認值D、對話框位置9.以下哪種項目是VB.NET不能創建的（ B ）。A、Windows應用程序 B、Dos應用程序 C、Web應用程序 D、Windows服務10.要在文本框中顯示文本，應給其（ A ）屬性賦值。A、Text B、Caption C、Name D、File11.將按鈕的Visible屬性設為False，按鈕會（ B ）。A、可用且可見 B、可用不可見C、可見不可用 D、不可用不可見（注意，Visible屬性設為False，在程序中測試，發現控件的enable屬性是沒有被修改的，所以控件是可用的。而事實上，控件不可見，沒有辦法接受焦點，不能觸發相關事件，對用戶事實不可用，程序中還是可以用的（涉及到DDE等內容）。綜合看，選B合適）12.語句x=x+1可以簡寫為（ B ）。A、x+B、x+=1C、x=+1D、x+113.下面哪個控件在程序運行時是不可見的（ C ）。A、單選鈕 B、組合框 C、計時器 D、框架14.Select Case對應的結束語句是（ 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都是傳值參數 B、x、y都是引用參數C、x是傳值參數，y是引用參數 D、x是引用參數，y是傳值參數16.要調整某控件的寬度，應修改（ C ）屬性。A、Top B、Left C、Width D、Height17.下面哪個控件的特點同ListBox最接近（ A ）。A、ComboBoxB、TextBoxC、PictureBoxD、Form18.在窗體裝入時，將發生（ B ）事件。A、ClickB、LoadC、DeactivateD、Closed19.要將TextBox1中的文本用MessageBox函數顯示出來，應使用（ A ）。A、MessageBox.Show（TextBox1.Text）B、MessageBox.Show（TextBox1）C、MessageBox.Show（”TextBox1.Text”）D、MessageBox.Show（”TextBox1”）20. VB.NET中用于字符串連接的運算符是（ C ）。A、*B、#C、&D、21. 下面哪一項是正確的日期型數據（ D ）。A、12/12/2004B、”12/12/2004”C、12/12/2004D、#12/12/2004#22.以StructureEnd Structure定義的是一個（ D ）。A、類B、過程C、模塊D、結構* 23.有兩個數組s1和s2，要將s1的內容“拷貝”一份給s2，使用（ C ）。A、s2=s1B、s2=s1.CopyC、s2=s1.CloneD、s2=s1.All24.變量a為整型，b為長整型，c為雙精度型，且規定了強制類型轉換，以下哪項是正確的（ C ）。A、a=bB、b=cC、a=cD、c=a* 25.下面哪個不是邏輯運算符（ C ）。A、OrB、XorC、IfD、Not注：Xor對兩個 Boolean 表達式執行邏輯異或運算，或對兩個數值表達式執行按位異或運算False Xor False =False; True Xor False =True False Xor True =True ; True Xor True =False 26.下面哪種不是循環結構（ A ）。A、TryCatchEnd TryB、ForNextC、For EachNext D、DoLoop27.要在窗體上創建一個狀態欄，可使用（ B ）控件。A、TrackBarB、StatusBarC、ToolBarD、Panel二、多項選題（包括單項）1.在窗體的成員方法中，關于Close()和Hide()說法正確的是 （ ACD ? ）。A. Close()方法關閉窗體，并銷毀窗體對象B. Close()方法關閉窗體，但并不銷毀窗體對象C. Hide()方法是窗體不可見，但不銷毀窗體對象D. Hide()方法隱藏了窗體，使用Show（）方法可重新顯示該窗體2.所有控件都有的屬性是 （ D ）。A. TextB. BackColorC. ItemD. Name3.下列說法錯誤的是 （ ACD ? ）。A使用MessageBox.Show()顯示的窗體一定是模態窗體B使用MessageBox.Show()顯示的窗體一定是非模態窗體C使用MessageBox.Show()顯示的窗體既可以是模態窗體，也可以是非模態窗體DMessageBox.Show（String1，String2）中String1是消息框的標題，String2是顯示的文本4.在Option Strict Off的情況下執行下列代碼后，變量i的值是什么？（ A ? ）。Dim i As IntegerDim b As Booleani = bA0 CFalseB-1 DTrue注：布爾值只有True or False , 整型值: True = -1, False = 05.下列關于值類型和引用類型說法正確的是 （ ACD ? ）。A.對一個值類型變量的操作不會影響到其他變量B.對一個引用型變量的操作不會影響到其他變量C.引用型變量存放的是指向實際對象數據的地址D.NET中所有的數字類型都是值類型（注意，這個題目的內容沒有講過，不會考的）6.符合變量命名規則的變量名有（ BCD ? ）。A. 42AnswerB. _nameC. Money$D. Str_name（注意，Money$是隱式聲明，$代表字符串）7.在Option Explicit Off的情況下執行下列代碼后，變量currentBonus的值是什么？（ C ）。Dim currentSalary As Integer=3Dim currentBonus As DoublecurrentBonus = currentSalary .10A. 0B. 0.0C. 0.3D. 0.30（注意，原來題目有問題，currentSalry 現在修改為currentSalary）8.在單擊了10次按鈕后，靜態變量items的值是（ D ）。Private Sub Button1_Click（）Static items As Integer = 1items += 1End SubA. 0B. 1C. 10D. 119.對于一個字符串型的變量num = “128”，要將其轉換為整型，有哪幾種方法？（ AD ? ）。A. CType（num , Integer）B. CStr（num）C. DirectCast（num , Integer）D. CInt（num）10.在三維數組array（4，5，6）中共有多少個數組元素？（ B 4*5*6 ）。A. 120B. 210C. 209D. 21111.下列語句執行后，array（3）的值是什么？（ C ? ）。Dim array() As Integer = 1, 2, 3, 4, 5, 6ReDim array(8)A. 3B. 4C. 0D. nothing注：如果是數，重新定義后為0；如果是字符串，則不顯示。12.在VB.NET中，有返回值的過程稱為過程（ B ）。A. SubB. FunctionC. PropertyD. Main13.下列代碼執行完畢后，程序將輸出（ 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（注意，數組參數傳遞比較復雜，這個題目的內容沒有講過，不會考的）14.可以使用參數數組為過程傳遞不確定個數的參數，下面的函數聲明都用到了參數數組，其中正確的是（ 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是一個特殊的修飾符，這個題目的內容沒有講過）15.下列哪些語句將得到filename文件的擴展名（假設擴展名為3個字符）？（ AD ? ）。A.Right(filename,3)B.Left(filename,3)C. Left(filename,Len(filename)-3)D.Mid(filename,Instr(filename,”.”)+1)16.下列布爾表達式的值為 （ B ? ）。Not False And True Xor True Or FalseA.TrueB.FalseC.OrElseD. AndAlso17.執行下列程序后，變量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.執行下列代碼后，變量count的值為 （ C ）。Dim count As IntegerFor count = 10 To 0, Step -1 count = count - 3NextA.0B.-1C. -2D.-319.下列關于Do循環說法正確的是（ C ）。A.DoLoop Until和Do UntilLoop都是在條件為假時退出循環B.DoLoop While和Do WhileLoop都是在條件為假時退出循環C. DoLoop Until和DoLoop While中的代碼至少會執行一次D.Do UntilLoop和Do WhileLoop中的代碼至少會執行一次20.要表示廣州市的車牌號碼，對輸入有以下格式要求：（ B ）。l 前面必須有漢字“粵”；l 車牌為6位數；l 車牌第一位為字母“A”，車牌最后一位必須為數字，其他位置字符數字不限；下列對Masked Edit的Mask屬性設置正確的是A.粵AAAAA#B.粵AAAAA0C.粵A?#D. 粵AAAAA9三、編程題1.編寫一個Function過程，求圓的面積（圓的半徑作為過程的參數）。（參考指定教程）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.編寫程序，計算并輸出所有6位正整數中能被6整除且其十位數不是4的數之和，并求它們中的最大數。（結果：和: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.編寫程序，計算并輸出所有6位正整數中同時能被13和20整除的數的個數n及它們的立方根的和。（結果：個數：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(個數是 & n & “,” & 立方根的和是 & s) End Sub4.編寫程序，計算并輸出下面級數前n項(n=40)中偶數項的和。s = 1*2+2*3+3*4+4*5+n*(n+1)+（結果：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項中偶數項和S= & s) End Sub5.編寫程序，計算并輸出所有5位正整數中能被7整除且其十位數不是7的數之和，并求它們中的最大數。（和：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.編寫程序，統計10000到40000之間回文數的個數。（例：23732即為回文數，即正反讀數據相同）（結果：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的最大公約數。（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.從三位奇數中找出其值恰好等于該數每位數字立方和的各個數之和。（結果：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 *