可视化编程一般步骤.pptVIP

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()函数分别返回指定日期的日数、月份数、年份数。 练习 * 开始 输入a,b c = a a = b b = c 输出a,b 结束 顺序结构：按照由上到下的顺序一行一行地执行。程序中没有分支，没有重复。 对象的属性设置 部分控件名的前缀约定和命名举例 出生日期 示例 练习“金银牌”的例子。 界面如左图,代码如下： 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 + y + t End Sub Private Sub Command2_Click(Index As Integer) End End Sub * *