




如果您无法下载资料,请参考说明:
1、部分资料下载需要金币,请确保您的账户上有足够的金币
2、已购买过的文档,再次下载不重复扣费
3、资料包下载后请先用软件解压,在使用对应软件打开
VB上机实验报告详细易懂 第一篇:VB上机实验报告详细易懂实验五数组的应用一、实验目的1.掌握一维数组的概念、定义、数组元素的引用和初始化。2.学会用数组和程序基本控制结构实现数据的求和、求平均、求极值和排序等算法程序的设计3.加深对循环控制结构的理解和使用二、实验环境1.计算机2.VisualBasic6.0开发环境三、实验说明1.熟练运用VisualBasic6.0开发环境2.熟悉建立VB应用程序的步骤3.学会使用一维数组实现简单的应用程序四、实验内容和步骤1.实验内容随机产生10个两位整数,找出其中的最大值、最小值和平均值。2.实验步骤(1)打开计算机,在VisualBasic6.0系统环境下,选择“文件”菜单中的“新建工程”菜单选项,打开“新建工程”窗口;(2)在“新建工程”窗口按下“确定”按钮打开“工程设计”窗口;(3)在“工程设计”窗口,首先设计窗口的属性,然后打开“工具箱”窗口添加所需控件,设计该实验的界面;(4)选择“视图”菜单中的“代码窗口”菜单选项,打开“代码窗口”窗口,设计命令按钮控件的事件代码;考虑到要在不同的过程中使用数组,所以首先在模块的通用段中声明数组:Dima(1To10)AsInteger随机整数的生成由窗体的Load事件代码完成:PrivateSubForm_Load()DimpAsStringRandomizep=“"Fori=1To10a(i)=Int(Rnd*90)+10p=p&Str(a(i))&”,“NextLabel1.Caption=LTrim(Left(p,Len(p)–1))EndSub求最大、最小以及平均值由“确定”按钮Command2的Click事件代码完成:PrivateSubCommand2_Click()DimnAsInteger,mAsInteger,sAsSinglemin=100:max=10:s=0Fori=1To10Ifa(i)>nThenmax=a(i)Ifa(i)s=s+a(i)NextText1.Text=maxText2.Text=minText3.Text=s/10EndSub“重置”按钮Command1的Click事件代码:PrivateSubCommand1_Click()Form_LoadText1.Text=”“Text2.Text=”“Text3.Text=”"EndSub最后是“关闭”按钮Command3的Click事件代码:PrivateSubCommand3_Click()UnloadMeEndSub(5)运行程序,观察结果;(6)保存窗体,保存工程。五、小结实验心得体会第二篇:vb上机心得体会心得体会:刚开始学习vb的时候,我就觉得大一的计算机基础根本不值一提,难度相去甚远。我问过很多以前的同学,他们都说vb是编程语言中最简单的,但是在这次上机实习过程中,我发现要完成学生成绩管理系统实在有很大难度。平时看课本的时候,觉得还能够理解,看得懂,然而“纸上得来终觉浅”,一旦自己调试程序,总会犯很多错误,如前面说的“文件未找到”“下标越界”等等,都是平时没有机会解决和一些曾经被自己忽视的问题。有时候,为了找到代码中错误或不符合要求的地方,我不得不一遍又一遍地仔细检查程序,甚至标点符号都不能放过。细节决定成败,一个小小的分号也会起着扭转乾坤的作用。在实习之前,我妄想从网站上下载一个或者请论坛上的好友帮忙,后来我发现这条路走不通,他们从来都不给别人提供实质性的帮助,只是象征性地说:“不会问老师。”于是我打消了这个念头,开始自己动手做。当我无数次调试总算读出文件的时候,那种高兴劲可想而知。我慢慢觉得,其实自己调试程序蛮有意思的。既弥补了在vb学习中的漏洞,还学到了新内容,积累了一定的实战经验,对以后的期末考试和等级考试起到了相当大的促进作用。实习过程中,多亏指导老师帮助我找出错误的地方。如果不是他们的细心讲解,我很难完成这次实习任务。当然,我在编程方面还有很大不足,今后我定会加倍努力,为等级考试的顺利通过打下牢固的基础。第三篇:上机实验报告格式请各位同学按照下列格式写:否则按照0分记上机实验报告格式Matlab学习第?次上机实验报告(第?次)姓名:???班级:???上机时间:??????1.上机内容2.建模及算法分析3.程序4.小结5.参考文献将文档发到我的邮箱里面learn_matlab@163.com第四篇:上机实验报告一.题目1.建立一个学生档案,内容包括学号,姓名,年龄,性别,数学,物理和英语3门功课成绩。要求实现以下功能:1)数据输入;2)查询某个学生的成绩;3)按平均排列输出;4)统计某门课各分数段人数;5)删除某个学生记录;2.编程实现对二位数进行加,减,乘运算,每运行一次程序做10道题,完成后给出成绩(每题10分)。二.设

光誉****君哥
实名认证
内容提供者


最近下载
贵州省城市管理行政执法条例.doc
贵州省城市管理行政执法条例.doc
一种基于双轨缆道的牵引式雷达波在线测流系统.pdf
一种基于双轨缆道的牵引式雷达波在线测流系统.pdf
一种胃肠道超声检查助显剂及其制备方法.pdf
201651206021+莫武林+浅析在互联网时代下酒店的营销策略——以湛江民大喜来登酒店为例.doc
201651206021+莫武林+浅析在互联网时代下酒店的营销策略——以湛江民大喜来登酒店为例.doc
用于空间热电转换的耐高温涡轮发电机转子及其装配方法.pdf
用于空间热电转换的耐高温涡轮发电机转子及其装配方法.pdf
用于空间热电转换的耐高温涡轮发电机转子及其装配方法.pdf