常用语句及函数2.ppt

2.2.3常用语句与函数 四种语句： 赋值语句 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 [总结] ◆通过以上例子，我们知道，datediff实现了一定的功能。具体的功能为：算出2个时间之间的差值，用秒来表示。程序段中没有任何对datediff的说明，显然，它是程序默认接受的。 我们常常利用VB提供的内部函数来解决问题。VB中函数的概念与数学中函数的概念没本质的区别。内部函数称为标准函数，它们是VB系统为了实现常用功能而提供的内部函数。 函数可以有零个或多个输入，一般都有一个确定的返回值。 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(请输入半径, 输入框, 3)) ?c = 2 * 3.14 * r ?Text2.Text = c End Sub 通过对比，得出 InputBox(请输入半径, 输入框, 3)实现了text1的功能，而且，是以弹出窗口的形式，并有默认值。 ?r = Val(Text1.Text) ?r = Val(InputBox(请输入半径, 输入框, 3)) vb通过inputbox（）函数实现人机交互 [格式] inputbox(提示[,标题][,默认值][,x坐标][,y坐标]) r = InputBox(请输入半径, 输入框, 3) r = InputBox(“请输入r”, “输入圆的面积, 3) 2、msgbox( )函数 语法格式： MsgBox(提示[，按钮][标题]) 按钮参数：这里的按钮参数一般用VB内部符号常量； vbOkOnly (是) vbOkCancel (确定、退出) vbYesNo (是、否) vbYesNoCancel (是、否、退出) Private Sub Command1_Click() ?a = MsgBox(你好吗, vbYesNo, 确定吧) ?Print a End Sub 在具体编程过程中，各类数学函数会被使用，数学函数用于数学计算，包括三角函数、求平方根函数、求绝对值函数、对数函数、指数函数等。它们与相应的数学定义相同。 Private Sub Command1_Click() ?a = -4 ?Print abs(a) ?a = 4 ?Print Sqr(a) ?a = 30 30度 ?Print Sin(a * 3.14 / 180) 三角函数内必须为弧度 ?Print Cos(a * 3.14 / 180) ?Print Tan(a * 3.14 / 180) ?Print Atn(值) ?a = 2 ?Print Exp(a) ?a = 10 ?Print Log(a) ?a = 99.8 ?Print Int(a)?‘int为取整作用 ?a = 99.2 ?Print Int(a) ?a = 99.5 ?print cint(a) End Sub Private Sub Command1_Click() ?a = Rnd() ?Print a End Sub Private Sub Command1_Click() ??Randomize a = Rnd() ??Print a End Sub randomize作用：初始化随机数生成器，可以达到每次产生不同随机