VB實驗指導(dǎo)例題

1、實驗A VB環(huán)境和可視化編程基礎(chǔ)1（1）運(yùn)行界面（2）參考代碼：Private Sub Command1_Click()label3.Caption = text1.TextEnd Sub2模仿教材例1.1，將事件過程中自上而下移動改為自右向左移動，也要考慮文字出窗體邊界的情況。（1）運(yùn)行界面（2）參考代碼：Private Sub Command1_Click()Timer1.Interval = 0Call mymoveEnd SubSub mymove()Label1.Move Label1.Left - 20If Label1.Left = 0 Then Label1.Left = Fo

2、rm1.WidthEnd SubPrivate Sub Command2_Click()Timer1.Interval = 200End SubPrivate Sub Timer1_Timer()Call mymoveEnd Sub3編寫一程序，在文本框中統(tǒng)計在該窗口上鼠標(biāo)單擊的次數(shù)。（1）運(yùn)行界面：（2）編寫代碼：Private Sub Form_Click()Text1 = Val(Text1) + 1End SubPrivate Sub Form_Load()Text1.Text = ""End Sub4代碼：Private Sub Form_Click()Form1

3、.Caption = "鼠標(biāo)單擊"Form1.Picture = LoadPicture("d:1.jpg")End SubPrivate Sub Form_DblClick()Form1.Caption = "鼠標(biāo)雙擊"Form1.Picture = LoadPicture("d:2.jpg")End SubPrivate Sub Form_Load()Form1.Picture = LoadPicture("d:3.jpg")End Sub5命令按鈕、字號、內(nèi)容和格式的復(fù)制練習(xí)（1）運(yùn)行界面

4、（2）參考代碼：Private Sub Command1_Click()Text1.FontName = "黑體"Text1.FontSize = 25End SubPrivate Sub Command2_Click()Text2.Text = Text1.SelTextText2.FontName = Text1.FontNameText2.FontSize = Text1.FontSizeText1.SetFocusEnd Sub實驗B 順序結(jié)構(gòu)1 編一個華氏溫度與攝氏溫度之間轉(zhuǎn)換的程序，要求用按鈕實現(xiàn)轉(zhuǎn)換。既單擊“華氏轉(zhuǎn)攝氏”按鈕，則將華氏溫度轉(zhuǎn)換為攝氏溫度；同樣，

5、單擊“攝氏轉(zhuǎn)華氏”按鈕，則將攝氏溫度轉(zhuǎn)換為華氏溫度。代碼：Private Sub Command1_Click()Dim f!, c!f = Val(Text1.Text)c = 5 / 9 * (f - 32)Text2.Text = Format(c, "0.00")End SubPrivate Sub Command2_Click()Dim f!, c!c = Val(Text2.Text)f = 9 / 5 * c + 32Text1.Text = Format(f, "0.00")End Sub2 （1）運(yùn)行界面（2）參考代碼Private S

6、ub Command1_Click()r = Text1.TextLabel1.Caption = Format(3.14 * r * r, ".00")Text1.SetFocusEnd SubPrivate Sub Command2_Click()r = Val(Text1.Text)Label2.Caption = Format(3.14 * 2 * r, ".00")Text1.SetFocusEnd SubPrivate Sub Text1_KeyPress(KeyAscii As Integer)If KeyAscii = 13 ThenIf

7、 Not IsNumeric(Text1) ThenMsgBox "輸入有誤,請重輸入"Text1.SetFocusText1.SelStart = 0Text1.SelLength = Len(Text1.Text)End IfEnd IfEnd SubPrivate Sub Text1_LostFocus()If Not IsNumeric(Text1) ThenMsgBox "輸入有非數(shù)字字符,請重新輸入", , "2-2"Text1.SetFocusText1.SelStart = 0Text1.SelLength = Len

8、(Text1.Text)End IfEnd Sub3 我國有13億人口，按人口增長0.8%計算，多少年后我國人口超過26億。（1）運(yùn)行界面（2）參考代碼Private Sub Command1_Click()a = Int(Log(2) / (Log(1 + 0.008) + 1Text1.Text = a & "年后,我國人口超過26億"End Sub4 輸入一字符串，分別調(diào)用Ucase、Len函數(shù)將其轉(zhuǎn)換成大寫字母并顯示其字符串長度（1） 運(yùn)行界面（2） 參考代碼Private Sub Command1_Click()Text2.Text = UCase(Tex

9、t1.Text)Text3.Text = Len(Text1.Text)End Sub5 隨機(jī)產(chǎn)生一個3位正整數(shù)，然后逆序輸出，產(chǎn)生的隨機(jī)數(shù)與逆序數(shù)同時顯示。例如，產(chǎn)生735，輸出是537（1）運(yùn)行界面（2）參考代碼：Private Sub Command1_Click()x = Int(899 + 1) * Rnd + 100)a = x 100b = (x Mod 100) 10c = x Mod 10Text1.Text = xText2.Text = c * 100 + b * 10 + aEnd Sub6 使用Mid、Left、Right函數(shù)。在Text1文本框中輸入一字符串，在la

10、bel1、Label2、Label3中顯示如圖的效果。（1） 運(yùn)行界面（2）參考代碼：Private Sub Form_Click()Text1.FontSize = 16Label1.FontSize = 16Label2.FontSize = 16Label3.FontSize = 16Text1.Text = "VisualBasic程序設(shè)計教程(第三版)"Label1.Caption = Left(Text1.Text, 11)Label2.Caption = Mid(Text1.Text, 12, 6)Label3.Caption = Right(Text1.Te

11、xt, 5)End Sub7 Print方法練習(xí)，顯示字符圖形。（1） 運(yùn)行界面（2）參考代碼：（a）Private Sub Command1_Click()PrintFor i = 1 To 5Print Tab(13 - 2 * i); String(2 * i - 1, ""); Spc(22 - 4 * i); String(2 * i - 1, "")Next iEnd SubPrivate Sub Command2_Click()Form1.ClsEnd Sub（b）Private Sub Command1_Click()PrintFor i

12、 = 1 To 5Print Tab(13 - 2 * i); String(2 * i - 1, ""); String(11 - 2 * i, ""); String(2 * i - 1, "")Next iEnd SubPrivate Sub Command2_Click()Form1.ClsEnd Sub8 用InputBox輸入一個正實數(shù)，用Print方法在一行上顯示出它的平方和平方根、立方和立方根，每個數(shù)保留三位小數(shù)，其間有間隔。(1)運(yùn)行界面(2)參考代碼：Private Sub Command1_Click()x =

13、Val(InputBox("輸入一個正實數(shù)")Form1.Print Format(x * x, ".000"); Spc(5); Format(Sqr(x), ".000"); Spc(5); Format(x * x * x, ".000"); Spc(5); Format(x (1 / 3), ".000")End Sub實驗C 選擇結(jié)構(gòu)一、 實驗?zāi)康? 掌握邏輯表達(dá)式的正確書寫形式2 掌握單分支與雙分支條件語句的使用。3 掌握多分支條件語句的使用。4 掌握情況語句的使用及其與多分支條件語

14、句之間的區(qū)別。二、實驗內(nèi)容1、在購買某物品時，若所標(biāo)明的價錢x在下述范圍內(nèi)，所付錢y按對應(yīng)所扣支付：提示：此題用多分支結(jié)構(gòu)實現(xiàn)，注意計算公式和條件表達(dá)式的正確書寫。實驗?zāi)康模赫莆斩噙卛f語句的正確使用實驗步驟：1 新建新工程2 要求單擊窗體提示物品的價錢，最后在窗體上顯示所付錢y 代碼如下：Private Sub Form_Click() Dim x As Single, y As Single x = Val(InputBox("請輸入物品價錢：") If x < 1000 Then y = x ElseIf x >= 1000 And x < 2000

15、 Then y = 0.9 * x ElseIf x >= 2000 And x < 3000 Then y = 0.8 * x ElseIf x >= 3000 Then y = 0.7 * x End If Print "所付錢為：" yEnd Sub2、編一程序輸入上網(wǎng)的時間并計算上網(wǎng)費(fèi)用，計算的方法如下：同時為了鼓勵多上網(wǎng)，每月收費(fèi)最多不超過150元。提示：首先利用多分支條件更具三個時間段算出費(fèi)用，然后再用if語句對超過150元的費(fèi)用設(shè)置為150元。略：提示和第一題類似3、輸入x,y,z三個數(shù)，按從大到小的次序顯示。實驗?zāi)康模赫莆諉芜吇蚯短譱f語句

16、的使用實驗步驟：1 新建工程2 代碼如下：Private Sub Form_click() Dim x As Integer, b As Integer, z As Integer, d As Integer dim x!,y!,z!x = InputBox("請輸入第一個數(shù)") y = InputBox("請輸入第二個數(shù)") z = InputBox("請輸入第三個數(shù)") Print "排序前" x; Spc(5); y; Spc(5); z If x < y Then d = x: x = y: y =

17、d End If If y < z Then d = y: y = z: z = d End If If x < y Then d = x: x = y: y = d End IfPrint "排序后" x; Spc(5); y; Spc(5); zEnd Sub4、利用實驗c的思想，隨機(jī)產(chǎn)生3個整數(shù)，按從小到大的順序顯示。Private Sub Form_click() Dim x As Integer, y As Integer, z As Integer, d As Integer Randomize x = Int(Rnd * 101): y = Int

18、(Rnd * 101): z = Int(Rnd * 101) Print "排序前" x; Spc(5); y; Spc(5); z If x > y Then d = x: x = y: y = d End If If y > z Then d = y: y = z: z = d End If If x > y Then d = x: x = y: y = d End IfPrint "排序后" x; Spc(5); y; Spc(5); zEnd Sub5、利用計算機(jī)解決古代數(shù)學(xué)問題“雞兔同籠問題”。即已知在同一籠子里有總數(shù)為m只

19、雞和兔，雞和兔的總腳數(shù)為n只，求雞和兔各有多少只？實驗?zāi)康模赫莆読f語句使用，分析解題中出現(xiàn)的可能情況，避免出現(xiàn)不合理的結(jié)果，提高解決實際問題的能力。實驗步驟：1 創(chuàng)建新工程界面如上2 代碼如下：Private Sub Form_Load() Label1.Caption = "輸入總只數(shù)" Label2.Caption = "輸入總腳數(shù)" Label3.Caption = "求得雞數(shù)" Label4.Caption = "求得兔數(shù)" Text1.Text = "" Text2.Text = &

20、quot;" Text3.Text = "" Text4.Text = ""End SubPrivate Sub Form_Load() Label1.Caption = "輸入總只數(shù)" Label2.Caption = "輸入總腳數(shù)" Label3.Caption = "求得雞數(shù)" Label4.Caption = "求得兔數(shù)" Text1.Text = "" Text2.Text = "" Text3.Text = &qu

21、ot;" Text4.Text = ""End SubPrivate Sub Text2_LostFocus() Dim m%, n%, y% m = Val(Text1) n = Val(Text2) If n Mod 2 <> 0 Then MsgBox ("腳數(shù)必定為偶數(shù)") Text2 = "" Text2.SetFocus Else y = n / 2 - m If y < 0 Then MsgBox "腳數(shù)必須>=2倍的頭數(shù),", vbOKOnly, "sy2

22、 - 5" Text2 = "" Text2.SetFocus Else x = m - y Text3 = x Text4 = y End If End IfEnd Sub6、輸入一元二次方程ax2+bx+c=0的系數(shù)a,b,c,計算并輸出一元二次方程的連個根x1，x2.實驗步驟：1 創(chuàng)建一個新的工程2 代碼如下：Private Sub Command1_Click() Dim a As Single, b As Single, c As Single a = Val(Text1.Text) b = Val(Text2.Text) c = Val(Text3.T

23、ext) If a <> 0 Then delta = b 2 - 4 * a * c re = -b / (2 * a) If delta > 0 Then sb = Sqr(delta) / (2 * a) Text4.Text = Str(re + sb) Text5.Text = Str(re - sb) ElseIf delta = 0 Then Text4.Text = Str(re) Text5.Text = Str(re) Else xb = Sqr(-delta) / (2 * a) Text4.Text = Str(re) & "+&qu

24、ot; & Str(xb) & "i" Text5.Text = Str(re) & "-" & Str(xb) & "i" End If Else If b <> 0 Then ygz = -b / c Text4.Text = Str(ygz) Else Text4.Text = "方程無意義！" End If End IfEnd SubPrivate Sub Command2_Click() EndEnd SubPrivate Sub Form_Load()

25、 Text1 = "": Text2 = "" Text3 = "": Text4 = "" Text5 = ""End Sub7、編一模擬袖珍計算器的完整程序，。要求：輸入兩個操作數(shù)和一個操作符，根據(jù)操作符決定所做的運(yùn)算。實驗?zāi)康模赫莆誷elect case語句的使用1 新建一個工程2 代碼如下：Private Sub Command1_Click() op = Trim(Text3.Text) Select Case op Case "+" Text4.Text = Va

26、l(Text1) + Val(Text2) Case "-" Text4.Text = Val(Text1) - Val(Text2) Case "*" Text4.Text = Val(Text1) * Val(Text2) Case "/" If Val(Text2) = 0 Then MsgBox "除數(shù)不能是零！，重新輸入" Text2 = "" Text2.SetFocus Else Text4.Text = Val(Text1) / Val(Text2) End If End Sel

27、ectEnd SubPrivate Sub Command2_Click() EndEnd SubPrivate Sub Form_Load() Text1.Text = "": Text2.Text = "" Text3.Text = "": Text4.Text = ""End SubPrivate Sub Command2_Click() EndEnd SubPrivate Sub Form_Load() Text1.Text = "": Text2.Text = ""

28、 Text3.Text = "": Text4.Text = ""End Sub8、輸入一個數(shù)字（17），分別通過select語句和choose函數(shù)兩種方法用英文顯示對應(yīng)的星期一星期日略:參考書上例子4.10實驗D循環(huán)結(jié)構(gòu)一、 實驗?zāi)康?1 掌握for語句的使用 2 掌握Do語句的各種形式的使用 3 掌握如何控制循環(huán)條件，防止死循環(huán)或不循環(huán)二、實驗內(nèi)容實驗?zāi)康模赫莆諉窝h(huán)結(jié)構(gòu)以及tab、trim函數(shù)的使用。1、利用單循環(huán)結(jié)構(gòu)顯示如圖所示的界面實驗步驟：1 創(chuàng)建一個新的工程2 代碼如下Private Sub Form_Click() For i = 1 T

29、o 9 Print Tab(10 - i); String(2 * i - 1, Trim(Str(i) Next iEnd Sub2、用單循環(huán)實現(xiàn)如圖的界面實驗步驟1 創(chuàng)建一個新的工程2 主要代碼如下：For i = 1 To 9 Print Tab(i); String(2 * (10 - i), Trim(Chr(i + 64)Next i3、計算s=1+1/2+1/4+1/7+1/11+1/16+1/22+1/29+.當(dāng)?shù)趇項的值<10-4時結(jié)束。提示：找出規(guī)律，第i項的分母是前一項的分母加i開始計數(shù)。可利用for循環(huán)結(jié)構(gòu)的循環(huán)控制變量獲得項數(shù)，當(dāng)某項達(dá)到規(guī)定的精度時退出循環(huán)。實

30、驗?zāi)康模豪醚h(huán)，計算部分級數(shù)和。實驗步驟：1 創(chuàng)建一個新的工程，窗體布局如右圖2 代碼如下：Private Sub Command1_Click() Dim s!, t!, i& s = 1: t = 1: i = i Do While 1 / t > 0.00001 t = t + i s = s + 1 / t i = i + 1 Loop Print "Do while結(jié)構(gòu)" s, i - 1; "項"End SubPrivate Sub Command2_Click() Dim s!, t!, i& s = 1: t =

31、1 For i = 1 To 100000 t = t + i s = s + 1 / t If 1 / t < 0.00001 Then Exit For Next i Print "for 結(jié)構(gòu)" s, i; "項"End Sub4、計算的近似值，的計算公式為：=實驗步驟： 1 新建一個工程 2 代碼如下：注意溢出問題Private Sub Form_Click() Dim i As Long, s As Double s = 2 n% = Val(InputBox("輸入n的值：") For i = 1 To n s =

32、s * (2 * i) 2) / (2 * i - 1) * (2 * i + 1) Next i Print "當(dāng)n為：" n; "時計算結(jié)果為" sEnd Sub5、求sn=a+aa+aaa+aaaa+.+aaa(n個a)，其中a是一個隨機(jī)數(shù)產(chǎn)生的19（包括1，9）中的一個正整數(shù)，n是一個隨機(jī)產(chǎn)生的510（包括5，10）中的一個數(shù)。實驗?zāi)康模簩W(xué)會根據(jù)問題的要求找規(guī)律、寫通項；掌握循環(huán)的正確使用。實驗步驟：1 新建一個工程2 代碼如下：Private Sub Form_Click() Dim s!, t!, i!, a%, n% a = Int(Rnd

33、 * 9 + 1) n = Int(Rnd * 6 + 5) Print "a=" & a; "n=" & n t = 0: s = 0 For i = 1 To n t = t * 10 + a s = s + t Print t; Next i Print "s=" sEnd Sub6、編一程序，顯示出所有的水仙花數(shù)。所謂水仙花數(shù)，是指一個3位數(shù)，其各位數(shù)字立方和等于數(shù)字本身。提示：解該題的方法有兩種：1 利用三重循環(huán)，將三個數(shù)連接成一個3位數(shù)進(jìn)行判斷。實驗步驟：1 新建一個工程2 代碼如下：Private Sub

34、 Form_Click()Dim i%, j%, k% For i = 1 To 9 For j = 0 To 9 For k = 0 To 9 a = i 3 + j 3 + k 3 b = i & j & k If a = Val(b) Then Print b & "是水仙花數(shù)" End If Next k Next j Next iEnd Sub2 利用單循環(huán)將一個3位數(shù)逐位分離后進(jìn)行判斷。實驗步驟：1 新建一個工程2 代碼如下：Private Sub Form_Click() Form1.FontSize = 24 For n = 100

35、To 999 a = Int(n / 100) 'a100 b = Int(n - a * 100) / 10) '(a mod 100)10 c = n - (a * 100 + b * 10) 'a mod 10 p = a 3 + b 3 + c 3 If p = n Then Print p Next n End Sub7、用迭代法求x=.求立方根的迭代公式為：迭代到為止，為方程的近似解。實驗?zāi)康模豪玫角蠓匠痰慕平?。實驗步驟：1 新建一個工程2 代碼如下：Private Sub Form_Click() Dim a!, x0!, x1! a = 27

36、x0 = 2 i = 0 Do i = i + 1 x1 = 2 * x0 / 3 + a / (3 * x0 * x0) If Abs(x1 - x0) < 0.00001 Then Exit Do x0 = x1 Loop Print "迭代結(jié)果為：" x1; "迭代次數(shù)為：" i Print "利用乘方運(yùn)算結(jié)果為：" a (1 / 3)End Sub8、一個富翁視圖與陌生人做一筆還錢生意，還錢規(guī)則為：陌生人每天給富翁10萬元錢，直到滿一個月（30天）；而符文第一天給陌生人1分錢，第二天2分，第三天4分，.富翁每天給陌生人的

37、錢是前一天的兩倍，直到滿一個月。分別顯示富翁給陌生人的錢和陌生人給富翁的錢為多少？實驗步驟：參考答案1 新建一個工程2 代碼如下：Private Sub Form_Click() Print "富翁給陌生人的錢為：" Dim i As Integer, x As Single, s As Single i = 0: x = 0.01: s = 0.01 While i < 30 x = x * 2 s = s + x i = i + 1 Wend Print s * 100 Print "陌生人給富翁的錢為：" & 100000 * 30E

38、nd Sub9、用計算機(jī)安排考試日程。期末某專業(yè)在周一周六的6天時間內(nèi)要考x，y，z三門課程，考試順序為先考x，然后考y，最后考z，規(guī)定一天只能考一門，且z課程只能安排在周五或周六考。編寫程序安排考試日程（即x，y，z三門課程各在哪一天考），要求列出滿足條件的所有方案。實驗步驟：實驗步驟：參考答案1 新建一個工程2 代碼如下：Private Sub Form_Click() Dim i%, j%, k% For i = 1 To 6 For j = 1 To 6 For k = 5 To 6 If i < j And j < k Then Print "x在周"

39、 & i, "y在周" & j, "z在周" & k End If Next k Next j Next iEnd Sub實驗E 數(shù)組和自定義類型1、隨機(jī)產(chǎn)生30100的10個整數(shù)，求最大值，最小值，平均值，并顯示整個數(shù)組的值和結(jié)果。Dim a(10) As IntegerPrivate Sub Form_Activate()Dim i As Integer, max As Integer, min As Integer, avg As IntegerRandomizeFontSize = 15For i = 1 To 10 a(

40、i) = Int(Rnd * 71 + 30) Print a(i);NextPrint " "max = a(1)For i = 2 To 10 If max < a(i) Then max = a(i) End IfNextPrint "max=" maxmin = a(1)For i = 2 To 10 If min > a(i) Then min = a(i) End IfNextPrint "min=" minavg = 0For i = 1 To 10 avg = avg + a(i)Nextavg = avg

41、 / 10Print "avg=" avgEnd Sub2、已知6個學(xué)生的成績，通過對數(shù)組賦初值的方法，利用String函數(shù)，以每五分為一個標(biāo)記顯示，并顯示學(xué)生的成績。Dim a(6) As IntegerPrivate Sub Form_Activate()Dim i As Integer, j As Integer, k As IntegerFontSize = 10a(1) = 56a(2) = 78a(3) = 98a(4) = 88a(5) = 76a(6) = 78For i = 1 To 6 j = a(i) 5 Print String(j, Chr(17)

42、; a(i)NextEnd Sub3、隨機(jī)產(chǎn)生20個學(xué)生的成績，統(tǒng)計各個分?jǐn)?shù)段人數(shù)。即059、6069、7079、8089、90100，并顯示結(jié)果，產(chǎn)生數(shù)據(jù)在Picture1中顯示，統(tǒng)計結(jié)果在Picture2中顯示。Dim a(20) As IntegerPrivate Sub Command1_Click()Dim i As IntegerRandomizeFor i = 1 To 20 a(i) = Int(Rnd * 101) Picture1.Print a(i); " " If i Mod 4 = 0 Then Picture1.Print End IfNextE

43、nd SubPrivate Sub Command2_Click()Dim s(9) As Integer, j As Integer, k As IntegerFor j = 1 To 20 k = a(j) 10 Select Case k Case 0 To 5 s(5) = s(5) + 1 Case 9 To 10 s(9) = s(9) + 1 Case 6 To 8 s(k) = s(k) + 1 End SelectNextFor j = 0 To 9 If s(j) <> 0 Then Picture2.Print "s(" j; "

44、)的人數(shù)有：" s(j); "個" End IfNextEnd Sub4、隨機(jī)產(chǎn)生10個2位數(shù)，按照從大到小的遞減順序排列，并顯示排序結(jié)果。Dim a(10) As IntegerPrivate Sub Form_Activate()Dim i As Integer, j As Integer, t As IntegerFontSize = 15For i = 1 To 10 a(i) = Int(Rnd * 90 + 10) Print a(i); " "NextPrintFor i = 1 To 9 For j = i + 1 To 10

45、If a(i) < a(j) Then t = a(i): a(i) = a(j): a(j) = t End If NextNextFor i = 1 To 10 Print a(i); " "NextEnd Sub5、在通用段聲明兩個二維數(shù)組，利用隨機(jī)函數(shù)形成各個元素。要求：1）以下三角形顯示A數(shù)組，上三角形顯示B數(shù)組。2）求A數(shù)組主對角線元素之和和B數(shù)組副對角線元素之和。Dim a(4, 4) As Integer, b(4, 4) As IntegerDim i As Integer, j As Integer, sum1 As Integer, sum2 A

46、s IntegerPrivate Sub Command1_Click()For i = 1 To 4 For j = 1 To i Picture1.Print a(i, j); " " NextPicture1.PrintNextEnd SubPrivate Sub Command2_Click()For i = 1 To 4 If i <> 1 Then For k = 1 To 6 * (i - 1) Picture2.Print " " Next End If For j = i To 4 Picture2.Print b(i, j

47、); " " NextPicture2.PrintNextEnd SubPrivate Sub Command3_Click()Dim x As Integer, y As IntegerFor i = 1 To 4 For j = 1 To 4 If i = j Then x = x + a(i, j) End If If i + j = 5 Then y = y + b(i, j) End If NextNext Picture3.Print x Picture3.Print yEnd SubPrivate Sub Form_Activate()For i = 1 To

48、 4 For j = 1 To 4 a(i, j) = Int(90 * Rnd + 10) b(i, j) = Int(900 * Rnd + 100) NextNextFor i = 1 To 4 For j = 1 To 4 Picture4.Print a(i, j); " " NextPicture4.PrintNextFor i = 1 To 4 For j = 1 To 4 Picture5.Print b(i, j); " " NextPicture5.PrintNextEnd Sub6、輸入整數(shù)n,顯示出具有n行的楊輝三角形。Dim a

49、()Private Sub Form_Load()Form1.FontSize = 22Label1.FontSize = 18Label1.Caption = "輸入行數(shù)："Text1.FontSize = 18Text1.Text = ""End SubPrivate Sub Text1_KeyPress(KeyAscii As Integer)Dim n As IntegerIf KeyAscii = 13 Thenn = Val(Text1.Text)ClsIf n > 10 ThenMsgBox "請不要超過10！"E

50、xit SubEnd IfReDim a(n, n)For i = 1 To na(i, 1) = 1: a(i, i) = 1Next iPrint Tab(20); Format(1, "!") & Chr(13)Print Tab(18); Format(1, "!") & Space(2) & Format(1, "!") & Chr(13)For i = 3 To nPrint Tab(20 - i * 2); Format(a(i, 1), "!") & Spac

51、e(2);For j = 2 To i - 1a(i, j) = a(i - 1, j - 1) + a(i - 1, j)Print Format(a(i, j), "!");Next jPrint Space(2) & Format(a(i, i), "!") & Chr(13)Next iEnd IfEnd Sub7、設(shè)計一個選課的運(yùn)行界面，它包含2個列表框，左邊為已經(jīng)開設(shè)的課程名稱，通過Form_Load事件加入，并按拼音字母排序；當(dāng)單擊某課程名稱后，將該課程加入到右邊列表框，并在左邊列表框中刪除該課程，當(dāng)左邊課程數(shù)已滿5門時，不

52、允許再加入，出現(xiàn)消息框提示信息。Dim a As IntegerPrivate Sub Form_Load()List1.AddItem "Web程序設(shè)計"List1.AddItem "多媒體技術(shù)與應(yīng)用"List1.AddItem "網(wǎng)絡(luò)技術(shù)與應(yīng)用"List1.AddItem "軟件技術(shù)基礎(chǔ)"List1.AddItem "VB程序設(shè)計"List1.AddItem "數(shù)據(jù)庫技術(shù)與應(yīng)用"List1.AddItem "硬件技術(shù)基礎(chǔ)"List1.AddItem &

53、quot;C/C+程序設(shè)計"List1.AddItem "大學(xué)計算機(jī)基礎(chǔ)"End SubPrivate Sub List1_Click()a = a + 1If a > 5 Then MsgBox "超過5門課程，不能再選", 0, "提示" Exit SubEnd IfList2.AddItem List1.TextList1.RemoveItem List1.ListIndexEnd Sub8、思考練習(xí)9、思考練習(xí)10、參考代碼： Private Type zgtype no As Integer name As

54、String * 10 pay As SingleEnd TypeDim s() As zgtype, n As IntegerPrivate Sub Command1_Click()Dim t As zgtypen = n + 1ReDim s(1 To n)With s(n) .no = Val(Text1.Text) .name = Text2.Text .pay = Val(Text3.Text)End With Picture1.Print s(n).no; " " s(n).name; " " s(n).payEnd SubPrivate Sub Command2_Click()Dim t As zgtypePicture1.ClsFor i = 1 To n - 1 For j = i + 1 To n If s(j).pay > s(i).pay Then t = s(j): s(j) = s(i): s(i) = t End If NextNextFor i = 1 To n Picture1.Print s(i).no, s(i).name, s(i).payNextEnd Sub實驗F 過程1、編一子程