可视化编程的一般步骤.ppt
《可视化编程的一般步骤.ppt》由会员分享,可在线阅读,更多相关《可视化编程的一般步骤.ppt(9页珍藏版)》请在装配图网上搜索。
1、顺序结构PrivateSubcommand1_Click()DimaAsSingleDimbAsSingleDimcAsSinglea=val(text1.text)b=val(text2.text)c=aa=bb=ctext1.text=atext2.text=bEndSub,顺序结构:按照由上到下的顺序一行一行地执行。程序中没有分支,没有重复。,可视化编程的一般步骤,第一步:在VB程序中将界面做好。第二步:修改各控件的属性值。第三步:编写代码,实现程序的功能。第四步:运行调试程序。注意:经常保存程序。,打字测试软件,对象的属性设置,部分控件名的前缀约定和命名举例,打字测试,PrivateSubCmdend_Click()DiminttimecostAsInteger,intwordcountAsIntegerdtmEndTime=Time()返回系统当前时间inttimecost=DateDiff(“s”,dtmBeginTime,dtmEndTime)计算两个时间之间的差,并以秒为单位intwordcount=Len(Txtinput.Text)求字符串的长度txtspeed.Text=intwordcount/(inttimecost/60)求每分钟打字的速度EndSubPrivateSubCmdstart_Click()dtmBeginTime=Time()记录开始的时间EndSub,出生日期示例,日期PrivateSubForm_Activate()Dimdbegin,dend,dr,dt定义变量dbegin=InputBox(“你的出生时间”)输入dend=Date显示年月日Printdenddr=Now显示现在精确的时间Printdrdr=Time()显示时间Printdrdt=Year(dend)显示现在是哪一年Printdt&年dt=Day(dend)显示现在是哪一天Printdt&天dt=Month(dend)显示现在是哪一月Printdt&月dr=DateDiff(“yyyy”,dbegin,dend)现在的时间与输入的时间间隔的年数dt=DateDiff(“d”,dbegin,dend)现在的时间与输入的时间间隔的天数Printdr,dtEndSub,日期函数,Date()函数返回系统的当前日期。Time()函数返回系统的当前时间,如:dtmBeginTime=Time(),将系统当前时间赋给变量dtmBeginTime。以此类推,Day()、Month()、Year()函数分别返回指定日期的日数、月份数、年份数。,练习,练习“金银牌”的例子。界面如左图,代码如下:,PrivateSubCommand1_Click()Dimj,y,t,zAsIntegerj=Val(Text1.Text)y=Val(Text2.Text)t=Val(Text3.Text)Text4.Text=j+y+tEndSubPrivateSubCommand2_Click(IndexAsInteger)EndEndSub,- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 可视化 编程 一般 步骤
装配图网所有资源均是用户自行上传分享,仅供网友学习交流,未经上传用户书面授权,请勿作他用。
关于本文