VB实验指导例题.doc

实验A VB环境和可视化编程基础1（1）运行界面（2）参考代码：Private Sub Command1_Click()label3.Caption = text1.TextEnd Sub2模仿教材例1.1，将事件过程中自上而下移动改为自右向左移动，也要考虑文字出窗体边界的情况。（1）运行界面（2）参考代码：Private Sub Command1_Click()Timer1.Interval = 0Call mymoveEnd SubSub mymove()Label1.Move Label1.Left - 20If Label1.Left = 0 Then Label1.Left = Form1.WidthEnd SubPrivate Sub Command2_Click()Timer1.Interval = 200End SubPrivate Sub Timer1_Timer()Call mymoveEnd Sub3编写一程序，在文本框中统计在该窗口上鼠标单击的次数。（1）运行界面：（2）编写代码：Private Sub Form_Click()Text1 = Val(Text1) + 1End SubPrivate Sub Form_Load()Text1.Text = End Sub4代码：Private Sub Form_Click()Form1.Caption = 鼠标单击Form1.Picture = LoadPicture(d:1.jpg)End SubPrivate Sub Form_DblClick()Form1.Caption = 鼠标双击Form1.Picture = LoadPicture(d:2.jpg)End SubPrivate Sub Form_Load()Form1.Picture = LoadPicture(d:3.jpg)End Sub5命令按钮、字号、内容和格式的复制练习（1）运行界面（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 顺序结构1 编一个华氏温度与摄氏温度之间转换的程序，要求用按钮实现转换。既单击“华氏转摄氏”按钮，则将华氏温度转换为摄氏温度；同样，单击“摄氏转华氏”按钮，则将摄氏温度转换为华氏温度。代码：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）运行界面（2）参考代码Private Sub 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 Not IsNumeric(Text1) ThenMsgBox 输入有误,请重输入Text1.SetFocusText1.SelStart = 0Text1.SelLength = Len(Text1.Text)End IfEnd IfEnd SubPrivate Sub Text1_LostFocus()If Not IsNumeric(Text1) ThenMsgBox 输入有非数字字符,请重新输入, , 2-2Text1.SetFocusText1.SelStart = 0Text1.SelLength = Len(Text1.Text)End IfEnd Sub3 我国有13亿人口，按人口增长0.8%计算，多少年后我国人口超过26亿。（1）运行界面（2）参考代码Private Sub Command1_Click()a = Int(Log(2) / (Log(1 + 0.008) + 1Text1.Text = a & 年后,我国人口超过26亿End Sub4 输入一字符串，分别调用Ucase、Len函数将其转换成大写字母并显示其字符串长度（1） 运行界面（2） 参考代码Private Sub Command1_Click()Text2.Text = UCase(Text1.Text)Text3.Text = Len(Text1.Text)End Sub5 随机产生一个3位正整数，然后逆序输出，产生的随机数与逆序数同时显示。例如，产生735，输出是537（1）运行界面（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函数。在Text1文本框中输入一字符串，在label1、Label2、Label3中显示如图的效果。（1） 运行界面（2）参考代码：Private Sub Form_Click()Text1.FontSize = 16Label1.FontSize = 16Label2.FontSize = 16Label3.FontSize = 16Text1.Text = VisualBasic程序设计教程(第三版)Label1.Caption = Left(Text1.Text, 11)Label2.Caption = Mid(Text1.Text, 12, 6)Label3.Caption = Right(Text1.Text, 5)End Sub7 Print方法练习，显示字符图形。（1） 运行界面（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 = 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输入一个正实数，用Print方法在一行上显示出它的平方和平方根、立方和立方根，每个数保留三位小数，其间有间隔。(1)运行界面(2)参考代码：Private Sub Command1_Click()x = Val(InputBox(输入一个正实数)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 选择结构一、 实验目的1 掌握逻辑表达式的正确书写形式2 掌握单分支与双分支条件语句的使用。3 掌握多分支条件语句的使用。4 掌握情况语句的使用及其与多分支条件语句之间的区别。二、实验内容1、在购买某物品时，若所标明的价钱x在下述范围内，所付钱y按对应所扣支付：提示：此题用多分支结构实现，注意计算公式和条件表达式的正确书写。实验目的：掌握多边if语句的正确使用实验步骤：1 新建新工程2 要求单击窗体提示物品的价钱，最后在窗体上显示所付钱y 代码如下：Private Sub Form_Click() Dim x As Single, y As Single x = Val(InputBox(请输入物品价钱：) If x = 1000 And x = 2000 And x = 3000 Then y = 0.7 * x End If Print 所付钱为：; yEnd Sub2、编一程序输入上网的时间并计算上网费用，计算的方法如下：同时为了鼓励多上网，每月收费最多不超过150元。提示：首先利用多分支条件更具三个时间段算出费用，然后再用if语句对超过150元的费用设置为150元。略：提示和第一题类似3、输入x,y,z三个数，按从大到小的次序显示。实验目的：掌握单边或嵌套if语句的使用实验步骤：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(请输入第一个数) y = InputBox(请输入第二个数) z = InputBox(请输入第三个数) 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 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、利用计算机解决古代数学问题“鸡兔同笼问题”。即已知在同一笼子里有总数为m只鸡和兔，鸡和兔的总脚数为n只，求鸡和兔各有多少只？实验目的：掌握if语句使用，分析解题中出现的可能情况，避免出现不合理的结果，提高解决实际问题的能力。实验步骤：1 创建新工程界面如上2 代码如下：Private Sub Form_Load() Label1.Caption = 输入总只数 Label2.Caption = 输入总脚数 Label3.Caption = 求得鸡数 Label4.Caption = 求得兔数 Text1.Text = Text2.Text = Text3.Text = Text4.Text = End SubPrivate Sub Form_Load() Label1.Caption = 输入总只数 Label2.Caption = 输入总脚数 Label3.Caption = 求得鸡数 Label4.Caption = 求得兔数 Text1.Text = Text2.Text = Text3.Text = Text4.Text = End SubPrivate Sub Text2_LostFocus() Dim m%, n%, y% m = Val(Text1) n = Val(Text2) If n Mod 2 0 Then MsgBox (脚数必定为偶数) Text2 = Text2.SetFocus Else y = n / 2 - m If y =2倍的头数, vbOKOnly, sy2 - 5 Text2 = Text2.SetFocus Else x = m - y Text3 = x Text4 = y End If End IfEnd Sub6、输入一元二次方程ax2+bx+c=0的系数a,b,c,计算并输出一元二次方程的连个根x1，x2.实验步骤：1 创建一个新的工程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.Text) 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) & + & 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() Text1 = : Text2 = Text3 = : Text4 = Text5 = End Sub7、编一模拟袖珍计算器的完整程序，。要求：输入两个操作数和一个操作符，根据操作符决定所做的运算。实验目的：掌握select case语句的使用1 新建一个工程2 代码如下：Private Sub Command1_Click() op = Trim(Text3.Text) Select Case op Case + Text4.Text = Val(Text1) + Val(Text2) Case - Text4.Text = Val(Text1) - Val(Text2) Case * Text4.Text = Val(Text1) * Val(Text2) Case / If Val(Text2) = 0 Then MsgBox 除数不能是零！，重新输入 Text2 = Text2.SetFocus Else Text4.Text = Val(Text1) / Val(Text2) End If End SelectEnd 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 = Text3.Text = : Text4.Text = End Sub8、输入一个数字（17），分别通过select语句和choose函数两种方法用英文显示对应的星期一星期日略:参考书上例子4.10实验D循环结构一、 实验目的 1 掌握for语句的使用 2 掌握Do语句的各种形式的使用 3 掌握如何控制循环条件，防止死循环或不循环二、实验内容实验目的：掌握单循环结构以及tab、trim函数的使用。1、利用单循环结构显示如图所示的界面实验步骤：1 创建一个新的工程2 代码如下Private Sub Form_Click() For i = 1 To 9 Print Tab(10 - i); String(2 * i - 1, Trim(Str(i) Next iEnd Sub2、用单循环实现如图的界面实验步骤1 创建一个新的工程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+.当第i项的值 0.00001 t = t + i s = s + 1 / t i = i + 1 Loop Print Do while结构; s, i - 1; 项End SubPrivate Sub Command2_Click() Dim s!, t!, i& s = 1: t = 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 结构; 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 = s * (2 * i) 2) / (2 * i - 1) * (2 * i + 1) Next i Print 当n为：; n; 时计算结果为; sEnd Sub5、求sn=a+aa+aaa+aaaa+.+aaa(n个a)，其中a是一个随机数产生的19（包括1，9）中的一个正整数，n是一个随机产生的510（包括5，10）中的一个数。实验目的：学会根据问题的要求找规律、写通项；掌握循环的正确使用。实验步骤：1 新建一个工程2 代码如下：Private Sub Form_Click() Dim s!, t!, i!, a%, n% a = Int(Rnd * 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、编一程序，显示出所有的水仙花数。所谓水仙花数，是指一个3位数，其各位数字立方和等于数字本身。提示：解该题的方法有两种：1 利用三重循环，将三个数连接成一个3位数进行判断。实验步骤：1 新建一个工程2 代码如下：Private Sub 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 & 是水仙花数 End If Next k Next j Next iEnd Sub2 利用单循环将一个3位数逐位分离后进行判断。实验步骤：1 新建一个工程2 代码如下：Private Sub Form_Click() Form1.FontSize = 24 For n = 100 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=.求立方根的迭代公式为：迭代到为止，为方程的近似解。实验目的：利用迭代公式求方程的近似解。实验步骤：1 新建一个工程2 代码如下：Private Sub Form_Click() Dim a!, x0!, x1! a = 27 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 迭代结果为：; x1; 迭代次数为：; i Print 利用乘方运算结果为：; a (1 / 3)End Sub8、一个富翁视图与陌生人做一笔还钱生意，还钱规则为：陌生人每天给富翁10万元钱，直到满一个月（30天）；而符文第一天给陌生人1分钱，第二天2分，第三天4分，.富翁每天给陌生人的钱是前一天的两倍，直到满一个月。分别显示富翁给陌生人的钱和陌生人给富翁的钱为多少？实验步骤：参考答案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 * 30End Sub9、用计算机安排考试日程。期末某专业在周一周六的6天时间内要考x，y，z三门课程，考试顺序为先考x，然后考y，最后考z，规定一天只能考一门，且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在周 & i, y在周 & j, z在周 & k End If Next k Next j Next iEnd Sub实验E 数组和自定义类型1、随机产生30100的10个整数，求最大值，最小值，平均值，并显示整个数组的值和结果。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(i) = Int(Rnd * 71 + 30) Print a(i);NextPrint max = a(1)For i = 2 To 10 If max a(i) Then min = a(i) End IfNextPrint min=; minavg = 0For i = 1 To 10 avg = avg + a(i)Nextavg = avg / 10Print avg=; avgEnd Sub2、已知6个学生的成绩，通过对数组赋初值的方法，利用String函数，以每五分为一个标记显示，并显示学生的成绩。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); a(i)NextEnd Sub3、随机产生20个学生的成绩，统计各个分数段人数。即059、6069、7079、8089、90100，并显示结果，产生数据在Picture1中显示，统计结果在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 IfNextEnd 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; )的人数有：; s(j); 个 End IfNextEnd Sub4、随机产生10个2位数，按照从大到小的递减顺序排列，并显示排序结果。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 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、在通用段声明两个二维数组，利用随机函数形成各个元素。要求：1）以下三角形显示A数组，上三角形显示B数组。2）求A数组主对角线元素之和和B数组副对角线元素之和。Dim a(4, 4) As Integer, b(4, 4) As IntegerDim i As Integer, j As Integer, sum1 As Integer, sum2 As 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); ; 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 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、输入整数n,显示出具有n行的杨辉三角形。Dim a()Private Sub Form_Load()Form1.FontSize = 22Label1.FontSize = 18Label1.Caption = 输入行数：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！Exit 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), !) & Space(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、设计一个选课的运行界面，它包含2个列表框，左边为已经开设的课程名称，通过Form_Load事件加入，并按拼音字母排序；当单击某课程名称后，将该课程加入到右边列表框，并在左边列表框中删除该课程，当左边课程数已满5门时，不允许再加入，出现消息框提示信息。Dim a As IntegerPrivate Sub Form_Load()List1.AddItem Web程序设计List1.AddItem 多媒体技术与应用List1.AddItem 网络技术与应用List1.AddItem 软件技术基础List1.AddItem VB程序设计List1.AddItem 数据库技术与应用List1.AddItem 硬件技术基础List1.AddItem C/C+程序设计List1.AddItem 大学计算机基础End SubPrivate Sub List1_Click()a = a + 1If a 5 Then MsgBox 超过5门课程，不能再选, 0, 提示 Exit SubEnd IfList2.AddItem List1.TextList1.RemoveItem List1.ListIndexEnd Sub8、思考练习9、思考练习10、参考代码： Private Type zgtype no As Integer name As 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、编一子程序ProcMin（a(),amin），求一维数组a中的最小值amin。Dim b(10) As IntegerPrivate Sub ProcMin(a() As Integer, amin As Integer)amin = a(1)For i = 1 To 10 If amin a(i) Then amin = a(i) End IfNext