【正文】 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。 string1 必要參數(shù)。 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ù)并將其刪除后，按原順序輸出在輸出框中。 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í)行該事件過程中的程序代碼。 Next J Print Next I End Sub 以下程序循環(huán)的執(zhí)行次數(shù)是 ____。 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)的值是 ____。 Public Sub Proc(a() As Integer) Static i As Integer Do 4 a(i) = 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)。B A=A+B:B=B+A:Print A。 Public Sub Procl(n As Integer,ByVal m As Integer) n=n Mod 10 m=m\10 End Sub Private Sub Command1_Click( ) Dim x As Integer,y As Integer x=23:y=65 Call Procl(x,y) Print x。 A、 Name B、 FontName C、 Caption D、 Text .在窗體上畫一個文本框、一個標簽和一個命令按鈕，其名稱分別為 Text Label1 和 Command1,然后編寫如下兩個事件過程： Private Sub Command1_Click() strText=InputBox(請輸入 ) =strText End Sub Private Sub Text1_Change() =Right(Trim(),3) End Sub 程序運行后，單擊命令按鈕，如果在輸入對話框中輸入 abcdef，則在標簽中顯示的內(nèi)容是 ____ A、空 B、 abcdef C、 abc D、 def 以下不屬于 Visual Basic 系統(tǒng)的文件類型是 ____ A、 .frm B、 .bas C、 .vbg D、 .vbp 表達式 Str(Len(1234))+Str()的值為 ____。 A、 B、 4 C、 D、 1234 在窗體上有一個文本框控件，名稱為為 TxtTime；一個計時器控件，名稱為 Timer1，要求每一秒在文本框中顯示一次當(dāng)前的時間。y End Sub A、 3 65 B、 23 65 C、 3 60 D、 0 65 表達式 23/， 23\， 23 mod 的運算結(jié)果分別是 ____ A、 3， ， 3 B、 ， 3， 5 C、 4， 4， 5 D、 ， 4， 3 為了給三個變量 x、 y、 z 賦初值 1，下面賦值語句 正確的是 ____ A、 x=1:y=1:z=1 B、 x=1,y=1,z=1 C、 x=y=z=1 D、 x,y,z=1 用 msgbox 函數(shù)顯示的對話框，以下敘述正確的是 ____ A、 該對話框有一個“確定”按鈕 B、 該對話框有“是”、“否”二個按鈕 C、 該對話框有“是”、“否”、“取消”三個按鈕 D、 可以通過選擇參數(shù)得到以上不同的按鈕組合 1表達式 int(5*rnd+1)*int(5*rnd1) 的值范圍是 ____