常用语句与函数2

1、2.2.4常用语句与函数第二课时 函数四种语句：四种语句：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 cEnd Sub 输出结果为3.47222222222277E-05，比较晦涩难懂Private Sub Command1_Click() a = #4:59:36 A

2、M# b = #4:59:39 AM# c = DateDiff(s, a, b)Print cEnd Sub输出结果 3一、一、 用户交互函数用户交互函数1、inputbox()函数Private Sub Command1_Click()Dim r As Integer, c As Single r = Val(Text1.Text) c = 2 * 3.14 * rText2.Text = cEnd SubPrivate Sub Command1_Click()Dim r As Integer, c As Single r = Val(InputBox(请输入半径, 输入框, 3) c =

3、 2 * 3.14 * rText2.Text = cEnd Sub通过对比，得出 InputBox(请输入半径, 输入框, 3)实现了text1的功能，而且，是以弹出窗口的形式，并有默认值。 r = Val(Text1.Text) r = Val(InputBox(请输入半径, 输入框, 3) 例如：r = InputBox(请输入半径, 输入框, 3)vb通过inputbox（）函数实现人机交互人机交互格式inputbox(提示提示,标题标题,默认值默认值,x坐标坐标,y坐标坐标)在窗体上有一个文本框，编写如下事件过程： Private Sub Form_Click() x = Input

4、Box(请输入一个整数) Print x + Text1.text End Sub 程序运行时，在文本框中输入456，然后单击窗体，在输入对话框中输入123，单击“确定”按钮后，在窗体上显示的内容是（ ） A. 123 B. 456 C. 579 D. 1234562、msgbox( )函数函数语法格式：MsgBox(提示，按钮标题)按钮参数：按钮参数：这里的按钮参数一般用VB内部符号常量；vbOkOnly (是) vbOkCancel (确定、退出) vbYesNo (是、否) vbYesNoCancel (是、否、退出)Private Sub Command1_Click() a = Ms

5、gBox(你好吗, vbYesNo, 确定吧)End Sub 根据程序运行结果的截图，请把下面的程序补充完整。 Private Sub Form_Load() x = y = End Sub根据程序运行结果的截图，请把下面的程序补充完整。 Private Sub Form_Load() x =InputBox(请输入您的姓名, 您叫什么名？) y = MsgBox(x & 先生/女士，祝您马到成功!)End Sub二、数学函数：二、数学函数： 在具体编程过程中，各类数学函数会被使用，数学函数用于数学计算，包括三角函数、求平方根函数、求绝对值函数、对数函数、指数函数等。它们与相应的数学定

6、义相同。Private Sub Command1_Click() a = -4Print Abs(a) a = 4Print Sqr(a) a = 30 30度Print Sin(a * 3.14 / 180) 三角函数内必须为弧度Print Cos(a * 3.14 / 180)Print Tan(a * 3.14 / 180)a = 2Print Exp(a) a = 10Print Log(a)a = 99.8Print Int(a) a = 99.2Print Int(a) a = 99.5Print CInt(a)End SubPrivate Sub Command1_Click()

7、a = Rnd()Print aEnd SubPrivate Sub Command1_Click()Randomizea = Rnd()Print aEnd Subrandomize作用：初始化随机数生成器，可以达到每次产生不同随机数的目的。探讨题1请在屏幕上打印出5,6）之间的随机数探讨题2请在屏幕上打印出5,11)之间的随机数探讨题1请在屏幕上打印出5,6）之间的随机数Private Sub Command1_Click()Randomizea = Rnd() + 5Print aEnd Sub探讨题2请在屏幕上打印出5,11)之间的随机数探讨题1请在屏幕上打印出5,6）之间的随机数Pr

8、ivate Sub Command1_Click()Randomizea = Rnd() + 5Print aEnd Sub探讨题2请在屏幕上打印出5,11)之间的随机数Private Sub Command1_Click()Randomizea = Rnd * 6 + 5Print aEnd Sub探讨3请在屏幕上打印出b,c )之间的随机数,并请同学熟记Private Sub Command1_Click() Randomizea = Rnd*(c-b)+b Print aEnd Sub三、字符串函数：三、字符串函数：Private Sub Command1_Click() a = 200

9、8奥运在北京举办Print Len(a)Print Left(a, 4)Print Right(a, 4)Print Mid(a, 3, 2)Print String(3, 9)End Sub实践题请同学们在”2008奥运在北京举办”中截取出北京 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

10、Command1_Click() a = 2008奥运在北京举办 a = Right(a, 4) a = Left(a, 2)Print aEnd Sub方法2：Private Sub Command1_Click()a = 2008奥运在北京举办 a = Mid(a, 8, 2)Print aEnd Sub四、日期函数四、日期函数Date()返回系统当前日期Time()返回系统当前时间Day()返回指定日期的日数Month()返回指定日期的月数Year()返回指定日期的年份数Now()函数返回当前的年-月-日 时-分-秒Private Sub Command1_Click() a = Now

11、()Print Year(a)Print Month(a)Print Day(a)End Sub五、常用转换函数五、常用转换函数 Private Sub Command1_Click() a = 33Print aPrint Val(a) b = 44Print bPrint Str(b)End SubPrivate Sub Command1_Click() a = 22helloPrint Val(a)End Sub输出22Private Sub Command1_Click()a = hello22Print Val(a)End Sub输出0小结 str()函数和val()函数是一对反函数，前者将数字转化