東莞理工學院（本科）試卷（A卷）20082009 學年第二學期高級語言程序設計試卷開課單位：計算機學院， 考試形式：閉卷，允許帶 入場注意：所有答案均寫在答題卡上，做在試卷上無效！一、單項選擇題（每小題2分，共60分）1.VB6.0是一種面向_的編程環境。（A）對象 （B）過程 （C）機器 （D）應用2在程序代碼text1.text=Visual Basic中，text1、text和Visual Basic分別代表_。（A）對象、值、屬性 （B）對象、方法、屬性（C）對象、屬性、值 （D）屬性、對象、值3要判斷在文本框中是否按下Enter鍵，應在文本框的_事件中判斷。（A）Click （B）LostFocus （C）KeyPress （D）GotFocus4.下面_是合法的雙精度變量。（A）num! （B）sum% （C）ABC （D）mm#5.在一個語句行內寫多條語句或將一個語句分成多行書寫，需要使用語句分隔符和續行符，它們分別使用 符號。（A） ：和， （B） ：和_ （C） _和： （D） _和，6.已知A$=“12345678”，則表達式Val(Left$(A$,4)+Mid$(A$,4,2)的值是_ _。（A）123456 （B）123445 （C）1279 （D）1235467.表達式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均為關系表達式（C）x=1為關系表達式，y=1為賦值語句（D）x=1為賦值語句，y=1為關系表達式9執行如下程序，輸出的結果是_。 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下列程序段運行結果為_。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在窗體上畫一個命令按鈕，然后編寫如下事件過程: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運行程序，單擊命令按鈕，依次輸入20、10、5、20、10、-10，則輸出結果為_。（A）20 10 -10 （B）35 10 -10 （C）30 10 -10 （D）55 10 -1012下面程序計算的數學式是_。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如下數組聲明語句中，數組a包含元素的個數為_。Option Base 1Dim a(3,4,5) As Integer（A）120（B）75（C）60（D）1314執行下列程序的結果是_。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）數組下標越界15下面程序段運行后輸出的結果為_。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在過程中定義的變量，若希望在離開該過程后，還能保存過程中局部變量的值，則應使用_關鍵字在過程中定義局部變量。（A）Dim（B）Private（C）Public（D）Static17要想從子過程調用后返回兩個參數的值，下面子過程語句滿足要求的是_。 （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.下列過程運行后顯示的結果是_。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復選框Value屬性為1時，表示 。（A）復選框未被選中（B）復選框被選中（C）復選框內有灰色的勾（D）復選框操作有錯誤20引用列表框（List1）最后一個數據項應使用_。（A）List1. List(List1. ListCount)（B）List1. List(List1. ListCount-1)（C）List1. List(ListCount)（D）List1. List( ListCount-1)21假定定時器的Interval屬性為1000，Enabled屬性為True，調用下面的事件過程，程序運行結束后變量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）以上都不對22在窗體上畫一個列表框和一個文本框，然后編寫如下兩個事件過程：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 運行程序，在文本框中輸入789，然后雙擊列表框中的456，則輸出結果為_。（A）456789 （B）789456 （C）1245 （D）023菜單系統中的每一個菜單項相當于一個控件，能觸發的事件有_。（A）MouseDown和Click （B）Click和DblClick （C）MouseDown （D）Click24下列關于通用對話框的操作語句中，正確的是_。（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工程中含有兩個窗體Form1、Form2，如果Forml是啟動窗體，并且Forml的Load事件過程中有語句Form2.Show，則程序啟動后_。（A）發生一個運行時的錯誤。 （B）發生一個編譯錯誤。（C）在所有的初始化代碼運行后Form1是活動窗體。（D）在所有的初始化代碼運行后Form2是活動窗體。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要使時鐘控件每隔一定時間觸發Timer事件，必須對時鐘控件做 的設置。（A）Interval為非零，Enablerd為True （B）Interval為非零，Enablerd為False（C）Interval為零，Enablerd為True （D）Interval為零，Enablerd為False28下列語句中（假定變量n有值），能正確聲明可調數組的是_。（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要從磁盤上讀入一個文件名為“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設有如下類型聲明：Type Person Name As String * 8 Major As String * 20 End Type 要將該類型的某個變量p的值寫入一個隨機文件D:Test4.dat中，能正確把數據寫入該隨機文件的程序段是_。 （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中，算術運算符、/、Mod和*中優先級別最低的是_。2VB表達式Len(“123程序設計ABC”)的值是_。3將任意一個兩位正整數x的個位數與十位數對換的表達式是_。4要在過程體內對形參數組進行操作，需要確定數組的下界和上界，應使用_函數確定數組的下界。5如果要使計時器控件每隔10秒鐘觸發一次Timer事件，則應將計時器控件的Interval屬性設置為_。6下面程序運行后輸出的結果是_。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除，余數均為1的最小的5個正整數。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隨機產生位學生成績（范圍0,100間的隨機整數）并存放在數組a中，以每分輸出一個“*”，并在“*”后面顯示學生的分數。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下列程序的功能是利用輾轉相減法求兩個正整數m和n的最大公約數和最小公倍數，閱讀程序并填空。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(“請輸入第一個正整數”)y= val(InputBox(“請輸入第二個正整數”)a=f(x,y)b=_Print “最大公約數=”;a, “最小公倍數=”;bEnd Sub三、編程題（每小題5分，共20分）1編寫Command1_Click事件過程，從鍵盤輸入三角形三條邊的值，判斷能否構成三角形。若能構成三角形，則顯示輸出三角形的性質：直角三角形和非直角三角形。若不能構成三角形，則顯示輸出“不能構成三角形”。2編寫Command1_Click事件過程，求Sn=a+aa+aaa+aaaa+aaaaa（n個a），其中a是閉區間1，9內的一個隨機整數，n是閉區間5，10內的一個隨機整數。3在文本框（Text1）中輸入一串字符，單擊“統計”命令按鈕（Command1），統計各字母出現的次數（不區分大小寫字母），并在圖形框Picture1中顯示統計結果，運行效果如下圖。試編寫Command1_Click事件過程。4編寫函數過程IsH(n)，對于已知正整數n，判定該數是否是回文數，函數的返回值類型為布爾型。主調程序調用IsH(n)函數過程求出所有的五位回文數并顯示出來。所謂“回文數”是指該數的順序和逆序是同一個數。例如：12321就是一個回文數。東莞理工學院（本科）試卷（A卷）20082009 學年第二學期高級語言程序設計參考答案開課單位：計算機學院，考試形式：閉卷，允許帶 入場一、單項選擇題（每小題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,構成直角三角形！ Else Print a,b,c,構成非直角三角形！ End If Else Print a,b,c,不能構成三角形！