【正文】 ) = a(i) + a(i + 1) i = i + 1 Loop While i =2 End Sub Private Sub Command1_Click() Dim m As Integer, i As Integer, x(10) As Integer For i = 0 To 4: x(i) = i + 1: Next i For i = 0 To 2: Call Proc(x): Next i For i = 0 To 4: Print x(i)。: Next i End Sub A、 3 4 7 5 6 B、 1 2 3 4 5 C、 3 5 7 9 5 D、 1 2 3 5 7 2 假定已定義了一個過程 Sub Add(a As Single,b As Single)，則正確的調(diào)用語句是 ____。 A、 Add 12,5 B、 Call(2*x,Add()) C、 Call Add x,y D、 Call Add(12,12,x) 2 以下敘述錯誤的是 ____ A、 Visual Basic 是事件驅(qū)動型可視化編程工具 B、 Visual Basic 應(yīng)用程序不具有明顯的開始和結(jié)束語句 C、 Visual Basic 工具箱中的所有控件都具有寬度（ Width)和高度 (Height)屬性 D、 Visual Basic 中控件的某些屬性只能在運行時設(shè)置 2 在窗體上畫 1 個命令按鈕，其名稱為 Command1，然后編寫如下程序： Private Sub Command1_Click() Dim a(10)As Integer Dim x As Integer For i=1 To 10 a(i)=8+i Next x=2 Print a(f(x)+x) End Sub Function f(x As Integer) x=x+3 f=x End Function 程序運行后，單擊命令按鈕，輸出結(jié)果為 ____。 A) 12 B) 15 C) 17 D) 18 2 關(guān)于 Visual Basic方法 的概念錯誤的是 ____ A) 方法是對象的一部分 B) 方法是預(yù)先定義好的操作 C) 方法是對事件的響應(yīng) D) 方法用于完成某些特定的功能 2 單擊命令按鈕時，下列程序的執(zhí)行結(jié)果為 ____ Private Sub Command1_Click() Dim x As Integer, y As Integer x=12:y=32 Call Proc(x,y) Print x。 y End Sub 5 Public Sub Proc(n As Integer, ByVal m As Integer) n=n Mod 10 m=m Mod 10 End Sub A) 12 32 B) 2 32 C) 2 3 D) 12 3 2 一個工程必須包含的文件的類型是 ____ A) *.vbp *.frm *.frx B) *.vbp *.cls *.bas C) *.bas *.ocx *.res D) *.frm *.cls *.bas 2 有如下事件過程： Private Sub Command1_Click() b=10 Do Until b=1 a=InputBox(請輸入 a 的值 ) a=Val(A) b=InputBox(請輸入 b 的值 ) b=Val(b) a=a * b Loop Print a End Sub 程序運行后，依次輸入數(shù)值 30， 20， 10，－ 1，輸出結(jié)果為 ____ A) 6000 B) － 10 C) 200 D) 6000 2 VB 是一種面向?qū)ο?的可視化程序設(shè)計工具，下列關(guān)于面向?qū)ο蟪绦蛟O(shè)計的描述，正確的是 ____ A）面向?qū)ο蟪绦蛟O(shè)計完全不同于結(jié)構(gòu)化程序設(shè)計； B）對象的屬性、方法和事件稱為對象的三要素； C） VB 中的類就是一種變量 D）面向?qū)ο蟪绦蛟O(shè)計的三大特征是封裝性、繼承性和事件驅(qū)動 2 設(shè)有以下循環(huán)結(jié)構(gòu) Do 循環(huán)體 Loop While條件 則以下敘述中錯誤的是 ____ A、若 “條件 ”是一個為 0 的常數(shù)，則一次也不執(zhí)行循環(huán)體 B、 “條件 ”可以是關(guān)系表達式、邏輯表達式或常數(shù) C、循環(huán)體中可以使用 Exit Do 語句 D、如果 “條件 ”總是為 True，則不停地執(zhí)行循環(huán)體 在設(shè)計階段，當(dāng)雙擊窗體上的某個控件時，所打開的窗口是 ____ A、工程資源管理器窗口 B、工具箱窗口 C、代碼窗口 D、屬性窗口 二、 填空題： 新建一個工程，內(nèi)有兩個窗體，窗體 Form1 上有一個命令按鈕 Command1，單擊該按鈕， Form1 窗體消失，顯示窗體 Form2，程序如下，試補充完整： Private Sub Command1_Click() _(1)_ Form2. _(2)_ End Sub 若 A=20， B=80， C=70， D=30，則表達式 A+B160 Or (B+C200 And Not D60)的值是 ____。 Visual Basic 應(yīng)用程序中標準模塊文件的擴展名是 ______。 以下程序代碼實現(xiàn)單擊命令按鈕 Command1 時形成并輸出一個主對角線上元素值為 1，其他元素值為 6 0 的 66 階方陣。 Privae Sub Command1_Click( ) Dim A(6,6) For I=1 To 6 For J=1 To 6 If I=J Then ___(1)___ Else ___(2)___ End If Print A(I,J)。 Next J Print Next I End Sub 以下程序循環(huán)的執(zhí)行次數(shù)是 ____。 a=0 Do While a=10 a=a+2 Loop 在窗體上畫 1 個命令按鈕，其名稱為 Command1，然后編寫如下事件過程： Private Sub Command1_Click() Dim arr(1 To 100） As Integer For i=1 To 100 arr(i)=Int(Rnd*1000) Next i Max=arr(1) Min=arr(1) For i=1 To 100 If __(1)___ Then Max=arr(i) End If If ___(2)___ Then Min=arr(i) End If Next i PrintMax=； Max， Min=； Min End Sub 程序運行后，單擊命令按鈕，將產(chǎn)生 100 個 1000 以內(nèi)的隨機整數(shù)，放入數(shù)組 arr 中，然后查找并輸出這100 個數(shù)中的最大值 Max 和最小值 Min，請?zhí)羁铡? 執(zhí)行以下程序段，并輸入 ，則程序的輸出結(jié)果應(yīng)是： ________ N=Str(InputBox(“請輸入一個實數(shù)： ”)) P=InStr(N,”.”) Print Mid(N,P) 7 下述定義中的函數(shù)所計算的數(shù)學(xué)表達式是 A(0)+A(1)*x+A(2)*x^2+?? +A(N1)+A(N)*x^N，請?zhí)羁铡? FUNCTION Fun(A(),N,x) S=0 For k=N to 0 step 1 S=________ Next Fun=S END FUNCTION 下面的程序用“冒泡”法將數(shù)組 x 中的 10 個整數(shù)按升序排列，請將程序補充完整。 Option Base 1 Private Sub Command1_Click() Dim a a=Array(678,45,324,528,439,387,87,875,273,823) For i=___(1)___ For j=____(2)__ If a(i) __(3)___ a(j) then a1=a(i) a(i)=a(j) a(j)=a1 End if Next j Next i For i=1 to 10 Print a(i) ___(4)___ End Sub 計時器控件能有規(guī)律的以一定時間間隔觸發(fā) ____事件，并執(zhí)行該事件過程中的程序代碼。 1 為了運行時把 d:\pic 文件夾下的圖形文件 裝入圖片框架 Picture1，所使用的語句為 ____。 1 在順序表（ 6， 10， 16， 18， 25， 28， 30， 48， 50， 52）中，用二分查找法查找關(guān)鍵碼值 20，則需要進行關(guān)鍵碼比較次數(shù)為 ____。 三、 編程題： 在窗體上畫一個標簽（名稱為 Label1）和一個計時器（名稱為 Timer1）， 請 編寫 如下 事件過程 ，使 程序運行后，單擊窗體 ，將在標簽中顯示當(dāng)前時間，每隔 1 秒 鐘變換一次（見圖）。 Private Sub Form_Load() (1) End Sub Private Sub Form_Click() (2) End Sub 8 Private Sub Timer1_Timer() (3) End Sub 編寫 程序 ， 用于計算數(shù)學(xué)表達式 S=1222+3242+…+ （ N1） 2N2 窗體上有一個輸入編輯框（ text1）、一個輸出編輯框（ text2）和一全命令按鈕（ mand1），編程實現(xiàn)如下功能：在輸入框中 錄入以空格為分隔標志的正整數(shù)，點擊運行按鈕，將找出其中的最大數(shù)并將其刪除后，按原順序輸出在輸出框中。 提示：函數(shù) InStr([start, ]string1, string2) 功能：返回 一字符串在另一字符串中最先出現(xiàn)的位置 InStr 函數(shù)的語法具有下面的參數(shù)： 參數(shù) 說明 start 可選參數(shù)。為數(shù)值表達式，設(shè)置每次搜索的起點。如果省略，將從第一個字符的位置開始。 string1 必要參數(shù)。接受搜索的字符串表達式。 string2 必要參數(shù)。被搜索的字符串表達式。 9 （英文版 ） Two regulations promulgated for implementation is in the party in power for a long time and the rule of law conditions, the implementation of prehensive strictly strategic plan, implementation in accordance with the rules and discipline to manage the party, strengthen innerparty supervision of major initiatives. The two regulations supporting each other, the code adhere to a positive advocate, focusing on morality is of Party members and Party leading cadres can see, enough to get a high standard。 rule around the party discipline, disciplinary ruler requirements, listed as negative list, focusing on vertical gauge, draw the party anizations and Party members do not touch the bottom line . Here, the main from four square face two party rules of interpretation: the first part introduces two party Revised regulations the necessity and the revision process。 the second part is the interpretation of the two fundamental principles of the revision of laws and regulations in the party。 the third part introduces two party regulations modified the main changes and needs to grasp several key problems。 the fourth part on how to grasp the implementation of the two regulations of the party. co