VB程序设计基础例题-

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 "交换两个数"Form1.Print "单击窗体开始&quo

2、t;End Sub3.2 Tab 函数,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 "显示星号三角形,单击窗体开始"

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输出位置以及字体设置,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 应用程序"CurrentX = (Form1.Width - TextWidth(str1$ / 2CurrentY = (Form1.Height - TextHeight(str1$ / 3Form

6、1.Print str1$End Sub3.12 InputBox及“+”的应用P53Private Sub Form_Click(a = InputBox("enter an integer", 123, 456, , , HelpFile, contextb = InputBox("enter an integer"Text1.Text = b + aEnd Sub3.11计时器,P52Rem “计时开始”按钮单击事件Private Sub Command1_Click(Text1.Text = "计时开始"Form1.Tag =

7、 TimerCommand1.Enabled = FalseCommand2.Enabled = TrueEnd SubRem “计时停止”按钮单击事件Private Sub Command2_Click(Text1.Text = CInt(10 * (Timer - Form1.Tag / 10 Command1.Enabled = TrueCommand2.Enabled = FalseEnd SubRem“结束”按钮单击事件Private Sub Command3_Click(EndEnd SubRem 窗体装载事件作初始化Private Sub Form_Load(Text1.Text

8、 = "计时器"Command2.Enabled = FalseTimer1.Interval = 100End SubRem 计时器控制事件由interval属性设置的时间间隔触发Private Sub Timer1_Timer(Label1.Caption = Time$End Sub3.13 计算平方根,P55Private Sub Form_Click(Dim intFlag As IntegerDim strNumber As StringDim strMSG As StringstrNumber = InputBox("输入一个数"msg$

9、= "输入的数是:" + strNumber + Chr$(13 + Chr(10 + "确认是否正确" intFlag = MsgBox(msg$, 36If intFlag = 6 ThenPrint "Sqr(" strNumber; "=" Sqr(Val(strNumberElsePrint "取消操作"End IfEnd SubPrivate Sub Form_Load(AutoRedraw = TruePrint "计算一个数的平方根"Print "单

10、击窗体开始"End Sub3.14 Msg函数,P56Private Sub Command1_Click(a$ = "software and hardware"b$ = Right(a$, 8c$ = Mid(a$, 1, 8MsgBox a$, , b$, c$, 1End Sub4.2 计算对数,P66Private Sub Command1_Click(x = Val(InputBox("输入一个数"If x > 0 Then Print Log(x / Log(10 Else Print "数据错误" En

11、d SubPrivate Sub Form_Load(Form1.AutoRedraw = tureForm1.Print "计算一个数的常用对数"End Sub4.3 字体设置,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应用程序"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语句,成绩等级判定,P71Private Sub Command1_Click(x = Val(InputBox("输入一个数"Select Case xCase 90 To 100y$ = "优"Case 80 To 89y$ = "良"Case 70 To 79y$ = "中"Case 60 To 69y$ = "及格"Case 0 To 59y$ = "不及格"Case Els

15、ey = "输入错误"End SelectForm1.Print "成绩:" x; Chr$(13 + Chr$(10; "等级:" y$ End Sub4.6 计算阶乘,P73Private Sub Command1_Click(n = Val(InputBox("输入一个自然数" term = 1For i = 1 To n Step 1term = term * iNext iForm1.Print n; "!=" termEnd Sub4.7 计算“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 "计算2+4+6+ (100End Sub4.8 计算“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计算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循环,成绩等级划分,P76Private Sub Command1_Click(no = 0: a = 0: b = 0: c = o: d = 0: e = 0x = Val(InputBox("输入成绩,输入0-100以外的数时结束" 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("输入成绩,输入0-100以外的数时结束" WendForm1.Print "总人数:" noForm1.Print "优秀:" aForm1.Print "良好:" bForm1.Print "中等:" cForm1.Print "及格:" dForm1.Print "不及格:" eEnd Sub4.10 猜数字,Do-Loop循环,P75Private Sub Command1_Click(

20、Dim n As Integer, x As IntegerRandomizen = Int(100 * RndDox = Val(InputBox("输入一个100以内的整数"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 = "输入项已在组合中"Exit SubEnd IfNext iLabel2.Caption = "已成功添加输入项"Combo1.AddItem Combo1.TextEnd IfEnd Sub点菜,列表框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 循环练习,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 "三位数的个数是" nEnd Sub4.16 多重Do - Loop循环及其退出,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 有条件转移控制语句,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; "错误,重做一题"GoTo 100End IfEnd Sub4.18 多分支选择转移,P84Private Sub Command1_Click(Dim n As Integer, b As Singlen = Val(InputBox("输入商品号码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$ = "蓝墨水"b = 1.8c$ = "重庆"GoTo 3030 Print a$, b, c$End Sub4.19 平方根,GoTo语句控制循环,P85Priv

29、ate Sub Command1_Click(Dim x As Single, y As Singlest:x = Val(InputBox("输入一个数(输入负数结束"If x < 0 Then Endy = Sqr(xPrint "sqr(" x; "=" yGoTo stEnd Sub4.20 二分法求f(x=x3+4x2-10=0在区间(1,4内的实根,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百钱白鸡,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 最大公约数,最小公倍数,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 "最大公约数:" uPrint "最小公倍数:" m * n / uEnd Sub4.23判断质数,P88Private Sub Command1_Click(Dim n As Integer, i As Integern = Val(InputBox("输入一个大于1的正整数"For i = 2 To n - 1If n Mod i = 0 Then Exit ForNext iIf i > n - 1 ThenPrint n; "是质数"ElsePrint

33、 n; "不是质数"End IfEnd Sub5.1 一位数组元素的赋初值,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 一维数组的输入和输出,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 二维数组的输入和输出,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 数组的赋值,P102Option Base 1Private Sub Form_click(Dim a As Variant, b( As Varianta = Array(1, 2, 3, 4, 5b = aPrintPrint "输出b数组:"For i = 1 To 5Print b(i; " "Next iEnd Sub5.5 For Each Next 语句输出数组元素的值,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控件数组的使用,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个数中的最大值和最小值,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个数为:"For i = 1 To UBound(aPrint a(i; " "Next iPrintPrint "最大值为:" MaxPrint "最小值为:" MinEnd Sub5.7 自定义数据类型变量,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 自定义数据类型数组的声明和使用,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 & "个学生的学号:"a( = InputBox("输入第" & i & "个学生的姓名:"a

43、(i.s1 = Val(InputBox("输入第" & i & "个学生的语文成绩:" a(i.s2 = Val(InputBox("输入第" & i & "个学生的数学成绩:" a(i.s3 = Val(InputBox("输入第" & i & "个学生的英语成绩:" 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 " 学号姓名语文数学英语总分平均分" 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用比较交换法对10个数从小到大排序,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个数为:"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个数为:"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个数为:"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个数为:"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个数为:"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个数为:"For i = 1 To nPrint a(i; " "Next iEnd Sub5.13 城市运动会,P114Private

49、Sub Form_Load(Dim nam(1 To 20 As String * 10, t As String * 10 For i = 1 To 20nam(i = InputBox("输入参赛城市名"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 "数组a中的10个数为:"For Each x In aPrint x; " "Next xPrintk = Val(InputBox("输入要查询的关键值" Print "要查询的数是:" 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 "数组a中的10个数为:"For Each x In aPrint x; " "Next xPrintk = Val(Inpu