VB程序设计课程实验报告(样本参考一).doc

琥珀课后资源网计算机与信息学院（VB程序设计课程）实验报告课程名称：VB程序设计教程姓 名：系：计算机与信息学院专 业：计算机应用技术年 级：学 号：指导教师：职 称：200x 年 xx 月 xx 日实验项目列表序号实验项目名称成绩指导教师1VB环境和程序设计初步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 = VB程序设计End SubPrivate Sub Command1_Click()Text1.Text = End Sub3、 创建两个标签和一个文本框。在属性窗口设置两个标签的caption的值分别为：欢迎你的到来！和请留下您的尊姓大名：，并设置相应的字体。五、 调试过程无错误六、 实验结果1、 2、七、 总结答：从中的到的知识是更了解了VB集成开发环境，掌握了在窗体上添加控件的各种方法。（二）顺序程序设计一、 实验目的和要求1. 掌握常用内部函数的使用2. 掌握表达式，赋值语句的正确书写规则3. 掌握InpueBox和MsgBox的使用二、 实验内容和原理1. 用立即窗口试验每一个内部函数的操作，并验证数值以及日期时间的各种格式化输出方式。2. 创建如图所示的应用程序，要求：单击窗体显示如图所示的图形。3. 创建如图所示的应用程序，要求：单击“放大”按钮后，将文本中显示的字符串放大倍；若单击按钮“还原”按钮。则将文本框显示的字符串大小返原。三、 实验环境Microsoft Visual Basic 6.0 中文版四、 算法描述及实验步骤1. Private Sub Form_Click()Print Int(3.3); Spc(1);: Print Int(-5.3); Spc(1);: Print Fix(6.9); Spc(1);Print Fix(-7.6); Spc(1);: Print Round(7.5); Spc(1);: Print Round(-7.5); Spc(1);Print Hex(20); Spc(1);: Print Oct(20); Spc(1);: Print Asc(w); Spc(1);Print Chr(70); Spc(1);: Print Val(132); Spc(1);: Print Str(122); Spc(1)Print Sin(30); Spc(1);: Print Cos(30); Spc(1): Print Tan(45); Spc(1);Print Atn(453); Spc(1): Print Abs(-8); Spc(1);: Print Sgn(-4); Spc(1)Print Sqr(4); ; Spc(1);: Print Exp(6); Spc(1);: Print Log(4); Spc(1)Print Day(Now); Spc(1);: Print Month(Now); Spc(1);: Print Year(Now); Spc(1);Print Hour(Now); Spc(1);: Print Minute(Now); Spc(1);: Print Second(Now); Spc(1)Print Trim(wgx); Spc(1);: Print LTrim(wgxwgx); Spc(1);: Print RTrim(wgxwgx ); Spc(1);Print Left(wgx, 2); Spc(1);: Print Mid(wgxwgx, 2, 3); Spc(1);: Print Right(wgxgwx, 3); Spc(1);Print Len(wWgGxX); Spc(1);: Print String(3, 65); Spc(1);: Print InStr(wgxwGX, x); Spc(1)Print UCase(wgx); Spc(1);: Print LCase(WGX); Spc(1);End Sub2. Private Sub Form_Click()Print Tab(20); *Print Tab(20); * *Print Tab(20); *; Spc(4); *Print Tab(20); *; Spc(6); *Print Tab(20); *; Spc(8); *Print Tab(20); *; Spc(10); *Print Tab(20); *; Spc(12); *Print Tab(20); *; Spc(14); *Print Tab(20); * * * * * * * * *End Sub3. Private Sub Command1_Click()Text1.FontSize = 12Text1.FontSize = Int(Rnd * 2 + 2) * Text1.FontSizeEnd SubPrivate Sub Command2_Click() Text1.FontSize = 12End Sub五、 实验结果1.2.3. 六、 总结答:从这节实验中掌握了常用内部函数的使用,还有表达式赋值语句的正确书写规则,掌握了Inputbox与MSGBOX的使用.(三)选择结构程序设计一、 实验目的和要求1. 掌握If条件语句的使用。2. 掌握情况语句的使用，以及情况语句与多分支条件语句的使用区别。二、 实验内容和原理1. 请编一程序用于在期末时根据学生总分情况给于奖励，条件如下:四门总分不低与360分(含360分)，特等奖:四门总分320(含320分)360分(不含360分),优秀奖:单科成绩不低于95分,特别奖。2. 输入X,Y,Z三个数,按从小到大的次序显示出来.要求:程序中不得使用循环结果和转向语句;掌握两个数据交换的方法。3. 编一个简易计算器的应用程序。要求：掌握Select语句和If语句的正确使用；掌握对输入数据合法性检验的能力和当输入有错误时出错处理的能力。三、 实验环境Microsoft Visual Basic 6.0 中文版四、 算法描述及实验步骤1. Private Sub Command1_Click() Dim t1 As IntegerDim t2 As Integer Dim t3 As IntegerDim t4 As Integer Dim sum As Integer t1 = Val(Text1.Text) t2 = Val(Text2.Text) t3 = Val(Text3.Text) t4 = Val(Text4.Text) sum = t1 + t2 + t3 + t4 If Text1.Text = Or Text2.Text = Or Text3.Text = Or Text4.Text = Then MsgBox 请输入成绩值, 0, 成绩不为空 ElseIf sum = 360 Then MsgBox 您获得了特等奖, 0, 祝贺 ElseIf sum = 320 Then MsgBox 您获得了优秀奖, 0, 祝贺 ElseIf t1 = 95 Or t3 = 95 Or t3 = 95 Or t4 = 95 Then MsgBox 您获得了特别奖, 0, 祝贺 End IfLabel2.Caption = t1 + t2 + t3 + t4End sub2. Dim t1 As IntegerDim t2 As IntegerDim t3 As IntegerDim temp As IntegerPrivate Sub Pro() t1 = Val(Text1.Text) t2 = Val(Text2.Text) t3 = Val(Text3.Text) If t1 t2 Then temp = t1 t1 = t2 t2 = temp End If If t1 t3 Then temp = t1 t1 = t3 t3 = temp End If If t2 t3 Then temp = t2 t2 = t3 t3 = temp End If Text4.Text = Str(t1) Text5.Text = Str(t2) Text6.Text = Str(t3)End SubPrivate Sub Text1_Change() Text1.Text = Val(Text1.Text) Call ProEnd SubPrivate Sub Text2_Change() Text2.Text = Val(Text2.Text) ProEnd SubPrivate Sub Text3_Change() Text3.Text = Val(Text3.Text) ProEnd Sub3. Dim oper As StringPrivate Sub Command1_Click() If Text1.Text = Or Text2.Text = Or Text3.Text = Then MsgBox 有某数没有数值!, 5, 错误提示 Else If Text3.Text = + Then Text4.Text = Str(Val(Text1.Text) + Val(Text2.Text) ElseIf Text3.Text = - Then Text4.Text = Str(Val(Text1.Text) - Val(Text2.Text) ElseIf Text3.Text = * Then Text4.Text = Str(Val(Text1.Text) * Val(Text2.Text) Else Text4.Text = Str(Val(Text1.Text) / Val(Text2.Text) End If End IfEnd SubPrivate Sub Command2_Click() Unload MeEnd SubPrivate Sub Text1_Change() Text1.Text = Val(Text1.Text)End SubPrivate Sub Text2_Change() If Text3.Text = / Then If Val(Text2.Text) = 0 Then MsgBox 除数分母不能为零, 5, 错误提示 Text2.Text = End If End IfEnd SubPrivate Sub Text3_Change() If Text3.Text = * Or Text3.Text = / Or Text3.Text = - Or Text3.Text = + Then Else MsgBox 运算操作符有错误!, 5, 错误提示 Text3.Text = Text3.SetFocus End IfEnd Sub 五、 调试过程 无错误。六、 实验结果1. 2.3.七、 总结答:从此此实验中掌握了IF语句的使用.掌握情况语句的使用,以及情况语句与多分支语句的使用区别.(四)循环结构程序设计及数组的运用一、 实验目的和要求1.掌握For语句的使用。2.掌握Do语句的各种形式的使用。3.掌握如何控制循环条件,防止死循环和不循环。4.掌握数组的声明以及数组元素的引用。5.掌握静态数组和动态数组的使用差别。6.应用数组解决与数组有关的常用算法问题。二、 实验内容和原理编程计算1-2+3-4+5-6+n的值，其中n由文本框输入。运行结果可参考如下图。要求：掌握For语句的正确使用。三、 实验环境Microsoft Visual Basic 6.0 中文版四、 算法描述及实验步骤Dim sum As LongPrivate Sub Command1_Click() If Val(Text1.Text) = 0 Then MsgBox 不能为零, 5, 错误 ElseIf Val(Text1.Text) 6 Then For i = 1 To Val(Text1.Text) If i Mod 2 0 And i 1 Then Label2.Caption = Label2.Caption + + End If Label2.Caption = Label2.Caption + Str(-1) (i + 1) * i) Next Add Label2.Caption = Label2.Caption + Str(sum) Else Label2.Caption = 1-2+3-4+5+ If Val(Text1.Text) Mod 2 = 0 Then Label2.Caption = Label2.Caption + - + Text1.Text + = Else Label2.Caption = Label2.Caption + + + Text1.Text + = End If Add Label2.Caption = Label2.Caption + Str(sum) End IfEnd SubPrivate Sub Text1_LostFocus() Text1.Text = Str(Val(Text1.Text)End SubPrivate Sub Add() For i = 1 To Val(Text1.Text) sum = sum + (-1) (i + 1) * i NextEnd Sub五、 调试过程无错误六、 实验结果七、 总结答:从此次实验中得到的是掌握了FOR语句的使用,还有的是DO语句的各种形式的使用,如何控制循环和防止死循环或不循环.(五)过 程一、 实验目的和要求 1、掌握自定义函数过程和子过程的定义和调用方法。 2、掌握形参和实参的对应关系。 3、掌握值传递和地址传递的传递方式。 4、掌握递归的概念和使用方法。二、 实验内容和原理1、 编程计算的子过程和函数过程，并分别调用。要求：其中X和n的值由用户给定。2、 编写函数S（m As Integer，n As Integer）As Long，此函数返回m+mm+mmm+mmm（n个m）的值。比如S（2，5）的返回值为2+22+222+2222+22222的值。运行后的结果如图所示。3、 编写递归函数求1+2+3+n的值，并显示结果。其中n的值由用户给定。三、 实验环境Microsoft Visual Basic 6.0 中文版四、 算法描述及实验步骤Dim sum As LongPrivate Sub Command1_Click() Text2.Text = S Val(Text1.Text) If (Val(Text1.Text) = 3) Then Label1.Caption = 1+2+22+2 + Text1.Text + = Else For i = 0 To Val(Text1.Text) If i = Val(Text1.Text) Then Label1.Caption = Label1.Caption + Str(2 i) + = Else Label1.Caption = Label1.Caption + Str(2 i) + + End If Next End If Text2.Text = Str(sum)End SubPrivate Function S(count As Integer) As Long sum = 0 For i = 0 To count sum = sum + 2 i NextEnd Function五、 调试过程无错误六、 实验结果七、 总结答：此次实验中得到的结果是掌握自定义函数过程和子过程的定义和调用方法。一、 实验目的和要求 掌握窗体与常用控件的重要属性、事件和方法。二、 实验内容和原理1. 设计一个界面，要求程序运行时选中组合框中的某一项，将弹出对话框加以说明。2. 在窗体上画一个名称为HIS的水平滚动条，标题分别为：“左端”、“居中”、“右端”的命令按钮。请编写适当的事件过程，使得在运行后，如果单击“左端”，则滚动条在最左端处，如果单击“居中”，则滚动条在最中间处如果单击“右端”，则滚动条在最右处，三、 实验环境Microsoft Visual Basic 6.0 中文版四、 算法描述及实验步骤1. Private Sub Combo1_Click()MsgBox 我的兴趣爱好是 + Combo1.Text, 0, 兴趣爱好End Sub2. Private Sub Command1_Click(Index As Integer) HScroll1.Value = 0 End SubPrivate Sub Command2_Click()HScroll1.Value = 10End SubPrivate Sub Command3_Click(Index As Integer) HScroll1.Value = 5End Sub 五、 调试过程无错误六、 实验结果1. 2. 七、 总结答：此次实验最重要的是掌握了窗体和常用控件的重要属性、事件和方法（七）常用控件一、 实验目的和要求 掌握常用空间的重要属性、时间和方法。二、 实验内容和原理 1、在窗体上画一个图片框和两个命令按钮。程序运行后，如果单击“显示图片”命令按钮，则在图片框装入一个用图形编辑软件（如Windows下的“画图”）画的简单的图形。单击“清除图片”按钮，则清楚图片框的图形。 2、编写一个模拟秒表操作的程序，运行时的界面如图所示。程序运行后，单击“启动”按钮，该按钮变灰（不可用），在上面的标签中显示开始时间。过一会儿，单击“停止”按钮，该按钮变灰，同时“启动”按钮可用，并在中间标签中显示当前时间，在下面的标签中显示经过的时间三、 实验环境Microsoft Visual Basic 6.0 中文版四、 算法描述及实验步骤1. Private Sub Command1_Click() Picture1.Picture = LoadPicture(E:VB实验图片显示49519_200702042023295.gif)End SubPrivate Sub Command2_Click() Picture1.Picture = LoadPictureEnd Sub2. Private Sub Command1_Click() Label2.Caption = DateTime.TimeEnd SubPrivate Sub Command2_Click() Timer1.Enabled = False Label4.Caption = DateTime.Time Label6.Caption = DateDiff(s, CDate(Label2.Caption), CDate(Label4.Caption)End SubPrivate Sub Timer1_Timer() Label4.Caption = DateTime.TimeEnd Sub五、 调试过程无错误六、 实验结果1. 2.七、 总结答：在此次的实验中掌握了常用控件的重要一些属性、事件和方法。（八）气泡法排序程序一、 实验目的和要求实现数组的赋值与大小的排列。二、 实验内容和原理将相邻两个数进行比较，按由小到大将这两个数排好序，在将下一组数组进行比较，依此处理，直到将最后两个数比较并处理完毕。最大的数已换到最后位置。这是第一轮的比较处理。每进行一轮，就把剩下的数中最大的一个移动最后位置。共进行若干轮。三、 实验环境Microsoft Visual Basic 6.0 中文版四、 算法描述及实验步骤Sub form_click()Dim a(1 to 10) as integerPrint “要排序的数组为:”For i=1 to 10a (i)=inputbox(“请输入10个整数:”)Print tab (i*6);a(i);Next iPrint For i=1 to 9For j=to 10-iIf a(j)a(j+1) thenTemp=a(j)A(j)=a(j+1)A(j+1)=tempEnd ifNext jNext iPrint “排序后的数组为：” For i=1 to 10Print tab(i*6);a(i);Next iEnd sub 五、 调试过程无错误六、 实验结果（九）一、 实验目的和要求二、 实验内容和原理三、 实验环境Microsoft Visual Basic 6.0 中文版四、 算法描述及实验步骤Private Sub Form_Click()Dim a(100, 100), n, i, j As Integern = InputBox(请输入行数:)For i = 1 To n For j = 1 To n a(0, 0) = 1 a(i, j) = a(i - 1, j - 1) + a(i - 1, j)Next j, iFor i = 1 To n For j = 1 To n Print Spc(5 - Len(Str(a(i, j); a(i, j); Next j PrintNext iEnd Sub五、 调试过程无错误六、 实验结果 （十）菜单设计和多文档界面一、 实验目的和要求二、 实验内容和原理