通用可视化开发语言实习指导书

1、实习一 熟悉并掌握VB集成开发环境一、实习目的1、 熟悉VB的开发环境；2、 掌握开发VB程序的一般步骤，学会建立简单的VB应用程序。3、 完成课后习题。二、原理与方法VB是面向对象的程序设计语言，把程序和数据封装起来作为一个对象，并为对象赋予应有的属性，在设计对象时，不必编写建立和描述每个对象的程序代码，而是用工具画在界面上。另外VB提供了可视化设计工具，节省了大量编写界面的工作。VB通过事件驱动的方式来实现对象的操作，其程序不是按照规定的路径执行，而是在响应不同的事件时，驱动不同的事件代码，以此来控制对象的行为。三、实习仪器与数据电脑、Visual Basic 6.0四、实习步骤1、熟悉V

2、B的开发环境熟悉VB的菜单、工具条、工具窗口、窗体、控件、代码窗口等。结合第三章内容，熟练掌握窗体的常用属性的使用方法，观察窗体对象不同属性运行的效果。2、添加窗体和控件添加一个窗体，在指定位置添加控件，并设置控件属性。具体属性见下表。表1 控制文本框的编辑状态对象名属性名设置值Text1Textvb6.0程序应用示例TextMultilineTrueCommand1Caption编辑文本Command2Caption禁止编辑Text1LockedFalse效果如图1所示。图1 控制文本框的编辑状态3、编写代码Private Sub Command1_Click()Text1.Locked =

3、 TrueEnd SubPrivate Sub Command2_Click()Text1.Locked = FalseEnd Sub4、运行程序通过不同的方式运行程序，观察运行结果，体会VB开发语言的特点。5完成实习报告内容包括：目的、开发VB程序的一般步骤、VB的特点及实习体会，同时将第四章习题4.7，4.8的结果写入实习报告。实习二 简单文本编辑器一、实习目的1、 学会根据要求设计窗体界面，并对窗体进行合理布局；2、 掌握标签、文本框、单选、复选框、框架等控件的使用；3、 掌握用程序代码方式设置属性的方法。4、 掌握inputbox和MSGbox函数的使用。二、原理与方法VB中的控件时预

4、定义的对象，可由工具箱中直接添加到窗体上，自由构建自己需要的界面。对象的属性可由属性窗口设置，也可由代码进行设置或修改。三、实习仪器与数据电脑、Visual Basic 6.0四、实习步骤1、添加窗体和控件添加一个窗体，在指定位置添加控件，并设置控件属性。具体属性见下表。表2 窗体或控件属性表对象名属性名设置值Form1caption简单文本编辑器Frame1caption字体Frame2caption字型Frame3caption字号Frame4caption字色Option1caption宋体Option2caption黑体Option3caption隶书Option4caption8号字

5、Option5caption14号字Option6caption24号字Option7caption蓝色Option8caption绿色Option9caption红色Check1caption粗体Check2caption斜体Check3caption下划线Command1caption确定Command2caption取消效果如图2所示。图2 简单文本编辑器界面2、编写代码Private Sub Command1_Click()If Option1.Value = True Then Text1.Font.Name = 宋体End IfIf Option2.Value = True The

6、n Text1.Font.Name = 黑体End IfIf Option3.Value = True Then Text1.Font.Name = 隶书End IfIf Option7.Value = True Then Text1.ForeColor = vbBlueEnd IfIf Option8.Value = True Then Text1.ForeColor = vbGreenEnd IfIf Option9.Value = True Then Text1.ForeColor = vbRedEnd IfIf Check1.Value = vbChecked Then Text1.F

7、ont.Bold = TrueElse Text1.Font.Bold = FalseEnd IfIf Check2.Value = 1 Then Text1.Font.Italic = TrueElse Text1.Font.Italic = FalseEnd IfIf Check3.Value = 1 Then Text1.Font.Underline = TrueElse Text1.Font.Underline = FalseEnd IfIf Option4.Value = True Then Text1.Font.Size = 8End IfIf Option5.Value = Tr

8、ue Then Text1.Font.Size = 14End IfEnd SubPrivate Sub Command2_Click()EndEnd Sub3、运行程序运行程序，观察运行结果，对程序中的错误能够调试正确。4、完善程序能够利用VB的内部函数和inputbox和MSGbox函数实现在文本框中查找和替换的功能。5完成实习报告内容包括：目的、查找和替换的功能的完整代码。实习三 编写四则运算程序一、实习目的1、 掌握VB常量的定义和使用方法；2、 掌握各种表达式的使用方法；3、 掌握常用函数的使用方法；4、 掌握选择结构的程序设计方法。二、原理与方法用随机函数Rnd()产生随机数和运算

9、符，并利用函数Val()将文本框内容转换为数值型进行运算。程序运行时，能够随机产生加、减、乘、除四则运算的算式，并对用户输入的答案进行判断，在Picture控件上显示判断结果。三、实习仪器与数据电脑、Visual Basic 6.0四、实习步骤1、添加窗体和控件添加一个窗体，在指定位置添加控件，并设置控件属性。具体属性见下表。表3 窗体或控件属性表对象名属性名设置值Label1caption显示题目Label2caption题次Text1text计算结果Picture1Picture-Command1caption计分Command2caption继续Command3caption退出效果如图

10、3所示。图3 四则运算程序界面2、编写代码以下给出部分代码，在注释语句后添加部分代码，实现要求的功能。Dim i As IntegerDim result As IntegerDim ok As Integer, error As IntegerPrivate Sub Command1_Click()Label1 = Text1.Visible = FalsePicture1.Print - - - - - - - - - - - - - - - -Picture1.Print 你一共计算 & i & 题，;Picture1.Print 得分为： & Int(ok / i * 100)End

11、SubPrivate Sub Command2_Click() Text1.Visible = True Picture1.Cls Text1.SetFocus Form_LoadEnd SubPrivate Sub Command3_Click()EndEnd SubPrivate Sub Form_Load() Label2.Caption = 第 & i + 1 & 题： Dim x As Integer, y As Integer, z As Integer, temp As Integer Dim op As String 随机数初始化产生随机数 Text1 = Select Cas

12、e 语句生成等式,结果返回给变量RESULT,在窗体上显示等式End SubPrivate Sub Command4_Click() 判断结果,在图片框里面显示结果,产生新的题目End Sub3、运行程序运行程序，观察运行结果，能够调试正确对程序中的错误。4、完成实习报告内容包括：目的、缺失代码。实习四 编写计算器程序一、实习目的1、 掌握控件数组的创建方法；2、 理解控件数组中控件名称组成特点；3、 掌握运用控件数组编程的方法。二、原理与方法使用控件数组设计一个简易计算器，具体方法为用一文本框显示计算过程及结果，使用以命令按钮控件为元素的控件数组，并编写控件数组的Click事件，实现算术运算

13、和简单函数运算，并具有清除结果和退格键的功能。三、实习仪器与数据电脑、Visual Basic 6.0四、实习步骤1、添加窗体和控件添加一个窗体，在指定位置添加控件，并设置控件属性。具体属性见下表。表4 窗体或控件属性表对象名属性名设置值Form1caption计算器Text1text-Command1（0-9）caption0-9Command1（10-13）caption+、-、*、Command1（14）caption.Command1（15）caption=Command1（16）caption退格Command1（17）captionCCommand1(18-24)caption平方

14、、Sqrt、Sin、Cos、Tan、Atn、log效果如图4所示。图4 简易计算器程序界面2、编写代码以下给出部分代码，在注释语句后添加缺失部分代码，实现要求的功能。Dim x As Single, y As SingleDim op As StringPrivate Sub Command1_Click(Index As Integer)Select Case Index 编写详细代码 case 0 to 9输入数据case 14 小数点Case 10 to 13 加减乘除Case 15”=”Case 16 退格case 17 清空case 18-24求各种初等函数 End SelectEn

15、d SubPrivate Sub Form_Load()Text1 = For i = 0 To 24 Command1(i).BackColor = &HC0FFFFNext iEnd Sub3、运行程序运行程序，观察运行结果，能够调试正确对程序中的错误。本次实习只实现了计算器的部分功能，请试着完善计算器的其它功能。4、完成实习报告内容包括：目的、缺失部分的代码。实习五 创建记事本应用程序一、实习目的1、 掌握菜单编辑器的使用方法；2、 熟悉菜单事件的编程方法；3、 了解手工创建工具栏和状态栏的基本方法。二、原理与方法设计一个文本编辑器，能够实现文本编辑的基本功能。在“文件”菜单中的菜单项为

16、“新建”、“打开”、 “保存”、“另存为”、“退出”；在“编辑菜单中的菜单项为“复制”、“剪切”、“粘贴”；在“格式”菜单中有“字体”和“颜色”菜单项。在状态栏显示系统时间、编辑状态等，在工具栏上添加新建、打开、保存、剪切、复制、粘贴等按钮。三、实习仪器与数据电脑、Visual Basic 6.0四、实习步骤1、添加窗体和控件添加一个窗体，在指定位置添加控件，并设置控件属性。具体属性见下表。表5 窗体或控件属性表对象名属性名设置值Form1caption文本编辑器StatusBar1编辑锁定RichTextBox1text空效果如图5所示。图4 简易文本编辑器界面2、编写代码以下给出部分代码，

17、在注释语句后添加缺失部分代码，实现要求的功能。Private Sub Form_Resize()RichTextBox1.Left = 0If Vtoolbar.Checked = True Then RichTextBox1.Top = Toolbar1.HeightElse RichTextBox1.Top = 0End IfRichTextBox1.Width = ScaleWidthIf Vstatusbar.Checked = True Then RichTextBox1.Height = ScaleHeight - RichTextBox1.Top - StatusBar1.Hei

18、ghtElse RichTextBox1.Height = ScaleHeight - RichTextBox1.TopEnd IfEnd Sub实现编辑菜单下各菜单项功能Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)Select Case Button.Index Case 1 fnew_Click Case 2 fopen_Click Case 3 fsave_Click Case 5 Ecut_Click Case 6 Ecopy_Click Case 7 Epaste_Click End Sele

19、ctEnd SubPrivate Sub Vstatusbar_Click()If Vstatusbar.Checked = False Then Vstatusbar.Checked = True StatusBar1.Visible = TrueElse Vstatusbar.Checked = False StatusBar1.Visible = FalseEnd IfForm_ResizeEnd SubPrivate Sub Vtoolbar_Click()If Vtoolbar.Checked = False Then Vtoolbar.Checked = True Toolbar1

20、.Visible = TrueElse Vtoolbar.Checked = False Toolbar1.Visible = FalseEnd IfForm_ResizeEnd Sub3、运行程序运行程序，观察运行结果，能够调试正确对程序中的错误。4、完成实习报告内容包括：目的、缺失部分的代码。实习六 文件读写一、实习目的1、 掌握文件系统控件（文件、目录、驱动器列表框）的应用；2、 掌握顺序文件的打开、关闭和读写的基本操作； 3、 掌握常用文件函数和文件命令的使用方法。二、原理与方法用文件列表框、目录列表框、驱动器列表框选取文本，该文件包括5行说明以及150150个数据，要求将数据读取到一

21、个两维数组，并在图片框显示部分文件内容（如图），然后提取其主对角线元素到另外一个文件。三、实习仪器与数据电脑、Visual Basic 6.0、TM.txt四、实习步骤1、添加窗体和控件添加一个窗体，在指定位置添加控件，并设置控件属性。具体属性见下表。表6 窗体或控件属性表对象名属性名设置值Form1caption文件读写Drive1-Dir1-File1-Picture1-效果如图6所示。图6 文件读些界面2、编写代码以下给出部分代码，在注释语句后添加缺失部分代码，实现要求的功能。Private Sub Dir1_Change() File1.Path = Dir1.PathEnd SubPrivate Sub Drive1_Change() Dir1.Path = Drive1.DriveEnd SubPrivate Sub File1_Click() Dim FileName As String Const m = 150, n = 150, kk = 150 Dim