可视化编程的一般步骤.ppt

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