计算机vb实验报告,2016年华北科技学院计算机学院综合性实验实验报告(VB).doc

文档介绍：

华北科技学院计算机学院综合性实验

实验报告

课程名称程序设计语言(VB)

实验学期 2015 至 2016 学年第 2 学期

学生所在系部 XXXX学院

年级 2015级专业班级 XXB151班

学生姓名堂阜居士学号 2015050XXXXX

任课教师 XXX

实验成绩

计算机学院制

《程序设计语言(VB)》课程综合性实验报告

开课实验室: 基础实验室一 2016 年 6 月25 日

实验题目

Visual Basic综合应用程序开发

实验目的:

掌握数组的应用:

数组的定义

数组的基本操作,包括数组的输入输出、数组元素的比较、求平均值、数组的排序等。

会使用过程编程和字符串操作

function过程的定义调用

字符串相关操作

掌握基本控件的使用

包括常用标准控件的使用:标签、按钮、文本框、单选按钮、滚动条、时钟、进度条、选项(命令)组、列表框和组合框等。

掌握菜单的使用

实验设备及环境:

硬件:多媒体计算机

软件:Windows7以上的操作系统、Visual Basic6.0集成开发环境

实验内容及要求:

先进入”欢迎”界面,在屏幕上显示"欢迎您使用本程序"(10%)

密码验证:用户名和密码框输入和验证。(10%)

密码正确后进入系统主界面,主界面包括“数组应用”、“字符应用”、“计算器”、“版本”和“退出”等菜单,并提供相关工具栏或命令按钮。(10%)

“数组应用”:在名称为完成数组数据(比如10个)的输入、输出、升降序、最大/小值寻找、清空。(20%)

“字符应用”:完成字符的大小写转换以及个数统计。(20%)

“计算器”:完成四则计算以及计时功能。(20%)

“版本说明”:做简单说明。(5%)

单击“退出”菜单,退出程序运行。(5%)

考核标准:

成实验要求全部功能;或完成90%以上功能;或完成85%以上功能,并能对部分程序有自己的创新,成绩为优。

完成80%以上功能;或完成75%以上功能,并能对部分程序有自己的创新,成绩为良。

完成70%以上功能;或完成65%以上功能,并能对部分程序有自己的创新,成绩为中。

完成60%以上功能;或完成55%以上功能,并能对部分程序有自己的创新,成绩为及格。

完成60%以下功能者,成绩不及格。

实验结果及分析(以下内容根据个人情况撰写)

1. 工程资源管理器窗口:系统组成情况

图1 工程资源管理器

2. 欢迎窗体:

图2 欢迎界面

(1)Form的Load事件:设置定时器的时间间隔和两个Label的Caption.

Private Sub Form_Load()

Timer1.Interval = 50

Label1.Caption = "欢迎您使用本程序"

Label2.Caption = "By 测绘B151:刘传旭"

End Sub

(2) 计时器控件(Timer1):实现字幕移动

Private Sub Timer1_Timer()

If Label1.Left > Form1.Width Then

Label1.Left = -Label1.Width

Else

Label1.Left = Label1.Left + 100

End If

Label2.Move Label2.Left - 30

If Label2.Left <= -300 Then

Label2.Left = 7000

End If

End Sub

(2) Command1的Click事件:进入登录界面

Private mand1_Click()

Form2.Show

Unload Me

End Sub

(mand2的Click事件:结束程序。

Private mand2_Click()

End

End Sub

3.密码验证窗体:

图3密码验证界面

(1) Command1的Click事件:登入主界面。

Private mand1_Click()

usr = Text1.Text

pswd = Text2.Text

If usr = "123" And pswd = "123" Then

MDIForm1.Show

Unload Me

MsgBox "登录成功!", vbInformation + vbOKOnly, "验证"

Else

Label3.Caption = "用户名或密码错误,请重新输入!"

Text1.SetFocus

Text1.SelStart = 0

Text1.SelLength = Len(Text1.Text)

Text2.Text

内容来自淘豆网www.taodocs.com转载请标明出处.