常用语句与函数2课件.ppt

2.2.4常用语句与函数 第二课时 函数 四种语句： 赋值语句 Print语句 注释语句 结束语句 五种函数： 与用户交互的函数 数学函数 字符串函数 日期函数 常用转换函数 请同学们观察如下程序,我们想取得4:59:36 AM和4:59:39 AM之间的时间差： Private Sub Command1_Click() a = #4:59:36 AM# b = #4:59:39 AM# c = b - a Print c End Sub ?输出结果为3.47222222222277E-05，比较晦涩难懂 Private Sub Command1_Click() a = #4:59:36 AM# b = #4:59:39 AM# c = DateDiff(s, a, b) Print c End Sub 输出结果 3 一、?用户交互函数 1、inputbox()函数 Private Sub Command1_Click() Dim r As Integer, c As Single r = Val(Text1.Text) c = 2 * 3.14 * r Text2.Text = c End Sub Private Sub Command1_Click() Dim r As Integer, c As Single r = Val(InputBox(请输入半