常用语句与函数2.ppt

常用语句与函数2.ppt

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

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

四种语句：

l赋值语句lPrint语句l注释语句l结束语句五种函数：

五种函数：

l与用户交互的函数l数学函数l字符串函数l日期函数l常用转换函数请同学们观察如下程序,我们想取得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（）函数PrivateSubCommand1_Click（）DimrAsInteger,cAsSingler=Val（Text1.Text）c=2*3.14*rText2.Text=cEndSubPrivateSubCommand1_Click（）DimrAsInteger,cAsSingler=Val（InputBox（请输入半径,输入框,3）c=2*3.14*rText2.Text=cEndSub通过对比，得出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=MsgBox（你好吗,vbYesNo,确定吧）PrintaEndSub二、数学函数：

二、数学函数：

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

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

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）EndSubPrivateSubCommand1_Click（）a=Rnd（）PrintaEndSubPrivateSubCommand1_Click（）Randomizea=Rnd（）PrintaEndSubrandomize作用：

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

探讨题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四、日期函数四、日期函数Date（）返回系统当前日期Time（）返回系统当前时间Day（）返回指定日期的日数Month（）返回指定日期的月数Year（）返回指定日期的年份数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输出22PrivateSubCommand1_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”