中原工學(xué)院VB題庫(含參考答案)4份整合+大題版

1、首先聲明這是crazygod5本人親自由校網(wǎng)下載的題庫，自己做和校對的，不能保證準(zhǔn)確率（應(yīng)該在90%以上），大題部分自己已經(jīng)運(yùn)行驗(yàn)證過了。之前長傳的VB1 、VB2、 VB3、 VB4部分在百度文庫是看不到大題的（實(shí)際上答題框是有參考答案的），自己下載下來之后發(fā)現(xiàn)金山的2013測試版是顯示不出來選項(xiàng)的，OFFIC2003可以顯示所有內(nèi)容（但是大題的框內(nèi)內(nèi)容不能編輯），OFF9C2010是完全正常編輯的（建議用OFFIC2010），不過這次我把大題獨(dú)立出來了（在最下面），所以O(shè)FFIC2003就可以足夠觀看和編輯了（WPS完全版沒測試過）。上次上次的幾份答案發(fā)現(xiàn)被轉(zhuǎn)載到另外的網(wǎng)站（豆丁，道客巴巴

2、）了，本人不希望未經(jīng)過我的允許就轉(zhuǎn)載我的辛苦勞動(dòng)的，謝謝合作！ 如果發(fā)現(xiàn)我的參考答案有問題，歡迎發(fā)郵件到335147037和我交流。如果是VB老師，更是歡迎！【HNCE網(wǎng)上考試系統(tǒng) v9.6】 本套軟件使用權(quán)屬于：中原工學(xué)院考試課程:高級語言程序設(shè)計(jì)（VB） 考試時(shí)間:100分鐘 考場:第一考場 考試日期:2010.02.15考號：201200314399 姓名：帥哥剩余時(shí)間：99:48保存交卷退出幫助窗體頂端本卷共有4道大題:窗體底端一、單項(xiàng)選擇題（20道小題，共20分）1、在VB.NET中每個(gè)對象都有三個(gè)基本要素，它們是 ( )。（1分）A、對象的名稱，值和所屬類。B、對象的屬性，事件和方

3、法。C、對象的大小，存儲方式和內(nèi)容。D、對象的訪問方法、存儲方式和名稱。2、假定焦點(diǎn)已經(jīng)位于TextBox1中，則能夠觸發(fā)KeyPress事件的操作是（ ）。（1分）A、單擊鼠標(biāo)B、雙擊文本框C、鼠標(biāo)滑過文本框D、按下鍵盤上的某個(gè)鍵3、以下表達(dá)式的結(jié)果( )不是字符串類型。（1分）A、"45" + "123"B、"45" & "123"C、45 + "123"D、全部4、表達(dá)式 Int(Rnd*55)+15 產(chǎn)生的隨機(jī)數(shù)范圍是( )。（1分）A、15，55B、15，69C、(15，55)

4、D、(15，69)5、要使某個(gè)控件在運(yùn)行時(shí)不顯示，應(yīng)對其( )屬性進(jìn)行設(shè)置。（1分）A、LockedB、EnabledC、VisibleD、ForeColor6、VB.NET程序中，( ) 顯示一個(gè)內(nèi)容為“this is a test”的對話框。（1分）A、MsgBox("this is a test")B、MsgBox.Show("this is a test")C、MsgBox.ShowDialog("this is a test")D、MsgBox.ShowMessageBox("this is a test"

5、;)7、假設(shè)x、y、z的值是3、2、1，當(dāng)執(zhí)行語句x=y:y=z:z=x后，x、y、z的值分別是( )。 （1分）A、2、3、1B、2、1、2C、1、3、2D、3、1、28、以下Case語句中錯(cuò)誤的是( )。（1分）A、Case 0 To 10B、Case Is>10C、Case 3,5,Is>10D、Case 10<Is<509、下列各語句中，正確的是( )。（1分）A、Dim x(3) As Integer = 1,2,3,4B、Dim x() As Integer = 1,2,3,4C、Dim x(1,2) As Integer = 1,2,3,4,5,6D、Di

6、m x(,) As Integer = 1,2,3,410、已知最多有10個(gè)元素的數(shù)組a，用變量n表示它的上界，則下列說法正確的是( )。（1分）A、n=UBound(a)且n=10B、n=UBound(a)且n=9C、n=LBound(a)且n=10D、n=LBound(a)且n=911、以下關(guān)于變量作用域的敘述中，正確的是( )。（1分）A、窗體中凡被聲明為Private的變量只能在某個(gè)指定的過程中使用B、全局變量必須在窗體或標(biāo)準(zhǔn)模塊的通用段中聲明C、模塊級變量只能用Private關(guān)鍵字聲明D、Static類型的變量的作用域是它所在的窗體或模塊文件12、下列過程的定義，正確的是( )。（1

7、分）（和別人的有出入）A、Public Function a(ByVal b As Integer)As DoubleB、Public Sub a(ByVal b As Integer)As DoubleC、Public Function a(ByVal b(5) As Integer)As DoubleD、Public Sub a(ByVal b(5) As Integer)As Double13、在下列說法中，正確的是( )。（1分）A、在程序運(yùn)行時(shí)，時(shí)鐘控件可以示在窗體上B、在程序運(yùn)行時(shí)單擊某個(gè)單選按鈕，則該單選按鈕的CheckChanged事件一定被觸發(fā)C、在列表框中能夠?qū)㈨?xiàng)目按字母排

8、序從大到小排列D、框架也有Click和DoubleClick事件14、若要向列表框中添加新項(xiàng)目，正確的語句是( )。（1分）A、ListBox1.Items.Add("How are you")B、ListBox1.Items.Insert("How are you")C、ListBox1.Items.Remove("How are you")D、ListBox1.Text="How are you"15、要定義某個(gè)類為派生類，需要用( )語句來指明其基類。（1分）A、WithEventsB、EventC、Inhe

9、ritsD、Class16、在下列關(guān)于類的定義位置的說法中，錯(cuò)誤的是( )。（1分）A、在標(biāo)準(zhǔn)模塊中可以定義類B、在窗體的代碼窗口中可以定義與Form1并列的類C、在類模塊中可以定義類D、類的定義不能嵌套，即類中不能再定義17、要在下拉菜單中添加一個(gè)分隔線，則應(yīng)將該菜單項(xiàng)的標(biāo)題內(nèi)容設(shè)置為( )。（1分）A、=B、-C、*D、&18、為對象指定上下文菜單的方法是修改菜單的( )屬性。（1分）A、AutoToolTipB、DockC、ContextMenuStripD、Locked19、下列( )類的文件流既可以讀也可以寫。（1分）A、StreamReaderB、FileStreamC、S

10、treamWriterD、BinaryWriter20、打開文件或創(chuàng)建文件流時(shí)，經(jīng)常要指定文件的打開模式，下列( )不會創(chuàng)建新文件。（1分）A、AppendB、CreateC、OpenD、OpenOrCreate二、判斷題（10道小題，共10分）1、對象的所有屬性既可以通過屬性窗口設(shè)置，也可以在程序運(yùn)行時(shí)修改。（1分）(例如name屬性不能)正確錯(cuò)誤2、在VB.NET中，AB和ab指代的是同一個(gè)變量的名字。（1分）（p25頁）正確錯(cuò)誤3、命令按鈕對象上的文字可以設(shè)置多種對齊方式。（1分）正確錯(cuò)誤4、標(biāo)簽對象上只可以顯示文字，不能顯示圖像。（1分）正確錯(cuò)誤5、塊結(jié)構(gòu)If語句中，Else和End

11、If都可以略去不寫。（1分）正確錯(cuò)誤6、引用數(shù)組元素時(shí),下標(biāo)值應(yīng)在數(shù)組聲明時(shí)所指定的范圍內(nèi)。（1分）正確錯(cuò)誤7、在過程內(nèi)不能再定義過程，但可以調(diào)用其它Sub過程或Function過程。（1分）正確錯(cuò)誤8、復(fù)選框?qū)ο笾饕脕韺?shí)現(xiàn)多選一的操作目的。（1分）正確錯(cuò)誤9、對象和類是一樣的，都是可以直接操作的實(shí)體。（1分）正確錯(cuò)誤10、在打開文件執(zhí)行讀寫后，結(jié)束時(shí)一定要關(guān)閉文件，否則會造成文件損壞。（1分）正確錯(cuò)誤三、填空題（16道小題，共34分）1、如圖 a00-4 所示的數(shù)學(xué)表達(dá)式，寫成 VB.NET表達(dá)式應(yīng)為 。（這題因?yàn)閳D片在校網(wǎng)上沒下載下來，沒辦法做，請去第一章P41課后第三題那里做幾道）【附

12、圖13】（2分）2、如圖 a00-1 所示的數(shù)學(xué)表達(dá)式，寫成 VB.NET 表達(dá)式應(yīng)為 。【附圖9】（2分）3、如圖 a00-2 所示的數(shù)學(xué)表達(dá)式，寫成 VB.NET表達(dá)式應(yīng)為 (注：使用數(shù)學(xué)函數(shù)時(shí)，可以直接使用函數(shù)名) 。【附圖11】（2分）4、Visual Basic.NET中，所有對象都必須具有屬性。（1分）5、算術(shù)表達(dá)式4+2*322*4的運(yùn)算結(jié)果是。（1分）6、要使標(biāo)簽控件中顯示的文本在垂直方向上居中，而在水平方向上靠右則應(yīng)將其屬性設(shè)置為MiddleRight。（1分）7、For i=3 To 27 Step 2 將循環(huán)次。（1分）8、如果要得到數(shù)組指定維數(shù)的上界大小，則可以使用函數(shù)

13、。（1分）9、聲明模塊級變量用Private或關(guān)鍵字。（1分）10、程序運(yùn)行過程中，要向列表框ListBox1中添加一項(xiàng)，應(yīng)該使用方法。（1分）11、類的成員包括數(shù)據(jù)成員、事件和方法。（1分）12、若想讓菜單標(biāo)題顯示為“文件(F)”,則應(yīng)把菜單項(xiàng)的Text屬性設(shè)置為。（1分）13、使用FileStream類的方法可將文件流的當(dāng)前位置設(shè)置為指定值。（1分）14、根據(jù)題意，將程序補(bǔ)充完整。通過輸入對話框inputbox輸入一個(gè)年份，利用msgbox判斷其是否是閏年。閏年的年份必須滿足以下兩個(gè)條件之一：（1）能被4整除，但不能被100整除的年份是閏年；（2）能被400整除的年份是閏年。Private

14、 Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.ClickDim y As Integer，p1 As Boolean, p2 As Booleany = p1 = y Mod 4 = 0 And y Mod 100 <> 0p2 = y Mod 400 = 0If ThenElseEnd IfEnd Sub（6分）15、根據(jù)題意，將程序補(bǔ)充完整。下將用戶輸入的10個(gè)數(shù)顯示到文本框TextBox1中，用選擇法按照從大到小排序，將排序后的結(jié)果顯

15、示到文本框TextBox2中。Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.ClickDim a(9) As IntegerDim i, j, k, t As IntegerFor i = 0 To 9a(i) = InputBox("請輸入第" & i + 1 & "個(gè)數(shù)")TextBox1.Text = TextBox1.Text & a(i) & Space(2

16、)NextFor i = 0 To 8k = iFor j = To 9If a(k) < a(j) Then NextIf Then t = a(i) : a(i) = a(k) : a(k) = tNextFor i = 0 To 9TextBox2.text = TextBox2.Text & a(i) & Space(2)NextEnd Sub（6分）16、根據(jù)題意，將程序補(bǔ)充完整。編寫一個(gè)函數(shù)過程：求數(shù)列1+1/2+1/3+1/4+1/n的和，用戶在文本框TextBox1輸入一個(gè)值n，在Button1的click事件中調(diào)用此過程，求出結(jié)果并顯示在文本框TextB

17、ox2中。Private Function sum(ByVal n As Integer) As SingleDim i As Integer, s As Singles = 0For i = 1 To nNextEnd FunctionPrivate Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.ClickDim n As Integern = Val(TextBox1.Text)End Sub（6分）四、編程題（4道小題，共36分）1、新建項(xiàng)目，在窗

18、體上創(chuàng)建1個(gè)標(biāo)簽(Label1)、2個(gè)命令按鈕(Button1,Button2)。(1) 在屬性窗口中設(shè)置:標(biāo)簽文字為你的姓名，1個(gè)命令按鈕上的文字為“日期”，1個(gè)命令按鈕上的文字為“粗體”。(2) 編寫代碼，要求：運(yùn)行程序，單擊按鈕“日期”，窗體標(biāo)題欄上顯示系統(tǒng)當(dāng)前日期(要求使用函數(shù))。單擊按鈕“粗體”，將標(biāo)簽文字改為粗體?！颈绢}要求上傳窗體文件】（8分）（本題不要求填寫運(yùn)行結(jié)果）請將你解答本題所寫的源程序粘貼到下面或者上載源程序2、用輸入對話框InputBox輸入一個(gè)正整數(shù)，判斷其能否同時(shí)被5和17整除，如能則用標(biāo)簽輸出“xxx能同時(shí)被5和17整除”，否則輸出“xxx不能同時(shí)被5和17整除

19、”。其中，標(biāo)簽中的“xxx”應(yīng)顯示為實(shí)際輸入的數(shù)據(jù)。【本題要求上傳窗體文件】（10分）（本題不要求填寫運(yùn)行結(jié)果）請將你解答本題所寫的源程序粘貼到下面或者上載源程序3、聲明一個(gè)5行5列的二維數(shù)組，其元素由10,99之間的整數(shù)組成，要求計(jì)算主對角線及其上方三角形區(qū)域元素之和。要求：利用隨機(jī)函數(shù)(隨機(jī)數(shù)種子 Randomize(2) 產(chǎn)生上述整數(shù)。【本題要求粘貼源程序與第一次運(yùn)行結(jié)果】（12分）必須將本題程序最后的運(yùn)行結(jié)果填入下面的框中。否則，該題以零分計(jì)!請將你解答本題所寫的源程序粘貼到下面或者上載源程序4、創(chuàng)建一個(gè)項(xiàng)目，項(xiàng)目的名稱為“Student”，該項(xiàng)目中定義一個(gè)學(xué)生類Student（建議將

20、該類定義為一個(gè)獨(dú)立的.vb文件），該類包含的成員如下：（1）兩個(gè)公有數(shù)據(jù)成員分別表示姓名（name）和性別(sex)，一個(gè)私有數(shù)據(jù)成員表示成績（score）。（2）一個(gè)可讀寫私有數(shù)據(jù)成員score的公有屬性Scoret。（3）一個(gè)公有方法Result，該方法用于返回一個(gè)字符串。當(dāng)成績大于等于80分時(shí)Result()方法返回“你很棒”字符串，否則為“繼續(xù)努力!”字符串。最后在該項(xiàng)目的窗體中使用Student類來創(chuàng)建對象s1，通過文本框設(shè)置對象s1的姓名（name），單擊“確定”按鈕，在標(biāo)簽中根據(jù)對象是s1的成績顯示相應(yīng)的信息(“你很棒”或者“繼續(xù)努力!”)，窗體的界面如附圖(b4-3)?！颈绢}要

21、求粘貼源程序】【附圖21】（6分）（本題不要求填寫運(yùn)行結(jié)果）請將你解答本題所寫的源程序粘貼到下面或者上載源程序窗體底端考號：201200314399 姓名：帥哥剩余時(shí)間：99:48保存交卷退出幫助 強(qiáng)烈建議您使用IE5.0以上，屏幕分辨率800X600以上，真彩，小字體瀏覽【HNCE網(wǎng)上考試系統(tǒng) v9.6】 本套軟件使用權(quán)屬于：中原工學(xué)院考試課程:高級語言程序設(shè)計(jì)（VB） 考試時(shí)間:100分鐘 考場:第一考場 考試日期:2010.02.15考號：211111111111 姓名：登錄剩余時(shí)間：99:55保存交卷退出幫助窗體頂端本卷共有4道大題:窗體底端一、單項(xiàng)選擇題（20道小題，共20分）1、在

22、VB.NET中每個(gè)對象都有三個(gè)基本要素，它們是 ( )。（1分）A、對象的名稱，值和所屬類。B、對象的屬性，事件和方法。C、對象的大小，存儲方式和內(nèi)容。D、對象的訪問方法、存儲方式和名稱。2、若VB.NET 編程界面中的工具箱不見了，則可以通過 ( ) 菜單將其重新顯示出來。（1分）A、工具B、視圖C、格式D、文件3、表達(dá)式 Int(Rnd*55)+15 產(chǎn)生的隨機(jī)數(shù)范圍是( )。（1分）A、15，55B、15，69C、(15，55)D、(15，69)4、以下表達(dá)式的結(jié)果( )不是字符串類型。（1分）A、"45" + "123"B、"45&qu

23、ot; & "123"C、45 + "123"D、全部5、設(shè)有 x，y 兩個(gè)數(shù)值型變量，今欲將其以坐標(biāo)的樣式“(x，y)”顯示在標(biāo)簽(Label1)上(注：x,y顯示具體的數(shù)值），下面語句中正確的是( )。（1分）課本P28A、Label1.text="(" & x & "," & y & ")"B、Label1.text="(x,y)"C、Label1.text=("x","y")D、Label

24、1.text=(x,y)6、在窗體上有一文本框，名稱為Textbox1，程序運(yùn)行后，要求該文本框不能接收鍵盤輸入，但能輸出信息，以下設(shè)置正確的是( )。（1分）A、TextBox1.MaxLength=0B、TextBox1.Enabled=FalseC、TextBox1.Visible=FalseD、TextBox1.Size.Width=07、假設(shè)x、y、z的值是3、2、1，當(dāng)執(zhí)行語句x=y:y=z:z=x后，x、y、z的值分別是( )。 （1分）A、2、3、1B、2、1、2C、1、3、2D、3、1、28、關(guān)于For.Next 循環(huán)，以下說法錯(cuò)誤的是( )。（1分）(p88)A、每個(gè)For

25、 都必須有與之相應(yīng)的 NextB、步長Step 可以省略C、For 語句中的終值必須大于初值D、循環(huán)變量的名稱必須符合變量的命名規(guī)則9、下列各語句中，正確的是( )。（1分）A、Dim x(3) As Integer = 1,2,3,4B、Dim x() As Integer = 1,2,3,4C、Dim x(1,2) As Integer = 1,2,3,4,5,6D、Dim x(,) As Integer = 1,2,3,410、關(guān)于數(shù)組，以下說法正確的是( )。（1分）A、數(shù)組的下標(biāo)都是從1開始的B、數(shù)組在定義后，其所含數(shù)據(jù)的個(gè)數(shù)不能改變C、數(shù)組的類型不能是可變類型D、數(shù)組命名與變量命名

26、的規(guī)則相同11、以下關(guān)于變量作用域的敘述中，正確的是( )。（1分）A、窗體中凡被聲明為Private的變量只能在某個(gè)指定的過程中使用B、全局變量必須在窗體或標(biāo)準(zhǔn)模塊的通用段中聲明C、模塊級變量只能用Private關(guān)鍵字聲明D、Static類型的變量的作用域是它所在的窗體或模塊文件12、下列過程的定義，正確的是( )。（1分）(有異議的答案)A、Public Function a(ByVal b As Integer)As DoubleB、Public Sub a(ByVal b As Integer)As DoubleC、Public Function a(ByVal b(5) As Int

27、eger)As DoubleD、Public Sub a(ByVal b(5) As Integer)As Double13、在設(shè)計(jì)狀態(tài)，列表中的選項(xiàng)可以通過( )屬性設(shè)置。（1分）A、ListB、Items.CountC、TextD、Items14、在下列說法中，正確的是( )。（1分）A、在程序運(yùn)行時(shí)，時(shí)鐘控件可以示在窗體上B、在程序運(yùn)行時(shí)單擊某個(gè)單選按鈕，則該單選按鈕的CheckChanged事件一定被觸發(fā)C、在列表框中能夠?qū)㈨?xiàng)目按字母排序從大到小排列D、框架也有Click和DoubleClick事件15、要定義某個(gè)類為派生類，需要用( )語句來指明其基類。（1分）A、WithEvent

28、sB、EventC、InheritsD、Class16、類MyClass的定義中有Private data as string語句，則關(guān)鍵字Private在類的定義中的作用是( )。（1分）A、限定成員變量data只在本模塊內(nèi)部可以使用B、限定成員變量data僅在類MyClass的成員方法中可以訪問C、限定成員變量data僅可在類以及子類的成員方法中可以訪問D、限定類MyClass僅在本模塊中可以使用17、為菜單對象添加快捷鍵的方法是修改其( )屬性。（1分）A、NameB、ShortcutKeysC、TextD、ToolTipText18、要在下拉菜單中添加一個(gè)分隔線，則應(yīng)將該菜單項(xiàng)的標(biāo)題內(nèi)

29、容設(shè)置為( )。（1分）A、=B、-C、*D、&19、打開文件或創(chuàng)建文件流時(shí)，經(jīng)常要指定文件的打開模式，下列( )不會創(chuàng)建新文件。（1分）A、AppendB、CreateC、OpenD、OpenOrCreate20、下列( )類的文件流既可以讀也可以寫。（1分）A、StreamReaderB、FileStreamC、StreamWriterD、BinaryWriter二、判斷題（10道小題，共10分）1、Visual Basic.NET支持結(jié)構(gòu)化程序設(shè)計(jì)及事件驅(qū)動(dòng)的編程機(jī)制。（1分）正確錯(cuò)誤2、在VB.NET中，AB和ab指代的是同一個(gè)變量的名字。（1分）正確錯(cuò)誤3、標(biāo)簽對象上只可以顯

30、示文字，不能顯示圖像。（1分）正確錯(cuò)誤4、窗體顯現(xiàn)時(shí)，最先執(zhí)行的是Load事件過程。（1分）正確錯(cuò)誤5、InputBox函數(shù)的返回值是字符串類型，常需要轉(zhuǎn)換后才能賦值給變量。（1分）正確錯(cuò)誤6、引用數(shù)組元素時(shí),下標(biāo)值應(yīng)在數(shù)組聲明時(shí)所指定的范圍內(nèi)。（1分）正確錯(cuò)誤7、Sub過程和Function過程的重要區(qū)別是參數(shù)的傳遞方式不同。（1分）正確錯(cuò)誤8、復(fù)選框?qū)ο笾饕脕韺?shí)現(xiàn)多選一的操作目的。（1分）正確錯(cuò)誤9、對象和類是一樣的，都是可以直接操作的實(shí)體。（1分）正確錯(cuò)誤10、在打開文件執(zhí)行讀寫后，結(jié)束時(shí)一定要關(guān)閉文件，否則會造成文件損壞。（1分）正確錯(cuò)誤三、填空題（16道小題，共34分）1、如圖 a

31、00-4 所示的數(shù)學(xué)表達(dá)式，寫成 VB.NET表達(dá)式應(yīng)為 。【附圖13】（2分）2、如圖 a00-3 所示的數(shù)學(xué)表達(dá)式，寫成 VB.NET 表達(dá)式應(yīng)為 ?！靖綀D10】（2分）3、如圖 a00-5 所示的數(shù)學(xué)表達(dá)式，寫成 VB.NET表達(dá)式應(yīng)為 (注：使用數(shù)學(xué)函數(shù)時(shí)，可以直接使用函數(shù)名)?！靖綀D12】（2分）4、Visual Basic.NET中應(yīng)用面向?qū)ο蟮某绦蛟O(shè)計(jì)方法，采用的編程機(jī)制。（1分）5、算術(shù)表達(dá)式4+2*322*4的運(yùn)算結(jié)果是。（1分）6、實(shí)現(xiàn)窗體隱藏的方法是。（1分）7、For i=3 To 27 Step 2 將循環(huán)次。（1分）8、如果要得到數(shù)組指定維數(shù)的上界大小，則可以使用函

32、數(shù)。（1分）9、聲明模塊級變量用Private或關(guān)鍵字。（1分）10、程序運(yùn)行過程中，要向列表框ListBox1中添加一項(xiàng)，應(yīng)該使用方法。（1分）11、類的成員包括數(shù)據(jù)成員、事件和方法。（1分）12、若想讓菜單標(biāo)題顯示為“文件(F)”,則應(yīng)把菜單項(xiàng)的Text屬性設(shè)置為。（1分）13、使用FileStream類的方法可將文件流的當(dāng)前位置設(shè)置為指定值。（1分）14、根據(jù)題意，將程序補(bǔ)充完整。通過輸入對話框inputbox輸入一個(gè)年份，利用msgbox判斷其是否是閏年。閏年的年份必須滿足以下兩個(gè)條件之一：（1）能被4整除，但不能被100整除的年份是閏年；（2）能被400整除的年份是閏年。Privat

33、e Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.ClickDim y As Integer，p1 As Boolean, p2 As Booleany = p1 = y Mod 4 = 0 And y Mod 100 <> 0p2 = y Mod 400 = 0If ThenElseEnd IfEnd Sub（6分）15、根據(jù)題意，將程序補(bǔ)充完整。下將用戶輸入的10個(gè)數(shù)顯示到文本框TextBox1中，用選擇法按照從大到小排序，將排序后的結(jié)果

34、顯示到文本框TextBox2中。Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.ClickDim a(9) As IntegerDim i, j, k, t As IntegerFor i = 0 To 9a(i) = InputBox("請輸入第" & i + 1 & "個(gè)數(shù)")TextBox1.Text = TextBox1.Text & a(i) & Space(

35、2)NextFor i = 0 To 8k = iFor j = To 9If a(k) < a(j) Then NextIf Then t = a(i) : a(i) = a(k) : a(k) = tNextFor i = 0 To 9TextBox2.text = TextBox2.Text & a(i) & Space(2)NextEnd Sub（6分）16、根據(jù)題意，將程序補(bǔ)充完整。編寫一個(gè)函數(shù)過程：求數(shù)列1+1/2+1/3+1/4+1/n的和，用戶在文本框TextBox1輸入一個(gè)值n，在Button1的click事件中調(diào)用此過程，求出結(jié)果并顯示在文本框Text

36、Box2中。Private Function sum(ByVal n As Integer) As SingleDim i As Integer, s As Singles = 0For i = 1 To nNextEnd FunctionPrivate Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.ClickDim n As Integern = Val(TextBox1.Text)End Sub（6分）四、編程題（4道小題，共36分）1、新建項(xiàng)目，在

37、窗體上創(chuàng)建1個(gè)命令按鈕(Button1)、1個(gè)標(biāo)簽(Label1)和3個(gè)單選按鈕(RadioButton1RadioButton3)(1)在屬性窗口中設(shè)置:標(biāo)簽文字為你的姓名，命令按鈕上的文字為“退出”，3個(gè)單選按鈕上的文字分別為“16”、“18”、“28”。(2) 編寫代碼，要求：運(yùn)行程序，單擊單選按鈕可相應(yīng)改變標(biāo)簽文字的大小。單擊命令按鈕“退出”可關(guān)閉窗體?！颈绢}要求上傳窗體文件】（8分）（本題不要求填寫運(yùn)行結(jié)果）請將你解答本題所寫的源程序粘貼到下面或者上載源程序2、用輸入對話框InputBox輸入一個(gè)正整數(shù)，判斷其能否同時(shí)被5和17整除，如能則用標(biāo)簽輸出“xxx能同時(shí)被5和17整除”，否

38、則輸出“xxx不能同時(shí)被5和17整除”。其中，標(biāo)簽中的“xxx”應(yīng)顯示為實(shí)際輸入的數(shù)據(jù)?！颈绢}要求上傳窗體文件】（10分）（本題不要求填寫運(yùn)行結(jié)果）請將你解答本題所寫的源程序粘貼到下面或者上載源程序3、聲明一個(gè)5行5列的二維數(shù)組，其元素由10,55之間的整數(shù)組成，要求分別計(jì)算第2行和第4列的數(shù)據(jù)之和。要求：利用隨機(jī)函數(shù)(隨機(jī)數(shù)種子 Randomize(5)產(chǎn)生上述整數(shù)?！颈绢}要求粘貼源程序與運(yùn)行結(jié)果】（12分）必須將本題程序最后的運(yùn)行結(jié)果填入下面的框中。否則，該題以零分計(jì)!請將你解答本題所寫的源程序粘貼到下面或者上載源程序4、創(chuàng)建一個(gè)項(xiàng)目，項(xiàng)目的名稱為“Rect”，運(yùn)行效果見附圖(b4-2)。

39、要求在該項(xiàng)目中定義一個(gè)長方體類Rect（建議將該類定義為一個(gè)獨(dú)立的.vb文件），該類包含：（1）兩個(gè)公有數(shù)據(jù)成員表示長方體的長（length）和寬(width)，一個(gè)私有數(shù)據(jù)成員表示長方體的高（high）。（2）一個(gè)可讀寫私有數(shù)據(jù)成員high的公有屬性Hight。（3）一個(gè)公有方法ComputeVol，用來計(jì)算長方體的體積。最后在該項(xiàng)目的窗體中使用Rect類來創(chuàng)建長方體對象r1，通過文本框設(shè)置長方體對象r1的長，寬和高，單擊“創(chuàng)建對象”按鈕，則在標(biāo)簽中顯示長方體對象r1的長，寬，高和體積。【本題要求粘貼源程序】【附圖22】（6分）（本題不要求填寫運(yùn)行結(jié)果）請將你解答本題所寫的源程序粘貼到下面或

40、者上載源程序窗體底端考號：211111111111 姓名：登錄剩余時(shí)間：99:55保存交卷退出幫助 強(qiáng)烈建議您使用IE5.0以上，屏幕分辨率800X600以上，真彩，小字體瀏覽【HNCE網(wǎng)上考試系統(tǒng) v9.6】 本套軟件使用權(quán)屬于：中原工學(xué)院考試課程:高級語言程序設(shè)計(jì)（VB） 考試時(shí)間:100分鐘 考場:第一考場 考試日期:2010.02.15考號：201212345678 姓名：偏好剩余時(shí)間：99:56保存交卷退出幫助窗體頂端本卷共有4道大題:窗體底端一、單項(xiàng)選擇題（20道小題，共20分）1、若VB.NET 編程界面中的工具箱不見了，則可以通過 ( ) 菜單將其重新顯示出來。（1分）A、工具

41、B、視圖C、格式D、文件2、在VB.NET中每個(gè)對象都有三個(gè)基本要素，它們是 ( )。（1分）A、對象的名稱，值和所屬類。B、對象的屬性，事件和方法。C、對象的大小，存儲方式和內(nèi)容。D、對象的訪問方法、存儲方式和名稱。3、以下表達(dá)式的結(jié)果( )不是字符串類型。（1分）A、"45" + "123"B、"45" & "123"C、45 + "123"D、全部4、若字符串變量a="Visual Basic Programing"，則 UCase(Mid(a,8,5) &am

42、p; Right(a,11) 的結(jié)果是 ( )。（1分）A、BASIC PROGRAMINGB、basic programingC、Basic PROGRAMINGD、BASIC Programing5、VB.NET程序中，( ) 顯示一個(gè)內(nèi)容為“this is a test”的對話框。（1分）A、MsgBox("this is a test")B、MsgBox.Show("this is a test")C、MsgBox.ShowDialog("this is a test")D、MsgBox.ShowMessageBox(&quo

43、t;this is a test")6、在窗體上有一文本框，名稱為Textbox1，程序運(yùn)行后，要求該文本框不能接收鍵盤輸入，但能輸出信息，以下設(shè)置正確的是( )。（1分）A、TextBox1.MaxLength=0B、TextBox1.Enabled=FalseC、TextBox1.Visible=FalseD、TextBox1.Size.Width=07、由For i=1 To 10 Step 3決定的循環(huán)結(jié)構(gòu)被執(zhí)行 ( )次。（1分）A、3B、4 C、5 D、08、以下Case語句中錯(cuò)誤的是( )。（1分）A、Case 0 To 10B、Case Is>10C、Case

44、3,5,Is>10D、Case 10<Is<509、已知最多有10個(gè)元素的數(shù)組a，用變量n表示它的上界，則下列說法正確的是( )。（1分）A、n=UBound(a)且n=10B、n=UBound(a)且n=9C、n=LBound(a)且n=10D、n=LBound(a)且n=910、下列各語句中，正確的是( )。（1分）A、Dim x(3) As Integer = 1,2,3,4B、Dim x() As Integer = 1,2,3,4C、Dim x(1,2) As Integer = 1,2,3,4,5,6D、Dim x(,) As Integer = 1,2,3,41

45、1、以下關(guān)于變量作用域的敘述中，正確的是( )。（1分）A、窗體中凡被聲明為Private的變量只能在某個(gè)指定的過程中使用B、全局變量必須在窗體或標(biāo)準(zhǔn)模塊的通用段中聲明C、模塊級變量只能用Private關(guān)鍵字聲明D、Static類型的變量的作用域是它所在的窗體或模塊文件12、以下說法中正確的是( )。（1分）A、Sub過程不能返回值，而Function過程能返回值B、函數(shù)過程的形參類型與函數(shù)返回值的類型相同C、數(shù)組作為過程的參數(shù)時(shí)，既能以傳值方式傳遞，也能以傳遞至方式傳遞D、Function過程可以有形參，而Sub過程不可以13、在設(shè)計(jì)狀態(tài)，列表中的選項(xiàng)可以通過( )屬性設(shè)置。（1分）A、Li

46、stB、Items.CountC、TextD、Items14、在下列說法中，正確的是( )。（1分）A、在程序運(yùn)行時(shí)，時(shí)鐘控件可以示在窗體上B、在程序運(yùn)行時(shí)單擊某個(gè)單選按鈕，則該單選按鈕的CheckChanged事件一定被觸發(fā)C、在列表框中能夠?qū)㈨?xiàng)目按字母排序從大到小排列D、框架也有Click和DoubleClick事件15、類MyClass的定義中有Private data as string語句，則關(guān)鍵字Private在類的定義中的作用是( )。（1分）A、限定成員變量data只在本模塊內(nèi)部可以使用B、限定成員變量data僅在類MyClass的成員方法中可以訪問C、限定成員變量data僅可

47、在類以及子類的成員方法中可以訪問D、限定類MyClass僅在本模塊中可以使用16、在下列關(guān)于類的定義位置的說法中，錯(cuò)誤的是( )。（1分）A、在標(biāo)準(zhǔn)模塊中可以定義類B、在窗體的代碼窗口中可以定義與Form1并列的類C、在類模塊中可以定義類D、類的定義不能嵌套，即類中不能再定義17、為菜單對象添加快捷鍵的方法是修改其( )屬性。（1分）A、NameB、ShortcutKeysC、TextD、ToolTipText18、為對象指定上下文菜單的方法是修改菜單的( )屬性。（1分）A、AutoToolTipB、DockC、ContextMenuStripD、Locked19、在向文件流寫入數(shù)據(jù)時(shí)，數(shù)據(jù)

48、只是寫入到文件緩沖區(qū)中，只有在緩沖區(qū)滿時(shí)才真正寫入到文件中去，所以寫入數(shù)據(jù)后還應(yīng)調(diào)用( )方法，以便將緩沖區(qū)中的數(shù)據(jù)實(shí)際寫入到文件中去。（1分）A、OpenB、SeekC、PeekD、Flush20、下列( )類的文件流既可以讀也可以寫。（1分）A、StreamReaderB、FileStreamC、StreamWriterD、BinaryWriter二、判斷題（10道小題，共10分）1、對象的所有屬性既可以通過屬性窗口設(shè)置，也可以在程序運(yùn)行時(shí)修改。（1分）正確錯(cuò)誤2、編寫代碼時(shí)，不能出現(xiàn)多個(gè)語句寫在一行上。（1分）正確錯(cuò)誤3、每個(gè)對象都必須有Name屬性。（1分）正確錯(cuò)誤4、窗體顯現(xiàn)時(shí)，最先

49、執(zhí)行的是Load事件過程。（1分）正確錯(cuò)誤5、InputBox函數(shù)的返回值是字符串類型，常需要轉(zhuǎn)換后才能賦值給變量。（1分）正確錯(cuò)誤6、引用數(shù)組元素時(shí),下標(biāo)值應(yīng)在數(shù)組聲明時(shí)所指定的范圍內(nèi)。（1分）正確錯(cuò)誤7、在過程內(nèi)不能再定義過程，但可以調(diào)用其它Sub過程或Function過程。（1分）正確錯(cuò)誤8、復(fù)選框?qū)ο笾饕脕韺?shí)現(xiàn)多選一的操作目的。（1分）正確錯(cuò)誤9、對象和類是一樣的，都是可以直接操作的實(shí)體。（1分）正確錯(cuò)誤10、在打開文件執(zhí)行讀寫后，結(jié)束時(shí)一定要關(guān)閉文件，否則會造成文件損壞。（1分）正確錯(cuò)誤三、填空題（16道小題，共34分）1、如圖 a00-6 所示的數(shù)學(xué)表達(dá)式，寫成 VB.NET表達(dá)

50、式應(yīng)為 (注：使用數(shù)學(xué)函數(shù)時(shí)，可以直接使用函數(shù)名) ?！靖綀D14】（2分）2、如圖 a00-5 所示的數(shù)學(xué)表達(dá)式，寫成 VB.NET表達(dá)式應(yīng)為 (注：使用數(shù)學(xué)函數(shù)時(shí)，可以直接使用函數(shù)名)。【附圖12】（2分）3、如圖 a00-4 所示的數(shù)學(xué)表達(dá)式，寫成 VB.NET表達(dá)式應(yīng)為 。【附圖13】（2分）4、Visual Basic.NET中，所有對象都必須具有屬性。（1分）5、算術(shù)表達(dá)式4+2*322*4的運(yùn)算結(jié)果是。（1分）6、要使標(biāo)簽控件中顯示的文本在垂直方向上居中，而在水平方向上靠右則應(yīng)將其屬性設(shè)置為MiddleRight。（1分）7、For i=3 To 27 Step 2 將循環(huán)次。（1

51、分）8、有如下聲明：Dim stu(4,5) As Single,則該聲明建立一個(gè)有個(gè)元素的數(shù)組。（1分）9、聲明模塊級變量用Private或關(guān)鍵字。（1分）10、程序運(yùn)行過程中，要向列表框ListBox1中添加一項(xiàng)，應(yīng)該使用方法。（1分）11、類的成員包括數(shù)據(jù)成員、事件和方法。（1分）12、若想讓菜單標(biāo)題顯示為“文件(F)”,則應(yīng)把菜單項(xiàng)的Text屬性設(shè)置為。（1分）13、使用FileStream類的方法可將文件流的當(dāng)前位置設(shè)置為指定值。（1分）14、根據(jù)題意，將程序補(bǔ)充完整。通過輸入對話框inputbox輸入一個(gè)年份，利用msgbox判斷其是否是閏年。閏年的年份必須滿足以下兩個(gè)條件之一：（

52、1）能被4整除，但不能被100整除的年份是閏年；（2）能被400整除的年份是閏年。Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.ClickDim y As Integer，p1 As Boolean, p2 As Booleany = p1 = y Mod 4 = 0 And y Mod 100 <> 0p2 = y Mod 400 = 0If ThenElseEnd IfEnd Sub（6分）15、根據(jù)題意，將程序補(bǔ)充完整。

53、將用戶輸入的10個(gè)數(shù)顯示到文本框textbox1中，用比較法按照從大到小排序，將排序后的結(jié)果顯示到文本框textbox2中。Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.ClickDim a(9) As IntegerDim i, j, t As IntegerFor i = 0 To 9a(i) = InputBox("請輸入第" & i + 1 & "個(gè)數(shù)")textbox1.t

54、ext = textbox1.text & a(i) & Space(2)NextFor i = 0 To For j = To 9If Thent = a(i) : a(i) = a(j) : a(j) = tEnd IfNextNextFor i = 0 To 9textbox2.text = textbox2.text & a(i) & Space(2)NextEnd Sub（6分）16、根據(jù)題意，將程序補(bǔ)充完整。編寫一個(gè)函數(shù)過程求包含10個(gè)元素的數(shù)組的最大值。產(chǎn)生一個(gè)由10個(gè)1，100元素組成的數(shù)組，在Button1的click事件中調(diào)用此過程,求出最大值并顯示在文