【正文】 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）計(jì)算二的近似值 的一個(gè)公式是。 某人編寫下面的程序用此公式計(jì)算并輸出π的近似值： 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 運(yùn)行后發(fā)現(xiàn)結(jié)果為 ，顯然，程序需要修改。下面修改方案中正確的是 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）下面程序計(jì)算并輸出的是 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 個(gè) 103 的和 （ 28）若在窗體模塊的聲明部分聲明了如下自定義類型和數(shù)組 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）設(shè)窗體上有一個(gè)通用對(duì)話框控件 CD1，希望在執(zhí)行下面程序時(shí)，打開如圖所示的文件對(duì)話框 Private Sub Comand1_Click（） =打開文件 =C:\ =所有文件 |*.*|Word 文檔 |*.doc|文本文件 |*.Txt = =1 51 If =Then Print未打開文件 Else Print要打開文件 amp。 End If End Sub 但實(shí)際顯示的對(duì)話框中列出了 C:\下的所有文件和文件夾，“文件類型”一欄中顯示的是“所有文件”。下面的修改方案中正確的是 A）把 =1 改為 =2 B）把“ =”后面字符串 中的“所有文件”改為“文本文件” C）在語句 =1 的前面添加： =3 D）把 =改為 =文本文件 （ 30）下面程序運(yùn)行時(shí)，若輸入 395，則輸出結(jié)果是 Private Sub Comand1_Click（） Dim x% x=InputBox(請(qǐng)輸入一個(gè) 3 位整數(shù) ) 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 兩個(gè)列表框， List1 中有若干列表項(xiàng)（見圖），并有下面的程序： Private Sub Comand1_Click（） For k= To 0 Step 1 If （ k） Then （ k） k End If Next k End Sub 程序運(yùn)行時(shí)，按照?qǐng)D示在 List1 中選中 2 個(gè)列表項(xiàng)，然后單擊Commandl 命令按鈕，則產(chǎn)生的結(jié)果是 A）在 List2 中插入了“外語”、“物理”兩項(xiàng) B）在 List1 中刪除了“外語”、“物理”兩項(xiàng) C）同時(shí)產(chǎn)生 A）和 B）的結(jié)果 D）把 List1 中最后 1 個(gè)列表項(xiàng)刪除并插入到 List2 中 （ 32）設(shè)工程中有 2 個(gè)窗體： Form Form2， Form1 為啟動(dòng)窗體。 Form2 中有菜單。其結(jié)構(gòu)如表。要求在程序運(yùn)行時(shí)，在 Form1的文本框 Text1 中輸入口令并按回車鍵（回車鍵的 ASCII 碼為 13）后，隱藏 Form1，顯示 Form2。若口令為“ Teacher”，所有菜單項(xiàng)都可見；否則看不到“成績(jī)錄入”菜單項(xiàng)。為此，某人在 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 程序運(yùn)行時(shí)發(fā)現(xiàn)剛輸入口令時(shí)就隱藏了 Form1，顯示了 Form2，程序需要修改。下面修改方案中正確的是 A）把 Form1 中 Text1 文本框及相關(guān)程序放到 Form2 窗體中 B）把 、 兩行移到 2 個(gè) End If 之間 C）把 If KeyAscii=13 Then 改為 If KeyAscii=Teaeher Then D）把 2 個(gè) 中的“ Form2”刪去 （ 33）某人編寫了下面的程序，希望能把 Text1 文本框中的內(nèi)容寫到 文件中 Private Sub Comand1_Click（） Open For Output As 2 54 Print Text1 Close 2 End Sub 調(diào)試時(shí)發(fā)現(xiàn)沒有達(dá)到目的，為實(shí)現(xiàn)上述目的，應(yīng)做的修改是 A）把 Print Text1改為 Print 2,Text1 B）把 Print Text1改為 Print Text1 C）把 Print Text1改為 Write Text1 D）把所有 2 改為 1 （ 34）窗體上有一個(gè)名為 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 程序運(yùn)行時(shí)，單擊命令按鈕后顯示的是 A） 12345 B） 54321 C） 01234 D） 43210 （ 35）下面程序運(yùn)行時(shí)，若輸入“ Visual Basic Programming”，則在窗體上輸出的是 Private Sub Comand1_Click（） Dim count（ 25） As Integer, ch As String ch=Ucase（ InputBox（ 請(qǐng)輸入字母字符串 ）） 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）一個(gè)隊(duì)列的初始狀態(tài)為空?，F(xiàn)將元素 A,B,C,D,E,F,5,4,3,2,1依次入隊(duì)，然后再依次退隊(duì)，則元素退隊(duì)的順序?yàn)? 【 1】 。 （ 2）設(shè)某循環(huán)隊(duì)列的容量為 50，如果頭指針 front=45（指向隊(duì)頭元素的前一位置），尾指針 rear=10（指向隊(duì)尾元素），則該循環(huán)隊(duì)列中共有 【 2】 個(gè)元素。 （ 3）設(shè)二叉樹如下： 57 對(duì)該二叉樹進(jìn)行后序遍歷的結(jié)果為 【 3】 。 （ 4）軟件是 【 4】 、數(shù)據(jù)和文檔的集合。 （ 5）有一個(gè)學(xué)生選課的關(guān)系，其中學(xué)生的關(guān)系模式為：學(xué)生（學(xué)號(hào)，姓名，班級(jí)，年齡），課程的關(guān)系模式為：課程（課號(hào)，課程名，學(xué)時(shí)），其中兩個(gè)關(guān)系模式的鍵 分別是學(xué)號(hào)和課號(hào)，則關(guān)系模式選課可定義為：選課（學(xué)號(hào)， 【 5】 ，成績(jī)）。 （ 6）為了使復(fù)選框禁用（即呈現(xiàn)灰色），應(yīng)把它的 value 屬性設(shè)置為 【 6】 。 （ 7）在窗體上畫一個(gè)標(biāo)簽、一個(gè)計(jì)時(shí)器和一個(gè)命令按鈕，其名稱分別為 Labl Timer1 和 Command1，如圖 1 所示。程序運(yùn)行后，如果單擊命令按鈕，則標(biāo)簽開始閃爍，每秒鐘“歡迎”二字顯示、消失各一次，如圖 2 所示。以下是實(shí)現(xiàn)上述功能的程序，請(qǐng)?zhí)羁铡? 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 程序運(yùn)行后，單擊窗體，輸出結(jié)果為 【 10】 。 （ 9）在窗體上畫一個(gè)名稱為 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