常用语句与函数2.ppt

常用语句与函数2.ppt

《常用语句与函数2.ppt》由会员分享，可在线阅读，更多相关《常用语句与函数2.ppt（23页珍藏版）》请在冰点文库上搜索。

2.2.3常用语句与函数,第二课时函数,四种语句：

赋值语句Print语句注释语句结束语句,五种函数：

与用户交互的函数数学函数字符串函数日期函数常用转换函数,请同学们观察如下程序,我们想取得4:

59:

36AM和4:

59:

39AM之间的时间差：

PrivateSubCommand1_Click（）a=#4:

59:

36AM#b=#4:

59:

39AM#c=b-aprintcEndSub,输出结果为3.47222222222277E-05，比较晦涩难懂,PrivateSubCommand1_Click（）a=#4:

59:

36AM#b=#4:

59:

39AM#c=DateDiff（s,a,b）PrintcEndSub,输出结果3,总结通过以上例子，我们知道，datediff实现了一定的功能。

具体的功能为：

算出2个时间之间的差值，用秒来表示。

程序段中没有任何对datediff的说明，显然，它是程序默认接受的。

我们常常利用VB提供的内部函数来解决问题。

VB中函数的概念与数学中函数的概念没本质的区别。

内部函数称为标准函数，它们是VB系统为了实现常用功能而提供的内部函数。

函数可以有零个或多个输入，一般都有一个确定的返回值。

一、用户交互函数,1、inputbox（）函数,通过对比，得出InputBox（请输入半径,输入框,3）实现了text1的功能，而且，是以弹出窗口的形式，并有默认值。

r=Val（Text1.Text）,r=Val（InputBox（请输入半径,输入框,3）,例如：

r=InputBox（请输入半径,输入框,3）,vb通过inputbox（）函数实现人机交互格式inputbox（提示,标题,默认值,x坐标,y坐标）,2、msgbox（）函数,语法格式：

MsgBox（提示，按钮标题）,按钮参数：

这里的按钮参数一般用VB内部符号常量；,vbOkOnly（是）vbOkCancel（确定、退出）vbYesNo（是、否）vbYesNoCancel（是、否、退出）,二、数学函数：

在具体编程过程中，各类数学函数会被使用，数学函数用于数学计算，包括三角函数、求平方根函数、求绝对值函数、对数函数、指数函数等。

它们与相应的数学定义相同。

PrivateSubCommand1_Click（）a=-4Printabs（a）a=4PrintSqr（a）a=3030度PrintSin（a*3.14/180）三角函数内必须为弧度PrintCos（a*3.14/180）PrintTan（a*3.14/180）PrintAtn（值）a=2PrintExp（a）a=10PrintLog（a）a=99.8PrintInt（a）int为取整作用a=99.2PrintInt（a）a=99.5printcint（a）EndSub,PrivateSubCommand1_Click（）a=Rnd（）PrintaEndSub,PrivateSubCommand1_Click（）Randomizea=Rnd（）PrintaEndSub,randomize作用：

初始化随机数生成器，可以达到每次产生不同随机数的目的。

探讨题1请在屏幕上打印出5,6）之间的随机数,PrivateSubCommand1_Click（）Randomizea=Rnd（）+5PrintaEndSub,探讨题2请在屏幕上打印出5,11）之间的随机数,PrivateSubCommand1_Click（）Randomizea=Rnd*6+5PrintaEndSub,探讨3请在屏幕上打印出b,c）之间的随机数,并请同学熟记,PrivateSubCommand1_Click（）Randomizea=Rnd*（c-b）+bPrintaEndSub,三、字符串函数：

在“打字测试软件”程序中，计算输入字符数时就使用了Len函数。

intWordCountLen（txtInput.Text）其含义是求出文本框中的字符数并赋给变量intWordCount。

PrivateSubCommand1_Click（）a=2008奥运在北京举办PrintLen（a）PrintLeft（a,4）PrintRight（a,4）PrintMid（a,3,2）PrintString（3,9）EndSub,实践题请同学们在”2008奥运在北京举办”中截取出北京,方法1：

PrivateSubCommand1_Click（）a=2008奥运在北京举办a=Right（a,4）a=Left（a,2）PrintaEndSub,方法2：

PrivateSubCommand1_Click（）a=2008奥运在北京举办a=Mid（a,8,2）PrintaEndSub,四、日期函数,Now（）函数返回当前的年-月-日时-分-秒,PrivateSubCommand1_Click（）a=Now（）PrintYear（a）PrintMonth（a）PrintDay（a）EndSub,五、常用转换函数,PrivateSubCommand1_Click（）a=33PrintaPrintVal（a）b=44PrintbPrintStr（b）EndSub,注意，str（44）转换后，前面依然有空格。

PrivateSubCommand1_Click（）a=22helloPrintVal（a）EndSub,输出22,PrivateSubCommand1_Click（）a=hello22PrintVal（a）EndSub,输出0,小结str（）函数和val（）函数是一对反函数，前者将数字转化为字符串，后者将字符串转化为数字。

VAL（）函数从前向后截取出参数的数字部分，如前无数字，则返回0。

补充ASC码：

美国信息交换标准码每个字母对应一个数字，这个数字我们把它理解为ASC码，AZ分别对应6590，az分别对应97122asc（“a”）=97asc（“ab”）=97asc（“”）=32chr（122）=”z”chr（69）=”E”,