《vb语言程序设计》实验报告

《《vb语言程序设计》实验报告》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、广血又曇浣鹿山曇浣《VB语言程序设计》实验报告系另H:专业班级：姓名：学号：指导教师：一O一三年六月六H一・实验目的了解和掌握VB语言程序设计基本控件的应用；熟练应用VB常用界而设计的控件使用方法；掌握多窗体的方法应用；熟悉数组的输入输出及数组常用算法。二.实验内容请编写一个《VB语言程序设计》课程管理系统，要求：系统包含三个窗体,分别是登录窗体、个人信息录入窗体和成绩统计窗体。其中齐窗体功能包含如21.首页登录窗口：用户许通过密码验证正确以后跳转到个人信息登录窗口；2.个人信息录入窗口：在此用户可以添加和删除个人的基本信息，在此窗口点击成绩统计按钮可以跳

2、转至成绩统计窗口；3.成绩统计窗口：实现某班10个同学的所有成绩，并统计出其平均分，最高分和最低分。三.程序设计界面1•首页登录窗口：2.个人信息录入窗口E个人信息录入姓名：I学号：I性别：I三I班级：I三I添加首页I成绩统计I3.成绩统计二.程序实现代码1・首页登录窗口代码：PrivateSubCommandl_Click()TfText2.Text二123456Thencao2.ShowElseMsgBox〃请重新输入密码〃Text2.Text二Text2.SetFocusEndIfEndSubPrivateSubCommand2_Click()End

3、EndSub2.个人信息录入PrivateSubCommandl_Click()IfTextl.Text=""ThenExitSubEndTfDimstrAddAsStringstrAdd=Textl.Text&〃〃&Text2.Text&〃〃&Combo1.Text&〃"&Combo2.Text&""Listl.AdditemstrAddEndSubPrivateSubCommand2_Click()IfListl.Listindex<>-1ThenListl.RemoveitemListl.ListindexEndIfEndSubPrivateSubC

4、ommand3_Click()caol.ShowEndSubPrivateSubCommand4_Click()cao3.ShowFormLoad()〃男〃”以〃土建121〃〃土建122〃EndSubPrivateSubCombo1.AdditemCombol.AddTtemCombo2.AddltcmCombo2.AdditemEndSub3.成绩统计PrivateSubCommandl_Click()Print土建121班某10个同学的成绩如卜"Dimx(lTo10)AsInteger,max%,min%,a%max=0min二200Fori=1To1

5、0x(i)=lnt(Rnd91+1)Printx(i);a二a+x(i)二x(i)=x(i)Tfx(i)>maxThenmaxIfx(i)

6、的时间制作出來,其间遇到的问题主要来自于相对复杂的程序语言在编写吋没有足够的细心，导致语句出现错误。在编写程序吋，没有注意到数据类型，错误地将字符型数据定义为单精度型数据，导致第二个窗口“个人信息录入”中“添加”无法执行。在第三个窗口“成绩统计”中，取最低分这一程序的编写过程中，由于定义min=O,导致最低分一直显示为0,无法显示最低分，重新阅读编写的程序后，发现min应该是一个大于100的数，程序便可以正常执行。对于程序语言的编写，因为对各个类型的语句不熟悉和缺乏时间操作，所以在编写程序时，经常犹豫应该使用哪种结构语旬。又如combo控件，在程序运行是的

7、选项除了可以直接在属性List进行录入外，还可以通过程序语言进行设置。如本次试验，可通过以下程序语句进行设置:PrivateSubFormLoad()Combol.AddTtem〃男〃Combol.Addltcm"女"Combo2.Additem"土建121〃Combo2.Additem〃土建122〃EndSub进行设置。在窗口外观上，由于Z前没冇使用到一些属性设置，所以为了更改某些控件的属性，花了不少时间。女U,让Label控件的背景透明，只好对各个局性进行尝试，最后发现该项属性名为backstyle,只要将backstyle设置为O-transp,就能

8、令Label的背景呈现透明状:态。在《VB程序语言设计》的学习过程