【正文】 =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 程序運(yùn)行后，單擊命令按鈕，將產(chǎn)生 100 個(gè) 1000 以內(nèi)的隨機(jī)整數(shù)，放入數(shù)組 arr 中，然后查找并輸出這100 個(gè)數(shù)中的最大值 Max 和最小值 Min，請?zhí)羁铡? 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 假定已定義了一個(gè)過程 Sub Add(a As Single,b As Single)，則正確的調(diào)用語句是 ____。y End Sub A、 3 65 B、 23 65 C、 3 60 D、 0 65 表達(dá)式 23/， 23\， 23 mod 的運(yùn)算結(jié)果分別是 ____ A、 3， ， 3 B、 ， 3， 5 C、 4， 4， 5 D、 ， 4， 3 為了給三個(gè)變量 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、 該對話框有一個(gè)“確定”按鈕 B、 該對話框有“是”、“否”二個(gè)按鈕 C、 該對話框有“是”、“否”、“取消”三個(gè)按鈕 D、 可以通過選擇參數(shù)得到以上不同的按鈕組合 1表達(dá)式 int(5*rnd+1)*int(5*rnd1) 的值范圍是 ____ A、［ 0， 15］ B、［ 1， 15］ C、［ 4， 15］ D、［ 5， 15］ 1使用下列語句： Dim x(1 to 10,3) As single ，則數(shù)組占用內(nèi)存空間的字節(jié)數(shù)是 ____ A、 80 B、 120 C、 132 D、 160 1下列程序段執(zhí)行后， i 的輸出值是 ____ Dim y as integer For i=1 to 10 step 2 y =y+2 next i print i A、 25 B、 10 C、 11 D、因?yàn)?y 初值不知道，所以不進(jìn)行循環(huán)， i 值不確定 1下列程序段運(yùn)行結(jié)果是 ____ Private Sub Form_click() x=5 m=1 n=1 do m=m*n n=n+1 Loop Until n5 Print x^2+m/3 End sub A、 25 B、 45 C、 55 D、 65 3 1執(zhí)行如下程序段時(shí)，從鍵盤輸入 5，輸出的結(jié)果是 ____ x=5 s=Val(Inputbox(“請輸入 s 的值： ”)) select Case s Case Is0 y=x+1 Case Is=0 y=x+2 Case Else y=x+3 End Select Print x。 A、 Name B、 FontName C、 Caption D、 Text .在窗體上畫一個(gè)文本框、一個(gè)標(biāo)簽和一個(gè)命令按鈕，其名稱分別為 Text Label1 和 Command1,然后編寫如下兩個(gè)事件過程： Private Sub Command1_Click() strText=InputBox(請輸入 ) =strText End Sub Private Sub Text1_Change() =Right(Trim(),3) End Sub 程序運(yùn)行后，單擊命令按鈕，如果在輸入對話框中輸入 abcdef，則在標(biāo)簽中顯示的內(nèi)容是 ____ A、空 B、 abcdef C、 abc D、 def 以下不屬于 Visual Basic 系統(tǒng)的文件類型是 ____ A、 .frm B、 .bas C、 .vbg D、 .vbp 表達(dá)式 Str(Len(1234))+Str()的值為 ____。B A=A+B:B=B+A:Print A。 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 一個(gè)工程必須包含的文件的類型是 ____ 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 程序運(yùn)行后，依次輸入數(shù)值 30， 20， 10，－ 1，輸出結(jié)果為 ____ A) 6000 B) － 10 C) 200 D) 6000 2 VB 是一種面向?qū)ο?的可視化程序設(shè)計(jì)工具，下列關(guān)于面向?qū)ο蟪绦蛟O(shè)計(jì)的描述，正確的是 ____ A）面向?qū)ο蟪绦蛟O(shè)計(jì)完全不同于結(jié)構(gòu)化程序設(shè)計(jì)； B）對象的屬性、方法和事件稱為對象的三要素； C） VB 中的類就是一種變量 D）面向?qū)ο蟪绦蛟O(shè)計(jì)的三大特征是封裝性、繼承性和事件驅(qū)動(dòng) 2 設(shè)有以下循環(huán)結(jié)構(gòu) Do 循環(huán)體 Loop While條件 則以下敘述中錯(cuò)誤的是 ____ A、若 “條件 ”是一個(gè)為 0 的常數(shù)，則一次也不執(zhí)行循環(huán)體 B、 “條件 ”可以是關(guān)系表達(dá)式、邏輯表達(dá)式或常數(shù) C、循環(huán)體中可以使用 Exit Do 語句 D、如果 “條件 ”總是為 True，則不停地執(zhí)行循環(huán)體 在設(shè)計(jì)階段，當(dāng)雙擊窗體上的某個(gè)控件時(shí)，所打開的窗口是 ____ A、工程資源管理器窗口 B、工具箱窗口 C、代碼窗口 D、屬性窗口 二、 填空題： 新建一個(gè)工程，內(nèi)有兩個(gè)窗體，窗體 Form1 上有一個(gè)命令按鈕 Command1，單擊該按鈕， Form1 窗體消失，顯示窗體 Form2，程序如下，試補(bǔ)充完整： Private Sub Command1_C