【VB开源代码栏目提醒】：网学会员,鉴于大家对VB开源代码十分关注，论文会员在此为大家搜集整理了“《基于VB可视化程序设计》《VB程序设计》实验指导书 - 大学课件”一文，供大家参考学习!

《基于 VB 可视化程序设计》/《VB 程序设计》实验指导书 《基于 VB 可视化程序设计》/《VB 程序设计》实验指导书 实验 1 简单 Visual Basic 程序设计一、实验目的 掌握使用 Visual Basic 6 集成环境，熟悉设计 VB 应用程序的步骤。

    二、实验要求 按照实验题目的要求，编写程序并上机调试三、实验设备 计算机、Windows 98 、Visual Basic 6四、实验原理、方法 上机操作使用 Visual Basic 6 输入并调试程序五、实验内容 掌握面向对象的可视化编程和事件驱动的编程机制； 题 1：在运行中当用鼠标单击窗体时，窗体上显示出“欢迎您来到 VB 世界 ” 题 2：设计一个应用程序，由用户输入正方形的边长，计算并输出正方形的面积六、实验步骤 设计 VB 应用程序的大致步骤如下：　 1建立用户界面的对象；　 2设置对象的属性值；　 3编写程序代码，建立事件过程；　 4保存和运行应用程序 题 1：在运行中当用鼠标单击窗体时，窗体上显示出“欢迎您来到 VB 世界 ” 设计步骤如下：　 1. 创建窗体　 在系统默认提供的窗体上输出若干文字，不必专门设计用户界面。

    　 2. 编写程序代码，建立事件过程　 代码窗口：进入；选择了对象和事件；编写程序代码 事件过程名，由两部分组成：对象名和事件名 标题 对象框 过程框 3. 保存工程 保存窗体文件.frm和工程文件.vbp 4. 运行程序　 执行“启动”命令，即用解释方式运行程序 执行“结束”命令，即可结束程序的运行 窗体显示情况 230 《基于 VB 可视化程序设计》/《VB 程序设计》实验指导书题 2：设计一个应用程序，由用户输入正方形的边长，计算并输出正方形的面积 要创建的应用程序用户界面 文本框Text1标签Label1 文本框Text2 标签Label2 命令按钮 Command1窗体Form1 窗体上含有两个标签、两个文本框和两个命令按钮，两个标签分别用于显示文字 命令按钮 “边长”和“面积”，两个文本框用于输入数据和显示计算结果 C d2 程序功能要求： 运行时，用户在“边长”文本框中输入某一个数，当单击“计算”按钮时，则 在“面积”文本框中显示该数的平方数。

    单击“结束”按钮，则结束程序的运行。

    1. 创建窗体 在默认窗体 Form1 上添加控件，以构建用户界面2. 在窗体上添加界面的控件　 设置控件的方法 在 Form1 窗体上添加以下控件： ； 标签 Label1：用于显示文字“边长” 标签 Label2：用于显示文字“面积”。

    　 文本框 Text1：用于边长数；　 文本框 Text2：用于显示计算结果平方数。

    　 命 令 按 钮 Command1 ： 用 于 计 算 输 入 数 的 平 方 ， 并 把 结 果 显示在文本框 Text2 中；　 命令按钮 Command2：用于结束应用程序的运行。

    3. 设置对象属性　 在“属性窗口”中进行 设置以下对象的属性：　1设置窗体 Form1 的 Caption标题名属性为“计算正方形的面积 ”。

    2设置标签 Label1 的 Caption 属性为“边长”。

    3设置标签 Label2 的 Caption 属性为“面积”。

    　4设置文本框 Text1 的 Text文本内容属性为空。

    　5设置文本框 Text2 的 Text 属性为空。

    　6设置按钮 Command1 的 Caption 属性为“计算”。

    　7设置按钮 Command2 的 Caption 属性为“结束”。

     其他属性采用默认值4. 编写程序代码，建立事件过程 231 《基于 VB 可视化程序设计》/《VB 程序设计》实验指导书 程序说明：Dim 语句；数据类型 Single单精度；Val 函数；语句“Text2.Textxx” 的作用 5. 保存工程　 保存窗体文件和工程文件 　 6. 运行程序　 单击工具栏上的“启动”按钮，即可采用解释方式来运行程序。

    　 运行后，在“边长”文本框中输入某一个数如 23单击“计算”按钮时，系统会 启动事件过程 Command1_Click，则取数和运算，最后把计算结果显示在“面积”文本 框Text2中。

     单击“结束”按钮，可以启动事件过程 Command2_Click，则执行 End 语句来结 束程序的运行。

    七、实验报告及记录格式 实验报告中必须有完整的程序清单，程序中必须有适当的注释，程序的运行结果。

    按金陵科技学院《实验报告（工科）》格式填写实验报告八、实验注意事项1. 输入程序时应严格注意大小写。

    2. 注意记录编译调试过程中的出错信息和改正结果。

    3. 爱护机器，遵守规章制度。

    九、思考题 1．利用 TIMER 控件实现一个时钟程序 232 《基于 VB 可视化程序设计》/《VB 程序设计》实验指导书 利用计时器控件 Interval 属性为 10001 秒，在定时器的定时事件过程中编写程序。

     实验 2 使用简单控件一、实验目的 1. 掌握使用 Visual Basic 6 集成环境中一些简单的控件。

    二、实验要求 按照实验题目的要求，编写程序并上机调试三、实验设备 计算机、Windows 98 、Visual Basic 6四、实验原理、方法 上机操作使用 Visual Basic 6 输入并调试程序五、实验内容 掌握一些常用的控件的属性与事件； 题 1：用文本框输入一个总秒数，化成小时、分钟和秒数 题 2：从输入框中输入圆的半径，计算圆的周长和面积，通过消息框输出六、实验步骤 题 1：用文本框输入一个总秒数，化成小时、分钟和秒数 1创建应用程序的用户界面和设置对象属性 2编写程序代码 Private Sub Command1_Click Dim h As Integer m As Integer s As Integer t As Integer t ValText1.Text h t 3600 t t - h 3600 m t 60 s t - m 60 Text2.Text h Text3.Text m Text4.Text s End Sub 233 《基于 VB 可视化程序设计》/《VB 程序设计》实验指导书 Private Sub Command2_Click End End Sub 题 2：从输入框中输入圆的半径，计算圆的周长和面积，通过消息框输出 1 创建应用程序的用户界面和设置对象属性 2编写程序代码　 Private Sub Command1_Click Dim r As Single k As Single s As Single r ValInputBoxquot请输入圆的半径quot quot计算圆的周长和面积quot k 2 3.14159 r s 3.14159 r r Text1.Text k Text2.Text s MsgBox quot计算已完成quot quot例 3.10quot End Sub Private Sub Command2_Click End End Sub七、实验报告及记录格式 实验报告中必须有完整的程序清单，程序中必须有适当的注释，程序的运行结果。

    按金陵科技学院《实验报告（工科）》格式填写实验报告八、实验注意事项1. 输入程序时应严格注意大小写。

    2. 注意记录编译调试过程中的出错信息和改正结果。

    3. 爱护机器，遵守规章制度。

    九、思考题1. 编写程序，实现两个文本框内容的交换 Dim s As String SText1.Text Text1.TextText2.Text Text2.TextS 234 《基于 VB 可视化程序设计》/《VB 程序设计》实验指导书 实验 3 使用复杂控件一、实验目的 1. 掌握使用 Visual Basic 6 集成环境中一些复杂的控件。

    二、实验要求 按照实验题目的要求，编写程序并上机调试三、实验设备 计算机、Windows 98 、Visual Basic 6四、实验原理、方法 上机操作使用 Visual Basic 6 输入并调试程序五、实验内容 掌握一些复杂的控件的属性与事件； 题 1：用单选按钮组控制显示不同的字体 题 2：用复选框来控制文字的字体、字型、字号及颜色六、实验步骤 题 1：用单选按钮组控制显示不同的字体】 1 创建应用程序的用户界面和设置对象属性 单选按钮组； 初始状态：设置 Option1 的 Value 属性值设置为 True， 或通过代码“Option1.ValueTrue” 来实现 2编写程序代码 功能要求程序代码如下： Private Sub Option1_Click Text1.FontName quot宋体quot End Sub Private Sub Option2_Click Text1.FontName quot幼圆quot End Sub Private Sub Option3_Click Text1.FontName quot楷体_GB2312quot End Sub 题 2：用复选框来控制文字的字体、字型、字号及颜色 1创建应用程序的用户界面和设置对象属性 235 《基于 VB 可视化程序设计》/《VB 程序设计》实验指导书 多行文本框带垂直滚动条和四个复选框 2编写程序代码　 功能要求：程序开始运行后，用户在文本框中输入一段文字如“复选框应用 示例”，然后按需要单击各复选框，则文字的字体、字型、字号及颜色随之改变Private Sub Check1_Click If Check1.Value 1 Then 判复选框 1 是否选中 Text1.FontName quot楷体_GB2312quot Else Text1.FontName quot宋体quot End IfEnd SubPrivate Sub Check2_Click If Check2.Value 1 Then 判复选框 2 是否选中 Text1.FontItalic -1 Else Text1.FontItalic 0 End IfEnd SubPrivate Sub Check3_Click If Check3.Value 1 Then 判复选框 3 是否选中 Text1.FontSize 25 Else Text1.FontSize 9 End IfEnd SubPrivate Sub Check4_Click If Check4.Value 1 Then 判复选框 4 是否选中 Text1.ForeColor RGB255 0 0 Else Text1.ForeColor RGB0 0 0 End If End Sub七、实验报告及记录格式 236 《基于 VB 可视化程序设计》/《VB 程序设计》实验指导书 实验报告中必须有完整的程序清单，程序中必须有适当的注释，程序的运行结果。

    按金陵科技学院《实验报告（工科）》格式填写实验报告八、实验注意事项1. 输入程序时应严格注意大小写。

    2. 注意记录编译调试过程中的出错信息和改正结果。

    3. 爱护机器，遵守规章制度。

    九、思考题1．单选与复选的区别？ 实验 4 菜单的使用一、实验目的 1. 掌握使用 Visual Basic 6 集成环境中下拉式菜单和弹出式菜单的实现方法。

    二、实验要求 按照实验题目的要求，编写程序并上机调试三、实验设备 计算机、Windows 98 、Visual Basic 6四、实验原理、方法 上机操作使用 Visual Basic 6 输入并调试程序五、实验内容 掌握下拉式菜单和弹出式菜单的属性与事件； 题 1：编一程序，分别用两种菜单进行两个操作数的算术运算练习六、实验步骤 题 1：编一程序，分别用两种菜单进行两个操作数的算术运算练习 1 创建应用程序的用户界面和设置对象属性 菜单栏向用户提供功能选择，包括运算 数的位数，运算符类型和退出程序 各个菜单项名称 菜单设计 2编写程序代码 功能要求 Option Explicit 显式声明变量 Dim sel1 As Integer sel2 As String Dim r1 As Long 237 《基于 VB 可视化程序设计》/《VB 程序设计》实验指导书Private Sub Form_Load sel1 0 位数标记 sel2 quotquot 运算标记 RandomizeEnd SubPrivate Sub Mnu11_Click sel1 1 设置位数标记End SubPrivate Sub Mnu12_Click sel1 10End SubPrivate Sub Mnu13_Click sel1 100End SubPrivate Sub Mnu21_Clicksel2 quotquot 设置运算标记End SubPrivate Sub Mnu22_Click sel2 quot-quotEnd SubPrivate Sub Mnu23_Click sel2 quotquotEnd Sub Private Sub Command1_Click quot命题quot按钮单击事件 Dim a As Long b As Long If sel1 0 Or sel2 quotquot Then MsgBox quot先选择运算数的位数和运算类型quot Exit Sub End If a sel1 Int9 sel1 Rnd 随机生成指定位数的操作数 b sel1 Int9 sel1 Rnd Label1.Caption Stra sel2 Strb quotquot 组成算式 Select Case sel2 求运算结果 r1 Case quotquot r1 a b Case quot-quot r1 a - b Case quotquot r1 a b End Select Text1.Text quotquot Text1.SetFocusEnd SubPrivate Sub Command2_Click quot答题quot按钮单击事件 238 《基于 VB 可视化程序设计》/《VB 程序设计》实验指导书 Dim r2 As Long If Text1.Text quotquot Then MsgBox quot请输入答案quot Exit Sub End If r2 ValText1.Text 读取用户的答案 If r1 r2 Then 判断答案 Label3.Caption quot正确quot Else Label3.Caption quot错误quot End If End Sub Private Sub Mnu30_Click ‘“退出”菜单命令 End End Sub七、实验报告及记录格式 实验报告中必须有完整的程序清单，程序中必须有适当的注释，程序的运行结果。

    按金陵科技学院《实验报告（工科）》格式填写实验报告八、实验注意事项1. 输入程序时应严格注意大小写。

    2. 注意记录编译调试过程中的出错信息和改正结果。

    3. 爱护机器，遵守规章制度。

    九、思考题1．下拉式菜单和弹出式菜单分别用在什么界面？ 实验 5 程序设计基础一、实验目的1. 掌握使用 Visual Basic 6 编程语法。

    二、实验要求 按照实验题目的要求，编写程序并上机调试三、实验设备 计算机、Windows 98 、Visual Basic 6四、实验原理、方法 上机操作使用 Visual Basic 6 输入并调试程序五、实验内容 掌握使用变量定义、选择结构。

     题 1：求鸡数和兔数 题 2：求一元二次方程 ax2bxc＝0 的解六、实验步骤 239 《基于 VB 可视化程序设计》/《VB 程序设计》实验指导书 题 1：求鸡数和兔数 1 在窗体上设置一个命令按钮 Command1 2 编写程序代码 采用窗体的装载事件 Form_Load使考题内容直接显示在窗体上。

     当用户单击“答题”按钮时，程序提供输入对话框，由用户输入答案，再通过输出框显示评判意见。

    采用的程序代码如下： Private Sub Form_Load Show Print FontSize 18 Print Spc9 quot考一考你quot FontSize 13 Print Print Spc5 quot鸡兔同笼，已知鸡和兔总头数为 23，quot Print Spc3 quot总脚数为 56，求鸡兔各有多少？quot End Sub Private Sub Command1_Click h 23 : f 56 总头数及总脚数 j1 4 h - f / 2 求出的鸡数 t1 f - 2 h / 2 求出的兔数 j2 ValInputBoxquot鸡的只数是多少？quot quot请回答quot t2 ValInputBoxquot兔的只数是多少？quot quot请回答quot Select Case True 选择真值 Case j1 j2 And t1 t2 MsgBox quot回答完全正确quot Case j1 j2 MsgBox quot鸡数回答正确，但兔数不对quot Case t1 t2 MsgBox quot兔数回答正确，但鸡数不对quot Case Else MsgBox quot回答错误quot End Select End Sub 题 2：求一元二次方程 ax2bxc＝0 的解 1分析：方程的解有以下几种可能： 若 a0，不是二次方程　 240 《基于 VB 可视化程序设计》/《VB 程序设计》实验指导书 若 b2 - 4ac0，有两个相等实根　 若 b2 - 4acgt0，有两个不等实根　 若 b2 - 4aclt0，有两个共轭复根2程序框图程序框图 程序框图也称程序流程图，它能直观地表示程序的处理步骤，是一种描述算 法的常用方法。

    　 开始 输入a b c 真 a0 假 Dbb – 4ac 输出“不是二次方程” R－b / 2a 真 D0 .