常用与语句与函数2.pptVIP

2.2.3常用语句与函数 第二课时 函数 Evaluation only. Created with Aspose.Slides for .NET 3.5 Client Profile 5.2.0.0. Copyright 2004-2011 Aspose Pty Ltd. 四种语句： 赋值语句 Print语句 注释语句 结束语句 Evaluation only. Created with Aspose.Slides for .NET 3.5 Client Profile 5.2.0.0. Copyright 2004-2011 Aspose Pty Ltd. 五种函数： 与用户交互的函数 数学函数 字符串函数 日期函数 常用转换函数 Evaluation only. Created with Aspose.Slides for .NET 3.5 Client Profile 5.2.0.0. Copyright 2004-2011 Aspose Pty Ltd. 请同学们观察如下程序,我们想取得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 Evaluation only. Created with Aspose.Slides for .NET 3.5 Client Profile 5.2.0.0. Copyright 2004-2011 Aspose Pty Ltd. [总结] ◆通过以上例子，我们知道，datediff实现了一定的功能。具体的功能为：算出2个时间之间的差值，用秒来表示。程序段中没有任何对datediff的说明，显然，它是程序默认接受的。 我们常常利用VB提供的内部函数来解决问题。VB中函数的概念与数学中函数的概念没本质的区别。内部函数称为标准函数，它们是VB系统为了实现常用功能而提供的内部函数。 函数可以有零个或多个输入，一般都有一个确定的返回值。 Evaluation only. Created with Aspose.Slides for .NET 3.5 Client Profile 5.2.0.0. Copyright 2004-2011 Aspose Pty Ltd. 一、 用户交互函数 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 Evaluation only. Created with Aspose.Slides for .NET 3.5 Client Profile 5.2.0.0. Copyright 2004-2011 Aspose Pty Ltd. Private Sub Command1_Click()  Dim r As Integer, c As Single  r = Val(InputBox(请输入半径, 输入框, 3))  c = 2 * 3.14 * r  Text2.Text = c End Sub 通过对比，得出 InputBox(请输入半径, 输入框, 3)实现了text1的功能，而且，是以弹出窗口的形式，并有默认值。  r = Val(Text1.Text)  r = Val(InputBox(请输入半径, 输入框, 3)) Evaluation only. Created with Aspose.Slides for .NET 3.5 Client Profile 5.2.0.0. Copyright 2004-2011 Aspose Pty Ltd. vb通过inputbox（）函数实现人机交互 [格式] inputbox(提示[,标题][,默认值][,x坐标][,y坐标]) r = InputBox(请输入半径, 输入框, 3) r = InputBox(“请输入r”, “输入圆的面积, 3) Evaluation only. Created with Aspose.Slides for .NET 3.5 Client