[其它考試]2009年3月20xx年9月計算機二級歷年vb考試真題及答案-免費閱讀

　　

【正文】 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】 。 （ 2）設某循環隊列的容量為 50，如果頭指針 front=45（指向隊頭元素的前一位置），尾指針 rear=10（指向隊尾元素），則該循環隊列中共有 【 2】 個元素。下面的修改方案中正確的是 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 為啟動窗體。 n amp。 Next Print Next D） For i=1 To 5 For j=1 To 3 Print a（ i,j） 。 （ 9）窗體上有名稱為 Command1 的命令按鈕及名稱為 Text能顯示多行文本的文本框。 Form1 窗體外觀如圖 1 所示。這說明程序不能適應所有情況，需要改正。為綠色 End If End Sub 以下敘述中 正確的是 C）程序執行后，文本框的文字每 5 秒改變一次顏色 （ 27）為計算 1+2+2^2+2^3+2^4+…+2^10的值，并把結果顯示在文本框 Text1中，若編寫如下事件過程： Private Sub Command1_Click() Dim a%, s%, k% s = 1 a = 2 For k = 2 To 10 30 a = a * 2 s = s + a Next k = s End Sub 執行此事件過程后發現結果是錯誤的，為能夠得到正確結果，應做的修改 是 D）同時進行 B）、 C）兩種修改 （ 28）標準模塊中有如下程序代碼： Public x As Integer, y As Integer Sub var_pub() x = 10: y = 20 End Sub 在窗體上有 1 個命令按鈕，并有如下事件過程： Private Sub Command1_Click() Dim x As Integer Call var_pub x = x + 100 y = y + 100 Print x。 39。 24 A. 操作系統的一部分 系統 答案 B ER 圖中，用來表示實體聯系的圖形是（ ）。 Option Base 1 Private Sub code(a () As Integer,mystr As String) Dim ch As string,cl As String n=Ubound(a)Len(mystr) If n0 Then mystr= mystramp。 Private Sub Commandl_Click() 18 Dim ch$,ascii As Integer Open ―‖ For【 11】 As 1 While Not EOF(1) Line Input 1,ch ascii=toasill (【 12】 ) Print ascii Wend Close 1 End Sub Private Function toascii(mystr$) As Integer n=0 For k=1 To 【 13】 n=n+Asc(Mid(mystr,k,l)) Next k Toascii=n End Function （ 9）本程序實現文本加密。 （ 6）窗體如圖所示，其中汽車是名稱為 Image1 的圖像框，命令按鈕的名稱為Command1,計時器的名稱為 Timer1,直線的名稱為 Line1。 tStr End Function 在窗體上畫一個名稱為 Text1 的文本框和一個名稱為 Command1 的命令按鈕，然后編寫如下事件過程： Private Sub Command1_Click() Dim S1 As String S1=‖ABCDEF‖ =Lcase(Fun(S1)) End Sub 程序運行 后，單擊命令按鈕，文本框中顯示的是 12 A） ABCDEF B） abcdef C） defded D） defabc （ 31）在窗體上畫一個命令按鈕和一個文本框（名稱分別為 Command1和 Text1），并把窗體的 Keyprewiew 屬性設置為 True，然后編寫如下代碼： Dim SaveAll As String Private Sub Form_Load () Show =‖‖ End Sub Private Sub Command1_Click() =Lcase(SaveAll)+SaveAll End Sub Private Sub Form_KeyPress(KeyAscii As Integer) SaveAll=SaveAll+Chr(KeyAscii) End Sub 程序運行后，直接用鍵盤輸入： VB，再單擊命令按鈕，則文本框中顯示的內容為 A） vbVB B）不顯示任何信息 C） VB D）出錯 （ 32）設有以下程序： Private Sub Form_Click() 13 X=50 For i=1 To 4 Y=InputBox(―請輸入一個整數 ‖) Y=Val(y) If y Mod 5=0 Then a=a+y x=y Else a=a+x End If Next i Print a End Sub 程序運行后，單擊窗體，在輸入對話框中依次輸入 1 2 3 46，輸出結果為 A） 100 B） 50 C） 120 D） 70 （ 33）以下關于菜單的敘述中，錯誤的是 A）當前窗體為活動窗體時，用 Ctrl+E 鍵可以打開菜單編輯器 B）把菜單項的 Enabled 屬性設置為 False,則可刪除該菜單項 C）彈出式菜單在菜單編輯器中設計 D）程序運行時，利用控件數組可以實現菜單項的增加或減少 （ 34）以下敘述中錯誤的是 A） 在程序運行時，通用對話框控件是不可見的 14 B）調用同一個通用對話框控件的不同方法（如 ShowOpen 或 ShowSave）可以打開不同的對話框窗口 C）調用通用對話框控件的 ShowOpen 方法，能夠直接打開在該通用對話框中指定的文件 D）調用通用對話框控件的 ShowColor 方法，可以打開顏色對話框窗口 （ 35）設在工程文件中有一個標準模塊，其中定義了如下記錄類型： Type Books Name As String * 10 TelNum As String * 20 End Type 在窗體上畫一個名為 Command1 的命令按鈕，要求當執行事件過程Command1_Click 時，在順序文件 中寫入一條 Books 類型的記錄。 1 2022 年 3 月全國計算機等級考試二級筆試試卷 Visual Basic 語言程序設計 (考試時間 90 分鐘，滿分 100 分 ) 一、選擇題 （ 1）下列敘述中正確的是 B A） 棧是 ―先進先出 ‖的線性表 B） 隊列是 ―先進先出 ‖的線性表 C） 循環隊列是非線性結構 D） 有序性表既可以采用順序存儲結構，也可以采用鏈式存儲結構 （ 2）支持子程序調用的數據結構是 A A） 棧 B） 樹 C） 隊列 D）二叉樹 （ 3）某二 叉樹有 5 個度為 2 的結點，則該二叉樹中的葉 子結點數是 A A） 10 B） 8 C） 6 D） 4 （ 4）下列排序方法中，最壞情況下比較次數最少的是 C A）冒泡排序 B）簡單選擇排序 C）直接插入排序 D）堆排序 （ 5）軟件按功能可以分為：應用軟件、系統軟件和支撐軟件（或工具軟件）。下列能夠完成該操作的事件過程是 A） Private Sub Command1_Click() Dim B As Books Open ―‖ For Output As `1 =InputBox(―輸入姓名 ‖) =InputBox(―輸入電話號碼 ‖) Write 1, Close 1 End Sub B） Private Sub Command1_Click() Dim B As Books 15 Open ―‖ For input As `1 =InputBox(―輸入姓名 ‖) =InputBox(―輸入電話號碼 ‖) Print 1, Close 1 End Sub C） Private Sub Command1_Click() Dim B As Books Open ―‖ For Output As `1 =InputBox(―輸入姓名 ‖) =InputBox(―輸入電話號碼 ‖) Write 1,B Close 1 End Sub D） Private Sub Command1_Click() Open ―‖ For input As `1 Name=InputBox(―輸入姓名 ‖) TelNum=InputBox(―輸入電話號碼 ‖) Print 1, Name, TelNum Close 1 End Sub 二、填空題（每空 2 分，共 30 分） 請將每一個空的正確答案寫在答題紙上【 1】 【 15】序號的橫線上，答在試卷上， 16 在試卷上不得分， 注意：以命令關鍵字填空的必須寫完整。程序運行時，單擊命令按鈕，則汽車每 秒向左移動 100，車頭到達左邊的直線時停止移動。先給定序列： a1,a2,……an, 它們的取值范圍是 1~n，且互不相同。 Strings(n,‖*‖) End If Ch=mystr For k=【 14】 To Ubound(a) Cl=Mid