2.2.4常用语句与函数.pptx

1、2.2.4常用语句与函数2,第二课时 函数,五种函数：,与用户交互的函数 数学函数 字符串函数 日期函数 常用转换函数,请同学们观察如下程序,我们想取得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

2、, a, b) Print c End Sub,输出结果 3,总结 通过以上例子，我们知道，datediff实现了一定的功能。具体的功能为：算出2个时间之间的差值，用秒来表示。程序段中没有任何对datediff的说明，显然，它是程序默认接受的。,我们常常利用VB提供的内部函数来解决问题。VB中函数的概念与数学中函数的概念没本质的区别。内部函数称为标准函数，它们是VB系统为了实现常用功能而提供的内部函数。 函数可以有零个或多个输入，一般都有一个确定的返回值。,一、用户交互函数,1、inputbox()函数,通过对比，得出 InputBox(请输入半径, 输入框, 3)实现了text1的功能，而且

3、，是以弹出窗口的形式，并有默认值。,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 (是、否) vbYesNoC

4、ancel (是、否、退出),这里的“登录”按钮参数用VB内部哪个符号常量,二、数学函数：,在具体编程过程中，各类数学函数会被使用，数学函数用于数学计算，包括三角函数、求平方根函数、求绝对值函数、对数函数、指数函数等。它们与相应的数学定义相同。,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) a = 2 Pri

5、nt 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作用：初始化随机数生成器，可以达到每次产生不同随机数的目的。,三、字符串函数：,在“打字测试软件”程序中，计算输入

6、字符数时就使用了Len 函数。 intWordCount Len(txtInput.Text) 其含义是求出文本框中的字符数并赋给变量intWordCount。,Private Sub Command1_Click() a = 2008奥运在北京举办 Print Len(a) Print Left(a, 4) Print Right(a, 4) Print Mid(a, 3, 2) Print String(3, 9) End Sub,实践题请同学们在”2008奥运在北京举办”中截取出北京,方法1： Private Sub Command1_Click() a = 2008奥运在北京举办 a

7、= Right(a, 4) a = Left(a, 2) Print a End Sub,方法2：Private Sub Command1_Click() a = 2008奥运在北京举办 a = Mid(a, 8, 2) Print a End Sub,四、日期函数,Now()函数返回当前的年-月-日 时-分-秒,Private Sub Command1_Click() a = Now() Print Year(a) Print Month(a) Print Day(a) End Sub,五、常用转换函数,Private Sub Command1_Click() a = 33 Print a Print Val(a) b = 44 Print b Print Str(b) End Sub,注意，str(44)转换后，前面依然有空格。,Private Sub Command1_Click() a = 22hello Print Val(a) End Sub,输出22,Private Sub Command1_Click() a = hello22 Print Val(a) End Sub,输出0,小结 str()函数和val()函数是一对反函数，前者将数字转化为字符串，后者将字符串转化为数字。VAL()函数从前向后截取出参数的数字部分，如前无数字，则返回0。,补充 AS