VB基础试题ppt课件

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(