VB程序設計課堂例題總結

1、VB程序設計課堂例題總結 消息對話框的使用Private Sub Command1_Click()If Not IsNumeric(Text1) Then i% = MsgBox("你輸入的不是數(shù)字!", 5 + vbQuestion, "警告") If i = 4 Then Text1.SetFocus Else EndElse MsgBox "你好", , "歡迎"End IfEnd Sub求圓的周長與面積Private Sub Form_Click()Dim r!, s!, c!Const pi = 3.14

2、159 用戶聲明常量r = InputBox("請輸入園的半徑：")s = pi * r * rc = 2 * pi * rMsgBox "園的周長為：" & c & " 面積為：" & sEnd Sub計算三角形的面積Private Sub Command1_Click()Dim a%, b%, c%, s#, area#Dim str1$ a = Val(InputBox("a:") b = Val(InputBox("b:") c = Val(InputBox(&q

3、uot;c:") s = (a + b + c) / 2 area = Sqr(s * (s - a) * (s - b) * (s - c) str1 = "area=" & area MsgBox str1 Print str1End Sub字體的放大與縮小隨機放大13整數(shù)倍：Text1.FontSize = Text1.FontSize * Int(Rnd()*3+1)縮小的比例為任意：Text1.FontSize = Text1.FontSize * Rnd() 連接與求和Private Sub Command1_Click()Text3.Visi

4、ble = TrueText3.Text = Text1.Text & Text2.Text '也可以用Text1.Text + Text2.TextCommand1.Enabled = FalseEnd SubPrivate Sub Command2_Click()Text3.Text = Val(Text1.Text) + Val(Text2.Text)End Sub字符串的替換方法一：（多個函數(shù)）Private Sub Command1_Click() i = InStr(Text1, Text2) '在Text1中查找出現(xiàn)Text2內容的位置 k = i + L

5、en(Text2) ' 定位右子串的起始位置 Ls = Left(Text1, i - 1) ' 取左子串 Text4 = Ls + Text3 + Mid(Text1, k) ' 左子串連接替換為子串連接右子串實現(xiàn)替換 '也可以將上面兩步合并為 Text4 = Left(Text1, i - 1) + Text3 + Mid(Text1, k)End Sub方法二：（Replace函數(shù)）Private Sub Command2_Click() Text4 = Replace(Text1, Text2, Text3)End Sub身份證的查找Private Su

6、b Command1_Click() Dim a As String, nl%, yue%, ri%, b%, xb$ a = Text1.Text nl = 2010 - Val(Mid(a, 7, 4) 'nl = Year(Now() - Val(Mid(a, 7, 4) yue = Mid(a, 11, 2) ri = Mid(a, 13, 2) b = Val(Mid(a, 17, 1) If b Mod 2 = 1 Then xb = "GG" Else xb = "MM" ption = nl ption = yue & &

7、quot;月" & ri & "日" ption = "你是" & xbEnd Sub電話號碼升位：將原來任意一個帶區(qū)號的7位電話號碼升到8位，在最前面加8。區(qū)號及電話號碼確定：Left(s,4) & ”8” & Right(s,7) 區(qū)號及電話號碼不確定：Private Sub Command1_Click() Dim a As String a = Text1.Text b = InStr(a, "-") ption = Left(a, b) &

8、"8" & Right(a, 7) 'ption = Left(a, b) & "8" & mid(a, b+1)End Sub求一元二次方程的根Private Sub Command1_Click()Dim a!, b!, c!, x1!, x2!, y!a = Val(Text1.Text): b = Val(Text2.Text): c = Val(Text3.Text)y = b 2 - 4 * a * cIf y < 0 Then MsgBox ("方程沒有實數(shù)根")Else x1 =

9、(-b + Sqr(y) / 2 / a x2 = (-b - Sqr(y) / 2 / a ption = x1 ption = x2End IfEnd Sub雞兔同籠問題：雞兔同籠，有h個頭和f只腳，問有雞兔各幾只？判斷條件：1.頭和腳的數(shù)大于零2.腳數(shù)為偶數(shù)3.腳數(shù)是頭數(shù)的24倍之間設：有雞c只，兔r只h=c+rf=2c+4rc=(4h-f)/2r=(f-2h)/2Private Sub Command1_Click() Dim H As Integer, F As Integer Dim C As Integer, R As Integer H = Val(Text1.Text) F

10、= Val(Text2.Text) If F > 0 And H > 0 And F Mod 2 = 0 And F >= H * 2 And F <= H * 4 Then R = (F - 2 * H) / 2 C = H - R ption = "Chicken:" + Str(C) + vbCrLf + "Rabbit:" + Str(R) Else MsgBox "輸入錯" End IfEnd Sub加密程序：將“明文”的大寫字母隨機向右移動13位，形成“密碼”。Private Sub Command

11、1_Click()Dim m%,s$Text1 = UCase(Text1) '變成大寫字母m = Int(Rnd * 3) + 1 '隨機為生加密移動的位數(shù)ption = "向右移動的位數(shù)是：" & ms = Text1If s >= "A" And Chr(Asc(s) + m) <= "Z" Then '移動后不會超過字母"Z"的字母 s = Chr(Asc(s) + m) '正常右移m位Else s = Chr(Asc(s) + m - 26) '

12、移動后超過"Z"的，要減去26End IfLabel4 = sEnd SubPrivate Sub Form_Load()RandomizeEnd Sub加密程序：根據(jù)單選按鈕的數(shù)字，將明文中每個字母改為其后第n個字母。Private Sub Command1_Click()Dim m%, k%Text2 = ""m = IIf(Option1.Value = True, 1, IIf(Option2.Value = True, 2, 3)For i = 1 To Len(Text1) s = Mid(Text1, i, 1) If "a&qu

13、ot; <= Chr(Asc(s) + m) <= "z" Or "A" <= Chr(Asc(s) + m) <= "Z" Then s = Chr(Asc(s) + m) Else s = Chr(Asc(s) + m - 26) End If Text2 = Text2 & sNext iEnd Sub顯示特殊圖形Private Sub Form_Click() Print For i = 1 To 5 Print Tab(i); String(6 - i, ""); Spc(

14、6); String(i, "") Next iEnd Sub登陸程序判斷Private Sub Command1_Click() If Text1.Text = "basic1234" Then MsgBox "祝賀你，成功登錄！" Else MsgBox "對不起，口令錯誤，無法登錄！" Text1.Text = "" Text1.SetFocus End IfEnd Sub判斷能否構成三角形，若能則判斷是否等邊、等腰、直角三角形Private Sub Command1_Click() Di

15、m a%, b%, c% a =Val(InputBox("a=") a =Val(InputBox("a=") a =Val(InputBox("a=") If a > 0 And b > 0 And c > 0 And a + b > c And _ b + c > a And a + c > b Then MsgBox "可以構成三角形"If a = b And b = c Then s = s & "，是等邊三角形"ElseIf a = b O

16、r a = c Or b = c Then s = s & "，等腰三角形"ElseIf a 2 + b 2 = c 2 Or a 2 + c 2 = b 2 Or c 2 + b 2 = a 2 Then s = s & " ,直角三角形" End IfElse MsgBox "不可以構成三角形" End IfEnd Sub輸入一個字符,判斷該字符是字母字符、數(shù)字字符還是其它字符，并作相應的顯示。方法一：Private Sub Command1_Click()Dim strc As String * 1strc =

17、InputBox("請輸入一個符號：")If UCase(strc) >= "A" And UCase(strc) <= "Z" Then Text1.Text = strc & "是字母"ElseIf strc >= "0" And strc <= "9" Then Text1.Text = strc & "是數(shù)字"Else Text1.Text = strc & "是其它字符"End

18、IfEnd Sub方法二：Private Sub Command2_Click()Dim strc As String * 1strc = InputBox("請輸入一個符號：")Select Case strc Case "a" To "z", "A" To "Z" Text1.Text = strc & "是字母" Case "0" To "9" Text1.Text = strc & "是數(shù)字"

19、 Case Else Text1.Text = strc & "是其它字符"End SelectEnd Sub模擬計算器方法一：Private Sub Command1_Click() Dim sInput1 As Single, sInput2 As Single, oper As String * 1 Dim iError As Integer sInput1 = Val(Text1.Text) sInput2 = Val(Text3.Text) oper = Trim(Text2) If oper = "+" Then Text4.Text

20、 = Str(sInput1 + sInput2) ElseIf oper = "-" Then Text4.Text = Str(sInput1 - sInput2) ElseIf oper = "*" Then Text4.Text = Str(sInput1 * sInput2) ElseIf oper = "/" Then If sInput2 <> 0 Then Text4.Text = Str(sInput1 / sInput2) Else MsgBox ("分母為零,出錯") Text3.

21、Text = "" Text3.SetFocus End If Else MsgBox ("運算符出錯,再輸入") Text2.Text = "" Text2.SetFocus End IfEnd Sub方法二：Private Sub Command2_Click() Dim sInput1 As Single, sInput2 As Single Dim iError As Integer sInput1 = Val(Text1.Text) sInput2 = Val(Text3.Text) Select Case Trim(Tex

22、t2) Case "+" Text4.Text = Str(sInput1 + sInput2) Case "-" Text4.Text = Str(sInput1 - sInput2) Case "*" Text4.Text = Str(sInput1 * sInput2) Case "/" If sInput2 <> 0 Then Text4.Text = Str(sInput1 / sInput2) Else MsgBox ("分母為零,出錯") Text3.Text = &q

23、uot;" Text3.SetFocus End If Case Else MsgBox ("運算符出錯,再輸入") Text2.Text = "" Text2.SetFocus End SelectEnd Sub開始運行如左下圖所示，單擊“出題”按鈕后計算機自動出題，窗口如右下圖所示，此時由用戶輸入加法運算答案，然后單擊“判定”按鈕。如果用戶運算正確則提示“運算正確”，否則顯示“運算錯誤”。再次按下“出題”就會再出一道題。Private Sub Form_Load() Randomize ption = "出題"End S

24、ubPrivate Sub Command1_Click() Iption = "出題" Then Text1 = Int(Rnd * 101): Text2 = Int(Rnd * 101) Text3.SetFocus ption = "判定" Else If Val(Text1) + Val(Text2) = Val(Text3) Then MsgBox ("答對了，你真聰明！") ption = "出題" Text1 = "": Text2 = "": Text3 =

25、 "" Else MsgBox ("錯了，努力?。?quot;) Text3 = "" Text3.SetFocus End If End IfEnd SubPrivate Sub Command2_Click() EndEnd Sub修改密碼登錄程序。要求：建立一個登錄窗口,要求輸入密碼。設定密碼為“basic1234”(不區(qū)分大小寫);若密碼正確,顯示“祝賀你,成功登錄!”;若密碼不正確,顯示“對不起,密碼錯誤,無法登錄!”，并統(tǒng)計出錯次數(shù)，當輸入超過3次時，則退出系統(tǒng)。Private Sub Command1_Click() If LCa

26、se(Text2.Text) = "basic1234" Then MsgBox "祝賀你，成功登錄！" Else MsgBox ("對不起，口令錯誤，無法登錄！") n = n + 1 Text2.Text = "" Text2.SetFocus If n >= 3 Then Unload Me '也可以用End End IfEnd SubPrivate Sub Text1_LostFocus() If Len(Text1) <> 6 Or Not IsNumeric(Text1) Th

27、en MsgBox "帳號必須是6位數(shù)字！" Text1 = "" Text1.SetFocus End IfEnd Sub分別輸入年份和月份,根據(jù)輸入數(shù)據(jù)顯示該年該月有多少天?Private Sub Command1_Click()Dim y%,m%y=InputBox(“輸入年份：")m=InputBox(“輸入月份：")Select Case m Case 1,3,5,7,8,10,12 MsgBox y & “年” & m & “月有31天！” Case 4,6,9,11 MsgBox y &

28、“年” & m & “月有30天！” Case 2If y mod 400=0 or y mod 4 _ =0 and y mod 100<> 0 Then MsgBox y & “年” & m & “月有29天！”Else MsgBox y & “年” & m & “月有28天！”End If Case Else Magbox “輸入錯誤，月份應該是1-12之間！”End Select End Sub求1+2+3+100的值方法一：Private Sub Command1_Click()Dim i%, sum% su

29、m = 0 For i = 1 To 100 sum = sum + i Next i Print "1 100 的和是：" sumEnd Sub方法二：Private Sub Form_Click()Dim i%, sum% sum = 0 i = 1 Do While i <= 100 sum = sum + i i = i + 1 Loop Print "1 100 的和是：" sumEnd Sub求任意數(shù)的階乘Private Sub Command2_Click()Dim i%, n%, sum#sum = 1n = Val(InputBo

30、x("請輸入階乘數(shù)“")For i = 1 To nsum = sum * iNextPrint n; "的階乘為" sumEnd Sub輸入若干個學生的成績，求總分、平均分。輸入時以-1作為結束標記。Private Sub Command1_Click()Dim n%, i%, sum%, max%, mark%, aver!mark = Val(InputBox("請輸入成績")Do While mark <> -1Print mark If max < mark Then max = mark sum = su

31、m + mark n = n + 1 mark = Val(InputBox("請輸入成績")Loopaver = sum / nPrint "總分為：" sumPrint "平均為：" averPrint "最高分為：" maxEnd Sub找出1100之間所有能被3整除并且個位數(shù)字為2的數(shù)。Private Sub Command1_Click()Dim i% For i = 1 To 100 If i Mod 3 = 0 And i Mod 10 = 2 Then Print i End If NextEnd

32、Sub輸入一字符串，統(tǒng)計字母 “a”（包括大小寫）的個數(shù)。Private Sub Command1_Click()Dim i%, s$, ch$, n%s = InputBox("請輸入一串字符串：")Print "字符串為：" sn = 0For i = 1 To Len(s) ch = Mid(s, i, 1) If LCase(ch) = "a" Then n = n + 1NextPrint "字符a的個數(shù)為：" nEnd Sub將輸入的字符串首尾顛倒后輸出。方法一：Private Sub Command1

33、_Click()Dim i%, s1$, ch$, s2$s1 = InputBox("請輸入一串字符串：")Print "原始字符串為：" s1For i = 1 To Len(s1) ch = Mid(s1, i, 1) s2 = ch & s2NextPrint "倒序后字符串為：" s2End Sub方法二：Private Sub Command2_Click()Dim i%, s1$, ch$, s2$s1 = InputBox("請輸入一串字符串：")Print "原始字符串為：&qu

34、ot; s1For i = Len(s1) To 1 Step -1 ch = Mid(s1, i, 1) s2 = s2 & chNextPrint "倒序后字符串為：" s2End Sub方法三：Private Sub Command3_Click()Dim i%, n%, s$, ch$s = InputBox("請輸入一串字符串：")Print "原始字符串為：" sn = Len(s)For i = 1 To n / 2 ch = Mid(s, i, 1) Mid(s, i, 1) = Mid(s, n - i +

35、1, 1) Mid(s, n - i + 1, 1) = chNextPrint "倒序后字符串為：" sEnd Sub統(tǒng)計其中分別有多少個大寫字母、小寫字母、數(shù)字和其他字符并輸出結果Private Sub Command1_Click()Dim i%, s$, ch$, n1%, n2%, n3%s = InputBox("請輸入一串字符串：")Print "字符串為：" sn1 = 0: n2 = 0: n3 = 0For i = 1 To Len(s) ch = Mid(s, i, 1) If LCase(ch) >= &

36、quot;a" And LCase(ch) <= "z" Then n1 = n1 + 1 ElseIf ch >= "0" And ch <= "9" Then n2 = n2 + 1 Else n3 = n3 + 1 End If NextPrint "字母的個數(shù)為：" n1Print "數(shù)字的個數(shù)為：" n2Print "其他字符的個數(shù)為：" n3End Sub輸入10個同學考試的等級，如果A計5分，B計4分，以此類推，求這10個同學的平均成

37、績。 Private Sub Form_Click()Dim i%, sum%, mark$, aver!For i = 1 To 10 mark = InputBox("請輸入成績") Print mark, If i Mod 5 = 0 Then Print Select Case UCase(mark) Case "A": sum = sum + 5 Case "B": sum = sum + 4 Case "C": sum = sum + 3 Case "D": sum = sum +

38、2 Case "E": sum = sum + 1 Case Else: sum = sum + 0 End SelectNextaver = sum / 10Print "平均為：" averEnd Sub輸出斐波那契級數(shù)1、1、2、3、5、8、13的前30項。此級數(shù)項的規(guī)律是：前兩項的值各為1，從第3項起，每一項是前2項的和。（要求一行輸出6項）Private Sub Command1_Click()Dim a#, b#, c#, i%a = 1 '第一項為1b = 1 '第二項為1Print a; b; '打印前兩項For

39、i = 3 To 30 '求剩余的28項 c = a + b '每一項都是前兩項之和 Print c; '打印輸出 If i Mod 6 = 0 Then Print '一行打印6個即換行 a = b '新的第一項 b = c '新的第二項NextEnd Sub編寫程序輸出2000年至2500年間的所有閏年，要求每行輸出8個 Private Sub Command1_Click()Dim y%, n%For y = 2000 To 2500 If y Mod 400 = 0 Or y Mod 4 = 0 And y Mod 100 <>

40、; 0 Then Print y If y Mod 8 = 0 Then Print End IfNext yEnd Sub回文字串：香蓮碧水動風涼，水動風涼夏日長。長日夏涼風動水，涼風動水碧蓮香。 Private Sub Command1_Click()Dim s$, n%, i%s = InputBox("請輸入一個整數(shù)：")n = Len(s)For i = 1 To n / 2 If Mid(s, i, 1) <> Mid(s, n - i + 1, 1) Then Print s; "不是回文數(shù)！" Exit For End IfN

41、extIf i > n / 2 Then Print s; "是回文數(shù)！"End Sub輸入一個正整數(shù)，判斷該數(shù)是否為素數(shù)。（素數(shù)是指一個數(shù)只能被1和其本身整除。）Private Sub Command1_Click()Dim i%, n%, s$n = Val(InputBox("請輸入一個正整數(shù)：")s = n & "是素數(shù)"For i = 2 To n - 1 If n Mod i = 0 Then s = n & "不是素數(shù)" Exit For End IfNextPrint sEnd

42、 Sub隨機產生10個100200之間的數(shù)，找出其中的最大值。Private Sub Command1_Click()Dim i%, a%, max%ClsRandomizea = Int(Rnd * 101) + 100 '先產生一個數(shù),作為最大值的初值max = aPrint aFor i = 2 To 10 '緊跟著產生剩下的9個數(shù) a = Int(Rnd * 101) + 100 Print a If a > max Then max = a '拿新產生的數(shù)來與最大值作比較，若比最大值大，則取代其，作為新的最大值NextPrint "最大值為&q

43、uot; maxEnd Sub計算1！+2！+3！+.+10! 的值Dim sum#, i%, j%, n#sum = 0: n = 1For i = 1 To 10 n = 1 For j = 1 To i n = n * j Next j sum = sum + nNext iPrint "1！+2！+3！+.+10!=" sum顯示九九乘法表Private Sub Form_Click()Dim i%, j%ClsPrint "* |"For i = 1 To 9 Print " " i;NextPrintPrint "

44、;-|-"For i = 1 To 9 Print i; "| " For j = 1 To i Print i * j; Next j PrintNext iEnd Sub打印如下圖圖案Private Sub Form_Click()Dim i%, j%ClsFor i = 1 To 9 Print Space(11 - i); For j = 1 To 2 * i - 1 Print "*" Next j PrintNext iFor i = 8 To 1 Step -1 Print Space(11 - i); String(2 * i

45、- 1, "*")NextEnd Sub輸出100以內的素數(shù)Private Sub Form_Click()Dim i%, n%,Tag as Boolean For n= 1 to 100 Tag= True For i = 2 To n - 1 If n Mod i = 0 Then Tag=False Exit For End If Next i If Tag=True then Print n Next nEnd sub窮舉法：百元買百雞問題。假定小雞每只5角，公雞每只2元，母雞每只3元。現(xiàn)在有100元錢要求買100只雞，編程列出所有可能的購雞方案。 方法一： Pr

46、ivate Sub Command1_Click()Dim x%, y%, z%For x= 0 to 100 For y= 0 to 100 For z= 0 to 100 step 2 If x+y+z=100 and 3*x+2*y+z*0.5=100 Then Print x,y,z End IfNext z,y,xEnd Sub方法二：Private Sub Command1_Click()Dim x%, y%, z% For i = 0 To 20 For j = 0 To 33 For k = 0 To 100 Step 3 If i + j + k = 100 And i *

47、5 + j * 3 + k / 3 = 100 Then Print "公雞：" i, "母雞：" j, "小雞：" k End If Next k Next jNext iEnd Sub編寫程序，顯示所有的水仙花數(shù)（所謂水仙花數(shù)是指一個3位數(shù)，期各位數(shù)字立方和等于該數(shù)字本身，如153=13+53+33）。方法一（用單循環(huán)完成，分別把三位數(shù)中的每個數(shù)字取出來）Private Sub Command1_Click()Dim i%, g%, s%, b%For i = 100 To 999 b = i 100 g = i Mod 10 s

48、 = (i 10) Mod 10 If b 3 + g 3 + s 3 = i Then Print iNextEnd Sub方法二（用三重循環(huán)完成，由三個數(shù)字組成三位數(shù)來判斷）Private Sub Form_Click()Dim i%, j%, k%, s%For i = 1 To 9 For j = 0 To 9 For k = 0 To 9 If i 3 + j 3 + k 3 = i * 100 + j * 10 + k Then Print i * 100 + j * 10 + k Next k Next jNext iEnd Sub輸入一個班100個學生的成績，要求:1）求平均分

49、2）統(tǒng)計高于平均分的人數(shù)Private Sub Form_Click()Dim a%(1 To 100)，i%, SUM%, aver!,n%For i = 1 To 100 a(i) = InputBox("input:") Print a(i) SUM = SUM + a(i)Next iaver = SUM / 100For i = 1 To 100 If a(i) > aver Then n = n + 1Next iPrint nEnd Sub斐波那契數(shù)列,即:1,1,2,3,5,8,13由此可知：a1=a2=1,an=an-1+an-2 （用數(shù)組求）Pri

50、vate Sub Form_Click()Dim i%,f&(30) f(1)=1:f(2)=1Print f(1);f(2);For i=3 to 30 f(i)=f(i-2)+f(i-1) Print f(i); If i mod 5 = 0 Then Print End IfNext iEnd Sub用計算機模擬擲色子游戲。一個色子有六個點數(shù)，編寫程序統(tǒng)計擲N次（N盡量大，例如100000次）后各點子出現(xiàn)的次數(shù)。方法一： Private Sub Command1_Click()Dim c%, i&Dim n(1 To 6) As Single '定義一個數(shù)組記算所

51、擲每一個色子的次數(shù)For i = 1 To 100000 c = Int(Rnd * 6 + 1) '我們所扔的色子的點數(shù)實際是一個16的隨機數(shù) n(c) = n(c) + 1 '對于所要記錄的這個色子對應的個數(shù)加1Next iFor i = 1 To 6 Print "n(" & i & ")=" & n(i)NextEnd Sub方法二：Private Sub Form_Click() Dim dian%, i&, n1&, n2&, n3&, n4&, n5&,

52、 n6& For i = 1 To 100000 dian = Int(Rnd * 6) + 1 If dian = 1 Then n1 = n1 + 1 ElseIf dian = 2 Then n2 = n2 + 1 ElseIf dian = 3 Then n3 = n3 + 1 ElseIf dian = 4 Then n4 = n4 + 1 ElseIf dian = 5 Then n5 = n5 + 1 Else n6 = n6 + 1 End If NextPrint n1：Print n2：Print n3：Print n4：Print n5：Print n6End S

53、ub輸入一串字符，分別統(tǒng)計各字母出現(xiàn)的次數(shù)，不區(qū)分字母大小寫。Private Sub Form_Click()Dim a%(65 To 90), s$s = InputBox("輸入一串字符串：")Print "字符串為" sFor i = 1 To Len(s) n = Asc(UCase(Mid(s, i, 1) a(n) = a(n) + 1NextFor i = 65 To 90 If a(i) <> 0 Then Print Chr(i); "的個數(shù)為:" a(i)NextEnd Sub將一個數(shù)組中的元素按逆序存

54、放Private Sub Form_Click()Dim i%, a%(10), t%RandomizeFor i = 1 To 10 a(i) = Int(Rnd * 101) + 100 Print a(i); If i Mod 5 = 0 Then PrintNextFor i = 1 To 5 t = a(i): a(i) = a(10 - i + 1): a(10 - i + 1) = tNextPrint "逆序輸出結果為："For i = 1 To 10 Print a(i); If i Mod 5 = 0 Then PrintNext End Sub10個元

55、素的數(shù)組求最大值。Private Sub Form_Click()Dim i%, a%(10), max%a(1) = Int(Rnd * 101) + 100 '先產生一個數(shù),作為最大值的初值max = a(1)Print a(1)For i = 2 To 10 '緊跟著產生剩下的9個數(shù) a(i) = Int(Rnd * 101) + 100 Print a(i) If a(i) > max Then max = a(i) '拿新產生的數(shù)來與最大值作比較，若比最大值大，則取代其，作為新的最大值NextPrint "最大值為" maxEnd S

56、ub打印楊輝三角Option Base 1Private Sub Form_Click()Dim a%(7, 7)For i = 1 To 7 For j = 1 To i If j = 1 Or i = j Then a(i, j) = 1 Else a(i, j) = a(i - 1, j) + a(i - 1, j - 1) End If Print a(i, j); Next PrintNextEnd Sub通過Inputbox輸入5個同學的姓名和身高，顯示全部同學的姓名和身高及最高的同學的姓名和身高。Option Base 1Private Sub Command1_Click()

57、Dim a(5, 2), i% a(1, 1) = Val(InputBox("請輸入第一個身高：") a(1, 2) = InputBox("請輸入第一個姓名：") Max = a(1, 1) maxi = 1 For i = 2 To 5 a(i, 1) = Val(InputBox("請輸入第" & i & "個身高：") a(i, 2) = InputBox("請輸入第" & i & "個姓名：") If a(i, 1) > Max Then Max = a(i, 1) maxi = i End If Next i For i = 1 To 5 Print a(i, 1), a(i, 2) Next iPrint "最高的是：" & a(maxi, 2) & "身高" & a(maxi, 1)End Sub數(shù)組求最大值的下標Private Sub Form_Click()Dim i%, a%(10), maxi%a(1) = Int(Rnd * 101) + 100maxi = 1 '記錄最大值的下標Prin