




已阅读5页,还剩16页未读, 继续免费阅读
版权说明:本文档由用户提供并上传,收益归属内容提供方,若内容存在侵权,请进行举报或认领
文档简介
VB合作学习报告,第四组,指导教师:朱旭萍,1,组长:张建迢组员:彭佳媛徐彩依李静雯邬祺轲汤敦邦,主题:顺序和选择程序设计,2,一:滚动字幕程序设计,屏幕上一标签,文字内容:祝您考试成功,该标签能从左到右或者从右到左滚动显示。,3,4,PrivateSubTimer1_Timer()IfLabel1.Left0Thenm=m-1s=59EndIfEndIfText1.Text=Format(m,00)Text2.Text=Format(s,00)Ifs=0Andm=0ThenMsgBox计时结束Timer1.Enabled=FalseEndIfEndSub,14,讨论五:输入三角形的三边长(可以用消息框也可以用文本框),求三角形的面积。要判断输入的三边能否构成三角形。,能构成三角形时结果,15,方法一:PrivateSubForm_Click()DimaAsInteger,bAsInteger,cAsInteger,sAsintegera=InputBox(请输入三角形的一条边长:)b=InputBox(请输入三角形的第二条边长:)c=InputBox(请输入三角形的第三条边长:)Ifa+bcAndb+caAnda+cbThend=(a+b+c)/2s=Sqr(d*(d-a)*(d-b)*(d-c)FontSize=22Print请输入三角形的三边:FontSize=22Print“三边分别为:”;a,;b;cFontSize=22Print“三角形的面积是:”;sElsePrint不能组成三角形EndIfEndSub,16,方法二:PrivateSubForm_Click()FontSize=22Print请输入三角形的三边:DimaAsSingle,bAsSingle,cAsSinglea=InputBox(请输入三角形的第一条边的长度,数据输入,5)b=InputBox(请输入三角形的第二条边的长度,数据输入,5)c=InputBox(请输入三角形的第三条边的长度,数据输入,5)Ifa=0OrbbAnd(b+c)aThend=(a+b+c)/2s=Sqr(d*(d-a)*(d-b)*(d-c)FontSize=22Print三边分别为:;a;b;cFontSize=22Print三角形的面积是:;sElsen=MsgBox(此三边不能构成三角形!是否重新输入?,49,数据输入出错)Ifn=1ThenForm_ClickElseEndEndIfEndIfEndIfEndSub,17,六:求一元二次方程ax2+bx+c0的解,18,(1)分析:方程的解有以下几种可能:若a=0,不是二次方程若b2-4ac=0,有两个相等实根若b2-4ac0,有两个不等实根若b2-4ac0ThenText4.Text=Str(-b+Sqr(d)/(2*a)Text5.Text=Str(-b-Sqr(d)/(2*a)Elsep=Sqr(-d)/(2*a)Text4.Text=Str(
温馨提示
- 1. 本站所有资源如无特殊说明,都需要本地电脑安装OFFICE2007和PDF阅读器。图纸软件为CAD,CAXA,PROE,UG,SolidWorks等.压缩文件请下载最新的WinRAR软件解压。
- 2. 本站的文档不包含任何第三方提供的附件图纸等,如果需要附件,请联系上传者。文件的所有权益归上传用户所有。
- 3. 本站RAR压缩包中若带图纸,网页内容里面会有图纸预览,若没有图纸预览就没有图纸。
- 4. 未经权益所有人同意不得将文件中的内容挪作商业或盈利用途。
- 5. 人人文库网仅提供信息存储空间,仅对用户上传内容的表现方式做保护处理,对用户上传分享的文档内容本身不做任何修改或编辑,并不能对任何下载内容负责。
- 6. 下载文件中如有侵权或不适当内容,请与我们联系,我们立即纠正。
- 7. 本站不保证下载资源的准确性、安全性和完整性, 同时也不承担用户因使用这些下载资源对自己和他人造成任何形式的伤害或损失。
最新文档
- 2025年度洛阳市考古研究院引进急需短缺专业人才4名考前自测高频考点模拟试题及一套参考答案详解
- 2025河南开封国禹运营管理有限公司招聘园区转运中心人员10人考前自测高频考点模拟试题带答案详解
- 合同范本之叉车司机劳动合同5篇
- 2025北京市规划和自然资源委员会事业单位招聘工作人员55人模拟试卷及完整答案详解1套
- 2025金沙酱酒酒业投资集团有限公司考前自测高频考点模拟试题及完整答案详解
- 2025广西仙城投资发展集团有限公司第一次招聘人员模拟试卷及答案详解(历年真题)
- 2025年甘肃省兰州大学物理科学与技术学院诚聘英才模拟试卷附答案详解(模拟题)
- 2025年洛阳博物馆人才引进高层次人才2名考前自测高频考点模拟试题及答案详解(各地真题)
- 2025黑龙江齐齐哈尔市富裕县富海镇招聘公益性岗位人员2人模拟试卷附答案详解
- 2025江西吉安市吉州区樟山镇中心幼儿园招聘1人模拟试卷及答案详解(典优)
- 2025年西藏公开遴选公务员笔试试题及答案(A类)
- 工业园区储能项目商业计划书
- 抗炎药物作用机制研究-洞察及研究
- 急性重症胰腺炎个案护理
- 2024小学科学教师职称考试模拟试卷及参考答案
- 农村房产放弃协议书
- 装卸设备安全管理制度
- 做有温度的护理人
- 贵州文物调查研究-从文物看中华民族共同体历史的区域实践知到智慧树章节测试课后答案2024年秋贵州民族大学
- 2024−2025学年高二上学期第一次月考数学试题含答案
- 土地承包土地合作农作物种植投标文件技术方案(技术方案)
评论
0/150
提交评论