第2章顺序结构程序设计资料.pptVIP

第2章 顺序结构程序设计 ;本章基础知识;数据类型;常量与变量;变量与常量;变量与常量;运算符与表达式;运算符与表达式 ;运算符与表达式;变量与常量;例1操作步骤一 设计用户界面;例1操作步骤二 设置对象属性;例1操作步骤三 编写代码;语句、方法及函数——赋值语句 ;语句、方法及函数;语句、方法及函数——InputBox函数 ;语句、方法及函数——MsgBox函数和方法 ;语句、方法及函数;语句、方法及函数;;语句、方法及函数;语句、方法及函数;语句、方法及函数——日期函数;补充日期函数 DateAdd 增减日期函数 DateAdd（要增减日期形式，增减量，要增减的日期变量） 对要增减的日期变量按日期形式做增减。 例：DateAdd（“ww”,2,#2/14/2000#) DateDiff 函数 形式：DateDiff（要间隔日期形式，日期1，日期2） 作用对于两个指定的日期按日期形式求其相差的日期。 DateDiff(“m”,#2/14/2000#, #3/8/2000#);语句、方法及函数——日期函数;语句、方法及函数——日期函数;控件;控件——计时器;控件——计时器;控件——计时器;控件——计时器;Private Sub Timer1_Timer() Dim colnum As Integer Randomize colnum = Int(16 * Rnd) frmcalendar.BackColor = QBColor(colnum) End Sub ;控件——图像框和图片框;控件——图像框和图片框;Private Sub Form_Load() imgpicture.Picture = LoadPicture(\secondch\案例\chick.jpg) End Sub Private Sub Timer1_Timer() If imgpicture.Left 0 Then imgpicture.Left = imgpicture.Left - 100 Else imgpicture.Left = 4800 End If End Sub ;控件;操作步骤一 设计用户界面;操作步骤三 编写代码;操作步骤三 编写代码;控件——水平与垂直滚动条;比较事件change和scroll Private Sub HSbh_Change() Imgw.Width = HSbh.Value End Sub Private Sub HSbh_Scroll() Imgw.Width = HSbh.Value End Sub ;控件;操作步骤一 设计用户界面;操作步骤二 设置关键对象属性;操作步骤二 设置关键对象属性;操作步骤三 编写代码;操作步骤三 编写代码;操作步骤三 编写代码;案例——电子备忘录 ;操作步骤一 设计用户界面;操作步骤三——编写代码;操作步骤三——编写代码;操作步骤三——编写代码;操作步骤三——编写代码;Question?;;补充日期函数 DateAdd 增减日期函数 DateAdd（要增减日期形??，增减量，要增减的日期变量） 对要增减的日期变量按日期形式做增减。 例：DateAdd（“ww”,2,#2/14/2000#) DateDiff 函数 形式：DateDiff（要间隔日期形式，日期1，日期2） 作用对于两个指定的日期按日期形式求其相差的日期。 DateDiff(“m”,#2/14/2000#, #3/8/2000#)