【VB开源代码栏目提醒】：网学会员在VB开源代码频道为大家收集整理了“VB程序设计课程实验报告(样本参考一) - 实施方案“提供大家参考，希望对大家有所帮助!

计算机与信息学院 （VB 程序设计课程） 实验报告课程名称： VB 程序设计教程信息学院专 业： 计算机应用技术年 级：学 号：指导教师：职 称： 200x 年 xx 月 xx 日 实验项目列表序号 实验项目名称 成绩 指导教师 1 VB 环境和程序设计初步 2 顺序程序设计 3 选择结构程序设计 4 循环结构程序设计及数组的运用 5 过程 6 窗体和常用控件 7 常用控件 8 气泡法排序程序 9 实验九 10 菜单设计和多文档界面 计算机与信息学院实验报告 （一）Visual Basic 环境和程序设计的初步一、 实验目的 1、 了解 Visual Basic 系统对计算机软件、硬件的要求。

     2、 掌握启动与退出 Visual Basic 的方法。

     。

     3、 熟悉 Visual Basic 的集成开发环境（IDE） 4、 掌握在窗体上添加控件的各种方法。

     5、 掌握建立、编辑、运行和保存一个简单的 Visual Basic 应用程序的全过程。

    二、 实验内容 1、 启动 Visual Basic6.0观察标题栏、菜单栏、工具栏与 Microsoft 其他应用程序的不同之 处；熟悉各个控件以及窗体设计和工程管理器窗口、属性窗口、代码窗口的功能、组 成以及它们各种不同的打开方法。

     。

     2、 在窗体上画一文本框个一个命令按钮，在文本框中显示“VB 程序设计” （1） 编写适当事件过程，当单击命令按钮时，文本框内容消失。

     （2） 以解释方式运行程序。

     （3） 把程序保存。

    然后关掉该工程。

    装入上面建立的程序，并在窗体上增加一个命令 按钮。

    当单击该命令按钮，结束程序运行。

    保存程序。

     （4） 把当前程序编译为可执行文件。

     （5） 生成当前工程并退出。

    在 windows 环境下运行该工程。

     ” 3、 创建一个“标准 EXE”类型的应用程序。

    要求：在屏幕上显示“欢迎您的到来！ ，并 请输入您的名字。

    三、 实验环境 Microsoft Visual Basic 6.0 中文版四、 算法描述及实验步骤 1、 熟悉 vb 的环境。

     2、 先创建一个文本框和命令按钮，并设置相应的代码如下： Private Sub Form_Load Text1.Text quotVB 程序设计quot End Sub Private Sub Command1_Click Text1.Text quotquot End Sub 3、 创建两个标签和一个文本框。

    在属性窗口设置两个标签的 caption 的值分别为： ，并设置相应的字体。

     欢迎你的到来！和请留下您的尊姓大名：五、 调试过程 无错误六、 实验结果 1、 2、七、 总结答：从中的到的知识是更了解了 VB 集成开发环境，掌握了在窗体上添加控件的各种方法。

     （二）顺序程序设计一、 实验目的和要求 1. 掌握常用内部函数的使用 2. 掌握表达式，赋值语句的正确书写规则 3. 掌握 InpueBox 和 MsgBox 的使用二、 实验内容和原理 1. 用立即窗口试验每一个内部函数的操作，并验证数值以及日期时间的各种 格式化输出方式。

     2. 创建如图所示的应用程序，要求：单击窗体显示如图所示的图形。

     3. 创建如图所示的应用程序，要求：单击“放大”按钮后，将文本中显示的 字符串放大２３倍；若单击按钮“还原”按钮。

    则将文本框显示的字符 串大小返原。

    三、 实验环境 Microsoft Visual Basic 6.0 中文版四、 算法描述及实验步骤 1. Private Sub Form_Click Print Int3.3 Spc1: Print Int-5.3 Spc1: Print Fix6.9 Spc1 Print Fix-7.6 Spc1: Print Round7.5 Spc1: Print Round-7.5 Spc1 Print Hex20 Spc1: Print Oct20 Spc1: Print Ascquotwquot Spc1 Print Chr70 Spc1: Print Valquot132quot Spc1: Print Str122 Spc1 Print Sin30 Spc1: Print Cos30 Spc1: Print Tan45 Spc1 Print Atn453 Spc1: Print Abs-8 Spc1: Print Sgn-4 Spc1 Print Sqr4 Spc1: Print Exp6 Spc1: Print Log4 Spc1 Print DayNow Spc1: Print MonthNow Spc1: Print YearNow Spc1 Print HourNow Spc1: Print MinuteNow Spc1: Print SecondNow Spc1 Print Trimquotwgxquot Spc1: Print LTrimquotwgxwgxquot Spc1: Print RTrimquotwgxwgx quot Spc1 Print Leftquotwgxquot 2 Spc1: Print Midquotwgxwgxquot 2 3 Spc1: Print Rightquotwgxgwxquot 3 Spc1 Print LenquotwWgGxXquot Spc1: Print String3 65 Spc1: Print InStrquotwgxwGXquot quotxquot Spc1 Print UCasequotwgxquot Spc1: Print LCasequotWGXquot Spc1 End Sub 2. Private Sub Form_Click Print Tab20 quotquot Print Tab20 quot quot Print Tab20 quotquot Spc4 quotquot Print Tab20 quotquot Spc6 quotquot Print Tab20 quotquot Spc8 quotquot Print Tab20 quotquot Spc10 quotquot Print Tab20 quotquot Spc12 quotquot Print Tab20 quotquot Spc14 quotquot Print Tab20 quot quot End Sub3. Private Sub Command1_Click Text1.FontSize 12 Text1.FontSize IntRnd 2 2 Text1.FontSize End Sub Private Sub Command2_Click Text1.FontSize 12 End Sub 五、 实验结果1.2.3. 六、 总结答:从这节实验中掌握了常用内部函数的使用还有表达式赋值语句的正确书写规则掌握了Inputbox 与 MSGBOX 的使用. 三选择结构程序设计一、 实验目的和要求 1. 掌握 If 条件语句的使用。

     2. 掌握情况语句的使用，以及情况语句与多分支条件语句的使用区别。

    二、 实验内容和原理 1. 请编一程序用于在期末时根据学生总分情况给于奖励，条件如下:四门总分不低与 360 分含 360 分，特等奖:四门总分 320含 320 分360 分不含 360 分优秀奖:单科成 绩不低于 95 分特别奖。

     2. 输入 XYZ 三个数按从小到大的次序显示出来.要求:程序中不得使用循环结果和转 向语句掌握两个数据交换的方法。

     3. 编一个简易计算器的应用程序。

    要求：掌握 Select 语句和 If 语句的正确使用；掌 握对输入数据合法性检验的能力和当输入有错误时出错处理的能力。

    三、 实验环境Microsoft Visual Basic 6.0 中文版四、 算法描述及实验步骤1. Private Sub Command1_Click Dim t1 As Integer Dim t2 As Integer Dim t3 As Integer Dim t4 As Integer Dim sum As Integer t1 ValText1.Text t2 ValText2.Text t3 ValText3.Text t4 ValText4.Text sum t1 t2 t3 t4 If Text1.Text quotquot Or Text2.Text quotquot Or Text3.Text quotquot Or Text4.Text quotquot Then MsgBox quot请输入成绩值quot 0 quot成绩不为空quot ElseIf sum gt 360 Then MsgBox quot您获得了特等奖quot 0 quot祝贺quot ElseIf sum gt 320 Then MsgBox quot您获得了优秀奖quot 0 quot祝贺quot ElseIf t1 gt 95 Or t3 gt 95 Or t3 gt 95 Or t4 gt 95 Then MsgBox quot您获得了特别奖quot 0 quot祝贺quot End If Label2.Caption t1 t2 t3 t4 End sub2. Dim t1 As Integer Dim t2 As Integer Dim t3 As Integer Dim temp As Integer Private Sub Pro t1 ValText1.Text t2 ValText2.Text t3 ValText3.Text If t1 gt t2 Then temp t1 t1 t2 t2 temp End If If t1 gt t3 Then temp t1 t1 t3 t3 temp End If If t2 gt t3 Then temp t2 t2 t3 t3 temp End If Text4.Text Strt1 Text5.Text Strt2 Text6.Text Strt3 End Sub Private Sub Text1_Change Text1.Text ValText1.Text Call Pro End Sub Private Sub Text2_Change Text2.Text ValText2.Text Pro End Sub Private Sub Text3_Change Text3.Text ValText3.Text Pro End Sub3. Dim oper As StringPrivate Sub Command1_Click If Text1.Text quotquot Or Text2.Text quotquot Or Text3.Text quotquot Then MsgBox quot有某数没有数值quot 5 quot错误提示quot Else If Text3.Text quotquot Then Text4.Text StrValText1.Text ValText2.Text ElseIf Text3.Text quot-quot Then Text4.Text StrValText1.Text - ValText2.Text ElseIf Text3.Text quotquot Then Text4.Text StrValText1.Text ValText2.Text Else Text4.Text StrValText1.Text / ValText2.Text End If End IfEnd SubPrivate Sub Command2_Click Unload MeEnd SubPrivate Sub Text1_Change Text1.Text ValText1.TextEnd SubPrivate Sub Text2_Change If Text3.Text quot/quot Then If ValText2.Text 0 Then MsgBox quot除数分母不能为零quot 5 quot错误提示quot Text2.Text quotquot End If End IfEnd SubPrivate Sub Text3_Change If Text3.Text quotquot Or Text3.Text quot/quot Or Text3.Text quot-quot Or Text3.Text quotquot Then Else MsgBox quot运算操作符有错误quot 5 quot错误提示quot Text3.Text quotquot Text3.SetFocus End IfEnd Sub五、 调试过程 无错误。

    六、 实验结果 1. 2. 3.七、 总结答:从此此实验中掌握了 IF 语句的使用.掌握情况语句的使用以及情况语句与多分支语句的使用区别. 四循环结构程序设计及数组的运用一、 实验目的和要求 1.掌握 For 语句的使用。

     2.掌握 Do 语句的各种形式的使用。

     3.掌握如何控制循环条件防止死循环和不循环。

     4.掌握数组的声明以及数组元素的引用。

     5.掌握静态数组和动态数组的使用差别。

     6.应用数组解决与数组有关的常用算法问题。

    二、 实验内容和原理 编程计算 1-23-45-6n 的值，其中 n 由文本框输入。

    运行结果可参考如下图。

    要求： 掌握 For 语句的正确使用。

    三、 实验环境 Microsoft Visual Basic 6.0 中文版四、 算法描述及实验步骤 Dim sum As Long Private Sub Command1_Click If ValText1.Text 0 Then MsgBox quot不能为零quot 5 quot错误quot ElseIf ValText1.Text lt 6 Then For i 1 To ValText1.Text If i Mod 2 ltgt 0 And i ltgt 1 Then Label2.Caption Label2.Caption quotquot End If Label2.Caption Label2.Caption Str-1 i 1 i Next Add Label2.Caption Label2.Caption Strsum Else Label2.Caption quot1-23-45quot If ValText1.Text Mod 2 0 Then Label2.Caption Label2.Caption quot-quot Text1.Text quot quot Else Label2.Caption Label2.Caption quotquot Text1.Text quot quot End If Add Label2.Caption Label2.Caption Strsum End If End Sub Private Sub Text1_LostFocus Text1.Text StrValText1.Text End Sub Private Sub Add For i 1 To ValText1.Text sum sum -1 i 1 i Next End Sub五、 调试过程无错误六、 实验结果七、 总结答:从此次实验中得到的是掌握了 FOR 语句的使用还有的是 DO 语句的各种形式的使用如何控制循环和防止死循环或不循环. 五过 程一、 实验目的和要求 1、掌握自定义函数过程和子过程的定义和调用方法。

     2、掌握形参和实参的对应关系。

     3、掌握值传递和地址传递的传递方式。

     4、掌握递归的概念和使用方法。

    二、 实验内容和原理 1、 编程计算的子过程和函数过程，并分别调用。

    要求：其中 X 和 n 的值由用户给定。

     2、 编写函数 S（m As Integer，n As Integer）As Long，此函数返回 mmmmmm…mm… m（n 个 m）的值。

    比如 S（2，5）的返回值为 222222222222222 的值。

    运行后的 结果如图所示。

     3、 编写递归函数求 123…n 的值，并显示结果。

    其中 n 的值由用户给定。

    三、 实验环境Microsoft Visual Basic 6.0 中文版四、 算法描述及实验步骤 Dim sum As Long Private Sub Command1_Click Text2.Text quotquot S ValText1.Text If ValText1.Text gt 3 Then Label1.Caption quot12222quot Text1.Text quot quot Else For i 0 To ValText1.Text If i ValText1.Text Then Label1.Caption Label1.Caption Str2 i quot quot Else Label1.Caption Label1.Caption Str2 i quot quot End If Next End If Text2.Text Strsum End Sub Private Function Scount As Integer As Long sum 0 For i 0 To count sum sum 2 i Next End Function五、 调试过程无错误六、 实验结果七、 总结答：此次实验中得到的结果是掌握自定义函数过程和子过程的定义和调用方法。

    一、 实验目的和要求 掌握窗体与常用控件的重要属性、事件和方法。

    二、 实验内容和原理1. 设计一个界面，要求程序运行时选中组合框中的某一项，将弹出对话框加以说明。

     “左端”“居中”“右端”的2. 在窗体上画一个名称为 HIS 的水平滚动条，标题分别为： 、 、 命令按钮。

    请编写适当的事件过程，使得在运行后，如果单击“左端”，则滚动条在最 ，则滚动条在最中间处如果单击“右端” 左端处，如果单击“居中” ，则滚动条在最右处，三、 实验环境Microsoft Visual Basic 6.0 中文版四、 算法描述及实验步骤1. Private Sub Combo1_Click MsgBox quot我的兴趣爱好是quot Combo1.Text 0 quot兴趣爱好quot End Sub2. Private Sub Command1_ClickIndex As Integer HScroll1.Value 0 End Sub Private Sub Command2_Click HScroll1.Value 10 End Sub Private Sub Command3_ClickIndex As Integer HScroll1.Value 5 End Sub五、 调试过程无错误六、 实验结果1.2.七、 总结答：此次实验最重要的是掌握了窗体和常用控件的重要属性、事件和方法 （七）常用控件一、 实验目的和要求 掌握常用空间的重要属性、时间和方法。

    二、 实验内容和原理 1、在窗体上画一个图片框和两个命令按钮。

    程序运行后，如果单击“显示图片”命令按 ）画的简单的图形。

    单钮，则在图片框装入一个用图形编辑软件（如 Windows 下的“画图”击“清除图片”按钮，则清楚图片框的图形。

    2、编写一个模拟秒表操作的程序，运行时的界面如图所示。

    程序运行后，单击“启动”按 ，在上面的标签中显示开始时间。

    过一会儿，单击“停止”按钮，钮，该按钮变灰（不可用）该按钮变灰，同时“启动”按钮可用，并在中间标签中显示当前时间，在下面的标签中显示经过的时间三、 实验环境Microsoft Visual Basic 6.0 中文版四、 算法描述及实验步骤1. Private Sub Command1_Click Picture1.Picture LoadPicturequotE:VB 实验图片显示49519_200702042023295.gifquot End Sub Private Sub Command2_Click Picture1.Picture LoadPicture End Sub 2. Private Sub Command1_Click Label2.Caption DateTime.Time End Sub Private Sub Command2_Click Timer1.Enabled False Label4.Caption DateTime.Time Label6.Caption DateDiffquotsquot CDateLabel2.Caption CDateLabel4.Caption End Sub Private Sub Timer1_Timer Label4.Caption DateTime.Time End Sub五、 调试过程无错误六、 实验结果 1. 2.七、 总结答：在此次的实验中掌握了常用控件的重要一些属性、事件和方法。

     （八）气泡法排序程序一、 实验目的和要求实现数组的赋值与大小的排列。

    二、 实验内容和原理将相邻两个数进行比较，按由小到大将这两个数排好序，在将下一组数组进行比较，依此处理，直到将最后两个数比较并处理完毕。

    最大的数已换到最后位置。

    这是第一轮的比较处理。

    每进行一轮，就把剩下的数中最大的一个移动最后位置。

    共进行若干轮。

    三、 实验环境Microsoft Visual Basic 6.0 中文版四、 算法描述及实验步骤 Sub form_click Dim a1 to 10 as integer Print “要排序的数组为:” For i1 to 10 a iinputbox“请输入 10 个整数:” Print tab i6ai Next i Print For i1 to 9 For jto 10-i If ajgtaj1 then Tempaj Ajaj1 Aj1temp End if Next j Next i Print “排序.