常用语句与函数2

1、2.2.3常用语句与函数 第二课时 函数 四种语句：四种语句： l赋值语句 lPrint语句 l注释语句 l结束语句 五种函数：五种函数： l与用户交互的函数 l数学函数 l字符串函数 l日期函数 l常用转换函数 请同学们观察如下程序,我们想取得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(

2、) 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系统为了实现常用功能而提供的内部 函数。 函数可以有零个或多个输入，一般都有一个确定的返回 值。 一、一、 用户交互函数用

3、户交互函数 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(请输入半径, 输 入框

4、, 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 (是

5、、否) 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)

6、 三角函数内必须为弧度 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 = Rn

7、d() Print a End Sub randomize作用：初始化随机数生成器，可以达 到每次产生不同随机数的目的。 探讨题1请在屏幕上打印出5,6）之间的随机数 Private Sub Command1_Click() Randomize a = Rnd()+5 Print a End Sub 探讨题2请在屏幕上打印出5,11)之间的随机数 Private Sub Command1_Click() Randomize a = Rnd*6+5 Print a End Sub 探讨3请在屏幕上打印出b,c )之间的随机数,并请同学熟记 Private Sub Command1_Click()

8、 Randomize a = Rnd*(c-b)+b Print a End Sub 三、字符串函数：三、字符串函数： 在“打字测试软件”程序中，计算输入字符数时就使用了 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 实践

9、题请同学们在”2008奥运在北京举办”中截取出北京 方法1： Private Sub Command1_Click() a = 2008奥运在北京举办 a = 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 四、日期函数四、日期函数 Date()返回系统当前日期 Time()返回系统当前时间 Day()返回指定日期的日数 Month()返回指定日期的月数 Year()返回指定日期的年份数 Now

10、()函数返回当前的年-月-日 时-分-秒 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(