華南理工vbNET作業(yè)

1、高級(jí)語言程序設(shè)計(jì)(VB.NET)作業(yè) 2016.3教學(xué)中心： 東莞羽豐 專業(yè)層次： 高中起點(diǎn)專科 學(xué) 號(hào)：姓 名： 凌運(yùn)楷 一. 判斷題(如正確打，否則，打×。)1源程序中的錯(cuò)誤一般分為編譯錯(cuò)誤、運(yùn)行錯(cuò)誤和邏輯錯(cuò)誤等三種。2. Write_1 和學(xué)校$ 是不正確的變量名。3若一個(gè)整型變量說明了之后沒有給它賦值，則它的值為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)變量的值就是輸入該變量的各個(gè)元素的值。6函數(shù)過程定義中必須有一個(gè)賦值語句把表達(dá)式的值賦給函數(shù)過程名。7. 事件是由VB.Net系統(tǒng)預(yù)先設(shè)置好或者在程序中由編程者自己設(shè)計(jì)的，它能夠被對(duì)象識(shí)別的動(dòng)作。8. 從文件取出一組數(shù)據(jù)以流的方式存放到程序的變量或數(shù)組中稱為向流寫入數(shù)據(jù)。9. 文件流類FileStream用于打開和關(guān)閉文件，并提供對(duì)文件按字節(jié)的讀/寫操作。10.若某個(gè)模塊中以關(guān)鍵字public定義子過程，則只能在該模塊中可以調(diào)用該過程。答案欄： 1 × 2 × 3 4 5 6 × 7 8 × 9 10 × 二. 單項(xiàng)選擇題 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的元素選項(xiàng)中（）是錯(cuò)誤的。A. c(i-1) B. c(5+0.5) C. c(0) D. c(11)3下面不合法的標(biāo)識(shí)符是（ ）。A. o_To B. Integer C. 姓名 D. Int14VB.NET是一種( )程序設(shè)計(jì)語言。A. 面向事件 B. 面向?qū)傩?/p>

4、 C. 面向?qū)ο?D. 面向過程 5. 設(shè)已定義函數(shù)過程f，它有三個(gè)實(shí)型傳值參數(shù)；設(shè)a,b和c為實(shí)型變量，則調(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要?jiǎng)h除列表框中的某一個(gè)項(xiàng)目，需要使用（ ）方法。 A. ClearB. Re

5、MoveC. MoveD. ReMoveItem9要設(shè)置計(jì)時(shí)器的時(shí)間間隔可以通過（ ）屬性來實(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. 在控制臺(tái)應(yīng)用程序中，如何輸入輸出一維數(shù)組的元素?2.下列窗體上有哪些控件?3. 文件操作可

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

7、te("請(qǐng)輸入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)時(shí)間過去，我們忘記了我們?cè)?jīng)義無反顧地愛過一個(gè)人，忘記了他的溫柔，忘記了他為我做的一切。我對(duì)他再?zèng)]有感覺，我不再愛他了。為甚么會(huì)這樣？原來我們的愛情敗給了歲月。首先是愛情使你忘記時(shí)間，然后是時(shí)間使你忘記愛情。4、張小嫻說：思念一個(gè)人，不必天天見，不必互相擁有或相互毀滅，不是朝思暮想，而是一天總想起他幾次。聽不到他的聲音時(shí)，會(huì)擔(dān)心他。一個(gè)人在外地時(shí)，會(huì)想念和他一起

13、的時(shí)光。5、張小嫻說：愛情，原來是含笑飲毒酒。6、張小嫻說：不被人珍視的愛情，就只是個(gè)羞恥的笑話。7、張小嫻說：寂寞的人，感冒會(huì)拖得特別的久，因?yàn)樗约阂膊幌肴?、張小嫻：女人放棄一個(gè)跟不上她的男人，是有志氣。男人放棄一個(gè)跟不上他的女人，則是無義。9、張小嫻說：清醒一點(diǎn)吧，世上沒有未完的事，只有未死的心。10、張小嫻說：遺憾，也是一種幸福。因?yàn)檫€有令你遺憾的事情。11、張小嫻說：失望，有時(shí)候也是一種幸福。因?yàn)橛兴诖圆艜?huì)失望。因?yàn)橛袗?，才?huì)有期待。所以縱使失望也是一種幸福，雖然這種幸福有點(diǎn)痛。12、張小嫻說：突然覺得很委屈。我對(duì)你微笑，轉(zhuǎn)身的剎那，終于難過成你不知道的樣子。13、張小

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

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

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