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

Size: px

Start display at page:

Download "通用可视化开发语言实习指导书.doc"

右辰毕
5 years ago
Views:

1 实习一熟悉并掌握 VB 集成开发环境一实习目的 1 熟悉 VB 的开发环境 ; 2 掌握开发 VB 程序的一般步骤, 学会建立简单的 VB 应用程序 3 完成课后习题二原理与方法 VB 是面向对象的程序设计语言, 把程序和数据封装起来作为一个对象, 并为对象赋予应有的属性, 在设计对象时, 不必编写建立和描述每个对象的程序代码, 而是用工具画在界面上另外 VB 提供了可视化设计工具, 节省了大量编写界面的工作 VB 通过事件驱动的方式来实现对象的操作, 其程序不是按照规定的路径执行, 而是在响应不同的事件时, 驱动不同的事件代码, 以此来控制对象的行为三实习仪器与数据电脑 Visual Basic 6.0 四实习步骤 1 熟悉 VB 的开发环境熟悉 VB 的菜单工具条工具窗口窗体控件代码窗口等结合第三章内容, 熟练掌握窗体的常用属性的使用方法, 观察窗体对象不同属性运行的效果 2 添加窗体和控件添加一个窗体, 在指定位置添加控件, 并设置控件属性具体属性见下表表 1 控制文本框的编辑状态对象名属性名设置值 Text1 Text vb6.0 程序应用示例 Text Multiline True Command1 Caption 编辑文本 Command2 Caption 禁止编辑 Text1 Locked False 效果如图 1 所示

2 图 1 控制文本框的编辑状态 3 编写代码 Private Sub Command1_Click() Text1.Locked = True Private Sub Command2_Click() Text1.Locked = False 4 运行程序通过不同的方式运行程序, 观察运行结果, 体会 VB 开发语言的特点 5. 完成实习报告内容包括 : 目的开发 VB 程序的一般步骤 VB 的特点及实习体会, 同时将第四章习题 4.7,4.8 的结果写入实习报告

3 实习二简单文本编辑器一实习目的 1 学会根据要求设计窗体界面, 并对窗体进行合理布局 ; 2 掌握标签文本框单选复选框框架等控件的使用 ; 3 掌握用程序代码方式设置属性的方法 4 掌握 inputbox 和 MSGbox 函数的使用二原理与方法 VB 中的控件时预定义的对象, 可由工具箱中直接添加到窗体上, 自由构建自己需要的界面对象的属性可由属性窗口设置, 也可由代码进行设置或修改三实习仪器与数据电脑 Visual Basic 6.0 四实习步骤 1 添加窗体和控件添加一个窗体, 在指定位置添加控件, 并设置控件属性具体属性见下表表 2 窗体或控件属性表对象名属性名设置值 Form1 caption 简单文本编辑器 Frame1 caption 字体 Frame2 caption 字型 Frame3 caption 字号 Frame4 caption 字色 Option1 caption 宋体 Option2 caption 黑体 Option3 caption 隶书 Option4 caption 8 号字 Option5 caption 14 号字 Option6 caption 24 号字 Option7 caption 蓝色 Option8 caption 绿色 Option9 caption 红色 Check1 caption 粗体 Check2 caption 斜体 Check3 caption 下划线

Command1 caption 确定 Command2 caption 取消效果如图 2 所示图 2 简单文本编辑器界面 2 编写代码 Private Sub Command1_Click() If Option1.Value = True Then Text1.Font.Name = " 宋体 " If Option2.Value = True Then Text1.Font.Name = " 黑体 " If Option3.

4 Command1 caption 确定 Command2 caption 取消效果如图 2 所示图 2 简单文本编辑器界面 2 编写代码 Private Sub Command1_Click() If Option1.Value = True Then Text1.Font.Name = " 宋体 " If Option2.Value = True Then Text1.Font.Name = " 黑体 " If Option3.Value = True Then Text1.Font.Name = " 隶书 " If Option7.Value = True Then Text1.ForeColor = vbblue If Option8.Value = True Then Text1.ForeColor = vbgreen If Option9.Value = True Then

5 Text1.ForeColor = vbred If Check1.Value = vbchecked Then Text1.Font.Bold = True Else Text1.Font.Bold = False If Check2.Value = 1 Then Text1.Font.Italic = True Else Text1.Font.Italic = False If Check3.Value = 1 Then Text1.Font.Underline = True Else Text1.Font.Underline = False If Option4.Value = True Then Text1.Font.Size = "8" If Option5.Value = True Then Text1.Font.Size = "14" Private Sub Command2_Click() End 3 运行程序运行程序, 观察运行结果, 对程序中的错误能够调试正确 4 完善程序能够利用 VB 的内部函数和 inputbox 和 MSGbox 函数实现在文本框中查找和替换的功能 5. 完成实习报告内容包括 : 目的查找和替换的功能的完整代码

6 实习三编写四则运算程序一实习目的 1 掌握 VB 常量的定义和使用方法 ; 2 掌握各种表达式的使用方法 ; 3 掌握常用函数的使用方法 ; 4 掌握选择结构的程序设计方法二原理与方法用随机函数 Rnd() 产生随机数和运算符, 并利用函数 Val() 将文本框内容转换为数值型进行运算程序运行时, 能够随机产生加减乘除四则运算的算式, 并对用户输入的答案进行判断, 在 Picture 控件上显示判断结果三实习仪器与数据电脑 Visual Basic 6.0 四实习步骤 1 添加窗体和控件添加一个窗体, 在指定位置添加控件, 并设置控件属性具体属性见下表表 3 窗体或控件属性表对象名属性名设置值 Label1 caption 显示题目 Label2 caption 题次 Text1 text 计算结果 Picture1 Picture ---- Command1 caption 计分 Command2 caption 继续 Command3 caption 退出效果如图 3 所示

图 3 四则运算程序界面 2 编写代码以下给出部分代码, 在注释语句后添加部分代码, 实现要求的功能 Dim i As Integer Dim result As Integer Dim ok As Integer, error As Integer Private Sub Command1_Click() Label1 = "" Text1.Visible = False Picture1.

7 图 3 四则运算程序界面 2 编写代码以下给出部分代码, 在注释语句后添加部分代码, 实现要求的功能 Dim i As Integer Dim result As Integer Dim ok As Integer, error As Integer Private Sub Command1_Click() Label1 = "" Text1.Visible = False Picture1.Print " " Picture1.Print " 你一共计算 " & i & " 题,"; Picture1.Print " 得分为 :" & Int(ok / i * 100) Private Sub Command2_Click() Text1.Visible = True Picture1.Cls Text1.SetFocus Form_Load Private Sub Command3_Click() End Private Sub Form_Load() Label2.Caption = " 第 " & i + 1 & " 题 :" Dim x As Integer, y As Integer, z As Integer, temp As Integer

8 Dim op As String 随机数初始化产生随机数 Text1 = "" Select Case 语句生成等式, 结果返回给变量 RESULT, 在窗体上显示等式 Private Sub Command4_Click() 判断结果, 在图片框里面显示结果, 产生新的题目 3 运行程序运行程序, 观察运行结果, 能够调试正确对程序中的错误 4 完成实习报告内容包括 : 目的缺失代码

9 实习四编写计算器程序一实习目的 1 掌握控件数组的创建方法 ; 2 理解控件数组中控件名称组成特点 ; 3 掌握运用控件数组编程的方法二原理与方法使用控件数组设计一个简易计算器, 具体方法为用一文本框显示计算过程及结果, 使用以命令按钮控件为元素的控件数组, 并编写控件数组的 Click 事件, 实现算术运算和简单函数运算, 并具有清除结果和退格键的功能三实习仪器与数据电脑 Visual Basic 6.0 四实习步骤 1 添加窗体和控件添加一个窗体, 在指定位置添加控件, 并设置控件属性具体属性见下表表 4 窗体或控件属性表对象名属性名设置值 Form1 caption 计算器 Text1 text ---- Command1(0-9) caption 0-9 Command1(10-13) caption + - * Command1(14) caption. Command1(15) caption = Command1(16) caption 退格 Command1(17) caption C Command1(18-24) caption 平方 Sqrt Sin Cos Tan Atn log 效果如图 4 所示

图 4 简易计算器程序界面 2 编写代码以下给出部分代码, 在注释语句后添加缺失部分代码, 实现要求的功能 Dim x As Single, y As Single Dim op As String Private Sub Command1_Click(Index As Integer) Select Case Index 编写详细代码 case 0 to 9

10 图 4 简易计算器程序界面 2 编写代码以下给出部分代码, 在注释语句后添加缺失部分代码, 实现要求的功能 Dim x As Single, y As Single Dim op As String Private 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 求各种初等函数 End Select Private Sub Form_Load() Text1 = "" For i = 0 To 24 Command1(i).BackColor = &HC0FFFF Next i

11 3 运行程序运行程序, 观察运行结果, 能够调试正确对程序中的错误本次实习只实现了计算器的部分功能, 请试着完善计算器的其它功能 4 完成实习报告内容包括 : 目的缺失部分的代码

12 实习五创建记事本应用程序一实习目的 1 掌握菜单编辑器的使用方法; 2 熟悉菜单事件的编程方法; 3 了解手工创建工具栏和状态栏的基本方法二原理与方法设计一个文本编辑器, 能够实现文本编辑的基本功能在文件菜单中的菜单项为新建打开保存另存为退出 ; 在编辑菜单中的菜单项为复制剪切粘贴 ; 在格式菜单中有字体和颜色菜单项在状态栏显示系统时间编辑状态等, 在工具栏上添加新建打开保存剪切复制粘贴等按钮三实习仪器与数据电脑 Visual Basic 6.0 四实习步骤 1 添加窗体和控件添加一个窗体, 在指定位置添加控件, 并设置控件属性具体属性见下表表 5 窗体或控件属性表对象名属性名设置值 Form1 caption 文本编辑器 StatusBar1 编辑 \ 锁定 RichTextBox1 text 空效果如图 5 所示

图 4 简易文本编辑器界面 2 编写代码以下给出部分代码, 在注释语句后添加缺失部分代码, 实现要求的功能 Private Sub Form_Resize() RichTextBox1.Left = 0 If Vtoolbar.Checked = True Then RichTextBox1.Top = Toolbar1.Height Else RichTextBox1.

13 图 4 简易文本编辑器界面 2 编写代码以下给出部分代码, 在注释语句后添加缺失部分代码, 实现要求的功能 Private Sub Form_Resize() RichTextBox1.Left = 0 If Vtoolbar.Checked = True Then RichTextBox1.Top = Toolbar1.Height Else RichTextBox1.Top = 0 RichTextBox1.Width = ScaleWidth If Vstatusbar.Checked = True Then RichTextBox1.Height = ScaleHeight - RichTextBox1.Top - StatusBar1.Height Else RichTextBox1.Height = ScaleHeight - RichTextBox1.Top 实现编辑菜单下各菜单项功能 Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button) Select Case Button.Index Case 1 fnew_click Case 2 fopen_click

14 Case 3 fsave_click Case 5 Ecut_Click Case 6 Ecopy_Click Case 7 Epaste_Click End Select Private Sub Vstatusbar_Click() If Vstatusbar.Checked = False Then Vstatusbar.Checked = True StatusBar1.Visible = True Else Vstatusbar.Checked = False StatusBar1.Visible = False Form_Resize Private Sub Vtoolbar_Click() If Vtoolbar.Checked = False Then Vtoolbar.Checked = True Toolbar1.Visible = True Else Vtoolbar.Checked = False Toolbar1.Visible = False Form_Resize 3 运行程序运行程序, 观察运行结果, 能够调试正确对程序中的错误 4 完成实习报告内容包括 : 目的缺失部分的代码

15 实习六文件读写一实习目的 1 掌握文件系统控件 ( 文件目录驱动器列表框 ) 的应用 ; 2 掌握顺序文件的打开关闭和读写的基本操作 ; 3 掌握常用文件函数和文件命令的使用方法二原理与方法用文件列表框目录列表框驱动器列表框选取文本, 该文件包括 5 行说明以及个数据, 要求将数据读取到一个两维数组, 并在图片框显示部分文件内容 ( 如图 ), 然后提取其主对角线元素到另外一个文件三实习仪器与数据电脑 Visual Basic 6.0 TM.txt 四实习步骤 1 添加窗体和控件添加一个窗体, 在指定位置添加控件, 并设置控件属性具体属性见下表表 6 窗体或控件属性表对象名属性名设置值 Form1 caption 文件读写 Drive1 - - Dir1 - - File1 - - Picture1 - - 效果如图 6 所示

16 图 6 文件读些界面 2 编写代码以下给出部分代码, 在注释语句后添加缺失部分代码, 实现要求的功能 Private Sub Dir1_Change() File1.Path = Dir1.Path Private Sub Drive1_Change() Dir1.Path = Drive1.Drive Private Sub File1_Click() Dim FileName As String Const m = 150, n = 150, kk = 150 Dim s1 As String Dim i, j, k, nn, mm, l As Integer Dim y(m, n) As Double, sum(kk) As Double, aver As Double, s As Double, xy(m * n) As Double, r(n) As Double If Right(Dir1.Path, 1) <> "\" Then Text1.Text = Dir1.Path & "\" & File1.FileName Else Text1.Text = Dir1.Path & File1.FileName

17 Open Text1.Text For Input As #1 For i = 1 To 5 Line Input #1, s1 Picture1.Print s1 Next i For i = 1 To m For j = 1 To n Input #1, y(i, j) Picture1.Print y(i, j), Next j Picture1.Print Next i Close #1 Open "d:\byhsh.txt" For Output As #3 k = 1 For i = 1 To m For j = 1 To n If i = j Then sum(k) = y(i, j) Print #3, sum(k) k = k + 1 Next j Next i Close #3 MsgBox (" 计算完毕 ") 3 运行程序运行程序, 观察运行结果, 能够调试正确对程序中的错误 4 完成实习报告内容包括 : 目的读文件与数据处理的代码

2010年3月计算机等级考试四级网络工程师笔试

2010年3月计算机等级考试四级网络工程师笔试计算机二级 VB 经典预测题下列各题 A) B) C) D) 四个选项中, 只有一个选项是正确的请将正确选项填涂在答题卡相应位置上, 答在试卷上不得分 (1) 下列叙述中正确的是 ( ) A) 循环队列是队列的一种链式存储结构 B) 循环队列是队