大學(xué)08-09VB期末試卷及答案.doc

東莞理工學(xué)院（本科）試卷（A卷）20082009 學(xué)年第二學(xué)期高級(jí)語言程序設(shè)計(jì)試卷開課單位：計(jì)算機(jī)學(xué)院， 考試形式：閉卷，允許帶 入場(chǎng)注意：所有答案均寫在答題卡上，做在試卷上無效！一、單項(xiàng)選擇題（每小題2分，共60分）1.VB6.0是一種面向_的編程環(huán)境。（A）對(duì)象 （B）過程 （C）機(jī)器 （D）應(yīng)用2在程序代碼text1.text=Visual Basic中，text1、text和Visual Basic分別代表_。（A）對(duì)象、值、屬性 （B）對(duì)象、方法、屬性（C）對(duì)象、屬性、值 （D）屬性、對(duì)象、值3要判斷在文本框中是否按下Enter鍵，應(yīng)在文本框的_事件中判斷。（A）Click （B）LostFocus （C）KeyPress （D）GotFocus4.下面_是合法的雙精度變量。（A）num! （B）sum% （C）ABC （D）mm#5.在一個(gè)語句行內(nèi)寫多條語句或?qū)⒁粋€(gè)語句分成多行書寫，需要使用語句分隔符和續(xù)行符，它們分別使用 符號(hào)。（A） ：和， （B） ：和_ （C） _和： （D） _和，6.已知A$=“12345678”，則表達(dá)式Val(Left$(A$,4)+Mid$(A$,4,2)的值是_ _。（A）123456 （B）123445 （C）1279 （D）1235467.表達(dá)式16/4-25*8/4 MOD 5 2的值為_ _。（A）14 （B）4 （C）20 （D）28語句If x=1 Then y=1,下列說法正確的是_。（A）x=1和y=1均為賦值語句（B）x=1和y=1均為關(guān)系表達(dá)式（C）x=1為關(guān)系表達(dá)式，y=1為賦值語句（D）x=1為賦值語句，y=1為關(guān)系表達(dá)式9執(zhí)行如下程序，輸出的結(jié)果是_。 Dim x%, y%, s%x = -5 : s = int(rnd)+5Select Case s Case Is 5 y = x + 1 Case Is =5 y = x + 2 Case Else y = x + 3 End Select Print x, y（A）-5 -3 （B）-5 -4 （C）-5 -2 （D）-5 -510下列程序段運(yùn)行結(jié)果為_。Private Sub Form_Click() For i=1 to 5 step 2 Print Tab(10-i); Print String(i,right(Str(i),1) Next iEnd Sub（A） 1 （B）1 （C） 1 （D）55555333 333 333 33355555 55555 55555 111在窗體上畫一個(gè)命令按鈕，然后編寫如下事件過程:Private Sub Command1_Click()Doa=val(InputBox(A的值)b=val(InputBox(B的值)x=val(InputBox(x的值)a=a+b+xLoop while x=0Print a,b,x End Sub運(yùn)行程序，單擊命令按鈕，依次輸入20、10、5、20、10、-10，則輸出結(jié)果為_。（A）20 10 -10 （B）35 10 -10 （C）30 10 -10 （D）55 10 -1012下面程序計(jì)算的數(shù)學(xué)式是_。T=1 : S=0For I=1 to 19 step 2 T=T*IS=S+T Next I Print S（A）1+3+5+.+19 （B）1!+3!+5!+.+19!（C）1*3*5*.*19 （D）1+1*3+1*3*5+.+1*3*5*.1913如下數(shù)組聲明語句中，數(shù)組a包含元素的個(gè)數(shù)為_。Option Base 1Dim a(3,4,5) As Integer（A）120（B）75（C）60（D）1314執(zhí)行下列程序的結(jié)果是_。Private Sub Command1_Click()Dim aA=array(1,2,3,4,5,6,7)For i=Lbound(a) To Ubound(a) a(i)=a(i)*a(i)Next iPrint a(i)End Sub（A）49 （B）10 （C）100 （D）數(shù)組下標(biāo)越界15下面程序段運(yùn)行后輸出的結(jié)果為_。Dim x(),k%,m%x=Array(1, 2, 3, 4, 5) : m=x(1)For k = 1 To 4If x(k) m Then m = x(k)Next kx(2)= mFor k = 0 To 4Print x(k);Next k （A）1 2 3 4 5 （B）5 4 3 2 1 （C）1 2 5 4 5 （D）1 2 1 4 516在過程中定義的變量，若希望在離開該過程后，還能保存過程中局部變量的值，則應(yīng)使用_關(guān)鍵字在過程中定義局部變量。（A）Dim（B）Private（C）Public（D）Static17要想從子過程調(diào)用后返回兩個(gè)參數(shù)的值，下面子過程語句滿足要求的是_。 （A）Sub f(a%,Byval b%) （B）Sub f(ByVal a%,Byval b%)（C）Sub f(a%,b%) （D）Sub f(Byval a%,b%) 18.下列過程運(yùn)行后顯示的結(jié)果是_。Public Sub F1(n%,ByVal m%) Private Sub Command1_Click() n=n Mod 10 Dim x%,y% m=m 10 x=12 : y=34End Sub Call F1(x,y) Print x,y End Sub（A）2 34（B）12 34（C）2 3（D）12 319復(fù)選框Value屬性為1時(shí)，表示 。（A）復(fù)選框未被選中（B）復(fù)選框被選中（C）復(fù)選框內(nèi)有灰色的勾（D）復(fù)選框操作有錯(cuò)誤20引用列表框（List1）最后一個(gè)數(shù)據(jù)項(xiàng)應(yīng)使用_。（A）List1. List(List1. ListCount)（B）List1. List(List1. ListCount-1)（C）List1. List(ListCount)（D）List1. List( ListCount-1)21假定定時(shí)器的Interval屬性為1000，Enabled屬性為True，調(diào)用下面的事件過程，程序運(yùn)行結(jié)束后變量x的值為 。Dim x As IntegerSub Timer1_Timer() For i=1 to 10 x=x+1 Next iEnd Sub（A）1000（B）10000（C）10（D）以上都不對(duì)22在窗體上畫一個(gè)列表框和一個(gè)文本框，然后編寫如下兩個(gè)事件過程：Private Sub Form_Load () Private Sub List1_ DblClick ( )List1.AddItem357 a =List1.TextList1.AddItem246 Print a+Text1.TextList1.AddItem123 End SubList1.AddItem456 Text1.Text= End Sub 運(yùn)行程序，在文本框中輸入789，然后雙擊列表框中的456，則輸出結(jié)果為_。（A）456789 （B）789456 （C）1245 （D）023菜單系統(tǒng)中的每一個(gè)菜單項(xiàng)相當(dāng)于一個(gè)控件，能觸發(fā)的事件有_。（A）MouseDown和Click （B）Click和DblClick （C）MouseDown （D）Click24下列關(guān)于通用對(duì)話框的操作語句中，正確的是_。（A）CommonDialog1.Filter=All Files|*.*|Picture(*.Bmp)|*.Bmp（B）CommonDialog1.Filter=“All Files”|“”*.*”|“Picture(*.Bmp)”|“*.Bmp”（C）CommonDialog1.Filter=“All Files|*.*|Picture(*.Bmp)|*.Bmp”（D）CommonDialog1.Filter=All Files|*.*|Picture(*.Bmp)|*.Bmp25工程中含有兩個(gè)窗體Form1、Form2，如果Forml是啟動(dòng)窗體，并且Forml的Load事件過程中有語句Form2.Show，則程序啟動(dòng)后_。（A）發(fā)生一個(gè)運(yùn)行時(shí)的錯(cuò)誤。 （B）發(fā)生一個(gè)編譯錯(cuò)誤。（C）在所有的初始化代碼運(yùn)行后Form1是活動(dòng)窗體。（D）在所有的初始化代碼運(yùn)行后Form2是活動(dòng)窗體。26在程序代碼中將圖片文件pic.jpg裝入圖片框Picture1的語句是_。（A）Picture1.picture=pic.jpg （B）Picture1.picture=LoadPicture(pic.jpg)（C）Picture1.image=pic.jpg （D）LoadPicture(pic.jpg)27要使時(shí)鐘控件每隔一定時(shí)間觸發(fā)Timer事件，必須對(duì)時(shí)鐘控件做 的設(shè)置。（A）Interval為非零，Enablerd為True （B）Interval為非零，Enablerd為False（C）Interval為零，Enablerd為True （D）Interval為零，Enablerd為False28下列語句中（假定變量n有值），能正確聲明可調(diào)數(shù)組的是_。（A）Dim a() As Integer（B）Dim a() As Integer ReDim a(n) ReDim a(n) As String（C）Dim a() As String（D）Dim a(10) As Integer ReDim a(n) As Integer ReDim a(n+10)29要從磁盤上讀入一個(gè)文件名為“c:t1.txt”的順序文件，下列_是正確。（A）F=“c:t1.txt” （B）F=“c:t1.txt” Open F For Output As #1 Open “F” For Output As #1（C）F=“c:t1.txt” （D）F=“c:t1.txt” Open F For Input As #1 Open “F” For Input As #130設(shè)有如下類型聲明：Type Person Name As String * 8 Major As String * 20 End Type 要將該類型的某個(gè)變量p的值寫入一個(gè)隨機(jī)文件D:Test4.dat中，能正確把數(shù)據(jù)寫入該隨機(jī)文件的程序段是_。 （A）Open D:Test4.dat For Random As #1 : Put #1, 1, p : Close #1 （B）Open D:Test4.dat For Random As #1 : Get #1, 1, p : Close #1（C）Open D:Test4.dat For Random As #1 Len=Len(p) : Get #1, 1, p : Close #1（D）Open D:Test4.dat For Random As #1 Len=Len(p) : Put #1, 1, p : Close #1 二、填空題（每空2分，共20分）1在Visual Basic中，算術(shù)運(yùn)算符、/、Mod和*中優(yōu)先級(jí)別最低的是_。2VB表達(dá)式Len(“123程序設(shè)計(jì)ABC”)的值是_。3將任意一個(gè)兩位正整數(shù)x的個(gè)位數(shù)與十位數(shù)對(duì)換的表達(dá)式是_。4要在過程體內(nèi)對(duì)形參數(shù)組進(jìn)行操作，需要確定數(shù)組的下界和上界，應(yīng)使用_函數(shù)確定數(shù)組的下界。5如果要使計(jì)時(shí)器控件每隔10秒鐘觸發(fā)一次Timer事件，則應(yīng)將計(jì)時(shí)器控件的Interval屬性設(shè)置為_。6下面程序運(yùn)行后輸出的結(jié)果是_。Private Sub Command1_Click()Dim x As Integer, y As Integerx=int(Rnd)+3if x28 then y=x2+1if x2=9 then y=x2-2if x28 then y=x3print yEnd Sub7下列程序的功能是找出被3、5除，余數(shù)均為1的最小的5個(gè)正整數(shù)。Private Sub Command1_Click()Dim CountN%, n%CountN=0 : n=1Do n=n+1if n Mod 3=1 And n Mod 5=1 then print n CountN=CountN+1 End ifLoop while _End Sub8隨機(jī)產(chǎn)生位學(xué)生成績（范圍0,100間的隨機(jī)整數(shù)）并存放在數(shù)組a中，以每分輸出一個(gè)“*”，并在“*”后面顯示學(xué)生的分?jǐn)?shù)。Private Sub Command1_Click()Dim a(1 To 6) As Integer, i As IntegerFor i = 1 To 6a(i) =int(rnd*101)Print _, a(i)Next iEnd Sub9下列程序的功能是利用輾轉(zhuǎn)相減法求兩個(gè)正整數(shù)m和n的最大公約數(shù)和最小公倍數(shù)，閱讀程序并填空。Public Function f(ByVal m%, ByVal n%)Do While mnif mn then m=m-nElse n=n-mend ifLoop_End FunctionPrivate Sub Command1_Click( )Dim x%, y%, a%, b%x=val(InputBox(“請(qǐng)輸入第一個(gè)正整數(shù)”)y= val(InputBox(“請(qǐng)輸入第二個(gè)正整數(shù)”)a=f(x,y)b=_Print “最大公約數(shù)=”;a, “最小公倍數(shù)=”;bEnd Sub三、編程題（每小題5分，共20分）1編寫Command1_Click事件過程，從鍵盤輸入三角形三條邊的值，判斷能否構(gòu)成三角形。若能構(gòu)成三角形，則顯示輸出三角形的性質(zhì)：直角三角形和非直角三角形。若不能構(gòu)成三角形，則顯示輸出“不能構(gòu)成三角形”。2編寫Command1_Click事件過程，求Sn=a+aa+aaa+aaaa+aaaaa（n個(gè)a），其中a是閉區(qū)間1，9內(nèi)的一個(gè)隨機(jī)整數(shù)，n是閉區(qū)間5，10內(nèi)的一個(gè)隨機(jī)整數(shù)。3在文本框（Text1）中輸入一串字符，單擊“統(tǒng)計(jì)”命令按鈕（Command1），統(tǒng)計(jì)各字母出現(xiàn)的次數(shù)（不區(qū)分大小寫字母），并在圖形框Picture1中顯示統(tǒng)計(jì)結(jié)果，運(yùn)行效果如下圖。試編寫Command1_Click事件過程。4編寫函數(shù)過程IsH(n)，對(duì)于已知正整數(shù)n，判定該數(shù)是否是回文數(shù)，函數(shù)的返回值類型為布爾型。主調(diào)程序調(diào)用IsH(n)函數(shù)過程求出所有的五位回文數(shù)并顯示出來。所謂“回文數(shù)”是指該數(shù)的順序和逆序是同一個(gè)數(shù)。例如：12321就是一個(gè)回文數(shù)。東莞理工學(xué)院（本科）試卷（A卷）20082009 學(xué)年第二學(xué)期高級(jí)語言程序設(shè)計(jì)參考答案開課單位：計(jì)算機(jī)學(xué)院，考試形式：閉卷，允許帶 入場(chǎng)一、單項(xiàng)選擇題（每小題2分，共60分）110ACCDBBBCAA1120ADCDCDCABB2130DADCCBAACD二、填空題（每空2分，共20分）1Mod2103(x Mod 10)*10+x104Lbound510000677CountN c And b + c a And a + c b Then If a2+b2=c2 Or a2+c2=b2 Or b2+c2=a2 Then Print a,b,c,構(gòu)成直角三角形！ Else Print a,b,c,構(gòu)成非直角三角形！ End If Else Print a,b,c,不能構(gòu)成三角形！