【正文】 * End Sub C) Private Sub Commandl_Click() =Hscroll1*Hscroll2 End Sub D) Private Sub Command1_ Click() =* End Sub (27) 在窗體上畫一個名稱為 Commandl 的命令按鈕，然后編寫如下事件過程 : Private Sub Commandl_Click() For n=1 To 20 If n Mod 3 0 Then m=m+n\3 Next n Print n End Sub 程序運行后，如果單擊命令按鈕，則窗體上顯示的內容是 A) 15 B) 18 C) 21 D) 24 (28) 在窗體上畫一個名稱為 Textl 的文本框，并編寫如下程序 : Private Sub Form_Load() Show = End Sub Private Sub Form_MouseUP(Button As Integer,Shift As Integer, X As Single, Y As Single) Print 程序設計 End Sub Private Sub Textl_KeyDown(KeyCode As Integer,Shift As Integer) Print“ Visual Basic” End Sub 程序運行后，如果按“ A”鍵，然后單擊窗體，則在窗體上顯示的內容是 A) Visual Basic B) 程序設計 C) A 程序設計 D) Visual Basic 程序設計 (29) 設有如下程序 : Private Sub Comandl_Click() Dim sum As Double,x As Double sum=0 n=0 For i= 1 To 5 x=n/i n=n+1 sum=sum+x Next End Sub 該程序通過 For 循環(huán)計算一個表達式的值，這個表達式是 A) 1+1/2+2/3+3/4+4/5 B) 1+1/2+2/3+3/4 C) 1/2+2/3+3/4+4/5 D) 1+1/2+1/3+1/4+1/5 (30) 以下有關數(shù)組定義的語句序列中，錯誤的是 A) Static arrl(3) B) Dim arr2() As Integer arrl(1)=100 Dim size As Integer arrl(2)=Hello Private Sub Command2_Click() arrl(3)= size=Input Box(輸入 :) ReDim arr2(size) ?? End Sub C) Option Base 1 D) Dim n As Integer Private Sub Command3_Click() Private Sub Command4_Click() Dim arr3(3) As Integer Dim arr4(n) As Integer ?? ?? End Sub End Sub 二、填空題 (每空 2 分，共 30 分 ) 請將每空的正確答案寫在答題卡上【 1】 — 【 15】序號的橫線上，答在試卷上不得分。 a End Sub 程序運行后，單擊命令按，則窗體上顯示的內容是 A) 7 9 B) 34 0 C) 9 7 D) 死循環(huán) (23) 設有如下通用過程 : Public Function f(x As Integer) Dim y As Integer x=20 y=2 f=x*y End Function 在窗體上畫一個名稱為 Command1 的命令按鈕，然后編寫如下事件過程 : Private Sub Command1_Click() Static x As Integer x=10 y=5 y=f(x) Print x。 (1) 以下敘述中錯誤的是 A) Visual Basic 是事件驅動型可視化編程工具 B) Visual Basic 應用程序不具有明顯的開始和結束語句 C) Visual Basic 工具箱中的所有控件都具有寬度 (Width)和高度 (Height)屬性 D) Visual Basic 中控件的某些屬性只能在運行時設置 (2) 以下敘述中錯誤的是 A) 在工程資源管理器窗口中只能包含一個工程文件及屬于該工程的其他文件 B) 以 .BAS 為擴展名的文件是標準模塊文件 C) 窗體文件包含該窗體及 其控件的屬性 D) 一個工程中可以含有多個標準模塊文件 (3) 以下敘述中錯誤的是 A) 雙擊鼠標可以觸發(fā) DblCLick 事件 B) 窗體或控件的事件的名稱可以由編程人員確定 C) 移動鼠標時，會觸發(fā) MouseMove 事件 D) 控件的名稱可以由編程人員設定 (4) 以下不屬于 Visual Basic 系統(tǒng)的文件類型是 A) .frm B) .bat C) .vbg D) .vbp (5) 以下敘述中錯誤的是 A) 打開一個工程文件時，系統(tǒng)自動裝入與該工程有關的窗體 ?標準 模塊等文件 B) 保存 Visual Basic 程序時，應分別保存窗體文件及工程文件 C) Visual Basic 應用程序只能以解釋方式執(zhí)行 D) 事件可以由用戶引發(fā)，也可以由系統(tǒng)引發(fā) (6) 以下能正確定義數(shù)據(jù)類型 TelBook 的代碼是 A) Type TelBook B) Type TelBook Name As String*10 Name As String*10 TelNum As Integer TelNum As Integer End Type End TelBook C) Type TelBook D) Typedef TelBook Name String*10 Name String*10 TelNum Integer TelNum Integer End Type TelBook End Type (7) 以下聲明語句中錯誤的是 A) Const var 1=123 B) Dim var2=‘ ABC’ C) Deflnt az D) Static var3 As Integer (8) 設窗體上有一個列表框控件 Listl，且其中含有若干列表項。程序運行后，當在組合框中輸入一個新項后按回車鍵（ ASCII 碼為 13）時，如果輸入的項在組合框的列表中不存在，則自動添加到組合框的列表中，并在 Label2 中給出提示“已成功添加輸入項”如圖所示；如果存在，則在 Lable2 中給出提示“輸入項已在組合框中”。a, b=。 (5) (5) 計時器控件能有規(guī)律的以一定時間間隔觸發(fā) 【 5】 事件，并執(zhí)行 該事件過程中的程序代碼。 (1) (1) Visual Basic 中有一種控件組合了文本框和列表框的特性，這種控件是 【 1】 。則能夠正確地把數(shù)據(jù)寫入文件的程序段是 A) Openc:\For Random As1 Put1,1,p Close1 B) Openc:\For Random As1 Get1,1,p Close1 C) Openc:\For Random As1 Len=Len(p) Put1,1,p Close1 D) Openc:\For Random As1 Len=Len(p) Get1,1,p Close1 (30) (30) 在窗體上畫一個名稱為 CommonDialog1 的通用對話框，一個名稱為 Command1 的命令按鈕。假定在 Form Form2 和 mdlFunc 中分別建立了自定義過程，其定義格式為： Form1 中定義的過程： Private Sub frmFunction1() ?? End Sub Form2 中定義的過程 Public Sub frmFunction2() ?? End Sub mdlFunc 中定義的過程： Public Sub md1Function() ?? End Sub 在調用上述過程的程序中，如果不指明窗體或模塊的名稱，則以下敘述中正確的是 A）上述三個過程都可以在工程中的任何窗體或模塊中被調用 B） frmFunction2 和 mdlFunction 過程能夠在工程中各個窗體或模塊中被調用 C）上述三個過程都只能在各自被定義的模塊中調用 D）只有 md1Function 過程能夠被工程中各個窗體或模塊調用 (29) (29) 窗體上有兩個名稱分別為 Text Text2 的文本框，一個名稱為 Command1 的命令按鈕。用于標識各個控件數(shù)組元素的參數(shù)是 A) Tag B) Index C) ListIndex D) Name (14) (14) 在窗體上畫一個命令按鈕，名稱為 Command1，然后編寫如下事件過程 Option Base 0 Private Sub Command1_Click() Dim city As Variant City=Array(北京 ， 上海 ， 天津 ， 重慶 ) Print city(1) End Sub 程序運行后，如果單擊命令按鈕，則在窗體上顯示的內容是 A）空白 B) 錯誤提示 C) 北京 D) 上海 (15) (15) 假定有以下函數(shù)過程： Function Fun(S As String)As String Dim s1 As String For i=1 To Len(S) s1=UCase(Mid(S,i,1))+s1 Next i Fun=s1 End Function 在窗體上畫一個命令按鈕，然后編寫如下事件過程： Private Sub Command1_Click() Dim Str1 As String,Str2 As String Str1=InputBox(請輸入一個字符串 ) Str2=Fun(Str1) Print Str2 End Sub 程序運行后，單擊命令按鈕，如果在輸入對話框中輸入字符串“ abcdefg”，則單擊“確定”按鈕后在窗體上輸出結果為 A） abcdefg B） ABCDEFG C） gfedcba D） GEFDCBA (16) (16) 設有語句 Openc:\For Output As1 則以下錯誤的敘述是 A）該語句打開 C 盤根目錄下一個已存在的文件 B）該語句在 C 盤根目錄下建立一個名為 的文件 C）該語句建立的文件的文件號為 1 D）執(zhí)行該語句后，就可以通過 Print語句向文件 中寫入信息 (17) (17) 以下敘述中錯誤的是 A）用 Shell 函數(shù)可以調用能夠在 Windows 下運行的應用程序 B）用 Shell 函數(shù)可以調用可執(zhí)行文件，也可以調用 Visual Basic 的內部函 數(shù) C）調用 Shell 函數(shù)的格式應為： 變量名 =Shell(?? ) D）用 Shell 函數(shù)不能執(zhí)行 DOS 命令 (18) (18) 以下關于過程及過程參數(shù)的描述中，錯誤的是 A) 過程的參數(shù)可以是控件名稱 B) 用數(shù)組作為過程的參數(shù)時，使用的是“傳地址”方式 C) 只有函數(shù)過程能夠將過程中處理的信息傳回到調用的程序中 D) 窗體可以作為過程的參數(shù) (19) (19) 在窗體上畫一個名稱為 TxtA 的文本框，然后編寫如下的事件過程： Private Sub TxtA_KeyPress(keyascii as integer) ?? End Sub 若焦點位于文本框中，則能夠觸發(fā) KeyPress 事件的操作是 A) 單擊鼠標 B) 雙擊文本框 C) 鼠標滑過文本框 D) 按下鍵盤上的某個鍵 (20) (20) 目錄列表框的 Path 屬性的作用是 A）顯示當前驅動器或指定驅動器上的路徑 B）顯示當前驅動器或指定驅動器上的某目錄下的文件名 C）顯示根目錄下的文件名 D）只顯示當前路徑下的文件 (21) (21) 假設有如下事件過程 Private Sub