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

1、VB程序设计课程实验报告样本参考一(此文档为word格式，下载后您可任意编辑修改！)计算机与信息学院（VB程序设计课程）实验报告课程名称：VB程序设计教程姓 名：系：计算机与信息学院专 业：计算机应用技术年 级：学 号：指导教师：职 称：200x 年 xx 月 xx 日实验项目列表序号实验项目名称成绩指导教师1VB环境和程序设计初步2顺序程序设计3选择结构程序设计4循环结构程序设计及数组的运用5过程6窗体和常用控件7常用控件8气泡法排序程序9实验九10菜单设计和多文档界面计算机与信息学院实验报告（一）Visual Basic环境和程序设计的初步一、 实验目的1、 了解Visual Basic系

2、统对计算机软件、硬件的要求。2、 掌握启动与退出Visual Basic的方法。3、 熟悉Visual Basic的集成开发环境（IDE）。4、 掌握在窗体上添加控件的各种方法。5、 掌握建立、编辑、运行和保存一个简单的Visual Basic应用程序的全过程。二、 实验内容1、 启动Visual Basic6.0,观察标题栏、菜单栏、工具栏与Microsoft其他应用程序的不同之处；熟悉各个控件以及窗体设计和工程管理器窗口、属性窗口、代码窗口的功能、组成以及它们各种不同的打开方法。2、 在窗体上画一文本框个一个命令按钮，在文本框中显示“VB程序设计”。（1） 编写适当事件过程，当单击命令按钮

3、时，文本框内容消失。（2） 以解释方式运行程序。（3） 把程序保存。然后关掉该工程。装入上面建立的程序，并在窗体上增加一个命令按钮。当单击该命令按钮，结束程序运行。保存程序。（4） 把当前程序编译为可执行文件。（5） 生成当前工程并退出。在windows环境下运行该工程。3、 创建一个“标准EXE”类型的应用程序。要求：在屏幕上显示“欢迎您的到来！”，并请输入您的名字。三、 实验环境 Microsoft Visual Basic 6.0 中文版四、 算法描述及实验步骤1、 熟悉vb的环境。2、 先创建一个文本框和命令按钮，并设置相应的代码如下：Private Sub Form_Load()Te

4、xt1.Text = VB程序设计End SubPrivate Sub Command1_Click()Text1.Text = End Sub3、 创建两个标签和一个文本框。在属性窗口设置两个标签的caption的值分别为：欢迎你的到来！和请留下您的尊姓大名：，并设置相应的字体。五、 调试过程无错误六、 实验结果1、 2、七、 总结答：从中的到的知识是更了解了VB集成开发环境，掌握了在窗体上添加控件的各种方法。（二）顺序程序设计一、 实验目的和要求1. 掌握常用内部函数的使用2. 掌握表达式，赋值语句的正确书写规则3. 掌握InpueBox和MsgBox的使用二、 实验内容和原理1. 用立即

5、窗口试验每一个内部函数的操作，并验证数值以及日期时间的各种格式化输出方式。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(-

6、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):

7、 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

8、 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. Pr

9、ivate 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.Fon

10、tSize = 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. 请编一程序用于在期末时根据学生

11、总分情况给于奖励，条件如下:四门总分不低与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 t

12、1 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 = 36

13、0 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

14、.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