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

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

2、ivate Sub Command3_Click() EndEnd Sub2.新建工程，界面如上圖，運(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) Form1.BackColor = vbRed End SubPrivate Sub Comm

3、and1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single) Form1.BackColor = vbGreenEnd SubPrivate Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) Text1.Text = "在窗體上按下了鼠標(biāo)"End SubPrivate Sub Form_MouseUp(Button As Integer, Shift As Integer,

4、 X As Single, Y As Single) Text1.Text = "在窗體上抬起了鼠標(biāo)"End Sub3.新建工程，界面如下圖，運(yùn)行時(shí)，在文本框Text1中輸入內(nèi)容的同時(shí)，在文本框Text2、Text3中顯示相同的內(nèi)容，但字體不同（字體自定）。Private Sub Command1_Click() Text1.Text = "" Text2.Text = "" Text3.Text = ""End SubPrivate Sub Command2_Click()EndEnd SubPrivate Su

5、b Text1_Change() Text2.Text = Text1.Text Text3.Text = Text1.TextEnd Sub注：“字體不同”可以在屬性那調(diào)“Font” 4. 設(shè)計(jì)一個(gè)窗體，如上圖所示。當(dāng)單擊某個(gè)命令按鈕時(shí)，對文本框中的文字完成相應(yīng)的設(shè)置。其中，每單擊一次“增大”或“縮小”按鈕將使文本框中的文字增大或縮小5磅，“粗體”按鈕將使文本框中的文字加粗，“斜體”按鈕將使文本框中的文字傾斜，“下劃線”按鈕將使文本框中的文字加下劃線，“刪除線”按鈕將使文本框中的文字加刪除線。Private Sub Command1_Click() Text1.FontSize = Text

6、1.FontSize + 5End SubPrivate Sub Command2_Click() Text1.FontSize = Text1.FontSize - 5End SubPrivate Sub Command3_Click() Text1.FontBold = TrueEnd SubPrivate Sub Command4_Click()Text1.FontItalic = TrueEnd SubPrivate Sub Command5_Click() Text1.FontUnderline = TrueEnd SubPrivate Sub Command6_Click() Te

7、xt1.FontStrikethru = True End Sub5. 設(shè)計(jì)一個(gè)窗體，如下圖所示。程序中將定義成符號常量（用Const ）,運(yùn)行時(shí)，輸入底面半徑r和圓柱高h(yuǎn)，然后單擊“計(jì)算”命令按鈕，在相應(yīng)文本框中顯示計(jì)算結(jié)果。運(yùn)算結(jié)果為只讀。Private Sub Command1_Click() Const pi = 3.14 h = Val(Text1) r = Val(Text2) Text3.Text = pi * r 2 Text4.Text = 2 * pi * r * h Text5.Text = pi * r 2 * hEnd Sub 6. 設(shè)計(jì)界面如上圖所示。單擊“出題”按

8、鈕，產(chǎn)生任意兩個(gè)【1，100】之間的隨機(jī)整數(shù)于Text1、 Text2中，單擊“計(jì)算”按鈕，求兩個(gè)數(shù)的和。運(yùn)算結(jié)果為只讀。Private Sub Command1_Click() Text1.Text = Int(100 * Rnd + 1) Text2.Text = Int(100 * Rnd + 1)End SubPrivate Sub Command2_Click() a = Val(Text1.Text) b = Val(Text1.Text) Text3.Text = a + bEnd Sub7設(shè)計(jì)一個(gè)數(shù)字鐘表程序，界面如圖所示。運(yùn)行時(shí)單擊窗體，顯示當(dāng)前的年月日星期及時(shí)間。Priva

9、te Sub Form_Click() Label2.Caption = Year(Now) Label4.Caption = Month(Now) Label6.Caption = Day(Now) Label9.Caption = Weekday(Now) Label11.Caption = TimeEnd Sub 8設(shè)計(jì)一個(gè)數(shù)學(xué)函數(shù)程序，界面如圖所示。程序運(yùn)行時(shí)，在文本框中輸入任意數(shù)值，單擊相應(yīng)按鈕標(biāo)簽中顯示結(jié)果。文本框始終處于選中狀態(tài)。Private Sub Command1_Click() Label3.Caption = Abs(Val(Text1)Text1.SetFocus T

10、ext1.SelStart = 0 Text1.SelLength = Len(Text1.Text)End SubPrivate Sub Command2_Click() Label3.Caption = Sqr(Val(Text1)Text1.SetFocus Text1.SelStart = 0 Text1.SelLength = Len(Text1.Text)End SubPrivate Sub Command3_Click() Label3.Caption = Fix(Val(Text1)Text1.SetFocus Text1.SelStart = 0 Text1.SelLengt

11、h = Len(Text1.Text)End SubPrivate Sub Command4_Click() Label3.Caption = Int(Val(Text1)Text1.SetFocus Text1.SelStart = 0 Text1.SelLength = Len(Text1.Text)End SubPrivate Sub Command5_Click()Label3.Caption = Sgn(Val(Text1)Text1.SetFocus Text1.SelStart = 0 Text1.SelLength = Len(Text1.Text)End Sub9設(shè)計(jì)一工程，

12、在文本框中輸入一整數(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 IfEnd Sub10設(shè)計(jì)一個(gè)計(jì)算購書價(jià)錢的程序，界面如下圖所示。為了提高運(yùn)行速度，設(shè)置Tab鍵序，使得輸入完單價(jià)后，焦點(diǎn)定位到輸入

13、數(shù)量文本框中。單擊“計(jì)算總價(jià)”或用訪問鍵，算出總價(jià)。總價(jià)文本框要求為只讀屬性。完成相應(yīng)功能。 Private Sub Command1_Click() a = Val(Text1) b = Val(Text2) Text3.Text = a * bEnd SubPrivate Sub Command2_Click() EndEnd Sub 11設(shè)計(jì)一工程，界面如上圖所示。程序運(yùn)行，單擊“計(jì)算”，求出對應(yīng)角度的三角函數(shù)的絕對值于文本框Text2中，同時(shí)要求選中文本框Text1內(nèi)容，以便繼續(xù)輸入。 Private Sub Command1_Click() a = Val(Text1) b = a

14、* 3.14 / 180 c = Abs(Sin(b) d = Abs(Cos(b) Text2.Text = Text2.Text & a & Space(10) & Format(c, "0.000") _ & Space(10) & Format(d, "0.000") & vbCrLf Text1.SetFocus Text1.SelStart = 0 Text1.SelLength = Len(Text1.Text)End Sub12設(shè)計(jì)一個(gè)程序，用戶界面如下圖所示。程序運(yùn)行后，單擊“計(jì)算”，求出

15、應(yīng)付款額；單擊“清除”， 清除所有文本框內(nèi)容。 Private Sub Command1_Click() a = Val(Text1) b = Val(Text2) c = Val(Text3) Text4.Text = a * b * cEnd SubPrivate Sub Command2_Click() Text1.Text = "" Text2.Text = "" Text3.Text = "" Text4.Text = ""End Sub13輸入一個(gè)學(xué)生的學(xué)號和考試成績，然后按如圖格式在圖片框中輸出學(xué)號、

16、考試成績及評語，評語：90100優(yōu)秀；8089良好；7079中等；6069及格；059不及格。Private Sub Command1_Click() a = Val(Text2) Select 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 Picture1.Print Pic

17、ture1.Print "學(xué)號：" & Text1.Text Picture1.Print Picture1.Print "分?jǐn)?shù)：" & a & Space(3) & hEnd Sub14設(shè)計(jì)一個(gè)窗體Forml，界面如上圖所示。編寫適當(dāng)?shù)氖录^程，程序運(yùn)行后在第一個(gè)文本框中輸入圓的半徑，單擊“計(jì)算”按鈕，分別在第二個(gè)和第三個(gè)文本框中顯示圓的面積和周長。Private Sub Command1_Click() a = Val(Text1) Text2.Text = a 2 * 3.14 Text3.Text = 2 * a

18、* 3.14End 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 = c: c = t If b < c Then t = b: b = c: c = t Text4.Text = a Text5.Text = cEnd Sub 16界面如下圖所示。編寫適當(dāng)?shù)氖录^程

19、，程序運(yùn)行后在三個(gè)文本框中分別輸入三角形的邊長值，單擊“判斷并計(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 Abs(a - b) > c Or Abs(a - c) > b Or Abs(b - c) > a Then Text4.Text = "

20、;FALSE" Else h = (a + b + c) / 2 s = Sqr(h * (h - a) * (h - b) * (h - c) Text4.Text = Format(s, "0.00")End IfEnd Sub 17設(shè)計(jì)一個(gè)程序運(yùn)行界面如下圖所示，將輸入的三個(gè)不同數(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

21、= a: a = c: c = t If b < c Then t = b: b = c: c = t Text1.Text = c: Text2.Text = b: Text3.Text = 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 Label1.Caption = s Loop Until s > 100000End SubPrivat

22、e 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 Label2.Caption = 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 = Text1.text n = Val(Text2) Sn = 0 For i = 1 To n b

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

24、() n = Val(Text1) s = 0 For i = 1 To n s = s + (-1) (i + 1) / (2 * i - 1) Next i S2 = 1 For i = 1 To n S2 = S2 * (2 * n - 1) Next i Picture1.Print 4 * s Picture1.Print 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

25、) b = Fix(i / 10) - a * 10 c = i - Fix(i / 10) * 10 If a 3 + b 3 + c 3 = i Then T1.Text = T1.Text & 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 Text1.Text = a & vbCrLf

26、& b & vbCrLf For i = 1 To 14 s = s + a + b a = a + b b = a + b Text1.Text = Text1.Text & a & vbCrLf & b & vbCrLf Next i Text2.Text = sEnd Sub24設(shè)計(jì)如下圖所示界面，單擊時(shí)輸出相應(yīng)結(jié)果，2N之間素?cái)?shù)在列表框中輸出，要求判斷素?cái)?shù)用過程實(shí)現(xiàn)。Function h(a As Integer) As Boolean Dim m As Integer, s As Boolean m = 0 For i = 2 To (

27、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 Integera = Val(Text1)If h(a) = False Then Text2.Text = "不是素?cái)?shù)" Else Text2.Text = "是素?cái)?shù)"End IfEnd SubPrivate Sub Command2_Click()Dim i As Integera

28、 = Val(Text1)For i = 2 To a If h(i) = True Then List1.AddItem i Next iEnd Sub 25界面如上圖，單擊各按鈕時(shí)輸入行數(shù)，按此行數(shù)在窗體上顯示不同的圖形（參考教材練習(xí)6-15）。Private Sub Command1_Click()Clsa = Val(InputBox("請輸入行數(shù)")For i = 1 To a Print Tab(i); String(a, "*")Next iEnd SubPrivate Sub Command2_Click()Clsa = Val(Inpu

29、tBox("請輸入行數(shù)")For i = 1 To a Print Tab(a - i + 1); String(2 * i - 1, "*") Next iEnd SubPrivate Sub Command3_Click()Clsa = Val(InputBox("請輸入行數(shù)")For i = a To 1 Step -1 Print Tab(a - i + 1); String(2 * i - 1, "*") Next iEnd SubPrivate Sub Command4_Click()Clsa = Va

30、l(InputBox("請輸入行數(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設(shè)計(jì)如下圖所示界面，單擊時(shí)輸出N!和1!+2!+N!結(jié)果，要求N!用過程實(shí)現(xiàn)。Function h(n As Integer) As IntegerDim s As Integer s = 1 For i = 1 To n s = s * iNext i

31、 h = sEnd FunctionPrivate Sub Command1_Click()Dim n As Integern = Val(Text1)Text2.Text = h(n)End SubPrivate Sub Command2_Click()Dim n As Integerm = Val(Text1)s = 0For n = 1 To m s = s + h(n)Next nText3.Text = sEnd Sub 27 編寫一個(gè)程序，輸出一個(gè)5*5的矩陣，該矩陣主、負(fù)對角線上元素均為1，其余元素均為2，執(zhí)行結(jié)果如上圖所示。Option Base 1Dim A(5, 5) As

32、 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 CurrentX = j * 300 Print A(i, j); Next j, iEnd Sub28界面如下圖所示。分別在Textl和Text2中輸入兩個(gè)自然數(shù)x、y，用展轉(zhuǎn)相除的方法求自然數(shù)x，y的最大公約數(shù)和最小公

33、倍數(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 = r r = x Mod y Loop Label3.Caption = yEnd SubPrivate Sub Command2_Click()Label4.Caption = a * b / yEnd Sub

34、Text1Text2Label3Label429仿照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(18 - 3 * i); For j = 1 To i Print j; Next j Print Next iEnd SubPrivate Sub Comm

35、and3_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設(shè)計(jì)一個(gè)窗體Forml，編寫適當(dāng)?shù)氖录^程。控制Text1中背景色和字體格式。(字體默認(rèn)為宋體，內(nèi)容為“歡迎學(xué)習(xí)VB”)程序運(yùn)行界面如圖所示。Private

36、 Sub Check1_Click()Text1.FontBold = TrueEnd SubPrivate Sub Check2_Click()Text1.FontItalic = TrueEnd SubPrivate Sub Check3_Click()Text1.FontUnderline = TrueEnd SubPrivate Sub Option1_Click()Text1.BackColor = vbRedEnd SubPrivate Sub Option2_Click()Text1.BackColor = vbYellowEnd SubPrivate Sub Option3_C

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

38、0 To List1.ListCount - 1 List1.Selected(0) = True List2.AddItem List1.Text List1.RemoveItem 0Next iEnd SubPrivate Sub Command4_Click()For i = 0 To List2.ListCount - 1 List2.Selected(0) = True List1.AddItem List2.Text List2.RemoveItem 0Next iEnd Sub32設(shè)計(jì)界面如下圖所示，運(yùn)行時(shí)，當(dāng)移動滾動條時(shí)，在標(biāo)簽中能正確顯示攝氏、華氏溫度值(C=5（F-32）/

39、9) Private Sub Form_Load()VScroll1.Min = 100VScroll1.Max = 0End SubPrivate Sub VScroll1_Change()Label2.Caption = VScroll1.ValueLabel1.Caption = Format(VScroll1.Value * 9 / 5 + 32, "#.0")End Sub 33設(shè)計(jì)上面界面，按“開始”按鈕使標(biāo)簽在窗體上從左向右移動，當(dāng)遇到窗體的右側(cè)后，改成從右向左移動，按“停止”按鈕停止標(biāo)簽移動。Dim a As IntegerPrivate Sub Comma

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

41、 = "考試"If b = 0 Then Label1.Caption = "成功"End Sub35窗體上有一個(gè)名為L1的列表框，通過屬性向列表框添加3個(gè)項(xiàng)目，分別是“123、456、789”。當(dāng)啟動后，每次雙擊列表框中任何一項(xiàng)，則總在最后添加一項(xiàng)，該項(xiàng)是所有項(xiàng)之和。界面如下圖。Private Sub L1_DblClick()Dim b As Double, s As Doublea = Val(L1.ListCount)s = 0For i = 0 To ab = Val(L1.List(i) s = s + bNext iL1.AddItem s

42、End Sub 36設(shè)計(jì)如上界面，編寫適當(dāng)?shù)氖录^程。 程序運(yùn)行后，每過1秒鐘文本框的背景色能夠由紅到綠，綠到藍(lán)，再由藍(lán)到紅循環(huán)變化。Dim a As IntegerPrivate Sub Timer1_Timer()a = a + 1b = a Mod 3If b = 1 Then Text1.BackColor = vbRedIf b = 2 Then Text1.BackColor = vbGreenIf b = 0 Then Text1.BackColor = vbBlueEnd Sub37單擊第一個(gè)按鈕，生成20個(gè)0,100之間的隨機(jī)整數(shù)，顯示于文本框1中，單擊第二個(gè)按鈕，求這20個(gè)

43、數(shù)中的最大數(shù)和最小數(shù)，顯示于文本框2中。 Option Base 1Dim a(20) As IntegerPrivate Sub Command1_Click()Text1.Text = ""For i = 1 To 20 a(i) = Int(99 * Rnd - 0) Text1.Text = Text1.Text & 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 N

44、ext j, i Text2.Text = 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 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

45、* Rnd + 10) s1 = s1 & Space(2) & A(i, j) Next jPicture1.Print s1 & vbCrLf Next iEnd SubPrivate Sub Command2_Click()For i = 1 To 4 s1 = "" For j = 1 To 5 If i Mod 2 <> 0 Then 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 &a

46、mp; Space(2) & B(i, j) End If Next jPicture2.Print 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 = 1For i = 1 To h s = s * iNext iA = sEnd FunctionPrivate Sub Command1_Click()Dim m As

47、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)Text3.Text = kEnd Sub40生成兩個(gè)010之間的隨機(jī)整數(shù)矩陣，分別放入兩個(gè)列表框，求兩個(gè)矩陣之和放入第三個(gè)列表框。如下圖所示。Private Sub Form_Load()For i = 1 To 5 s1 = "" For j = 1 To 5 a(i, j) = Int(Rnd * 11) s

48、1 = s1 & Format(a(i, j), "!") Next j List1.AddItem 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 List2.AddItem s1 & vbCrLfNext iEnd SubPrivate Sub Command1_Click()For i = 1 To 5 s1 =

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

50、b Command1_Click()For i = 1 To 10 A(i) = Int(91 * Rnd + 10) Text1.Text = Text1.Text & 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 Text2.Text = Text2.Text &

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

52、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 List2.AddItem A(i) Next iEnd Sub 43編寫適當(dāng)?shù)氖录^程,在窗體上輸出相應(yīng)行數(shù)的楊輝三角形。點(diǎn)擊窗體彈出InputBox對話框，在對話框中輸入行數(shù)，打印出如上圖所示形態(tài)的楊輝三角形。Dim A() As IntegerPrivate Sub Form_Click()Dim m As Integer, n As Integer m = Val(InputBox("請輸入行數(shù)") n

53、 = m ReDim A(m, n) For i = 0 To m - 1 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 i

54、End Sub44編寫程序，實(shí)現(xiàn)矩陣轉(zhuǎn)置，即將一個(gè)nÍm的矩陣（均由隨機(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 jPi

55、cture1.Print sNext iEnd SubPrivate Sub Command2_Click()For i = 1 To 5s = "" For j = 1 To 4 b(i, j) = a(j, i) s = s & Space(2) & b(i, j) Next jPicture2.Print sNext iEnd Sub 45編寫函數(shù)過程計(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 FunctionPrivate 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 =