《可视化编程的一般步骤.ppt》由会员分享,可在线阅读,更多相关《可视化编程的一般步骤.ppt(9页珍藏版)》请在三一办公上搜索。
1、1、顺序结构Private Sub command1_Click()Dim a As SingleDim b As SingleDim c As Singlea=val(text1.text)b=val(text2.text)c=aa=bb=ctext1.text=atext2.text=bEnd Sub,顺序结构:按照由上到下的顺序一行一行地执行。程序中没有分支,没有重复。,可视化编程的一般步骤,第一步:在VB程序中将界面做好。第二步:修改各控件的属性值。第三步:编写代码,实现程序的功能。第四步:运行调试程序。注意:经常保存程序。,打字测试软件,对象的属性设置,部分控件名的前缀约定和命名举例
2、,打字测试,Private Sub Cmdend_Click()Dim inttimecost As Integer,intwordcount As IntegerdtmEndTime=Time()返回系统当前时间inttimecost=DateDiff(“s”,dtmBeginTime,dtmEndTime)计算两个时间之间的差,并以秒为单位intwordcount=Len(Txtinput.Text)求字符串的长度txtspeed.Text=intwordcount/(inttimecost/60)求每分钟打字的速度End SubPrivate Sub Cmdstart_Click()dt
3、mBeginTime=Time()记录开始的时间End Sub,出生日期 示例,日期Private Sub Form_Activate()Dim dbegin,dend,dr,dt 定义变量 dbegin=InputBox(“你的出生时间”)输入dend=Date 显示年月日Print denddr=Now 显示现在精确的时间Print drdr=Time()显示时间Print drdt=Year(dend)显示现在是哪一年Print dt&年dt=Day(dend)显示现在是哪一天Print dt&天dt=Month(dend)显示现在是哪一月Print dt&月dr=DateDiff(“y
4、yyy”,dbegin,dend)现在的时间与输入的时间间隔的年数dt=DateDiff(“d”,dbegin,dend)现在的时间与输入的时间间隔的天数Print dr,dtEnd Sub,日期函数,Date()函数返回系统的当前日期。Time()函数返回系统的当前时间,如:dtmBeginTime=Time(),将系统当前时间赋给变量dtmBeginTime。以此类推,Day()、Month()、Year()函数分别返回指定日期的日数、月份数、年份数。,练习,练习“金银牌”的例子。界面如左图,代码如下:,Private Sub Command1_Click()Dim j,y,t,z As Integerj=Val(Text1.Text)y=Val(Text2.Text)t=Val(Text3.Text)Text4.Text=j+y+tEnd SubPrivate Sub Command2_Click(Index As Integer)EndEnd Sub,