VB程序设计基础例题

3.1交换变量a1、a2的值，P35Private Sub Form_Click()Dim a1 As Integer, a2 As Integer, t As Integer a1 = 5: a2 = 10Form1.Print "交换"; a1; a2t = a1: a1 = a2: a2 = tForm1.Print "得:"; a1; a2End SubPrivate Sub Form_Load()Form1.AutoRedraw = TrueForm1.Print "交换两个数"Form1.Print "单击窗体开始"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 "显示星号三角形，单击窗体开始"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.ShowEnd 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.Width / 2Form1.Height = Screen.Height / 3Form1.Left = (Screen.Width - Form1.Width) / 2 Form1.Top = (Screen.Height - Form1.Height) / 2 FontName = "黑体": FontSize = 20str1$ = "Visual Basic 应用程序"CurrentX = (Form1.Width - TextWidth(str1$)) / 2CurrentY = (Form1.Height - TextHeight(str1$)) / 3Form1.Print str1$End Sub3.12 InputBox及“+”的应用P53Private Sub Form_Click()a = InputBox("enter an integer", 123, 456, , , HelpFile, context)b = InputBox("enter an integer")Text1.Text = b + aEnd Sub3.11计时器，P52Rem “计时开始”按钮单击事件Private Sub Command1_Click()Text1.Text = "计时开始"Form1.Tag = 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 = "计时器"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$ = "输入的数是：" + strNumber + Chr$(13) + Chr(10) + "确认是否正确"intFlag = MsgBox(msg$, 36)If intFlag = 6 ThenPrint "Sqr（"; strNumber; ")="; Sqr(Val(strNumber))ElsePrint "取消操作"End IfEnd SubPrivate Sub Form_Load()AutoRedraw = TruePrint "计算一个数的平方根"Print "单击窗体开始"End Sub3.14 Msg函数，P56Private Sub Command1_Click()a$ = "software and hardware"b$ = Right(a$, 8)c$ = Mid(a$, 1, 8)MsgBox a$, , b$, c$, 1End Sub4.2 计算对数，P66Private Sub Command1_Click()x = Val(InputBox("输入一个数"))If x > 0 Then Print Log(x) / Log(10) Else Print "数据错误" End 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.FontItalic = 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.FontSize = 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$ = "不是闰年"End IfForm1.Print x; y$End Sub4.5 Case语句，成绩等级判定，P71 Private 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 Elsey = "输入错误"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”，P73Private 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+ (100)End Sub4.8 计算“1+2！+3！+……+10！”，P73 Private Sub Command1_Click()t = 1: s = 0For k = 1 To 10t = t * ks = s + tNext kForm1.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 - Wend循环，成绩等级划分，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 = 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()Dim n As Integer, x As IntegerRandomizen = Int(100 * Rnd)Dox = 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 Integer)If KeyAscii = 13 ThenFor i = 0 To Combo1.ListCount - 1If Combo1.Text = Combo1.List(i) Then Label2.Caption = "输入项已在组合中"Exit SubEnd IfNext iLabel2.Caption = "已成功添加输入项" Combo1.AddItem Combo1.TextEnd IfEnd Sub点菜，列表框Option ExplicitPrivate Sub command1_Click()Dim i%For i = List1.ListCount - 1 To 0 Step -1If List1.Selected(i) ThenList2.AddItem List1.List(i)List1.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(i)List2.RemoveItem iEnd IfNext iEnd SubPrivate Sub Command3_Click()EndEnd 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.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 = 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 < 20counter = counter + 1If counter = 10 Thencheek = FalseExit DoEnd IfLoopLoop Until cheek = FalsePrint counter, cheekEnd Sub4.17 有条件转移控制语句，P83Private Sub Command1_Click()Dim a As Integer, b As Integer, c As Integer Randomize100a = Int(10 * Rnd):b = Int(10 * Rnd)Form1.Print a; "+"; b; " = ";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("输入商品号码1~4")) On n GoTo 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语句控制循环，P85Private Sub Command1_Click()Dim x As Single, y As Singlest:x = Val(InputBox("输入一个数（输入负数结束）"))If x < 0 Then Endy = Sqr(x)Print "sqr("; x; ")="; yGoTo stEnd Sub4.20 二分法求f（x）=x^3+4x^2-10=0在区间（1,4）内的实根，P86 Private Sub Command1_Click()a = 1:b = 4While b - a > 0.00001x = (a + b) / 2f1 = 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 Integer Form1.Print "公鸡", "母鸡", "小鸡"For x = 0 To 20For y = 0 To 33z = 100 - x - yIf 5 * x + 3 * y + z / 3 = 100 Then Print x, y, z Next y, xEnd Sub4.22 最大公约数，最小公倍数，P88Private Sub Command1_Click()Dim m As Integer, n As Integer, u As Integer, v As Integer m = Val(Text1.Text)n = Val(Text2.Text)If m > n Thenu = m: v = nElsev = m: u = nEnd IfDor = u Mod vu = v: v = 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 n; "不是质数"End IfEnd Sub5.1 一位数组元素的赋初值，P99Option Base 1Private Sub Form_Click()Dim a As Variant, b As Varianta = Array(1, 2, 3, 4, 5, 6, 7)b = Array("one", "two", "three") For i = 1 To 7Print a(i);Next iPrintFor i = 1 To UBound(b)Print b(i); " ";Next iPrintEnd 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 SubPrivate 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 iEnd Sub图5.4 数组的赋值，P102Option Base 1Private Sub Form_click()Dim a As Variant, b() As Varianta = Array(1, 2, 3, 4, 5)b = 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 10a(i) = Int(100 * Rnd)Next 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.Text)Y = Val(Text2.Text)Select Case IndexCase 0Label4.Caption = X + YCase 1Label4.Caption = X - YCase 2Label4.Caption = X * YCase 3Label4.Caption = X / YCase 4Label4.Caption = X \ YCase 5Label4.Caption = X Mod YEnd SelectEnd Sub5.9 求10个数中的最大值和最小值，P110Option Base 1Private Sub Form_Click()Dim a As Varianta = Array(56, 90, -123, 58, 5, 10, 90, 54, 66, 518) Max = a(1)Min = a(1)For i = 2 To 10If a(i) > Max Then Max = a(i)If a(i) < Min Then Min = a(i)Next iPrintPrint "10个数为："For i = 1 To UBound(a)Print a(i); " ";Next iPrintPrint "最大值为："; MaxPrint "最小值为："; MinEnd Sub5.7 自定义数据类型变量，P107 Private Type studentnum As String * 8name As String * 8total As Integeraverage As IntegerEnd TypePrivate 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 Integeraverage 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 String * 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(i).name = InputBox("输入第" & i & "个学生的姓名：")a(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 / 3Next iFor i = 1 To n - 1For j = i + 1 To nIf a(i).aver < a(j).aver Thent = a(i)a(i) = a(j)a(j) = tEnd IfNext jNext iPrintPrint " 学号姓名语文数学英语总分平均分"For i = 1 To nPrint Tab(2); a(i).no; Tab(10); a(i).name; Tab(18); a(i).s1; " ";Print a(i).s2; " "; a(i).s3; " "; a(i).total; " "; a(i).aver Next i5.10用比较交换法对10个数从小到大排序，P111Option Base 1Private Sub Form_click()Dim a As Varianta = Array(56, 90, -123, 58, 5, 10, 100, 54, 66, 518) n = UBound(a)Print "排序前10个数为："For Each x In aPrint x; " ";Next xPrintFor i = 1 To n - 1For j = i + 1 To nIf a(i) > a(j) Thent = a(i)a(i) = a(j)a(j) = tEnd IfNext jPrint "排序后的10个数为："For i = 1 To nPrint a(i); " ";Next iEnd Sub5.11 选择法，排序，P112Option Base 1Private Sub Form_Click()Dim a As Varianta = Array(56, 90, -123, 58, 5, 10, 100, 54, 66, 518) n = UBound(a)Print "排序前10个数为："For Each x In aPrint x; " ";Next xPrintFor i = 1 To n - 1p = iFor j = i + 1 To nIf a(p) > a(j) Then p = j Next jt = a(i)a(i) = a(p)a(p) = tNext iPrint "排序后的10个数为：" For i = 1 To nPrint a(i); " ";Next iEnd Sub5.12 冒泡法，排序，P113Option Base 1Private Sub Form_click()Dim a As Varianta = Array(56, 90, -123, 58, 5, 10, 100, 54, 66, 518) n = UBound(a)Print "排序前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(j)a(j) = a(j + 1)a(j + 1) = tEnd IfNext jNext iPrint "排序后的10个数为："For i = 1 To nPrint a(i); " ";Next iEnd Sub5.13 城市运动会，P114Private 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(i)Next iFor i = 1 To 19For j = i + 1 To 20If nam(i) > nam(j) Thent = nam(i)nam(i) = nam(j)nam(j) = tEnd IfNext jNext iFor i = 1 To 20List2.AddItem nam(i)Next iEnd Sub5.14 顺序查询，P114Option Base 1Private Sub Form_Click()Dim a As Varianta = Array(-123, -10, 5, 8, 30, 56, 59, 66, 90, 518) n = UBound(a)Print "数组a中的10个数为："For Each x In aPrint x; " ";Next xPrintk = Val(InputBox("输入要查询的关键值"))Print "要查询的数是："; kp = 1While k <> a(p) And p < 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(a)Print "数组a中的10个数为："For Each x In aPrint x; " ";Next xPrintk = Val(InputBox("输入要查询的关键值"))Print "要查询的数是："; klow = 1hig = nfind = -1While low <= hig And find = -1m = (low + hig) \ 2If k = a(m) Thenfind = 1Print k; "has be found,on"; m; "th position." ElseIf k < a(m) Thenhig = m - 1Elselow = m + 1End IfEnd IfIf find = -1 ThenPrint k; "has not be found."End IfEnd Sub5.16 矩阵乘以常数，P116Option Base 1Private Sub Form_Click()Dim nx1(3, 5) As Integer, nx2(3, 5) As Integer For i = 1 To 3For j = 1 To 5nx1(i, j) = Val(InputBox("输入nx1数组"))Next jNext iFor i = 1 To 3For j = 1 To 5nx2(i, j) = 10 * nx1(i, j)Next iPrint "输出nx2数组：" For i = 1 To 3For j = 1 To 5Print nx2(i, j); " "; Next jPrintNext iEnd Sub5.17 矩阵加法，P117Option Base 1Private Sub Form_Click()Dim nx1(2, 5) As Integer, nx2(2, 5) As Integer Dim nx3(2, 5) As IntegerFor i = 1 To 2For j = 1 To 5nx1(i, j) = Val(InputBox("输入nx1数组：")) Next jNext iFor i = 1 To 2For j = 1 To 5nx2(i, j) = Val(InputBox("输入nx2数组：")) Next jNext iFor i = 1 To 2For j = 1 To 5nx3(i, j) = nx1(i, j) + nx2(i, j)Next jNext iPrint "输出nx3数组："For i = 1 To 2For j = 1 To 5Print nx3(i, j); " ";Next jPrintNext iEnd Sub5.18 矩阵乘法，P118Option Base 1Private Sub Form_Click()Dim a(4, 2) As Integer, b(2, 3) As Integer Dim c(4, 3) As IntegerFor i = 1 To 4For j = 1 To 2a(i, j) = Val(InputBox("输入a数组：")) Next jNext iFor i = 1 To 2For j = 1 To 3b(i, j) = Val(InputBox("输入a数组：")) Next jNext iFor i = 1 To 4For j = 1 To 3c(i, j) = 0For k = 1 To 2c(i, j) = c(i, j) + a(i, k) * b(k, j) Next kNext jNext iPrint "输出c数组："For i = 1 To 4For j = 1 To 3Print c(i, j); " ";Next jPrintNext iEnd Sub。