【正文】 ．在窗體上畫一個(gè)命令按鈕，然后編寫如下程序： Function M(x As Integer, y As Integer) As Integer M = IIf(x y, x, y) End Function Private Sub Command1_Click() Dim a As Integer, b As Integer a = 1 b = 2 Print M(a, b) End Sub 程序運(yùn)行后，單擊命令按鈕，輸出結(jié)果為 ________。 11．設(shè)計(jì)一個(gè)程序，在窗體上當(dāng)按下鍵盤上的“ Ctrl”鍵并單擊鼠標(biāo)器的左鍵，然后在文本框中顯示：“按下鍵盤上的 Ctrl 鍵并單擊鼠標(biāo)器的左鍵”。 7． 順序查找問題：在一個(gè)具有 n個(gè)元素的有序（升序）數(shù)組 A中，查找數(shù)據(jù) x，設(shè)計(jì)一個(gè)一查找函數(shù) Find，若找到則返回下標(biāo)值，找不到返回 1。 28． 編程把一個(gè)文本框中的內(nèi)容，以文件形式存入磁盤。 程序界面如下： 20． 用隨機(jī)函數(shù)產(chǎn)生 100 個(gè) [0， 99]范圍內(nèi)的隨機(jī)整數(shù)，統(tǒng)計(jì)個(gè)位上的數(shù)字分別為 1， 2， 3， 4， 5，6， 7， 8， 9， 0 的數(shù)的個(gè)數(shù)并打印出來 21． .統(tǒng)計(jì)成績分布 22． 定義一個(gè)判斷 X 是否素?cái)?shù)的子過程，并調(diào)用此過程打印出前 100 個(gè)素?cái)?shù)。當(dāng)提供 A,B 的值后 ,輸出該式子 ， 例如 ,當(dāng) A=3,B=4, 輸出 :3X+4=0，并輸出方程的解。第一部分 程序設(shè)計(jì)部分 程序設(shè)計(jì)題的設(shè)計(jì)格式及其處理步驟： （ 1）先畫出處理界面（窗體） ，并注明各控件的名稱 ； （ 2）再給出處理步驟， （ 3）寫出程序代碼： 下面給出該類題目的求解事例，供參考： 例如：設(shè)計(jì)程序，求 1+2+3+...+N 的和 值。 6．已知 3個(gè)數(shù)，設(shè)計(jì)一個(gè)求出最大值的程序。 提示：子過程的入口參數(shù)是 X（整型），出口參數(shù)是 W（整型）， W為 1,表示 X是素?cái)?shù)， W為 0，表示X 不是素?cái)?shù)。假定文件名為 c:\。 Private Function Find(a() As Single, n As Integer， x As Single)As Integer 有關(guān)的實(shí)現(xiàn)語句 End Function 設(shè)計(jì)另一 個(gè)過程調(diào)用上述該過程，完成輸入、輸出。 第 二 部分 分析程序，寫出程序的運(yùn)行結(jié)果或功能 1．下面程序 X$=a Y$=b Z$=c For i=1 To 2 X$=Y$ Y$=Z$ Z$=X$ Next i Print X$+Y$+Z$ 運(yùn)行后的輸出結(jié)果是： cbc 2．下面程序 For i=10 To 40 step 6 Print i Next i 的循環(huán)次數(shù)為： 6 3．下面程序 For i=1 To 2 s=1 For j=0 To i1 s=s+s*1 Next j Print s Next i 執(zhí)行后輸出的結(jié)果為： 2 4 4．下面程序 i=0 n=0 Do while i32 i=(i+1)*(i+1) n=n+1 Loop Print n 運(yùn)行后的結(jié)果為“ 4 5．下面程序 For I=1 To 3 If I=1 Then a=3 If I=2 Then a=2 If I=3 Then a=1 Print a Next I Print I 運(yùn)行時(shí)輸出的結(jié)果是： 1 1 1 4 6．下面程序段 Dim x x=Int(Rnd)+4 Select Case x Case 5: Print 90~100 Case 4: Print 80~90 Case 3: Print 70~80 Case 2: Print 60~70 Case 1: Print 0~60 End Select 顯示的結(jié)果是： 80~90 7．下面程序段 For i=1 To 3 Step 1 Print Spc(5i) For j=1 To 2*i1 Print * Next j Print Next i 運(yùn)行結(jié)果為： * * * * * * * * * 8．在窗體上畫一個(gè)命令按鈕，然后編寫如下事件過程： Prinate Sub Command1_click() For i=1 To 4 x=4 For j=1 To 3 x=3 For k=1 To 2 x=x+6 Next k Next j Next i Print x End Sub 程序運(yùn)行后，單擊命令按鈕，輸出結(jié)果是： 15 9．在窗體上畫一個(gè)命令按鈕，然后編寫如下事件過程： Private Sub Command1_Click() x=0 Do until x=1 a=InputBox(請輸入 a 的值 ) a=Val(a) b=InputBox(請輸入 b 的值 ) b=Val(b) x=InputBox(請輸入 x 的值 ) x=Val(x) a=a+b+x Loop Print a End Sub 程序運(yùn)行后，單擊命令按鈕，依次在輸入對話框中輸入 5， 4， 3， 2， 1， 1,則輸出結(jié)果為： 2 10．在窗體上畫一個(gè)文本框（其中 Name 屬性為 Text1），然后編寫如下事件過程： Private Form1_Load() = Focus For i=1 To 10 sum=sum+i Next i =sum End Sub 上述程序的運(yùn)行結(jié)果是 ： 11．在窗體上畫兩個(gè)文本框 (其 Name 屬性分別為 Text1 和 Text2)和一個(gè)命令按鈕 (其 Name 屬性為 Command1),然后編寫如下事件過程： Private Sub Command1_Click() x=0 Do while x50 x=(x+2)*(x+3) n=n+1 Loop =Str(n) =Str(x) End Sub 程序運(yùn)行后，單擊命令按鈕，在兩個(gè)文本框中顯示的值分別為 ： 2 72 12．寫出下列程序段的運(yùn)行結(jié)果 __s=55________。 26． 設(shè)有如下程序 Private sub search(a() As variant,ByVal key As Variant,index%) Dim I% For I＝ LBound(a) To UBound(a) If key＝ a(I) Then index＝ I Exit Sub End If Next I Index＝ 1 End Sub Private Sub Form_Load() Show Dim b() As Variant Dim n As Integer b＝ Array(1,3,5,7,9,11,13,15) Call search(b,11,n) Print n End Sub 程序運(yùn)行后，輸出結(jié)果是 ________。)=。 （ 3）用 流程圖描述的處理步驟： 注意：在考試中，（