VB上機(jī)練習(xí)習(xí)題

1、Text2Text11.新建工程，界面如下圖，將窗體名稱改為f1，標(biāo)題屬性為“我的第一個(gè)工程”， Text2允許多行，三個(gè)命令按鈕名稱分別為C1、C2、C3，單擊C1按鈕將Text1的字體改為黑體，Text2的字體改為隸書。 單擊C2按鈕將Text1的文字顏色改為紅色，Text2的背景顏色改為藍(lán)色。單擊C3按鈕結(jié)束程序運(yùn)行。22Private Sub Command1_Click() = 黑體End SubPrivate Sub Command2_Click() = vbRed = vbBlueEnd SubPrivate Sub Command3_Click() EndEnd Sub2.新建

2、工程，界面如上圖，運(yùn)行時(shí)，鼠標(biāo)在“改變窗體顏色”按鈕上按下時(shí)使窗體背景色變?yōu)榧t色，鼠標(biāo)抬起時(shí)使窗體背景色變?yōu)榫G色。鼠標(biāo)在窗體空白地方按下時(shí)使Text1的內(nèi)容為“在窗體上按下了鼠標(biāo)”，鼠標(biāo)抬起時(shí)使Text1的內(nèi)容為“在窗體上抬起了鼠標(biāo)”。Private Sub Command1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) = vbRed End SubPrivate Sub Command1_MouseUp(Button As Integer, Shift As Integer, X As Si

3、ngle, Y As Single) = vbGreenEnd SubPrivate Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) = "在窗體上按下了鼠標(biāo)"End SubPrivate Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single) = "在窗體上抬起了鼠標(biāo)"End Sub3.新建工程，界面如下圖，運(yùn)行時(shí)，在文本框Text1中

4、輸入內(nèi)容的同時(shí)，在文本框Text2、Text3中顯示相同的內(nèi)容，但字體不同（字體自定）。Private Sub Command1_Click() = "" = "" = ""End SubPrivate Sub Command2_Click()EndEnd SubPrivate Sub Text1_Change() = = End Sub注：“字體不同”可以在屬性那調(diào)“Font” 4. 設(shè)計(jì)一個(gè)窗體，如上圖所示。當(dāng)單擊某個(gè)命令按鈕時(shí)，對(duì)文本框中的文字完成相應(yīng)的設(shè)置。其中，每單擊一次“增大”或“縮小”按鈕將使文本框中的文字增大或縮小5磅

5、，“粗體”按鈕將使文本框中的文字加粗，“斜體”按鈕將使文本框中的文字傾斜，“下劃線”按鈕將使文本框中的文字加下劃線，“刪除線”按鈕將使文本框中的文字加刪除線。Private Sub Command1_Click() = + 5End SubPrivate Sub Command2_Click() = - 5End SubPrivate Sub Command3_Click() = TrueEnd SubPrivate Sub Command4_Click() = TrueEnd SubPrivate Sub Command5_Click() = TrueEnd SubPrivate Sub C

6、ommand6_Click() = True End Sub5. 設(shè)計(jì)一個(gè)窗體，如下圖所示。程序中將定義成符號(hào)常量（用Const ）,運(yùn)行時(shí)，輸入底面半徑r和圓柱高h(yuǎn)，然后單擊“計(jì)算”命令按鈕，在相應(yīng)文本框中顯示計(jì)算結(jié)果。運(yùn)算結(jié)果為只讀。Private Sub Command1_Click() Const pi = h = Val(Text1) r = Val(Text2) = pi * r 2 = 2 * pi * r * h = pi * r 2 * hEnd Sub 6. 設(shè)計(jì)界面如上圖所示。單擊“出題”按鈕，產(chǎn)生任意兩個(gè)【1，100】之間的隨機(jī)整數(shù)于Text1、 Text2中，單擊“計(jì)

7、算”按鈕，求兩個(gè)數(shù)的和。運(yùn)算結(jié)果為只讀。Private Sub Command1_Click() = Int(100 * Rnd + 1) = Int(100 * Rnd + 1)End SubPrivate Sub Command2_Click() a = Val b = Val = a + bEnd Sub7設(shè)計(jì)一個(gè)數(shù)字鐘表程序，界面如圖所示。運(yùn)行時(shí)單擊窗體，顯示當(dāng)前的年月日星期及時(shí)間。Private Sub Form_Click() = Year(Now) = Month(Now) = Day(Now) = Weekday(Now) = TimeEnd Sub 8設(shè)計(jì)一個(gè)數(shù)學(xué)函數(shù)程序，界

8、面如圖所示。程序運(yùn)行時(shí)，在文本框中輸入任意數(shù)值，單擊相應(yīng)按鈕標(biāo)簽中顯示結(jié)果。文本框始終處于選中狀態(tài)。Private Sub Command1_Click() = Abs(Val(Text1) = 0 = LenEnd SubPrivate Sub Command2_Click() = Sqr(Val(Text1) = 0 = LenEnd SubPrivate Sub Command3_Click() = Fix(Val(Text1) = 0 = LenEnd SubPrivate Sub Command4_Click() = Int(Val(Text1) = 0 = LenEnd SubPr

9、ivate Sub Command5_Click() = Sgn(Val(Text1) = 0 = LenEnd Sub9設(shè)計(jì)一工程，在文本框中輸入一整數(shù)，單擊“判斷”按鈕，判斷能否同時(shí)被3、5、7整除，若能用MsgBox函數(shù)顯示“能同時(shí)被3、5、7整除”，否則顯示“不能整除”。 Private Sub Command1_Click() a = Val(Text1) If a Mod 3 = 0 And a Mod 5 = 0 And a Mod 7 = 0 Then MsgBox "能同時(shí)被3、5、7整除" Else MsgBox "不能整除" End

10、 IfEnd Sub10設(shè)計(jì)一個(gè)計(jì)算購(gòu)書價(jià)錢的程序，界面如下圖所示。為了提高運(yùn)行速度，設(shè)置Tab鍵序，使得輸入完單價(jià)后，焦點(diǎn)定位到輸入數(shù)量文本框中。單擊“計(jì)算總價(jià)”或用訪問(wèn)鍵，算出總價(jià)。總價(jià)文本框要求為只讀屬性。完成相應(yīng)功能。 Private Sub Command1_Click() a = Val(Text1) b = Val(Text2) = a * bEnd SubPrivate Sub Command2_Click() EndEnd Sub 11設(shè)計(jì)一工程，界面如上圖所示。程序運(yùn)行，單擊“計(jì)算”，求出對(duì)應(yīng)角度的三角函數(shù)的絕對(duì)值于文本框Text2中，同時(shí)要求選中文本框Text1內(nèi)容，以便

11、繼續(xù)輸入。 Private Sub Command1_Click() a = Val(Text1) b = a * / 180 c = Abs(Sin(b) d = Abs(Cos(b) = & a & Space(10) & Format(c, "") _ & Space(10) & Format(d, "") & vbCrLf = 0 = LenEnd Sub12設(shè)計(jì)一個(gè)程序，用戶界面如下圖所示。程序運(yùn)行后，單擊“計(jì)算”，求出應(yīng)付款額；單擊“清除”， 清除所有文本框內(nèi)容。 Private Sub Com

12、mand1_Click() a = Val(Text1) b = Val(Text2) c = Val(Text3) = a * b * cEnd SubPrivate Sub Command2_Click() = "" = "" = "" = ""End Sub13輸入一個(gè)學(xué)生的學(xué)號(hào)和考試成績(jī)，然后按如圖格式在圖片框中輸出學(xué)號(hào)、考試成績(jī)及評(píng)語(yǔ)，評(píng)語(yǔ)：90100優(yōu)秀；8089良好；7079中等；6069及格；059不及格。Private Sub Command1_Click() a = Val(Text2) Sel

13、ect Case a Case 90 To 100 h = "優(yōu)秀" Case 80 To 89 h = "良好" Case 70 To 79 h = "中等" Case 60 To 69 h = "及格" Case 0 To 59 h = "不及格" End Select "學(xué)號(hào)：" & "分?jǐn)?shù)：" & a & Space(3) & hEnd Sub14設(shè)計(jì)一個(gè)窗體Forml，界面如上圖所示。編寫適當(dāng)?shù)氖录^(guò)程，程序運(yùn)行后

14、在第一個(gè)文本框中輸入圓的半徑，單擊“計(jì)算”按鈕，分別在第二個(gè)和第三個(gè)文本框中顯示圓的面積和周長(zhǎng)。Private Sub Command1_Click() a = Val(Text1) = a 2 * = 2 * a * End Sub15設(shè)計(jì)一個(gè)程序，用戶界面如下圖所示。程序運(yùn)行后，單擊Command1按鈕，求出最大、最小數(shù)。Private Sub Command1_Click() a = Val(Text1):b = Val(Text2):c = Val(Text3)If a < b Then t = a: a = b: b = t If a < c Then t = a: a

15、= c: c = t If b < c Then t = b: b = c: c = t = a = cEnd Sub 16界面如下圖所示。編寫適當(dāng)?shù)氖录^(guò)程，程序運(yùn)行后在三個(gè)文本框中分別輸入三角形的邊長(zhǎng)值，單擊“判斷并計(jì)算”按鈕，判斷它們是否能組成三角形，若能組成三角形在Text4中顯示三角形的面積 ，否則在Text4中顯示“FALSE”。Private Sub Command1_Click() a = Val(Text1):b = Val(Text2):c = Val(Text3)If a + b < c Or a + c < b Or b + c < a Or A

16、bs(a - b) > c Or Abs(a - c) > b Or Abs(b - c) > a Then = "FALSE" Else h = (a + b + c) / 2 s = Sqr(h * (h - a) * (h - b) * (h - c) = Format(s, "")End IfEnd Sub 17設(shè)計(jì)一個(gè)程序運(yùn)行界面如下圖所示，將輸入的三個(gè)不同數(shù)，按從小到大的順序排列。Private Sub Command1_Click()a = Val(Text1):b = Val(Text2):c = Val(Text3)

17、If a < b Then t = a: a = b: b = t If a < c Then t = a: a = c: c = t If b < c Then t = b: b = c: c = t = c: = b: = aEnd Sub 18在窗體上畫兩個(gè)命令按鈕分別求11+22+33+44+nn小于100000最大值和的累加和并將結(jié)果輸出到Label1和Label2中。Private Sub Command1_Click() n = 0: s = 0 Do n = n + 1 s = s + n n = s Loop Until s > 100000End S

18、ubPrivate Sub Command2_Click() s = 0 For i = 1 To 20 n = 1 For k = 1 To i n = n * k Next k s = s + n Next i = s End Sub19在窗體上畫兩個(gè)文本框輸入a和n的值（a和n均為一位數(shù)字），單擊命令按鈕輸出Sn=a+aa+aaa+aaaa+aaa（最后一項(xiàng)n個(gè)a，例如3+33+333+3333）的值于標(biāo)簽中。Private Sub Command1_Click() a = n = Val(Text2) Sn = 0 For i = 1 To n b = String(i, a) Sn

19、= Sn + Val(b) Next i = SnEnd Sub20單擊命令按鈕將3到200之間的所有奇數(shù)顯示在列表框中。Private Sub Command1_Click() For i = 3 To 200 Step 2 i Next iEnd Sub21在窗體上畫一文本框用于輸入n值，畫兩個(gè)命令按鈕分別求下述表達(dá)式的值S1=S2=1×3×5×7××(2n-1)并將S1、S2的結(jié)果輸出到圖片框。Private Sub Command1_Click() n = Val(Text1) s = 0 For i = 1 To n s = s +

20、(-1) (i + 1) / (2 * i - 1) Next i S2 = 1 For i = 1 To n S2 = S2 * (2 * n - 1) Next i 4 * s S2End Sub22在文本框T1中打印100999之間的所有水仙花數(shù)。（該數(shù)為各位數(shù)字的立方和。例如：153=1 3+5 3+3 3 ）Private Sub Command1_Click() For i = 100 To 999 a = Fix(i / 100) b = Fix(i / 10) - a * 10 c = i - Fix(i / 10) * 10 If a 3 + b 3 + c 3 = i Th

21、en = & i & vbCrLf Next iEnd Sub 23有一數(shù)列，它的頭2個(gè)數(shù)為0、 1，以后的每個(gè)數(shù)都是其前2個(gè)數(shù)之和。編程在文本框T1中輸出所有這些數(shù)列，直到第30個(gè)數(shù)或最后一項(xiàng)等于1000為止，同時(shí)在另一文本框中輸出它們的和。Private Sub Command1_Click() a = 0: b = 1: s = 0 = a & vbCrLf & b & vbCrLf For i = 1 To 14 s = s + a + b a = a + b b = a + b = & a & vbCrLf & b &a

22、mp; vbCrLf Next i = sEnd Sub24設(shè)計(jì)如下圖所示界面，單擊時(shí)輸出相應(yīng)結(jié)果，2N之間素?cái)?shù)在列表框中輸出，要求判斷素?cái)?shù)用過(guò)程實(shí)現(xiàn)。Function h(a As Integer) As Boolean Dim m As Integer, s As Boolean m = 0 For i = 2 To (a - 1) If a Mod i = 0 Then m = m + 1 Next i If m = 0 Then s = True Else s = False h = s End FunctionPrivate Sub Command1_Click()Dim a As

23、Integera = Val(Text1)If h(a) = False Then = "不是素?cái)?shù)" Else = "是素?cái)?shù)"End IfEnd SubPrivate Sub Command2_Click()Dim i As Integera = Val(Text1)For i = 2 To a If h(i) = True Then i Next iEnd Sub 25界面如上圖，單擊各按鈕時(shí)輸入行數(shù)，按此行數(shù)在窗體上顯示不同的圖形（參考教材練習(xí)6-15）。Private Sub Command1_Click()Clsa = Val(InputBox(

24、"請(qǐng)輸入行數(shù)")For i = 1 To a Print Tab(i); String(a, "*")Next iEnd SubPrivate Sub Command2_Click()Clsa = Val(InputBox("請(qǐng)輸入行數(shù)")For i = 1 To a Print Tab(a - i + 1); String(2 * i - 1, "*") Next iEnd SubPrivate Sub Command3_Click()Clsa = Val(InputBox("請(qǐng)輸入行數(shù)")F

25、or i = a To 1 Step -1 Print Tab(a - i + 1); String(2 * i - 1, "*") Next iEnd SubPrivate Sub Command4_Click()Clsa = Val(InputBox("請(qǐng)輸入行數(shù)")For i = a To 1 Step -1 Print Tab(a - i + 1); String(2 * i - 1, "*"); _Space(3); String(2 * (a - i) + 1, "*") Next iEnd Sub26

26、設(shè)計(jì)如下圖所示界面，單擊時(shí)輸出N!和1!+2!+N!結(jié)果，要求N!用過(guò)程實(shí)現(xiàn)。Function h(n As Integer) As IntegerDim s As Integer s = 1 For i = 1 To n s = s * iNext i h = sEnd FunctionPrivate Sub Command1_Click()Dim n As Integern = Val(Text1) = h(n)End SubPrivate Sub Command2_Click()Dim n As Integerm = Val(Text1)s = 0For n = 1 To m s = s

27、 + h(n)Next n = sEnd Sub 27 編寫一個(gè)程序，輸出一個(gè)5*5的矩陣，該矩陣主、負(fù)對(duì)角線上元素均為1，其余元素均為2，執(zhí)行結(jié)果如上圖所示。Option Base 1Dim A(5, 5) As IntegerPrivate Sub Form_Click()For i = 1 To 5 For j = 1 To 5 A(i, j) = 2 If i = j Then A(i, j) = 1 If i + j = 6 Then A(i, j) = 1 Next j, i For i = 1 To 5 CurrentY = i * 300 For j = 1 To 5 Curr

28、entX = j * 300 Print A(i, j); Next j, iEnd Sub28界面如下圖所示。分別在Textl和Text2中輸入兩個(gè)自然數(shù)x、y，用展轉(zhuǎn)相除的方法求自然數(shù)x，y的最大公約數(shù)和最小公倍數(shù)。在窗體上顯示結(jié)果。Dim a As Integer, b As Integer, x As Integer, y As Integer,r as Integer Private Sub Command1_Click()x = Val(Text1)y = Val(Text2)a = x: b = yr = x Mod yDo While r <> 0 x = y y

29、= r r = x Mod y Loop = yEnd SubPrivate Sub Command2_Click() = a * b / yEnd SubText1Text2Label3Label429仿照25題畫四個(gè)命令按鈕，單擊各按鈕在圖片框上顯示如下不同的數(shù)據(jù)圖形。Private Sub Command1_Click() For i = 1 To 6 For j = i To 1 Step -1 Print j; Next jPrintNext iEnd SubPrivate Sub Command2_Click()For i = 6 To 1 Step -1Print Space(1

30、8 - 3 * i); For j = 1 To i Print j; Next j Print Next iEnd SubPrivate Sub Command3_Click()For i = 1 To 6Print Space(18 - 3 * i); For j = i To 1 Step -1 Print 7 - j; Next j Print Next iEnd SubPrivate Sub Command4_Click()For i = 6 To 1 Step -1 For j = i To 1 Step -1 Print j; Next jPrintNext iEnd Sub30

31、設(shè)計(jì)一個(gè)窗體Forml，編寫適當(dāng)?shù)氖录^(guò)程?？刂芓ext1中背景色和字體格式。(字體默認(rèn)為宋體，內(nèi)容為“歡迎學(xué)習(xí)VB”)程序運(yùn)行界面如圖所示。Private Sub Check1_Click() = TrueEnd SubPrivate Sub Check2_Click() = TrueEnd SubPrivate Sub Check3_Click() = TrueEnd SubPrivate Sub Option1_Click() = vbRedEnd SubPrivate Sub Option2_Click() = vbYellowEnd SubPrivate Sub Option3_Cl

32、ick() = vbBlueEnd Sub 31利用兩個(gè)列表框控件，設(shè)計(jì)選項(xiàng)移動(dòng)窗體如上圖。編寫適當(dāng)?shù)氖录^(guò)程實(shí)現(xiàn)功能要求。Private Sub Command1_Click()If = 0 Then MsgBox "列表中沒(méi)有可選的列", , "注意" Exit SubIf >= 0 ThenFor i = 0 To 1 End IfEnd SubPrivate Sub Command2_Click()For i = 0 To - 1 (0) = True 0Next iEnd SubPrivate Sub Command4_Click()Fo

33、r i = 0 To - 1 (0) = True 0Next iEnd Sub32設(shè)計(jì)界面如下圖所示，運(yùn)行時(shí)，當(dāng)移動(dòng)滾動(dòng)條時(shí)，在標(biāo)簽中能正確顯示攝氏、華氏溫度值(C=5（F-32）/9) Private Sub Form_Load() = 100 = 0End SubPrivate Sub VScroll1_Change() = = Format * 9 / 5 + 32, "#.0")End Sub 33設(shè)計(jì)上面界面，按“開(kāi)始”按鈕使標(biāo)簽在窗體上從左向右移動(dòng)，當(dāng)遇到窗體的右側(cè)后，改成從右向左移動(dòng)，按“停止”按鈕停止標(biāo)簽移動(dòng)。Dim a As IntegerPrivate

34、 Sub Command1_Click() = TrueEnd SubPrivate Sub Command2_Click() = FalseEnd SubPrivate Sub Timer1_Timer()End Sub34編寫一個(gè)程序，實(shí)現(xiàn)在標(biāo)簽中自動(dòng)依次顯示“祝你”，“考試”，“成功”。Dim a As IntegerPrivate Sub Timer1_Timer()a = a + 1b = a Mod 3If b = 1 Then = "祝你"If b = 2 Then = "考試"If b = 0 Then = "成功"E

35、nd Sub35窗體上有一個(gè)名為L(zhǎng)1的列表框，通過(guò)屬性向列表框添加3個(gè)項(xiàng)目，分別是“123、456、789”。當(dāng)啟動(dòng)后，每次雙擊列表框中任何一項(xiàng)，則總在最后添加一項(xiàng)，該項(xiàng)是所有項(xiàng)之和。界面如下圖。Private Sub L1_DblClick()Dim b As Double, s As Doublea = Vals = 0For i = 0 To ab = Val(i) s = s + bNext i sEnd Sub 36設(shè)計(jì)如上界面，編寫適當(dāng)?shù)氖录^(guò)程。 程序運(yùn)行后，每過(guò)1秒鐘文本框的背景色能夠由紅到綠，綠到藍(lán)，再由藍(lán)到紅循環(huán)變化。Dim a As IntegerPrivate Sub

36、Timer1_Timer()a = a + 1b = a Mod 3If b = 1 Then = vbRedIf b = 2 Then = vbGreenIf b = 0 Then = vbBlueEnd Sub37單擊第一個(gè)按鈕，生成20個(gè)0,100之間的隨機(jī)整數(shù)，顯示于文本框1中，單擊第二個(gè)按鈕，求這20個(gè)數(shù)中的最大數(shù)和最小數(shù)，顯示于文本框2中。 Option Base 1Dim a(20) As IntegerPrivate Sub Command1_Click() = ""For i = 1 To 20 a(i) = Int(99 * Rnd - 0) = &am

37、p; a(i) & vbCrLf Next i For i = 1 To 19 For j = i + 1 To 20 If a(i) > a(j) Then t = a(i) a(i) = a(j) a(j) = t End If Next j, i = a(1) & Space(3) & a(20)End Sub38編寫程序，單擊第一個(gè)按鈕，用隨機(jī)函數(shù)產(chǎn)生4行5列的兩位整數(shù)并輸出到圖片框1中。單擊第二個(gè)按鈕，實(shí)現(xiàn)將第1行和第3行數(shù)據(jù)交換或第2列和第4列數(shù)據(jù)交換，輸出到圖片框2中。Dim A(1 To 4, 1 To 5) As Integer, B(1 To

38、4, 1 To 5) As IntegerPrivate Sub Command1_Click()For i = 1 To 4 s1 = "" For j = 1 To 5 A(i, j) = Int(91 * Rnd + 10) s1 = s1 & Space(2) & A(i, j) Next j s1 & vbCrLf Next iEnd SubPrivate Sub Command2_Click()For i = 1 To 4 s1 = "" For j = 1 To 5 If i Mod 2 <> 0 The

39、n c = 4 - i B(i, j) = A(c, j) s1 = s1 & Space(2) & B(i, j) Else B(i, j) = A(i, j) s1 = s1 & Space(2) & B(i, j) End If Next j s1 & vbCrLf Next iEnd Sub39利用Function 計(jì)算N！，求組合數(shù)。在文本框1中輸入n，文本框2中輸入m，單擊命令按鈕，在文本框3中顯示組合結(jié)果。Function A(h As Integer) As IntegerDim s As Integer, i As Integers =

40、 1For i = 1 To h s = s * iNext iA = sEnd FunctionPrivate Sub Command1_Click()Dim m As Integer, n As Integer, p As Integer, k As Doublen = Val(Text1): m = Val(Text2): p = m - nx = A(m): y = A(n): z = A(p)k = x / (y * z) = kEnd Sub40生成兩個(gè)010之間的隨機(jī)整數(shù)矩陣，分別放入兩個(gè)列表框，求兩個(gè)矩陣之和放入第三個(gè)列表框。如下圖所示。Private Sub Form_Loa

41、d()For i = 1 To 5 s1 = "" For j = 1 To 5 a(i, j) = Int(Rnd * 11) s1 = s1 & Format(a(i, j), "!") Next j s1 & vbCrLfNext iFor i = 1 To 5 s1 = "" For j = 1 To 5 b(i, j) = Int(Rnd * 11) s1 = s1 & Format(b(i, j), "!") Next j s1 & vbCrLfNext iEnd Sub

42、Private Sub Command1_Click()For i = 1 To 5 s1 = "" For j = 1 To 5 c(i, j) = a(i, j) + b(i, j) s1 = s1 & Format(c(i, j), "!") Next j s1 & vbCrLfNext iEnd SubPrivate Sub Command2_Click()EndEnd Sub 41生成10個(gè)兩位數(shù)的隨機(jī)整數(shù)， 放入A數(shù)組， 單擊顯示按鈕全部顯示在文本框1中，單擊排序按鈕由小到大排序，顯示在文本框2中。（如上圖）Option Ba

43、se 1Dim A(10) As IntegerPrivate Sub Command1_Click()For i = 1 To 10 A(i) = Int(91 * Rnd + 10) = & A(i) & Space(1) Next iEnd SubPrivate Sub Command2_Click()For i = 1 To 9 For j = i + 1 To 10 If A(i) > A(j) Then t = A(i) A(i) = A(j) A(j) = t End If Next j, i For i = 1 To 10 = & A(i) &am

44、p; Space(1) Next iEnd Sub42如下圖，單擊顯示按鈕，將20個(gè)隨機(jī)兩位整數(shù)，輸出在LIST1中；單擊排序按鈕，將使用子過(guò)程降序排序的結(jié)果輸出在LIST2中。Option Base 1Dim A(10) As IntegerPrivate Sub Command1_Click()For i = 1 To 10 A(i) = Int(91 * Rnd + 10) A(i) Next iEnd SubPrivate Sub Command2_Click()For i = 1 To 9 For j = i + 1 To 10 If A(i) > A(j) Then t =

45、A(i) A(i) = A(j) A(j) = t End If Next j, i For i = 1 To 10 A(i) Next iEnd Sub 43編寫適當(dāng)?shù)氖录^(guò)程,在窗體上輸出相應(yīng)行數(shù)的楊輝三角形。點(diǎn)擊窗體彈出InputBox對(duì)話框，在對(duì)話框中輸入行數(shù)，打印出如上圖所示形態(tài)的楊輝三角形。Dim A() As IntegerPrivate Sub Form_Click()Dim m As Integer, n As Integer m = Val(InputBox("請(qǐng)輸入行數(shù)") n = m ReDim A(m, n) For i = 0 To m - 1

46、A(i, i) = 1 A(i, 0) = 1 Next i Print Tab(3 * m - 1); 1For i = 2 To n - 1 s = "" For j = 1 To i - 1 A(i, j) = A(i - 1, j) + A(i - 1, j - 1) s = s & Space(5) & A(i, j)Next jPrint Tab(3 * (m - i); A(i, 0) & s & Space(5) & A(i, i)Next iEnd Sub44編寫程序，實(shí)現(xiàn)矩陣轉(zhuǎn)置，即將一個(gè)nÍm的矩陣（均

47、由隨機(jī)函數(shù)產(chǎn)生，并且是兩位整數(shù)）的行和列互換。單擊顯示按鈕將原矩陣放在圖片框1，單擊轉(zhuǎn)置按鈕將轉(zhuǎn)置后的矩陣輸出在圖片框2。Option Base 1Dim a(4, 5) As Integer, b(5, 4) As IntegerPrivate Sub Command1_Click()For i = 1 To 4s = "" For j = 1 To 5 a(i, j) = Int(91 * Rnd + 10) s = s & Space(2) & a(i, j) Next j sNext iEnd SubPrivate Sub Command2_Clic

48、k()For i = 1 To 5s = "" For j = 1 To 4 b(i, j) = a(j, i) s = s & Space(2) & b(i, j) Next j sNext iEnd Sub 45編寫函數(shù)過(guò)程計(jì)算1+2+3+。+n，運(yùn)行時(shí)輸入m，n，p的值，單擊“Y=”輸出結(jié)果（保留三位小數(shù)）。如上圖所示。Function A(h As Integer) As IntegerDim s As Integer, i As Integers = 0For i = 1 To h s = s + iNext iA = sEnd FunctionP

49、rivate Sub Command1_Click()Dim m As Integer, n As Integer, p As Integer, k As Doublem = Val(Text1): n = Val(Text2): p = Val(Text3)x = A(m): y = A(n): z = A(p)k = (x + y) / z = kEnd Sub46利用控件數(shù)組Text1、Text2將Text1中隨機(jī)產(chǎn)生的數(shù)，交換到Text2中，界面如下圖所示。Private Sub Form_Load()For i = 0 To 5Text1(i).Text = Int(91 * Rnd

50、 + 10)Next iEnd SubPrivate Sub Command1_Click()For k = 0 To 5Text2(k).Text = Text1(5 - k).TextNext kEnd Sub47在一工程中有兩窗體，界面如圖所示，試完成相應(yīng)功能。這是標(biāo)準(zhǔn)模塊的代碼：Public w As Integer這是Form1的代碼：Private Sub Command1_Click()n = Val(Text1) = n 3End SubPrivate Sub Command2_Click()Unload MeEnd Sub這是Form2的代碼：Private Sub Form

51、_Load() = nEnd SubPrivate Sub Command1_Click()s = 1For i = 1 To ns = s * iNext i = sEnd SubPrivate Sub Command2_Click()Unload MeEnd Sub 48在窗體放一個(gè)文本框和四個(gè)組合框，界面如下圖所示，組合框1和組合框2的顏色包括：白、黑、紅、綠、藍(lán)、黃。組合框3的對(duì)齊方式有左、中、右。組合框4字體大小有10、12、14、18、20、22磅，試完成相應(yīng)功能。 Private Sub Combo1_Click()Select Case Case 0 = vbWhite Case 1 = vbBlack Case 2 = vbRed Case 3 = vbGreen Case 4 = vbBlue Case 5 = vbYellowEnd SelectEnd SubPrivate Sub Combo2_Click()Select Case Case 0 = vbWhite Case 1 = vbBlack Case 2 = vbRed Case 3 = vbGreen Case 4 = vbBlue Case 5 = vbYellowEnd