《常用语句与函数2》由会员分享,可在线阅读,更多相关《常用语句与函数2(23页珍藏版)》请在金锄头文库上搜索。
1、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
2、,a,b)PrintcEndSub输出结果3总结通过以上例子,我们知道,datediff实现了一定的功能。具体的功能为:算出2个时间之间的差值,用秒来表示。程序段中没有任何对datediff的说明,显然,它是程序默认接受的。我们常常利用VB提供的内部函数来解决问题。VB中函数的概念与数学中函数的概念没本质的区别。内部函数称为标准函数,它们是VB系统为了实现常用功能而提供的内部函数。函数可以有零个或多个输入,一般都有一个确定的返回值。一、一、用户交互函数用户交互函数1、inputbox()函数PrivateSubCommand1_Click()DimrAsInteger,cAsSingler=V
3、al(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()函数实现人机交互人机交
4、互格式inputbox(提示提示,标题标题,默认值默认值,x坐标坐标,y坐标坐标)2、msgbox()函数函数语法格式:MsgBox(提示,按钮标题)按钮参数:按钮参数:这里的按钮参数一般用VB内部符号常量;vbOkOnly (是) vbOkCancel (确定、退出) vbYesNo (是、否) vbYesNoCancel (是、否、退出)PrivateSubCommand1_Click()a=MsgBox(你好吗,vbYesNo,确定吧)PrintaEndSub二、数学函数:二、数学函数:在具体编程过程中,各类数学函数会被使用,数学函数用于数学计算,包括三角函数、求平方根函数、求绝对值函数
5、、对数函数、指数函数等。它们与相应的数学定义相同。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()Prin
6、taEndSubPrivateSubCommand1_Click()Randomizea=Rnd()PrintaEndSubrandomize作用:初始化随机数生成器,可以达到每次产生不同随机数的目的。探讨题1请在屏幕上打印出5,6)之间的随机数PrivateSubCommand1_Click()Randomizea=Rnd()+5PrintaEndSub探讨题2请在屏幕上打印出5,11)之间的随机数PrivateSubCommand1_Click()Randomizea=Rnd*6+5PrintaEndSub探讨3请在屏幕上打印出b,c)之间的随机数,并请同学熟记PrivateSubComm
7、and1_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奥运在北京举办”中截取出北京方法
8、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)Prin
9、tMonth(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”