華南理工vbNET作業(yè)

1、高級語言程序設(shè)計(VB.NET)作業(yè) 2016.3教學(xué)中心： 東莞羽豐 專業(yè)層次： 高中起點?？?學(xué) 號：姓 名： 凌運楷 一. 判斷題(如正確打，否則，打×。)1源程序中的錯誤一般分為編譯錯誤、運行錯誤和邏輯錯誤等三種。2. Write_1 和學(xué)校$ 是不正確的變量名。3若一個整型變量說明了之后沒有給它賦值，則它的值為0。4判別ch是否為小寫字母，若是，輸出“yes”；否則，輸出“No”的塊結(jié)構(gòu)條件語句為:If Asc(ch)>=97 And Asc(ch)<=122 Then WriteLine (“Yes”)Else WriteLine(“No”)End If5.

2、輸入結(jié)構(gòu)變量的值就是輸入該變量的各個元素的值。6函數(shù)過程定義中必須有一個賦值語句把表達(dá)式的值賦給函數(shù)過程名。7. 事件是由VB.Net系統(tǒng)預(yù)先設(shè)置好或者在程序中由編程者自己設(shè)計的，它能夠被對象識別的動作。8. 從文件取出一組數(shù)據(jù)以流的方式存放到程序的變量或數(shù)組中稱為向流寫入數(shù)據(jù)。9. 文件流類FileStream用于打開和關(guān)閉文件，并提供對文件按字節(jié)的讀/寫操作。10.若某個模塊中以關(guān)鍵字public定義子過程，則只能在該模塊中可以調(diào)用該過程。答案欄： 1 × 2 × 3 4 5 6 × 7 8 × 9 10 × 二. 單項選擇題 1設(shè)X為整型

3、變量,不能正確表達(dá)1< X < 5的邏輯表達(dá)式是( )。A. 1< X <5 B. X=2 or X=3 or X=4C. 1<X And X <5 D. Not (X<=1) And Not (X>=5)2設(shè)有數(shù)組說明語句：Dim c( 10) AS Integer，則下面表示數(shù)組c的元素選項中（）是錯誤的。A. c(i-1) B. c(5+0.5) C. c(0) D. c(11)3下面不合法的標(biāo)識符是（ ）。A. o_To B. Integer C. 姓名 D. Int14VB.NET是一種( )程序設(shè)計語言。A. 面向事件 B. 面向?qū)傩?/p>

4、 C. 面向?qū)ο?D. 面向過程 5. 設(shè)已定義函數(shù)過程f，它有三個實型傳值參數(shù)；設(shè)a,b和c為實型變量，則調(diào)用該函數(shù)的正確形式為（ ）。A. f B. f( a+b, b+c )C. f ( a+b, b+c ,c+a ) D. f a+b, b+c, c+a6 若使命令按鈕可見，可以設(shè)置Visible屬性的值為（ ）。A. FalseB. True C. T D. F7要使單選按鈕RadioButton處于選中或未選中狀態(tài)，需由（ ）屬性來決定。A. Show B. List C. Text D. Checked8要刪除列表框中的某一個項目，需要使用（ ）方法。 A. ClearB. Re

5、MoveC. MoveD. ReMoveItem9要設(shè)置計時器的時間間隔可以通過（ ）屬性來實現(xiàn)。 A. ValueB. TextC. MinimumD. InterVal10下面（ ）類用來把數(shù)據(jù)寫入文本文件中。 A. StreamWriter B. BinaryWriter C. StreamReader D. BinaryReader答案欄： 1. _A_ 2. _D_3. _ C_ 4. _ C_5. _ D_6. _ A_7. _ D_8. _ D_9. _ D_10. _A_ 三.簡答題1. 在控制臺應(yīng)用程序中，如何輸入輸出一維數(shù)組的元素?2.下列窗體上有哪些控件?3. 文件操作可

6、以分為哪些步驟?答案欄： 1. 答:輸入一維數(shù)組元素的值可以使用賦值語句，也可以使用Console類的輸入方法Read和ReadLine從鍵盤輸入數(shù)據(jù)。輸出一維數(shù)組元素的值可以使用Console類的Write方法和WriteLine方法。 2. 答：文本框與按鈕組件3. 答:無論是哪一種類型的文件，文件操作可以分為3個基本步驟：打開文件 讀（磁盤內(nèi)存）或?qū)懀▋?nèi)存磁盤）文件 關(guān)閉文件。四.程序閱讀題 1當(dāng)x的輸入值分別為2.5、8、4和15時，寫出執(zhí)行下列程序的輸出結(jié)果。Imports System.Console Module Module1 Sub Main() Dim x%, y% Wri

7、te("請輸入x的值:") x = ReadLine() Select Case x Case 1, 3, 5 y = x - 1 Case 6 To 10 y = x + 1 Case 2, 4 y = 2 * x Case Is > 10 y = x * x + 1 End Select WriteLine("x=0 y=1 ", x, y) End Sub End Module2.寫出執(zhí)行下列程序的輸出結(jié)果。Imports System.ConsoleModule Module1 Sub Main() Dim f(7) As Integer

8、f(0) = 1 : f(1) = 1 For i = 2 To 7 f(i) = f(i-2) + f(i-1) Next i For i = 0 To 7 If Int(i/4)=i/4 Then WriteLine() Write("f(0)=1 ", i, f(i) Next i End SubEnd Module答案欄： 1 答案: x=2 y=4x=8 y=9x=4 y=8x=15 y=226 2 答案:Imports System.ConsoleModule Module1 Sub Main() Dim f(10) As Integer f(0) = 1 :

9、f(1) = 1 For i = 2 To 10 f(i) = f(i-2) + f(i-1) Next i For i = 0 To 10 If Int(i/4)=i/4 Then WriteLine() Write("f(0)=1 ", i, f(i) Next i End SubEnd Modulef(0)=1 f(1)=1 f(2)=2 f(3)=3 f(4)=5 f(5)=8 f(6)=13 f(7)=21 f(8)=34 f(9)=55 f(10)=89 五.程序填空題 1. 下面程序的功能是：求的值，在橫線上填上適當(dāng)內(nèi)容。 Imports System.Con

10、soleModule Module1 Sub Main() Dim i, n%, s! Write("n=") n = (1) i = 1 : s = (2) While i <= n s = s + (3) i = i + 1 End While WriteLine("s=0", s) End SubEnd Module2. 下面程序的功能是輸入m和n的值，并按公式：求組合數(shù)的程序，在橫線上填上適當(dāng)內(nèi)容。Imports System.ConsoleModule Module1 Sub Main() Dim m&, n&, cmn#

11、, c1&, c2&, c3& Write("n=") n = ReadLine() Write("m=") m = ReadLine() Call fac(m, c1) : Call fac(n, c2) : Call fac(m - n, c3) cmn = (4) WriteLine("cmn=0 ", cmn) End Sub Private Sub fac(ByVal k&, ByRef f&) Dim t&, i& t = (5) For i = 1 To k t =

12、 t * i Next i (6) End SubEnd Module答案欄： （1） inputbox”s” （2） 0 （3） s+1/(i2) （4） c1 / (c2 * c3) （5） 1 （6） f = t 3、張小嫻說：當(dāng)時間過去，我們忘記了我們曾經(jīng)義無反顧地愛過一個人，忘記了他的溫柔，忘記了他為我做的一切。我對他再沒有感覺，我不再愛他了。為甚么會這樣？原來我們的愛情敗給了歲月。首先是愛情使你忘記時間，然后是時間使你忘記愛情。4、張小嫻說：思念一個人，不必天天見，不必互相擁有或相互毀滅，不是朝思暮想，而是一天總想起他幾次。聽不到他的聲音時，會擔(dān)心他。一個人在外地時，會想念和他一起

13、的時光。5、張小嫻說：愛情，原來是含笑飲毒酒。6、張小嫻說：不被人珍視的愛情，就只是個羞恥的笑話。7、張小嫻說：寂寞的人，感冒會拖得特別的久，因為她自己也不想痊愈。8、張小嫻：女人放棄一個跟不上她的男人，是有志氣。男人放棄一個跟不上他的女人，則是無義。9、張小嫻說：清醒一點吧，世上沒有未完的事，只有未死的心。10、張小嫻說：遺憾，也是一種幸福。因為還有令你遺憾的事情。11、張小嫻說：失望，有時候也是一種幸福。因為有所期待，所以才會失望。因為有愛，才會有期待。所以縱使失望也是一種幸福，雖然這種幸福有點痛。12、張小嫻說：突然覺得很委屈。我對你微笑，轉(zhuǎn)身的剎那，終于難過成你不知道的樣子。13、張小

14、嫻說：做一個誠實的孩子。喜歡一個人，不到一定程度，不要輕易去說喜歡。因為你的一句輕浮的話，很可能悲傷另一個人一段時光。也有的，將會是，一生。14、張小嫻說：如果沒有很大把握，又或者沒有堅定地信念，請不要說太長久的承諾。相愛時叫承諾，不愛的時候呢？也不是謊言吧。畢竟愛著的時候就算說了地久天長，相信也是出自真心。只不過后來的離開，不是自己能把握的。15、張小嫻說：如果愛的足夠深，又或者是用情深的人，那個曾經(jīng)傷害過TA的人有天肯回頭了，TA還是會很沒骨氣很沒出息地接受。因為愛，因為忘不了。16、張小嫻說：愛情結(jié)束后，請選擇“沉默”.你可以喊三兩最好的朋友去K歌，使勁吼，就唱那首“其實不想走，其實我想

15、留”,然后在某個時間點突然嚎啕大哭。就算你是男生，也沒什么丟人的，不難過只能說你沒有真心愛過。17、張小嫻說：不要在愛情結(jié)束后，把那個你曾經(jīng)愛過的人到處指責(zé)，將TA說的一無是處。沒必要的，既然留不住心，不如留下那份感情的純潔度，蒙了塵，也就減損了回憶的價值。18、張小嫻說：你以為不可失去的人，原來并非不可失去，你流干了眼淚，自有另一個人逗你歡笑，你傷心欲絕，然后發(fā)現(xiàn)不愛你的人，根本不值得你為之傷心，今天回首，何嘗不是一個喜劇？情盡時，自有另一番新境界，所有的悲哀也不過是歷史。19、張小嫻說：愛情總是想象比現(xiàn)實美麗，相逢如是，告別亦如是。我們以為愛得很深、很深，來日歲月，會讓你知道，它不過很淺、

16、很淺。最深最重的愛，必須和時日一起成長。20、張小嫻說：開始的開始總是甜蜜的后來就有了厭倦、習(xí)慣、背棄、寂寞、絕望和冷笑曾經(jīng)渴望與一個人長相廝守，后來，多么慶幸自己離開了曾幾何時，在一段短暫的時光里，我們以為自己深深的愛著的一個人。后來，我們才知道那不是愛，那只是對自己說謊。21、張小嫻說：時間會讓你了解愛情，時間能夠證明愛情，也能夠把愛推翻。沒有一種悲傷是不能被時間減輕的。如果時間不可以令你忘記那些不該記住的人，我們失去的歲月又有什么意義？如果所有的悲哀、痛苦、失敗都是假的，那該多好？可惜，世上有很多假情假義，自己的痛苦、失敗、悲哀，卻偏偏總是真的。22、張小嫻說：一個錢幣最美麗的狀態(tài)，不是靜止，而是當(dāng)它像陀螺一樣轉(zhuǎn)動的時候，沒人知道，即將轉(zhuǎn)出來的那一面，是快樂或痛苦，是愛還是恨?？鞓泛屯纯?，愛和恨，總是不停糾纏。所謂緣分，也和發(fā)明一樣吧，都是源于偶然。愛情也是一種發(fā)明，需要不斷改良。只是，這種發(fā)明跟其他發(fā)明不一樣，它沒有專利權(quán)，隨時會給人搶走。23、張小嫻說：在最有感覺的時候，她沒有停下腳步，那么，也不必在一起走完那段路之后，回頭去尋找那些散落在地上的感覺，路已經(jīng)走完。愛情中最傷感的時刻是后期的