VB程序設(shè)計(jì)基礎(chǔ)例題-

1、3.1交換變量a1、a2的值,P35Private Sub Form_Click(Dim a1 As Integer, a2 As Integer, t As Integera1 = 5: a2 = 10Form1.Print "交換" a1; a2t = a1: a1 = a2: a2 = tForm1.Print "得:" a1; a2End SubPrivate Sub Form_Load(Form1.AutoRedraw = TrueForm1.Print "交換兩個(gè)數(shù)"Form1.Print "單擊窗體開(kāi)始&quo

2、t;End Sub3.2 Tab 函數(shù),P35Private Sub Form_Click(Form1.Print Tab(10; "*"Form1.Print Tab(11; "*"Form1.Print Tab(12; "*"Form1.Print Tab(13; "*"Form1.Print Tab(14; "*"End SubPrivate Sub Form_Load(Form1.AutoRedraw = TrueForm1.Print "顯示星號(hào)三角形,單擊窗體開(kāi)始"

3、;End Sub3.5 Move 方法在指定位置顯示窗體,文本框和圖,P45 Private Sub Form_Load(Picture1.AutoRedraw = TrueMove 3000, 2000, 2800, 2800Text1.Move 300, 200, 2000, 500Picture1.Move 300, 1000, 1600, 1200Text1.Text = "文本框"Picture1.Print "圖片框"End Sub圖3.13 顯示和隱藏,P46Private Sub Form_Click(Form1.HideForm2.Sh

4、owEnd SubPrivate Sub Form_Load(AutoRedraw = TrueForm1.Print "單擊顯示form2"End SubPrivate Sub Form_dblClick(Form2.HideForm1.ShowEnd SubPrivate Sub Form_Load(AutoRedraw = TrueForm2.Print "雙擊顯示form1"End Sub3.6輸出位置以及字體設(shè)置,P46Private Sub Form_Load(AutoRedraw = TrueForm1.Width = Screen.Wid

5、th / 2Form1.Height = Screen.Height / 3Form1.Left = (Screen.Width - Form1.Width / 2Form1.Top = (Screen.Height - Form1.Height / 2FontName = "黑體": FontSize = 20str1$ = "Visual Basic 應(yīng)用程序"CurrentX = (Form1.Width - TextWidth(str1$ / 2CurrentY = (Form1.Height - TextHeight(str1$ / 3Form

6、1.Print str1$End Sub3.12 InputBox及“+”的應(yīng)用P53Private Sub Form_Click(a = InputBox("enter an integer", 123, 456, , , HelpFile, contextb = InputBox("enter an integer"Text1.Text = b + aEnd Sub3.11計(jì)時(shí)器,P52Rem “計(jì)時(shí)開(kāi)始”按鈕單擊事件Private Sub Command1_Click(Text1.Text = "計(jì)時(shí)開(kāi)始"Form1.Tag =

7、 TimerCommand1.Enabled = FalseCommand2.Enabled = TrueEnd SubRem “計(jì)時(shí)停止”按鈕單擊事件Private Sub Command2_Click(Text1.Text = CInt(10 * (Timer - Form1.Tag / 10 Command1.Enabled = TrueCommand2.Enabled = FalseEnd SubRem“結(jié)束”按鈕單擊事件Private Sub Command3_Click(EndEnd SubRem 窗體裝載事件作初始化Private Sub Form_Load(Text1.Text

8、 = "計(jì)時(shí)器"Command2.Enabled = FalseTimer1.Interval = 100End SubRem 計(jì)時(shí)器控制事件由interval屬性設(shè)置的時(shí)間間隔觸發(fā)Private Sub Timer1_Timer(Label1.Caption = Time$End Sub3.13 計(jì)算平方根,P55Private Sub Form_Click(Dim intFlag As IntegerDim strNumber As StringDim strMSG As StringstrNumber = InputBox("輸入一個(gè)數(shù)"msg$

9、= "輸入的數(shù)是:" + strNumber + Chr$(13 + Chr(10 + "確認(rèn)是否正確" intFlag = MsgBox(msg$, 36If intFlag = 6 ThenPrint "Sqr(" strNumber; "=" Sqr(Val(strNumberElsePrint "取消操作"End IfEnd SubPrivate Sub Form_Load(AutoRedraw = TruePrint "計(jì)算一個(gè)數(shù)的平方根"Print "單

10、擊窗體開(kāi)始"End Sub3.14 Msg函數(shù),P56Private Sub Command1_Click(a$ = "software and hardware"b$ = Right(a$, 8c$ = Mid(a$, 1, 8MsgBox a$, , b$, c$, 1End Sub4.2 計(jì)算對(duì)數(shù),P66Private Sub Command1_Click(x = Val(InputBox("輸入一個(gè)數(shù)"If x > 0 Then Print Log(x / Log(10 Else Print "數(shù)據(jù)錯(cuò)誤" En

11、d SubPrivate Sub Form_Load(Form1.AutoRedraw = tureForm1.Print "計(jì)算一個(gè)數(shù)的常用對(duì)數(shù)"End Sub4.3 字體設(shè)置,P68Private Sub Check1_Click(If Check1.Value = 1 ThenText1.FontBold = TrueElseText1.FontBold = FalseEnd IfEnd SubPrivate Sub Check2_Click(If Check2.Value = 1 ThenText1.FontItalic = TrueElseText1.FontIt

12、alic = FalseEnd IfEnd SubPrivate Sub Check3_Click(If Check1.Value = 1 ThenText1.FontUnderline = TrueElseText1.FontUnderline = FalseEnd IfEnd SubPrivate Sub Form_Load(Text1.Text = "Visual Basic應(yīng)用程序"End SubPrivate Sub Option1_Click(Text1.FontSize = 8End SubPrivate Sub Option2_Click(Text1.Fon

13、tSize = 12End SubPrivate Sub Option3_Click(Text1.FontSize = 16End Sub4.4 判斷閏年,P69Private Sub Command1_Click(x = Val(InputBox("輸入年份"If x Mod 400 = 0 Theny$ = "是閏年"ElseIf x Mod 4 = 0 ThenIf x Mod 100 <> 0 Theny$ = "是閏年"Elsey$ = "不是閏年"End IfElsey$ = "不

14、是閏年"End IfForm1.Print x; y$End Sub4.5 Case語(yǔ)句,成績(jī)等級(jí)判定,P71Private Sub Command1_Click(x = Val(InputBox("輸入一個(gè)數(shù)"Select Case xCase 90 To 100y$ = "優(yōu)"Case 80 To 89y$ = "良"Case 70 To 79y$ = "中"Case 60 To 69y$ = "及格"Case 0 To 59y$ = "不及格"Case Els

15、ey = "輸入錯(cuò)誤"End SelectForm1.Print "成績(jī):" x; Chr$(13 + Chr$(10; "等級(jí):" y$ End Sub4.6 計(jì)算階乘,P73Private Sub Command1_Click(n = Val(InputBox("輸入一個(gè)自然數(shù)" term = 1For i = 1 To n Step 1term = term * iNext iForm1.Print n; "!=" termEnd Sub4.7 計(jì)算“2+4+6+100”,P73 Priv

16、ate Sub Command1_Click(Sum = 0For x = 2 To 100 Step 2Sum = Sum + xNext xForm1.Print "Sum=" SumEnd SubPrivate Sub Form_Load(Form1.AutoRedraw = TrueForm1.Print "計(jì)算2+4+6+ (100End Sub4.8 計(jì)算“1+2!+3!+10!”,P73 Private Sub Command1_Click(t = 1: s = 0For k = 1 To 10t = t * ks = s + tNext kForm

17、1.Print sEnd SubPrivate Sub Form_Load(Form1.AutoRedraw = TrueForm1.Print "1+2!+3!+10!="End Sub4.9計(jì)算e的近似值,精確到10-6 ,P74Private Sub Command1_Click(Dim e As Single, t As Single, n As Singlee = 1: n = 0: t = 1Don = n + 1t = t / ne = e + tLoop While t > 0.000001Print e, nEnd Sub4.11 While - W

18、end循環(huán),成績(jī)等級(jí)劃分,P76Private Sub Command1_Click(no = 0: a = 0: b = 0: c = o: d = 0: e = 0x = Val(InputBox("輸入成績(jī),輸入0-100以外的數(shù)時(shí)結(jié)束" While x >= 0 And x <= 100no = no + 1If x >= 90 Thena = a + 1ElseIf x >= 80 Thenb = b + 1ElseIf x >= 70 Thenc = c + 1ElseIf x >= 60 Thend = d + 1Elsee

19、 = e + 1End Ifx = Val(InputBox("輸入成績(jī),輸入0-100以外的數(shù)時(shí)結(jié)束" WendForm1.Print "總?cè)藬?shù):" noForm1.Print "優(yōu)秀:" aForm1.Print "良好:" bForm1.Print "中等:" cForm1.Print "及格:" dForm1.Print "不及格:" eEnd Sub4.10 猜數(shù)字,Do-Loop循環(huán),P75Private Sub Command1_Click(

20、Dim n As Integer, x As IntegerRandomizen = Int(100 * RndDox = Val(InputBox("輸入一個(gè)100以內(nèi)的整數(shù)"If x = n ThenForm1.Print x; "正確"Exit DoElseIf x > n ThenForm1.Print x; "太大"ElseForm1.Print x; "太小"End IfLoopEnd Sub4.14 組合框,P80Private Sub Combo1_KeyPress(KeyAscii As I

21、nteger If KeyAscii = 13 ThenFor i = 0 To Combo1.ListCount - 1If Combo1.Text = Combo1.List(i ThenLabel2.Caption = "輸入項(xiàng)已在組合中"Exit SubEnd IfNext iLabel2.Caption = "已成功添加輸入項(xiàng)"Combo1.AddItem Combo1.TextEnd IfEnd Sub點(diǎn)菜,列表框Option ExplicitPrivate Sub command1_Click(Dim i%For i = List1.Lis

22、tCount - 1 To 0 Step -1 If List1.Selected(i ThenList2.AddItem List1.List(iList1.RemoveItem iEnd IfNext iEnd SubPrivate Sub Command2_Click(Dim i%For i = List2.ListCount - 1 To 0 Step -1 If List2.Selected(i ThenList1.AddItem List2.List(iList2.RemoveItem iEnd IfNext iEnd SubPrivate Sub Command3_Click(E

23、ndEnd SubPrivate Sub Form_Load(List1.AddItem "1"List1.AddItem "2"List1.AddItem "3"List1.AddItem "4"List1.AddItem "5"List1.AddItem "6"List1.AddItem "7"List1.AddItem "8"End SubPrivate Sub List1_DblClick(List2.AddItem List1

24、.List(List1.ListIndex List1.RemoveItem List1.ListIndexEnd SubPrivate Sub List2_DblClick(List1.AddItem List2.List(List2.ListIndex List2.RemoveItem List2.ListIndexEnd Sub4.15 三重For 循環(huán)練習(xí),P81Private Sub Command1_Click(Dim x As Integer, n As IntegerDim a As Integer, b As Integer, c As Integer n = 0For a

25、= 1 To 3For b = 1 To 3For c = 1 To 3x = 100 * a + 10 * b + cn = n + 1Form1.Print x;If n Mod 10 = 0 Then PrintNext cNext bNext aForm1.PrintForm1.Print "三位數(shù)的個(gè)數(shù)是" nEnd Sub4.16 多重Do - Loop循環(huán)及其退出,P82 Private Sub Form_Click(Dim cheek, countercheek = Truecounter = 0DoDo While counter < 20count

26、er = counter + 1If counter = 10 Thencheek = FalseExit DoEnd IfLoopLoop Until cheek = FalsePrint counter, cheekEnd Sub4.17 有條件轉(zhuǎn)移控制語(yǔ)句,P83 Private Sub Command1_Click(Dim a As Integer, b As Integer, c As Integer Randomize100a = Int(10 * Rnd:b = Int(10 * RndForm1.Print a; "+" b; " = "

27、str1$ = Str$(a + "+" + Str$(b + "="c = Val(InputBox(str1$If c = a + b ThenForm1.Print c; "正確"ElseForm1.Print c; "錯(cuò)誤,重做一題"GoTo 100End IfEnd Sub4.18 多分支選擇轉(zhuǎn)移,P84Private Sub Command1_Click(Dim n As Integer, b As Singlen = Val(InputBox("輸入商品號(hào)碼14" On n GoT

28、o 110, 210, 310, 410End110 a$ = "圓珠筆"b = 2c$ = "上海"GoTo 30210 a$ = "鋼筆"b = 8.5c$ = "成都"GoTo 30310 a$ = "日記本"b = 3.6c$ = "南京"GoTo 30410 a$ = "藍(lán)墨水"b = 1.8c$ = "重慶"GoTo 3030 Print a$, b, c$End Sub4.19 平方根,GoTo語(yǔ)句控制循環(huán),P85Priv

29、ate Sub Command1_Click(Dim x As Single, y As Singlest:x = Val(InputBox("輸入一個(gè)數(shù)(輸入負(fù)數(shù)結(jié)束"If x < 0 Then Endy = Sqr(xPrint "sqr(" x; "=" yGoTo stEnd Sub4.20 二分法求f(x=x3+4x2-10=0在區(qū)間(1,4內(nèi)的實(shí)根,P86 Private Sub Command1_Click(a = 1:b = 4While b - a > 0.00001x = (a + b / 2f1 =

30、a 3 + 4 * a 2 - 10f = x 3 + 4 * x 2 - 10If f1 * f > 0 Thena = xElseb = xEnd IfWendPrint "x=" CInt(x * 10000 / 10000End Sub4.21百錢(qián)白雞,P87Private Sub Command1_Click(Dim x As Integer, y As Integer, z As IntegerForm1.Print "公雞", "母雞", "小雞"For x = 0 To 20For y = 0

31、 To 33z = 100 - x - yIf 5 * x + 3 * y + z / 3 = 100 Then Print x, y, zNext y, xEnd Sub4.22 最大公約數(shù),最小公倍數(shù),P88Private Sub Command1_Click(Dim m As Integer, n As Integer, u As Integer, v As Integer m = Val(Text1.Textn = Val(Text2.TextIf m > n Thenu = m: v = nElsev = m: u = nEnd IfDor = u Mod vu = v: v

32、= rLoop Until r = 0Print "最大公約數(shù):" uPrint "最小公倍數(shù):" m * n / uEnd Sub4.23判斷質(zhì)數(shù),P88Private Sub Command1_Click(Dim n As Integer, i As Integern = Val(InputBox("輸入一個(gè)大于1的正整數(shù)"For i = 2 To n - 1If n Mod i = 0 Then Exit ForNext iIf i > n - 1 ThenPrint n; "是質(zhì)數(shù)"ElsePrint

33、 n; "不是質(zhì)數(shù)"End IfEnd Sub5.1 一位數(shù)組元素的賦初值,P99 Option Base 1Private Sub Form_Click(Dim a As Variant, b As Varianta = Array(1, 2, 3, 4, 5, 6, 7b = Array("one", "two", "three"For i = 1 To 7Print a(i;Next iPrintFor i = 1 To UBound(bPrint b(i; " "Next iPrintE

34、nd Sub5.2 一維數(shù)組的輸入和輸出,P100 Option Base 1Private Sub Form_Click(Dim a(10 As IntegerFor i = 1 To 10a(i = Val(InputBox("Enter data" Next iFor i = 1 To 10Print a(i; " "Next iPrintEnd Sub5.4 Split和JoinDim a( As StringPrivate Sub Command1_Click(a = Split(Text1.Text, ","End Sub

35、Private Sub Command2_Click( Text2.Text = Join(a, " "End Sub5.3 二維數(shù)組的輸入和輸出,P100Option Base 1Private Sub Form_Click(Dim a(3, 3 As IntegerFor i = 1 To 3For j = 1 To 3a(i, j = Val(InputBox("enter data"Next jNext iFor i = 1 To 3For j = 1 To 3Print a(i, j; " "Next jPrintNext

36、iEnd Sub圖5.4 數(shù)組的賦值,P102Option Base 1Private Sub Form_click(Dim a As Variant, b( As Varianta = Array(1, 2, 3, 4, 5b = aPrintPrint "輸出b數(shù)組:"For i = 1 To 5Print b(i; " "Next iEnd Sub5.5 For Each Next 語(yǔ)句輸出數(shù)組元素的值,P102 Option Base 1Private Sub Form_Click(Dim a(10 As IntegerFor i = 1 To

37、10a(i = Int(100 * RndNext iPrintFor Each x In aPrint x; " "Next xEnd Sub5.6控件數(shù)組的使用,P105Private Sub Option1_Click(Index As Integer Dim X As Integer, Y As IntegerX = Val(Text1.TextY = Val(Text2.TextSelect Case IndexCase 0Label4.Caption = X + YCase 1Label4.Caption = X - YCase 2Label4.Caption

38、= X * YCase 3Label4.Caption = X / YCase 4Label4.Caption = X YCase 5Label4.Caption = X Mod YEnd SelectEnd Sub5.9 求10個(gè)數(shù)中的最大值和最小值,P110 Option Base 1Private Sub Form_Click(Dim a As Varianta = Array(56, 90, -123, 58, 5, 10, 90, 54, 66, 518 Max = a(1Min = a(1For i = 2 To 10If a(i > Max Then Max = a(iIf

39、 a(i < Min Then Min = a(iNext iPrintPrint "10個(gè)數(shù)為:"For i = 1 To UBound(aPrint a(i; " "Next iPrintPrint "最大值為:" MaxPrint "最小值為:" MinEnd Sub5.7 自定義數(shù)據(jù)類型變量,P107 Private Type studentnum As String * 8name As String * 8total As Integeraverage As IntegerEnd TypePriv

40、ate Sub command1_Click( Dim stud As studentstud.num = "20032001" = "張大山"stud.total = 356stud.average = 89Text1(0 = stud.numText1(1 = Text1(2 = stud.totalText1(3 = stud.averageEnd Sub5.7改Private Type studentnum As String * 8name As String * 8total As Integeravera

41、ge As IntegerEnd TypePrivate Sub command1_Click( Dim stud As studentWith stud.num = "20032001".name = "張大山".total = 356.average = 89Text1(0 = .numText1(1 = .nameText1(2 = .totalText1(3 = .averageEnd WithEnd Sub5.8 自定義數(shù)據(jù)類型數(shù)組的聲明和使用,P108Private Type studentno As String * 6name As St

42、ring * 6s1 As Integers2 As Integers3 As Integertotal As Singleaver As SingleEnd TypePrivate Sub Form_click(Dim a(1 To 5 As student, t As studentn = 5For i = 1 To na(i.no = InputBox("輸入第" & i & "個(gè)學(xué)生的學(xué)號(hào):"a( = InputBox("輸入第" & i & "個(gè)學(xué)生的姓名:"a

43、(i.s1 = Val(InputBox("輸入第" & i & "個(gè)學(xué)生的語(yǔ)文成績(jī):" a(i.s2 = Val(InputBox("輸入第" & i & "個(gè)學(xué)生的數(shù)學(xué)成績(jī):" a(i.s3 = Val(InputBox("輸入第" & i & "個(gè)學(xué)生的英語(yǔ)成績(jī):" Next iFor i = 1 To na(i.total = a(i.s1 + a(i.s2 + a(i.s3a(i.aver = a(i.total /

44、3Next iFor i = 1 To n - 1For j = i + 1 To nIf a(i.aver < a(j.aver Thent = a(ia(i = a(ja(j = tEnd IfNext jNext iPrintPrint " 學(xué)號(hào)姓名語(yǔ)文數(shù)學(xué)英語(yǔ)總分平均分" For i = 1 To nPrint Tab(2; a(i.no; Tab(10; a(; Tab(18; a(i.s1; " " Print a(i.s2; " " a(i.s3; " " a(i.total; &q

45、uot; " a(i.averNext iEnd Sub5.10用比較交換法對(duì)10個(gè)數(shù)從小到大排序,P111 Option Base 1Private Sub Form_click(Dim a As Varianta = Array(56, 90, -123, 58, 5, 10, 100, 54, 66, 518n = UBound(aPrint "排序前10個(gè)數(shù)為:"For Each x In aPrint x; " "Next xPrintFor i = 1 To n - 1For j = i + 1 To nIf a(i > a(

46、j Thent = a(ia(i = a(ja(j = tEnd IfNext jNext iPrint "排序后的10個(gè)數(shù)為:"For i = 1 To nPrint a(i; " "Next iEnd SubOption Base 1Private Sub Form_Click(Dim a As Varianta = Array(56, 90, -123, 58, 5, 10, 100, 54, 66, 518 n = UBound(aPrint "排序前10個(gè)數(shù)為:"For Each x In aPrint x; "

47、"Next xPrintFor i = 1 To n - 1p = iFor j = i + 1 To nIf a(p > a(j Then p = jNext jt = a(ia(i = a(pa(p = tNext iPrint "排序后的10個(gè)數(shù)為:"For i = 1 To nPrint a(i; " "Next iEnd SubOption Base 1Private Sub Form_click(Dim a As Varianta = Array(56, 90, -123, 58, 5, 10, 100, 54, 66, 51

48、8 n = UBound(aPrint "排序前10個(gè)數(shù)為:"For Each x In aPrint x; " "Next xPrintFor i = 1 To n - 1For j = 1 To n - 1If a(j > a(j + 1 Thent = a(ja(j = a(j + 1a(j + 1 = tEnd IfNext jNext iPrint "排序后的10個(gè)數(shù)為:"For i = 1 To nPrint a(i; " "Next iEnd Sub5.13 城市運(yùn)動(dòng)會(huì),P114Private

49、Sub Form_Load(Dim nam(1 To 20 As String * 10, t As String * 10 For i = 1 To 20nam(i = InputBox("輸入?yún)①惓鞘忻?quot;List1.AddItem nam(iNext iFor i = 1 To 19For j = i + 1 To 20If nam(i > nam(j Thent = nam(inam(i = nam(jnam(j = tEnd IfNext jNext iFor i = 1 To 20List2.AddItem nam(iNext iEnd Sub5.14 順序

50、查詢,P114Option Base 1Private Sub Form_Click(Dim a As Varianta = Array(-123, -10, 5, 8, 30, 56, 59, 66, 90, 518 n = UBound(aPrint "數(shù)組a中的10個(gè)數(shù)為:"For Each x In aPrint x; " "Next xPrintk = Val(InputBox("輸入要查詢的關(guān)鍵值" Print "要查詢的數(shù)是:" kp = 1While k <> a(p And p <

51、; np = p + 1WendIf k = a(p ThenPrint k; "has be found, on" p; "th position."ElsePrint k; "has not be found."End IfEnd Sub5.15 折半查詢,P116Option Base 1Private Sub Form_Click(Dim a As Varianta = Array(-123, -10, 5, 8, 30, 56, 59, 66, 90, 518 n = UBound(aPrint "數(shù)組a中的10個(gè)數(shù)為:"For Each x In aPrint x; " "Next xPrintk = Val(Inpu