zuccvb实验报告.docx

浙江大学城市学院实验报告课程名称 VB程序设计基础与实验 实验项目名称 实验一、程序设计初步 实验成绩 指导老师（签名 ） 日期 一. 实验目的和要求1. 熟悉VB开发环境，掌握VB程序设计步骤。2. 理解基本概念：工程、窗体、属性、事件、方法。3. 熟悉立即窗口的使用。4. 掌握Print、赋值语句的正确书写规则。二. 实验内容和原理【练习1-1】新建一个工程，单击窗体时，在窗体上显示“这是我的第一个VB实验”；双击窗体时，清除窗体上显示的所有信息。研究下面的代码段，考虑应填入什么内容？Private Sub Form_Click Print”这是我的第一个VB实验” End SubPrivate Sub Form_DblClickCls End Sub上机实践调试运行以上程序，在同一文件夹下保存工程MyProject.vbp和窗体文件MyProject.frm。【练习1-2】设计一个程序，窗体上有一个文本框、两个命令按钮，命令按钮的标题是“隶书”和“黑体”，当程序运行后，在文本框中输入“欢迎光临VB世界”，是用粗体、18号、宋体、红色字显示(通过窗体加载事件完成)；单击“隶书”按钮文本框中显示内容的字体是隶书，单击“黑体”按钮文本框中显示内容的字体是黑体。文本框属性的设置在Form_load事件中设置，研究下面的代码段，考虑应填入什么内容？练习 1-2 运行界面Private Sub Form_Load()Text1.FontName = 宋体Text1.FontBold = True Text1.FontSize = 18 Text1.ForeColor = vbRedEnd Sub Private Sub Command1_Click() Text1.FontName =_”隶书”_ End SubPrivate Sub Command2_Click() Text1.FontName =”黑体”_End Sub上机实践调试运行以上程序。请你思考 文本框属性的设置如改在属性窗口中设置，以上代码会怎样？【练习1-3】编程，窗体界面设计如下图1，分别有三个命令按钮command1、command2、command3，命令按钮的Caption属性分别为“改变位置”、“还原”和“退出”。 窗体加载后，运行Form_Load 事件，使窗体定位在（2000，2000）坐标值上，运行效果如下图2。图1 图2Private Sub Form_Load()Form1.Left = 2000Form1.Top = 2000Command2.Enabled = FalseEnd Sub 点击命令按钮command1后，使窗体定位在（100，100）坐标值上，运行效果如图3： 图 3Private Sub Command1_Click()Form1.Left = 100Form1.Top = 100Command1.Enabled = FalseCommand2.Enabled = TrueEnd Sub点击命令按钮command2，窗体又重回图2的情况。请写出另外两个命令按钮事件的内容。Private Sub Command2_Click() Form1.Left = 2000 Form1.Top = 2000 Command1.Enabled = True Command2.Enabled = FalseEnd SubPrivate Sub Command3_Click() EndEnd Sub上机实践调试运行以上程序。请你思考 怎样用move方法来改变窗体位置，完成此题？【练习1-4】在窗体上建立5个命令按钮Command1、Command2、Command3、Command4和Command5，运行界面如下图。要求：（1）命令按钮的Caption属性分别为“窗体变大”、“窗体变小”、“窗体左移”、“窗体右移”和“关闭窗体”。（2）每单击Command1按钮和Command2按钮一次，窗体变大或变小1/4倍。（3）单击Command3按钮和Command4按钮一次，窗体左移或右移200缇。（4）单击Command5按钮退出。练习 1-4 运行界面以下是两个命令按钮的事件过程，写出另外三个命令按钮的事件过程。Private Sub Command1_Click()Form1.Height = Form1.Height * 1.25Form1.Width = Form1.Width * 1.25End SubPrivate Sub Command3_Click()Form1.Left = Form1.Left - 200End SubPrivate Sub Command2_Click()Form1.Height = Form1.Height / 1.25Form1.Width = Form1.Width / 1.25End SubPrivate Sub Command4_Click()Form1.Left = Form1.Left + 200End SubPrivate Sub Command5_Click()EndEnd Sub上机实践调试运行以上程序。【练习1-5】在窗体上建立4个命令按钮，command1、command2、command3、command4，要求：1命令按钮的Caption属性分别为“字体变大”、“字体变小”、“加粗”和“标准”。2每单击按钮command1和command2一次，字体变大或变小2个单位（提示：改变的是Form1.fontsize属性值）。3单击command3时，字体变粗；单击command4时，字体又由粗体变标准；（提示：改变的是Form1.fontbold属性值）。44个按钮每单击一次，都在窗体上显示“欢迎使用VB”。5双击窗体后清除窗体内容。研究下面的代码段，考虑应填入什么内容？Private Sub Command1_Click() 字体变大 Form1.FontSize = Form1.FontSize + 2Print 欢迎使用VBEnd SubPrivate Sub Command2_Click() 字体变小 Form1.FontSize = Form1.FontSize - 2Print 欢迎使用VB_ _End SubPrivate Sub Command3_Click() 字体加粗 Form1.FontBold = TruePrint 欢迎使用VBEnd SubPrivate Sub Command4_Click() 字体不加粗 Form1.FontBold = _ False _Print 欢迎使用VBEnd SubPrivate Sub Form_DblClick() _ Cls _End Sub上机实践调试运行以上程序，运行界面参考如上图。浙江大学城市学院实验报告课程名称 VB程序设计基础与实验 实验项目名称 实验二、程序设计基础1 实验成绩 指导老师（签名 ） 日期 一. 实验目的和要求1. 掌握运算符的使用。2. 掌握表达式的正确书写规则。3. 掌握常用函数的使用。4. 掌握InputBox、MsgBox函数的使用。5. 熟悉掌握赋值语句的使用。6. 掌握顺序结构的应用程序的编程过程。26True出生日期:1980/5/18False22Da bcdea b cdeVisualBasic76HELLO!浙江 杭州2015/3/18 2015/3/2584.69579420171499E-02 0.0470325.7055475 .533424.49999999226498-4二. 实验内容和原理【练习2-1】打开立即窗口，输入以下内容，每行以回车键结束，查看结果来掌握赋值语句、运算符、表达式、常用内部函数。运行结果填在右侧表中：（一行一行地输入，不能粘贴）? 35 /5 mod 13 2+52Print Not(badbed)BirthDay = #5/18/1980#Birth$ = 出生日期： & BirthDay Print Birth$ a = 10b = 15c = -9Print a 2 3 And (b = 13 Or Not c = 0)Print len(str(a)Print len(str(c)Print Chr(Asc(A) + 3) Print Trim( a b ) & cdePrint a b & cdePrint Left(Visual Basic 6.0, 7)Print Mid(Visual Basic 6.0, 8, 5)Print Instr(Visual Basic 6.0,” Ba”)Print Len(VB程序设计)Print UCase(Hello!)Print 浙江 & Space(2) & 杭州Print Date, Date+7Print hour(Time)Print 345 / 7347, Format(345 / 7347, #0.0000)Print Sqr(9)Print Abs(-25)Print Rnd, RndPrint Sin(30 * 3.1415926 / 180)Print Int(-3.4), Int(3.8)【练习2-2】设计一程序，窗体Form1 上有两个文本框，窗体界面如下所示。两个文本框可以输入任意值，在程序运行时，每单击窗体一次，两个文本框的内容交换一次。提示：(1)可以参考教材中两个变量值交换的例子(2)可以定义中间交换变量 Dim c as string (3)赋值语句的”=”的前后项不要写颠倒上机实践编写、调试运行以上程序。Private Sub Form_Click() Dim c As String c = Text1.Text Text1.Text = Text2.Text Text2.Text = cEnd Sub【练习2-3】设计一个程序，在文本框内输入任意字符串，例如“美丽的西湖”，对字符串进行字体放大或缩小。下图是窗体的设计界面和经过放大操作后的运行效果。要求：(1)单击“放大”按钮，将文本框中的字符串放大（字体放大），放大的倍数通过随机函数Rnd产生，范围在15倍。为了使每次运行时产生不同的放大倍数，程序初始时应执行Randomize语句。(2)同样，单击“缩小”按钮进行缩小，缩小的倍数也通过上述方式产生。(3)单击“还原”按钮，字体大小恢复成初始状态（12磅）。(4)程序启动时，文本框中的字体大小为12磅。 程序界面设计根据题目的要求，在界面上拖放1个标签、1个文本框和3个命令按钮，并按下表设置对象的相关属性。Private Sub Command1_Click() Dim n As Integer Randomize n = Int(Rnd * 5) + 1 Text1.FontSize = Text1.FontSize * nEnd SubPrivate Sub Command2_Click() Dim n As Integer Randomize n = Int(Rnd * 5) + 1 Text1.FontSize = Text1.FontSize / nEnd SubPrivate Sub Command3_Click() Text1.FontSize = 12End SubPrivate Sub Form_Load() Text1.FontSize = 12End Sub表2.？上机练习一之3题的属性设置表对象默认设置对象名称Caption属性其他属性Form1使用对象默认名Form1Label1输入文本属性窗口的Font中设粗体、16号Text1Text属性为空串属性窗口的Font中设粗体、16号；拖动鼠标扩大宽度和高度Command1放大属性窗口的Font中设粗体、16号Command2缩小属性窗口的Font中设粗体、16号Command3还原属性窗口的Font中设粗体、16号部分事件代码Private Sub Command1_Click()Dim n As IntegerRandomizen = Int(Rnd * 5) + 1Text1.FontSize = Text1.FontSize * nEnd Sub【练习2-4】设计一个根据摄氏温度求对应的华氏温度的程序。下图是设计窗体，窗体上有2个标签框作提示使用；2个文本框Text1和Text2分别作输入和显示；3个命令按钮， 名称分别是Command1、Command2、Command3，标题分别是“计算”、“清除”、“退出”。在Text1中输入摄氏温度后，单击“计算”按钮，右文本框内显示出该摄氏温度对应的华氏温度；单击“清除”按钮使得2个文本框的内容被清除；单击“退出”按钮结束程序运行。计算公式：F=9C/5+32，其中C表示摄氏温度，F表示华氏温度。（提示：清除文本框Text1中的文字信息用语句Text1.Text=”）上机实践编写、调试运行以上程序。【练习2-5】两个窗体的运行界面如下，两窗体标题分别为“启动窗体”、“第二个窗体”，启动窗体的背景色是红色，第二个窗体的背景色是绿色，单击启动窗体的命令按钮“下一窗体”，显示出第二个窗体，隐藏启动窗体，单击第二个窗体的命令按钮“返回”，关闭第二个窗体，显示出启动窗体。练习 1-6 运行界面命令按钮“返回”的事件过程如下，写出启动窗体命令按钮的事件过程。Private Sub Command1_Click()Form2.HideForm1.ShowEnd Sub上机实践编写、调试运行以上程序，运行界面参考上图。请你思考 在这个练习中要考虑怎样在同一工程中建立多个窗体，以及多个窗体的保存。在此题中保存了几个文件？先后次序分别是什么？浙江大学城市学院实验报告课程名称 VB程序设计基础与实验 实验项目名称 实验三、程序设计基础2 实验成绩 指导老师（签名 ） 日期 一. 实验目的和要求掌握常用函数的使用；理解并掌握InputBox、MsgBox函数的使用；熟练掌握赋值语句的使用。掌握顺序结构的应用程序的编程过程。二. 实验内容和原理【练习3-1】设计一个函数计算器。其功能要求如下：（1）运行的界面如图所示。有12个命令按钮。每使用一个函数按钮前，先单击“清除”按钮，文本框和标签框中的内容清空。（2）Sin、Cos、Sqr、Int、Chr、Asc等函数将文本框中的数据作为函数的输入参数，单击这些函数命令按钮，在标签框中显示其函数值。（3）单击“Rnd”按钮，用Rnd函数产生一随机数，显示在标签框中。（3）单击“Date”按钮在标签框中显示系统日期；单击“Time”按钮在标签框中显示系统时间； （4）单击“InputBox”按钮，弹出一对话框，提示输入姓名，当用户输入后，再将输入信息显示在标签框中。单击“MsgBox”按钮，将文本框中的内容通过一信息框显示出来，要求信息框提供给用户的有“是”、“否”、“取消”3个按钮，根据用户的不同选择，将函数返回结果显示在标签框中。 部分命令按钮的提示代码如下：Sin命令按钮的事件过程可以写作：Const pi = 3.1415926Dim x As Single, fx As Singlex = Val(Text1.Text)注意类型转换函数fx = Sin(x * pi / 180)Label1.Caption = Str(fx)注意类型转换函数Asc命令按钮的事件过程可以写作：Label1.Caption = Str(Asc(Text1.Text)注意类型转换函数MsgBox命令按钮的事件过程可以写作：Dim n As Stringn = MsgBox(你输入的数据是 & Text1.Text, 3 + 32 + 0, 数据检查)Label1.Caption = Str(n)Rnd命令按钮的事件过程可以写作：Randomize Label1.Caption = Str(Rnd)请完整写出所有命令按钮的事件过程。Const pi = 3.1415926Private Sub Command1_Click() Dim x As Single, fx As Single x = Val(Text1.Text) fx = Sin(x * pi / 180) Label3.Caption = Str(fx)End SubPrivate Sub Command2_Click() Dim x As Single, fx As Single x = Val(Text1.Text) fx = Cos(x * pi / 180) Label3.Caption = Str(fx)End SubPrivate Sub Command3_Click() Randomize Label3.Caption = Str(Rnd)End SubPrivate Sub Command4_Click() Dim x As Single, fx As Single x = Val(Text1.Text) fx = Sqr(x) Label3.Caption = Str(fx)End SubPrivate Sub Command5_Click() Dim x As Single x = Val(Text1.Text) Label3.Caption = Str(Int(x)End SubPrivate Sub Command6_Click() Dim x As Integer x = Val(Text1.Text) Label3.Caption = Chr(x)End SubPrivate Sub Command7_Click() Label3.Caption = Str(Asc(Text1.Text)End SubPrivate Sub Command8_Click() Dim x As String x = InputBox(请输入姓名:, 输入姓名:) Label3.Caption = xEnd SubPrivate Sub Command9_Click() Dim n As String n = MsgBox(你输入的数据是 & Text1.Text, 3 + 32 + 0, 数据检查) Label3.Caption = Str(n)End SubPrivate Sub Command10_Click() Label3.Caption = DateEnd SubPrivate Sub Command11_Click() Label3.Caption = TimeEnd SubPrivate Sub Command12_Click() Text1.Text = Label3.Caption = End Sub上机实践编写、调试运行以上程序，运行界面参考如上图。【练习3-2】通过函数处理文本框中的数据。运行的界面如下图所示。在文本框中输入一个有小数的浮点数，如-123.123456789，点击“执行”按钮，在右侧标签框中产生与左侧项目对应的值（如第二行左边是一个标签框，其Caption属性值是“Int”，右边又是另一个标签框，其Caption属性值是根据文本框中的数据由程序自动完成计算并赋值的）。观察单精度和双精度浮点数的不同结果，通过字符串函数处理产生数据的整数部分和小数部分。点击“清除”，将文本框和右侧标签框内容清除。Form_Load事件也用来将文本框和右侧标签框内容清除。将以下代码通过上机调试补充完整。Private Sub Command1_Click()Dim n As Integer Dim sing As Single, doub As Double存放单精度和双精度的值 Dim s As String 存放数字字符串 Dim a As Integer 小数点在数字字符串中位置 n = Int(Val(Text1.Text) sing = Val(Text1.Text) doub = Label1.Caption = n Label2.Caption = sing Label3.Caption = s = Trim(Str(Abs(Val(Text1.Text) a = (s, .) Label4.Caption = Left(s, a - 1) Label5.Caption = End SubPrivate Sub Command2_Click()Text1.Text = Label1.Caption = Label2.Caption = Label3.Caption = Label4.Caption = Label5.Caption = End SubPrivate Sub Form_Load() . End SubPrivate Sub Command1_Click()Dim n As Integer Dim sing As Single, doub As Double Dim s As String Dim a As Integer n = Int(Val(Text1.Text) sing = Val(Text1.Text) doub = Val(Text1.Text) Label2.Caption = n Label8.Caption = sing Label9.Caption = doub s = Trim(Str(Abs(Val(Text1.Text) a = InStr(s, .) Label10.Caption = Left(s, a - 1) Label11.Caption = Mid(s, 4)End Sub Private Sub Command2_Click() Text1.Text = Clear Label2.Caption = Clear Label8.Caption = Clear Label9.Caption = Clear Label10.Caption = Clear Label11.Caption = ClearEnd SubPrivate Sub Text1_Change()End Sub【练习3-3】设计一个用计算机给出三位整数加法练习程序。程序界面如下图所示，单击一次，则在文本框中产生一题。提示：（1）将文本框的Multiline属性设置为true,并设置垂直滚动(ScrollBars=2)（2）用Rnd 函数产生100999之间的随机整数（3）回车换行符用函数chr(13)+chr(10)表示研究下面的代码段，考虑应填入什么内容？Private Sub Form_Load() Text1.text= End SubPrivate Sub Command1_Click() Dim x As Integer, y As Integer x = 产生三位随机数y = 产生三位随机数 Text1.Text = & x & + & y & =( ) & Chr(13) & Chr(10)End Sub上机实践调试运行以上程序，运行界面参考如上图。Private Sub Command1_Click() Dim x As Integer, y As Integer x = 100 + Int(Rnd * 900) y = 100 + Int(Rnd * 900) Text1.Text = Text1.Text & x & + & y & =( ) & Chr(13) & Chr(10)End SubPrivate Sub Form_Load() Text1.Text = End SubPrivate Sub Text1_Change()End Sub【练习3-4】 在标签框中有一串英文字符串，有三个命令按钮名称分别为command1、command2、command3，按“转大写”按钮，文本变为大写，按“转小写”按钮，文本变为小写。其他字符不变。按“还原”按钮，回到启动状态。在本实验中需要在通用中声明一个模块级变量s，考虑一下为什么？研究下面的代码段，考虑应填入什么内容？Dim s As String声明模块级变量sPrivate Sub Form_Load()s = Label1.CaptionEnd SubPrivate Sub Command1_Click()Label1.Caption = End SubPrivate Sub Command2_Click()Label1.Caption = End SubPrivate Sub Command3_Click()“还原”的事件代码Label1.Caption = sEnd SubDim s As String Private Sub Form_Load() s = Label1.CaptionEnd SubPrivate Sub Command1_Click() Label1.Caption = Format(How are you, )End SubPrivate Sub Command2_Click() Label1.Caption = Format(HOW ARE YOU, )End SubPrivate Sub Command3_Click() Label1.Caption = sEnd SubPrivate Sub Label1_Click()End Sub浙江大学城市学院实验报告课程名称 VB程序设计基础与实验 实验项目名称 实验四、分支结构程序设计 实验成绩 指导老师（签名 ） 日期 一. 实验目的和要求1.掌握单分支与双分支条件语句IF的使用。2.掌握多分支条件语句的使用。3.掌握情况语句Select Case的使用及其与多分支条件语句的区别。二. 实验内容和原理【练习4-1】研究下面的代码段，画程序流程图，当输入93，81，74，65，42时，写出窗体中显示的结果。Private Sub Form_Click() 93：优秀score = Val(InputBox(输入成绩) 81:合格If score = 60 and score= 85 Then Print 优秀 42：不合格End sub引伸1若把程序代码写成如下形式，画出它的流程图。问当输入成绩为90分时，显示什么结果？为什么？用嵌套块If语句应如何写？ 90：合格Private Sub Form_Click() 原因： If score = 85 Then st= 优秀该if语句不完整score = Val(InputBox(输入成绩) If score = 85 Then st= 优秀 If score = 60 Then If score = 85 Then st= 优秀Elsest=合格End If Else st=” 不合格”End ifPrint stEnd Sub引伸2若把程序写成如下形式，当输入成绩为90、80、50时，显示什么结果？画出流程图。Private Sub Form_Click()score = Val(InputBox(输入成绩) 90：优秀If score = 85 Then 80：合格Print 优秀 50：不合格 ElseIf score = 60 ThenPrint 合格ElsePrint 不合格End IfEnd Sub调试运行以上程序，采用单步跟踪的方法（按F8）查看程序执行流程，进一步加深对分支结构的理解。【练习4-2】 研究下面的代码段。Dim flag As Integer注Dim falg as IntegerPrivate Sub Form_click()If flag = 0 ThenForm1.Print 欢迎使用Visual Basic!flag = 1ElseIf flag = 1 ThenForm1.Clsflag = 0End IfEnd Sub问题(1)在窗体上单击三下，窗体中显示什么结果？ 欢迎使用Visual Basic! (2)注意变量flag定义的位置，在这个位置定义的变量称作 模块变量 。若把变量flag变量定义放在Form_click()事件过程里，如：Private Sub Form_click()Dim flag As IntegerIf flag = 0 Then 在窗体上单击三下，此时程序的运行结果怎样？ 每单击一次出现：欢迎使用Visual Basic! (3)若要求窗体显示的字体是隶书18号字，该如何补充程序？Form1.FontName = 隶书 Form1.FontSize = 18(4)若把程序代码修改如下,Dim flag As IntegerPrivate Sub Form_click()If flag = 0 Then Form1.Print 欢迎使用Visual Basic!:flag=1If flag = 1 Then Form1.Cls: flag = 0End Sub 问出现什么结果，为什么？ 屏幕无显示 原因：Form1.Cls清空的是窗体信息，且后面的值设置为0，所以不管flag的值是0还是1，窗体都空白(5)若在Form_Click()事件过程中第一行的变量名flag拼写错了，写成了falg，如注所示，则程序执行结果如何？为什么？ 每单击一次出现：欢迎使用Visual Basic!上面的变了下面的没改，falg只记住falg的变量【练习4-3】根据所输入的百分制成绩score，给出相应的五级计分等级，即“优秀” (score=90)，“良好”(80=score90)，“中”(70=score80)，“及格”(60=score70)，“不及格”(score=90 then Print “优秀”ElseIf score=80 thenPrint 良好 ElseIf score = 70 Then Print 中 ElseIf score = 60 Then Print 及格 Else Print 不及格 End If End Sub引伸若把上面的ElseIf语句改写成块If语句，该如何补充完整。If score=90 then Print “优秀”ElseIf score=80 then Print 良好End IfElse If score = 70 Then Print 中End IfElse If score = 60 Then Print 及格End IfElse Print 不及格 End If End Sub【练习4-4】根据所输入的百分制成绩score，给出相应的五级计分等级，用Select Case语句完成。“* 错误1 *”提示信息的下一行是错误的，改正有错的语句并调试完成程序。Private Sub Command1_Click() Dim score as single score = val(Text1.Text) * 错误1 * Select Case x * 错误2 * Case x = 90 Text2.Text = 优秀* 错误3 * Case x=80 Text2.Text = 良好 * 错误4 * Case x = 70 and x= 60 Text2.Text = 及格 Case else Text2.Text = 不及格 End SelectEnd Sub调试运行程序，运行界面参考图3-23。Private Sub Command1_Click() Dim score As Single score = Val(Text1.Text) Select Case score Case Is = 90 Text2.Text = 优秀 Case Is = 80 Text2.Text = 良好 Case Is = 70 Text2.Text = 中 Case Is = 60 Text2.Text = 及格 Case Else Text2.Text = 不及格 End SelectEnd Sub图3-23 练习三程序运行界面【练习4-5】编程，在窗体上循环输出字符串“欢迎使用Visual Basic”。第一次单击窗体时以红色显示；第二次单击时以绿色显示；第三次单击时以篮色显示；第四次单击时则清除窗体上的信息；第五次又重新开始。Dim Flag As IntegerDim Mystring As StringPrivate Sub Form_Load() Flag = 0 Mystring = 欢迎使用 Vlsual BasiclEnd SubPrivate Sub form_Click() Flag = Flag + 1 Select Case Flag Case 1 Form1.ForeColor = vbRed Form1.Print Mystring Case 2 Form1.ForeColor = vbGreen Form1.Print Mystring Case 3 Form1