華南理工大學(xué)高級(jí)語言程序設(shè)計(jì)作業(yè)

《高級(jí)語言程序設(shè)計(jì) (VB.NET)》作業(yè)2014.3教學(xué)中心： 專業(yè)層次：學(xué) 號(hào)： 姓 名：一.判斷題(如正確打√，否則，打×。)NWrite_1和學(xué)校$是正確的變量名。Y3．若一個(gè)整型變量說明了之后沒有給它賦值，則它的值為0判別chyeNIfAsc(ch)>=97AndAsc(ch)<=122ThenWriteLine(“Yes”)ElseWriteLine(“No”)EndIf。輸入結(jié)構(gòu)變量的值就是輸入該變量的各個(gè)元素的值YN事件是由VB.NetYN文件流類FileStreamYVBN二.單項(xiàng)選擇題下列變量名中錯(cuò)誤的(“年齡” 。設(shè)X為整型變不能正確表達(dá)1<X<5的邏輯表達(dá)式(1<X<5 。設(shè)有數(shù)組說明語句c(10)AS則下面表示數(shù)組c的元素選項(xiàng)（c(11) 是錯(cuò)誤的。在過程的形式參數(shù)前面加上關(guān)鍵字（ ByVal，則該參數(shù)說明為引用參數(shù)。 D.設(shè)已定義函數(shù)過程f，它有三個(gè)實(shí)型傳值參數(shù)；設(shè)a,b和c確形式為（fa+b,b+c,c+a。若使命令按鈕不可見，可以設(shè)置Visible屬性的值為（False 。7．要使單選按鈕RadioButton處于選中或未選中狀態(tài)，需由（Checked ）屬性來決定8．要?jiǎng)h除列表框中的某一個(gè)項(xiàng)目，需要使用）方法。9．要設(shè)置計(jì)時(shí)器的時(shí)間間隔可以通過（ InterVal）屬性來實(shí)現(xiàn)。10．下面（StreamWriter ）類用來把數(shù)據(jù)寫入文本文件中。三.簡答題1.在控制臺(tái)應(yīng)用程序中，如何輸入輸出一維數(shù)組的元素?答:輸入一維數(shù)組元素的值可以使用賦值語句，也可以使用Console類的輸入方法Read和ReadLineConsoleWriteWriteLine方法。c%()76,80,75}，則數(shù)組c它們的初值是多少？3．答:數(shù)組c共有3個(gè)元素c(0c(1c(212和3c(0)=7c(1)=80c(2)=75。3（磁盤→內(nèi)存）或?qū)懀▋?nèi)存→磁盤）文件③關(guān)閉文件。四.程序閱讀題當(dāng)x2.5、、415ImportsSystem.ConsoleModuleModule1SubMain()Dimx%,y%x=ReadLine()SelectCasexCase1,3,5y=x-Case6To10y=x+1Case2,4y=2*xCaseIs>10y=x*x+1EndSelectWriteLine("x={0}y={1}",x,EndSubEndModule答案:1．x=2 y=4x=8 y=9x=4 y=8x=15 y=226ImportsSystem.ConsoleModuleSubMain()Dimf(10)Asf(0)=1:f(1)=1Fori=2To10f(i)=f(i-2)+f(i-1)NextiFori=0To10IfInt(i/4)=i/4ThenWriteLine()Write("f({0})={1} ",i,f(i))NextiEndSubEndModulef(0)=1f(1)=1f(2)=2f(3)=3f(4)=5f(5)=8f(6)=13f(7)=21f(8)=34f(9)=55f(10)=89五.程序填空題

2 1 1

求π的近似值，直到最后一項(xiàng)的值小于60.00001為止，在橫線上填上適當(dāng)內(nèi)容。

12 22ImportsSystem.ConsoleImportsSystem.MathModuleModule1SubMain()Dimi&,s#,term#i=1s= 0Doterm=1/(i*i)s= s+termi=i+1LoopWhile term>=0.00001WriteLine(Sqrt(6*EndSubEndModulem!mncnm

n!(mn求組合數(shù)的程序，在橫線上填上適當(dāng)內(nèi)容。ImportsSystem.ConsoleModuleModule1SubMain()Dimm&,n&,cmn#,c1&,c2&,Write("n=")n=ReadLine()Write("m=")m=ReadLine()Callfac(m,c1):Callfac(n,c2):Callfac(m-n,cmn= c1/(c2*c3)WriteLine("cmn={0}",cmn)End