[其它考試]2009年3月20xx年9月計算機二級歷年vb考試真題及答案-資料下載頁

　　

【正文】 e） Print X,Y End Sub B ） Private Sub P1_MouseDown（ Button AS Integer,Shift As Integer,X As Single, Y As Single） X,Y End Sub C ） Private Sub P1_MouseMove（ Button AS Integer,Shift As Integer,X As Single, Y As Single） X,Y End Sub D ） Private Sub Form_MouseMove（ Button AS Integer,Shift As Integer,X As Single, Y As Single） X,Y End Sub （ 26）計算二的近似值 的一個公式是。 某人編寫下面的程序用此公式計算并輸出π的近似值： Private Sub Comand1_Click（） PI＝ 1 Sign＝ 1 n=20220 For k=3 To n 49 Sign=Sign/k PI=PI+Sign/k Next k Print PI*4 End Sub 運行后發現結果為 ，顯然，程序需要修改。下面修改方案中正確的是 A）把 For k=3 To n 改為 For k=1 To n B）把 n=20220 改為 n=20220000 C）把 For k=3 To n 改為 For k=3 To n Step 2 D）把 PI=1 改為 PI=0 （ 27）下面程序計算并輸出的是 Private Sub Comand1_Click（） a=10 s=0 Do s=s+a*a*a a=a1 Loop Until a=0 Print s End Sub A） 13+23+33+… +103 的值 50 B） 10!+… +3!+2!+1!的值 C）（ 1+2+3+… +10） 3 的值 D） 10 個 103 的和 （ 28）若在窗體模塊的聲明部分聲明了如下自定義類型和數組 Private Type rec Code As Integer Caption As String End Type Dim arr（ 5） As rec 則下面的輸出語句中正確的是 A） Print (2),(2) B） Print , C） Print arr(2).Code,arr(2).Caption D） Print Code(2),Caption(2) （ 29）設窗體上有一個通用對話框控件 CD1，希望在執行下面程序時，打開如圖所示的文件對話框 Private Sub Comand1_Click（） =打開文件 =C:\ =所有文件 |*.*|Word 文檔 |*.doc|文本文件 |*.Txt = =1 51 If =Then Print未打開文件 Else Print要打開文件 amp。 End If End Sub 但實際顯示的對話框中列出了 C:\下的所有文件和文件夾，“文件類型”一欄中顯示的是“所有文件”。下面的修改方案中正確的是 A）把 =1 改為 =2 B）把“ =”后面字符串 中的“所有文件”改為“文本文件” C）在語句 =1 的前面添加： =3 D）把 =改為 =文本文件 （ 30）下面程序運行時，若輸入 395，則輸出結果是 Private Sub Comand1_Click（） Dim x% x=InputBox(請輸入一個 3 位整數 ) Print x Mod 10,x\100,(x Mod 100)\10 End Sub A） 3 9 5 B） 5 3 9 C） 5 9 3 52 D） 3 5 9 （ 31）窗體上有 List List2 兩個列表框， List1 中有若干列表項（見圖），并有下面的程序： Private Sub Comand1_Click（） For k= To 0 Step 1 If （ k） Then （ k） k End If Next k End Sub 程序運行時，按照圖示在 List1 中選中 2 個列表項，然后單擊Commandl 命令按鈕，則產生的結果是 A）在 List2 中插入了“外語”、“物理”兩項 B）在 List1 中刪除了“外語”、“物理”兩項 C）同時產生 A）和 B）的結果 D）把 List1 中最后 1 個列表項刪除并插入到 List2 中 （ 32）設工程中有 2 個窗體： Form Form2， Form1 為啟動窗體。 Form2 中有菜單。其結構如表。要求在程序運行時，在 Form1的文本框 Text1 中輸入口令并按回車鍵（回車鍵的 ASCII 碼為 13）后，隱藏 Form1，顯示 Form2。若口令為“ Teacher”，所有菜單項都可見；否則看不到“成績錄入”菜單項。為此，某人在 Form1 窗體 53 文件中編寫如下程序： Private Sub Text1_KeyPress（ KeyAscii As Integer） If KeyAscii=13 Then If =Teacher Then =True Else =False End If End If End Sub 程序運行時發現剛輸入口令時就隱藏了 Form1，顯示了 Form2，程序需要修改。下面修改方案中正確的是 A）把 Form1 中 Text1 文本框及相關程序放到 Form2 窗體中 B）把 、 兩行移到 2 個 End If 之間 C）把 If KeyAscii=13 Then 改為 If KeyAscii=Teaeher Then D）把 2 個 中的“ Form2”刪去 （ 33）某人編寫了下面的程序，希望能把 Text1 文本框中的內容寫到 文件中 Private Sub Comand1_Click（） Open For Output As 2 54 Print Text1 Close 2 End Sub 調試時發現沒有達到目的，為實現上述目的，應做的修改是 A）把 Print Text1改為 Print 2,Text1 B）把 Print Text1改為 Print Text1 C）把 Print Text1改為 Write Text1 D）把所有 2 改為 1 （ 34）窗體上有一個名為 Command1 的命令按鈕，并有下面的程序： Private Sub Comand1_Click（） Dim arr（ 5） As Integer For k=1 To 5 arr（ k） =k Next k prog arr（） For k=1 To 5 Print arr（ k） Next k End Sub Sub prog（ a（） As Integer） n=Ubound（ a） 55 For i=n To 2 step 1 For j=1 To n1 if a（ j） a（ j+1） Then t=a（ j） :a（ j） =a（ j+1） :a（ j+1） =t End If Next j Next i End Sub 程序運行時，單擊命令按鈕后顯示的是 A） 12345 B） 54321 C） 01234 D） 43210 （ 35）下面程序運行時，若輸入“ Visual Basic Programming”，則在窗體上輸出的是 Private Sub Comand1_Click（） Dim count（ 25） As Integer, ch As String ch=Ucase（ InputBox（ 請輸入字母字符串 ）） For k=1 To Len（ ch） n=Asc（ Mid（ ch,k,1）） Asc（ A） If n=0 Then Count（ n） =Count（ n） + 1 56 End If Next k m=count（ 0） For k=1 To 25 If mcount（ k） Then m=count（ k） End If Next k Print m End Sub A） 0 B） 1 C） 2 D） 3 二、填空題 （ 1）一個隊列的初始狀態為空。現將元素 A,B,C,D,E,F,5,4,3,2,1依次入隊，然后再依次退隊，則元素退隊的順序為 【 1】 。 （ 2）設某循環隊列的容量為 50，如果頭指針 front=45（指向隊頭元素的前一位置），尾指針 rear=10（指向隊尾元素），則該循環隊列中共有 【 2】 個元素。 （ 3）設二叉樹如下： 57 對該二叉樹進行后序遍歷的結果為 【 3】 。 （ 4）軟件是 【 4】 、數據和文檔的集合。 （ 5）有一個學生選課的關系，其中學生的關系模式為：學生（學號，姓名，班級，年齡），課程的關系模式為：課程（課號，課程名，學時），其中兩個關系模式的鍵 分別是學號和課號，則關系模式選課可定義為：選課（學號， 【 5】 ，成績）。 （ 6）為了使復選框禁用（即呈現灰色），應把它的 value 屬性設置為 【 6】 。 （ 7）在窗體上畫一個標簽、一個計時器和一個命令按鈕，其名稱分別為 Labl Timer1 和 Command1，如圖 1 所示。程序運行后，如果單擊命令按鈕，則標簽開始閃爍，每秒鐘“歡迎”二字顯示、消失各一次，如圖 2 所示。以下是實現上述功能的程序，請填空。 Private Sub Form_Load（） =歡迎 =False = 【 7】 58 End Sub Private Sub Timer1_Timer（） = 【 8】 End Sub Private Sub mand1_Click（） 【 9】 End Sub （ 8）有如下程序： Private Sub Form_Click（） n=10 i=0 Do i=i+n n=n2 Loop While n2 Print i End Sub 程序運行后，單擊窗體，輸出結果為 【 10】 。 （ 9）在窗體上畫一個名稱為 Command1 的命令按鈕。然后編寫如下程序： Option Base 1 Private Sub Command1_Click（） 59 Dim a（ 10） As Integer For i=1 To 10 a（ i） =i Next Call swap （ 【 11】 ） For i=1 To 10 Print a（ i） 。 Next End Sub Sub swap（ b（） As Integer） n=Ubound（ b） For i=1 To n / 2 t=b（ i