1、第一部分1 在窗體上添加一個命令按鈕 ( 名稱為 Cmd1，標題為 輸出平均值 ) 。程序運行后， 單擊命令 按鈕完成以下工作：隨機產(chǎn)生 20個0到 1000的整數(shù)，將其放入一個一維數(shù)組中求出所有元素的平均值，并顯示在窗體上( 如下圖所示 )Private Sub Cmd1_Click()Dim a%(19), i%, sum!, aver!RandomizeFor i = 0 To 19a(i) = Int(Rnd * 1001)sum = sum + a(i)Next iaver = sum / 20Print averEnd Sub2 請在名稱為 Form1的窗體上添加一個名稱為 Tex

2、t1 的文本框和一個名稱為 C1、標題為 轉換 的命令按鈕，如下圖所示。在程序運行時，單擊轉換按鈕，可以把 Text1 中的小寫字母轉換為大寫，把大寫字母轉換為小寫，其他字符不變。Private Sub C1_Click()Dim ch As String, ch1 As String, i%ch = Text1For i = 1 To Len(ch)If Asc(Mid(ch, i, 1) = 65 And Asc(Mid(ch, i, 1) max Then max = a(i)Next iPrint maxEnd Sub4 請設計如下圖所示窗體界面。程序運行時，在選中一個或兩個復選框和一

3、個單選按鈕時， 單擊命令按鈕， 則對文本框中的文本內容做相應的設置。 請編寫適當?shù)氖录^程， 完成上述 功能。Private Sub Command1_Click()If = True Then= 宋體 Else= 隸書 End IfIf = 1 Then= TrueElse= FalseEnd IfIf = 1 Then= TrueElse= FalseEnd IfEnd Sub5 在名稱為 Form1的窗體上添加一個名稱為 Text1 的文本框；添加兩個標題分別為 對齊方式 、 字體 ，名稱分別為 Fm1、Fm2的框架；在 Fm1框架中添加三個單選按鈕，標題分別為 左對齊 、居中 、右對齊

4、 ，名稱分別為 Opt1、Opt2、Opt3；在Fm2框架中添加兩個單選按鈕， 標題分別為 宋體、黑體 ，名稱分別為 Opt4 、Opt5 。要求：編寫五個單選按鈕的 Click 事件過程，使程序運行時，單擊這些單選按鈕，可以 對文本框中的內容實現(xiàn)相應的操作 ( 如圖所示 )。Private Sub Opt1_Click()If Opt1 Then = 0End SubPrivate Sub Opt2_Click()If Opt2 Then = 2End SubPrivate Sub Opt3_Click()If Opt3 Then = 1End SubPrivate Sub Opt4_Cli

5、ck()If Opt4 Then = 宋體 End SubPrivate Sub Opt5_Click()If Opt5 Then = 黑體 End Sub6 請設計如下圖所示窗體界面。 運行程序時， 先向左側文本框中輸入一個不超過 10 的正整數(shù)， 然后選擇 N的階乘 或(N+2) 的階乘 單選鈕，即可進行計算， 計算結果在右側文本框中顯示。 請編寫程序完成上述功能。Dim n%Private Sub Form_Load()End SubPrivate Sub Option1_Click()Dim i% n = Val(Text1)m = 1For i = 1 To nm = m * iNe

6、xt iText2 = mEnd SubPrivate Sub Option2_Click()Dim i%m = 1For i = 1 To n + 2m = m * iNext iText2 = mEnd Sub7 在窗體上添加兩個文本框和三個標簽， 設置它們的屬性，達到下圖效果。 程序運行時，在 第一個文本框輸入一串字符，在第二個文本框中輸入一個字符，然后單擊 統(tǒng)計命令按鈕，統(tǒng)計第二個文本框中字符 ( 大小寫被認為是不同的字母 ) 在第一個文本框中出現(xiàn)的次數(shù)， 統(tǒng)計 結果在標簽 Label3 中顯示。Private Sub Command1_Click()Dim i%, n%For i =

7、 1 To Len(Text1)If Mid(Text1, i, 1) = Text2 Then n = n + 1Next iLabel3 = nEnd SubPrivate Sub Label3_Click()End Sub8 在窗體上添加一個文本框和一個命令按鈕。程序運行后，單擊命令按鈕，即可計算出0 200范圍內能被 3或 7整除的所有整數(shù)的和，并顯示在文本框中。程序運行界面如下圖所示。Private Sub Command1_Click()Dim i%, sum%For i = 0 To 200If i Mod 3 = 0 Or i Mod 7 = 0 Then sum = sum

8、+ iNext iText1 = sumEnd SubPrivate Sub Text1_Change()End Sub9 請設計如下圖所示界面 ( 文本框名稱為： Txt1 ，按鈕名稱為： Cmd1)。程序運行時在文本框 中輸入字符串， 點擊命令按鈕， 判斷文本框中的字符串是否是回文， 將判斷結果顯示在窗體 上。所謂回文是指字符串正序和逆序的結果相同，如“aBCCBa”是回文， “ aBCcBa”不是回文。Private Sub Cmd1_Click()Dim ch As StringFor i = Len(Txt1) To 1 Step -1ch = ch + Mid(Txt1, i, 1

9、)Next i是回文 不是回文 If Txt1 = ch ThenPrint Txt1 + ElsePrint Txt1 + End IfEnd SubPrivate Sub Form_Load()End Sub111110 編程實現(xiàn)求 Sum (n為小于等于 20的整數(shù) )。1!2！3！n!程序運行界面如下圖所示。程序運行時，在文本框中輸入 n 的值，點擊“計算”命令按鈕， 將計算結果顯示在標簽上。Private Sub Command1_Click()Dim i%, m As Long, sum As Double n = Val(Text1)m = 1For i = 1 To n m =

10、 m * i sum = sum + 1 / m Next iLabel2 = sum= & sumEnd SubPrivate Sub Form_Load()End Sub第二部分1 已知在同一個籠子里有總數(shù) M只雞和兔， 雞和兔的總腳數(shù)為 N只，編程求出雞和兔各有多少只。要求：程序運行后，在兩個文本框中分別輸入M和 N的值，單擊“計算”命令按鈕，在兩個標簽框中分別輸出雞和兔的數(shù)量。程序運行界面如下圖。提示：N2M的偶數(shù)。Private Sub Command1_Click() m = Val(Text1) n = Val(Text2)If n Mod 2 0 ThenMsgBox ( 腳數(shù)

11、必須為偶數(shù) )Text2 = Elsey = n / 2 - mIf y =只數(shù)的 2 倍，請重新輸入 )Text2 = Elsex = m - yLabel3 = xLabel4 = yEnd IfEnd IfEnd SubPrivate Sub Form_Load()End Sub2 若一個 3位正整數(shù)中各位數(shù)字的立方和等于該數(shù)字本身，則該數(shù)稱之為“水仙花數(shù)”。例 如153是水仙花數(shù)，因為 153 = 1*1*1 + 5*5*5 + 3*3*3 。編程求出 100 999之間所有的“水 仙花數(shù)”。 要求：程序運行后， 單擊“查找”按鈕， 在窗體上顯示找到的“水仙花數(shù)”。 程 序運行界面如下

12、圖。Private Sub Command1_Click()Print 水仙花數(shù)： ;For i =100 To 999X1 =i Mod 10 分離出個位數(shù)X2 =(i Mod 100) 10 分離出十位數(shù)x3 =i 100 分離出百位數(shù)If i =X1 3 + X2 3 + x3 3 Then Print i;Next iEnd SubPrivate Sub Form_Load()End Sub3 編寫程序，要求程序運行后，單擊“開始”按鈕，隨機產(chǎn)生20個學生的成績 (0 100的整數(shù)) ，并在左邊圖片框中輸出 ( 一行5個成績 ) ，并在右邊圖片框中輸出平均分和及格的人數(shù)， 程序運行界面

13、如下圖。Private Sub Command1_Click()Dim a(1 To 20) As Integer, i%, n%For i = 1 To 20a(i) = Int(Rnd * 101)a(i);If i Mod 5 = 0 ThenIf a(i) = 60 Then n = n + 1Sum = Sum + a(i)Next i 平均分： ; Sum / 20; 及格人數(shù)： ; nEnd SubPrivate Sub Picture2_Click()End Sub4 編寫程序實現(xiàn)：程序運行時，單擊窗體則顯示如下圖所示的圖案。Private Sub Form_Click()Fo

14、r i = 1 To 5Print Tab(10 - i); String(2 * i - 1, *)Next iFor i = 1 To 4Print Tab(5 + i); String(9 - 2 * i, *)Next iEnd Sub5 編程實現(xiàn)：在窗體中有一個文本框，一個計時器和兩個命令按鈕。其功能是：程序的運行 時，單擊“開始計數(shù)”按鈕，就開始計數(shù)，每間隔 1秒，文本框中的數(shù)增加 1；單擊“停止計數(shù)”按鈕，則計數(shù)停止。Private Sub Command1_Click()= TrueEnd SubPrivate Sub Command2_Click()= FalseEnd Su

15、bPrivate Sub Form_Load()End SubPrivate Sub Timer1_Timer()Text1 = Val(Text1) + 1End Sub 在屬性窗口設置定時器的 interval 屬性值為 10006 以下程序運行界面如下圖所示。其功能如下：1) 單擊 讀數(shù)據(jù) 按鈕 (Command1)，可將隨機產(chǎn)生 100個三位正整數(shù)存到數(shù)組 a中；2) 單擊 計算 按鈕 (Command2)，則根據(jù)從組合框 Combo1中選中的項目， 對數(shù)組 a中的數(shù) 據(jù)計算平均值，并將計算結果四舍五入取整后顯示在文本框 Text1 中。題目提供的程序代碼不完整，請設計下圖界面并錄入代

16、碼，將程序中的 ? 改為正確的 內容。注意：不能修改程序的其他部分。Private Sub Command1 Click() 題目提供的程序代碼：Dim n As IntegerDim a(100) As IntegerFor n = 1 To 100a(n)=Int(Rnd * ? )Next nEnd SubPrivate Sub Command2 Click()Dim x& ,y& , z& ,i% , j% , k%For i = 1 To 100If a(i) Mod ? Thenx = x + a(i) ： j = j +1Elsey = y + a(i)?End IfNext k

17、x = Int(x / j +： y = Int(y / k+z = Int(x + y) / (j + k) +Select CaseCase 所有偶數(shù) Text1 = ?Case 所有奇數(shù) Text1 = ?Case 所有數(shù) Text1 = ?End SelectEnd SubDim a(1 To 100) As IntegerPrivate Sub Command1_Click()Dim n As IntegerFor n = 1 To 100a(n) = Int(Rnd * 900 + 100)Next nEnd SubPrivate Sub Command2_Click()Dim x

18、&, y&, z&, i%, j%, k%For i = 1 To 100If a(i) Mod 2 = 0 Thenx = x + a(i): j = j + 1Elsey = y + a(i): k = k + 1End IfNext ix = Int(x / j + : y = Int(y / k + z = Int(x + y) / (j + k) + Select CaseCase 所有偶數(shù) Text1 = xCase 所有奇數(shù) Text1 = yCase 所有數(shù) Text1 = x + yEnd SelectEnd Sub 在 combo1 的屬性窗口設置 list 屬性，添加列表

19、項Private Sub Label1_Click()10個End Sub7 編寫程序。要求：程序運行后，單擊“開始”按鈕，則隨機產(chǎn)生20個 2位數(shù)輸出到窗體上，每數(shù)。同時對所產(chǎn)生的 20個數(shù)從小到大排序，將排序后的數(shù)再次輸出在窗體上。程序運行界面如下圖。Private Sub Command1_Click()Dim a%(1 To 20), i%Print 排序前數(shù)據(jù)排列： For i = 1 To 20a(i) = Int(Rnd * 90 + 10)Print a(i);If i Mod 10 = 0 Then PrintNext iFor i = 1 To 20 冒泡排序For j =

20、 1 To 20 - iIf a(j) a(j + 1) Thent = a(j): a(j) = a(j + 1): a(j + 1) = tEnd IfNext jNext iPrint 排序后數(shù)據(jù)排列： For i = 1 To 20Print a(i);If i Mod 10 = 0 Then PrintNext iEnd SubPrivate Sub Form_Load()End Sub8 編寫程序，程序的功能是：程序運行后，在文本框中輸入一串字符 , 單擊標題為 統(tǒng)計 的命令按鈕， 分別統(tǒng)計輸入字符串中大寫字母、 小寫字母以及其他字符的個數(shù)， 并將統(tǒng)計結果分別在相應的標簽框中 顯示

21、。程序運行界面如下圖。Private Sub Command1_Click()Dim i%, m%, n%, z%For i = 1 To Len(Text1)If Asc(Mid(Text1, i, 1) = 65 And Asc(Mid(Text1, i, 1) = 97 And Asc(Mid(Text1, i, 1) max Then max = a(i): imax = iNext iPrintPrintPrint 最大數(shù)是： ; max; Spc(5); 位置號是： ; imaxEnd SubPrivate Sub Form_Load()End Sub第三部分1 在窗體 Form1

22、上添加兩個文本框， 一個“轉換” 命令按鈕和三個單選按鈕 (名稱分別為 Opt1 、Opt2 、 Opt3，標題分別為“大小寫轉換” 、“全部大寫” 、“全部小寫” )。程序功能：在上方文本框 Text1 中輸 入一字符串，選中“大小寫轉換” ，單擊“轉換”按鈕后， Text2 中顯示大小寫相反的字符串；選中 “全部大寫” ，單擊轉換按鈕后， Text2 中顯示全部大寫字符串， 選中“全部小寫” ，單擊轉換按鈕后， Text2 中顯示全部小寫字符串 。程序運行界面如下圖。要求： 請按要求完成窗體界面設計 程序的部分代碼已給出如下，但不完整。請錄入下面代碼， 并將“？”處補充完整。Private

23、 Sub Command1_Click()Dim n As Integer, k As Integer, ch As String, a As Stringch = If = True Thenn = Len( ？ )For k = 1 To na = Mid$(Text1, k,？)If a = a And a = A And a = a And a = A And a max Then max = a(i)Next iPrintPrint maxEnd SubPrivate Sub Form_Load()End Sub4 在 Form1 的窗體上有一個名稱為 Text1 的文本框和兩個命令

24、按鈕， 命令鈕標題分別為 “顯示 A”和“顯 示 B”。要求程序運行后，如單擊“顯示A”命令按鈕，則彈出對話框，輸入要顯示的個數(shù)，根據(jù)輸入的數(shù)值在文本框中顯示相應數(shù)量 A 構成的字符串；如單擊“顯示B”命令按鈕，也彈出對話框，輸入要顯示的個數(shù)，根據(jù)輸入的數(shù)值在文本框中顯示相應數(shù)量 B 構成的字符串。程序運行時的窗體界面如圖 所示。Private Sub Command1_Click()n = Val(InputBox(請輸入顯示個數(shù) )Text1 = String(n, A)End SubPrivate Sub Command2_Click()n = Val(InputBox(請輸入顯示個數(shù)

25、)Text1 = String(n, B)End SubPrivate Sub Form_Load()End Sub。編程實現(xiàn)：按“開始”按鈕，則在窗體5 已知十個數(shù)為： 67, 45, 34, 28, 49, 37, 87, 76, 27, 83的第一行顯示這十個數(shù)，在窗體的第二行按從大到小的順序顯示這十個數(shù)。Private Sub Command1_Click()Dim a(), i%a = Array(67, 45, 34, 28, 49, 37, 87, 76, 27, 83)n = UBound(a)For i = 0 To nPrint a(i);Next iFor i = 0 T

26、o n - 1For j = 0 To n - 1 - iIf a(j) max Then max = a(i)Next iPrint maxEnd SubPrivate Sub Form_Load()End Sub8 編程實現(xiàn)：在窗體的兩個文本框中分別輸入一個正整數(shù)，單擊“求最大公約數(shù)”按鈕后，在窗體第 行顯示它們的最大公約數(shù)。程序運行界面如下圖所示。Private Sub Command1_Click()Dim m%, n%m = Val(Text1)n = Val(Text2)If n m Then t = n: n = m: m = tr = m Mod nDo While r 0m

27、= nn = rr = m Mod nLoopPrint Text1; 和 ; Text2; 最大公約數(shù)是 :; nEnd SubPrivate Sub Form_Load()End Sub9 編程實現(xiàn)： 在窗體的左上角有一個圖像框， 通過屬性窗口任選一張圖片裝入到圖像框的 Picture 屬性 中，每按一次“放大”按鈕時圖像放大10%，同理，每按一次“縮小”按鈕時圖像縮小10%，放大縮小時均需保持圖像的縱橫比不變，按“結束程序”按鈕則結束程序。程序運行界面如下圖。Private Sub Command1_Click() = TrueEnd SubPrivate Sub Command2_Cl

28、ick()= TrueEnd SubPrivate Sub Command3_Click()EndEnd SubPrivate Sub Form_Load()End Sub10 編程實現(xiàn)：在窗體上建立一個文本框(內容如下圖所示) ，另外建立菜單，一級菜單標題分別為“背 景顏色”，子菜單標題分別為“白色” 、“紅色”、“綠色”、“藍色”。程序運行時，如果單擊“白色”子菜 單，則將文本框的背景色設置為白色；如果單擊“紅色”子菜單，則將文本框的背景色設置為紅色；如 果單擊“綠色”子菜單，則將文本框的背景色設置為綠色；如果單擊“藍色”子菜單，則將文本框的背 景色設置為藍色。程序運行界面如下圖。Priv

29、ate Sub blue_Click()= vbBlueEnd SubPrivate Sub green_Click()= vbGreenEnd SubPrivate Sub red_Click()= vbRedEnd SubPrivate Sub Text1_Change()End SubPrivate Sub white_Click()= vbWhiteEnd Sub第四部分1編程計算分段函數(shù)的值。要求用文本框 (TextBox) 輸入 x,yx y,(x 0,y 0) xy,(x 0,y 0) 0, (其他情況 )的值，單擊標題為“計算”命令按鈕后，利用標簽控件上顯示 z 的值。Priv

30、ate Sub Command1_Click()x = Val(Text1)y = Val(Text2)If x 0 And y 0 Thenz = Sqr(x + y)ElseIf x 0 And y 0 Thenz = Sqr(Abs(x - y)Elsez = 0End IfLabel3 = zEnd SubPrivate Sub Form_Load()End Sub 2、在窗體添加一個命令按鈕(標題為“開始” )，單擊該按鈕，隨機產(chǎn)生 10 個三位數(shù)( 100 999)，在 窗體的第一行這 10 個三位數(shù)，在窗體的第二行輸出其中的奇數(shù)，在窗體的第三行輸出其中的偶數(shù)。Private Su

31、b Command1_Click()Dim a%(1 To 10), i%For i = 1 To 10a(i) = Int(Rnd * 900 + 100) 隨機產(chǎn)生 10 個 100 到 999 的整數(shù)Print a(i);Next iPrintFor i = 1 To 10If a(i) Mod 2 0 Then Print a(i); 輸出奇數(shù)Next iPrintFor i = 1 To 10If a(i) Mod 2 = 0 Then Print a(i); 輸出偶數(shù)Next iEnd SubPrivate Sub Form_Load()End Subx22z2,(x10,z 0)

32、3編程計算分段函數(shù) y(x30,z 0)的值。要求用 InputBox 函數(shù)x z,( 3010,x z)輸入 x, z 的值，單擊命令按鈕(標題為“計算” )后，利用圖形框( PictureBox )輸出計算結果 y 。Private Sub Command1_Click()x = Val(InputBox(輸入 x 的值 )z = Val(InputBox(輸入 z 的值 )If x = -10 And z 0 Then y = x 2 + z 2If x 0 Then y = x / zIf x = -30 And x z Then y = Sqr(x - z)End SubPrivat

33、e Sub Form_Load()End Sub4編程計算分 段函數(shù)y2 , (x0,(x0)1)x,的值。 要求用 InputBox 函數(shù)輸入 x,y 的(x1)值，單擊命令按鈕（標題為“計算” ）后，用文本框中輸出計算結果 z 。5 編程實現(xiàn)求 Sum=1+（ 1+2） + （ 1+2+3） +（ 1+2+3+4） + +（1+2+3+4+ + n） 。程序運行時， 在文本框中輸入 n 的值，點擊“計算”命令按鈕，將計算的結果顯示在標簽上。程序運行界面如下圖。Private Sub Command1_Click（）Dim n%, sum%, i%, j%n = Val（Text1）For

34、i = 1 To nFor j = 1 To isum = sum + jNext jNext iLabel2 = sum= & sumEnd SubPrivate Sub Form_Load()End Sub6 編寫一個程序 , 其功能為輸入貨物的數(shù)量及單價 , 求總價 , 并輸出。窗體上的兩個標簽的標題分別為 貨物的數(shù)量 （ 個）：和貨物的單價 （ 元） ：, 在兩個文本框中輸入相應的數(shù)據(jù) , 當按“總價”按鈕時， 在右下方的圖形框中顯示原價和折扣價。 當原價達到 2000元以上時， 按8折計算折扣價； 當原價達到 1000 元以上時，按 9折計算折扣價。程序運行界面如下圖。Private Sub Command1_Click()zj = Val(Text1) * Val(Text2)If zj 1000 Thenzkj = zjElseIf zj 2000 Thenzkj = zj *Elsezkj = zj *End IfLabel3 = 原 價 : & z