资源描述:
《vb,图片上机报告》由会员上传分享,免费在线阅读,更多相关内容在应用文档-天天文库。
1、为了适应公司新战略的发展,保障停车场安保新项目的正常、顺利开展,特制定安保从业人员的业务技能及个人素质的培训计划vb,图片上机报告 VB上机实验报告 实验名称:程序设计语言 实验日期: 指导老师: 实验地点: 姓名: 班级: 学号: 一、实验名称:实验5顺序结构程序设计 二、实验目的: 掌握基本的输入输出操作。 掌握顺序结构的程序设计方法。 三、实验内容: 1.课本的、、、、、 2.用图形、图像框控件实现图片切换和图片放大缩小。 3.根据提示,补充下列程序段,并在VB环境下调试
2、: 鸡兔同笼问题。 计算三角形的面积。 四、实验步骤及结果: 1、:目的-通过该培训员工可对保安行业有初步了解,并感受到安保行业的发展的巨大潜力,可提升其的专业水平,并确保其在这个行业的安全感。为了适应公司新战略的发展,保障停车场安保新项目的正常、顺利开展,特制定安保从业人员的业务技能及个人素质的培训计划 PrivateSubCommand1_Click() DimxAsInteger,yAsInteger Dims1AsString,s2AsString x=2:y=1 s1=x&"+"&
3、y&"="&x+y s2=x&"-"&y&"="&x-y MsgBoxs1&vbCrLf&s2,,"输出" EndSub : PrivateSubCommand1_Click() DimxAsInteger,yAsInteger x=InputBox("请输入第1个整数","输入",0)'y=InputBox("请输入第2个整数","输入",0)'Print"第1个数为:"&x Print"第2个数为:"&y Print"和="&x+y Print"差="&x-y EndSub :
4、PrivateSubCommand1_Click() DimrAsSingle,hAsSingle DimareaAsSingle,vAsSingle目的-通过该培训员工可对保安行业有初步了解,并感受到安保行业的发展的巨大潜力,可提升其的专业水平,并确保其在这个行业的安全感。为了适应公司新战略的发展,保障停车场安保新项目的正常、顺利开展,特制定安保从业人员的业务技能及个人素质的培训计划 r=InputBox("请输入半径") h=InputBox("请输入高度") area=2**r*r+2**r*
5、hv=*r*r*h Print"圆柱体的半径为:"&r;"高为:"&hPrint"表面积为:"&area Print"体积为:"&v EndSub : PrivateSubCommand1_Click() DimaAsSingle,bAsSingle,cAsSingle'DimsAsSingle,areaAsSingle' a=Val(Text1) b=Val(Text2) c=Val(Text3) s=(a+b+c)/2' area=Sqr(s*(s-a)*(s-b)*(s-c))La
6、bel2="三角形的面积为:"&area' 前天晚上和你通话后,着实让我兴奋了一晚上。我感觉你进步的很快,今天看到你发到我邮箱的VB实习报告中收获,更加得到了证实,继续努力吧。目的-通过该培训员工可对保安行业有初步了解,并感受到安保行业的发展的巨大潜力,可提升其的专业水平,并确保其在这个行业的安全感。为了适应公司新战略的发展,保障停车场安保新项目的正常、顺利开展,特制定安保从业人员的业务技能及个人素质的培训计划 下面是我看了报告以后的一些想法,建议和疑惑,希望得到你的互动。 1.刚开始看到题目我不知道你
7、要写的内容,但看到第二页我就猜想 可能是关于微机编程的问题。这时我的脑海里马上就想到学编程有什么用,这次编程我最终达到一个什么目的,这次是将哪些学的理论应用到实践中。带着这个想法我继续往下看,到第三页摘要说明时,看到用记事本的形式新建一个文件夹,但为什么必须将自己的分数放在第一行,而且还必须96分以上呢,,看到第四页时,有些问题我就得到了答案。第5-6页又用了结构示意图的方法,将这个编程怎么使用又演示了一次 2.这个学生信息管理程序的弊病:各班学生的成绩排名没有顺序。 我为什么会考虑到这个弊病呢?假如我
8、是从事学生成绩的,将来颁发奖学金都会跟名次挂钩,其他老师向我要数据时,我会很快拿出来排名,免得再统计。第4页的第7点共罗列了个人,其他人省略了,应用VB语言或符号显示一下(语文中是用省略号的形式)。第4页最下面几行有“说明“和“实习报告要求”的文字叙述,是否应调换一下位(转载于:写论文网:vb,图片上机报告)置放在…….。 3.疑问:人的出生日期应在1-31之间,你报告里设计的幸运数字目的-通过该