资源描述：
《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之间，你报告里设计的幸运数字目的-通过该
