常用语句与函数2课件.ppt

2.2.4常用语句与函数 第二课时 函数 四种语句： 赋值语句 Print语句 注释语句 结束语句 五种函数： 与用户交互的函数 数学函数 字符串函数 日期函数 常用转换函数 请同学们观察如下程序,我们想取得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() a = #4:59:36 AM# b = #4:59:39 AM# c = DateDiff(s, a, b) Print c End Sub 输出结果 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(请输入半径, 输入框, 3)实现了text1的功能，而且，是以弹出窗口的形式，并有默认值。 ?r = Val(Text1.Text) ?r = Val(InputBox(请输入半径, 输入框, 3)) ?例如： r = InputBox(请输入半径, 输入框, 3) vb通过inputbox（）函数实现人机交互 [格式] inputbox(提示[,标题][,默认值][,x坐标][,y坐标]) 在窗体上有一个文本框，编写如下事件过程： Private Sub Form_Click() x = InputBox(请输入一个整数) Print x + Text1.text End Sub 程序运行时，在文本框中输入456，然后单击窗体，在输入对话框中输入123，单击“确定”按钮后，在窗体上显示的内容是（ ） A. 123 B. 456 C. 579 D. 123456 2、msgbox( )函数 语法格式： MsgBox(提示[，按钮][标题]) 按钮参数：这里的按钮参数一般用VB内部符号常量； vbOkOnly (是) vbOkCancel (确定、退出) vbYesNo (是、否) vbYesNoCancel (是、否、退出) Private Sub Command1_Click() ?a = MsgBox(你好吗, vbYesNo, 确定吧) End Sub 根据程序运行结果的截图，请把下面的程序补充完整。 Private Sub Form_Load() x =① y = ② End Sub 根据程序运行结果的截图，请把下面的程序补充完整。 Private Sub Form_Load() x =①InputBox(请输入您的姓名, 您叫什么名？) y = ②MsgBox(x 先生/女士，祝您马到成功!) 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) 三角函数内必须为弧度 Print Cos(a * 3.14 / 180) Print Tan(a * 3.14 / 180) a = 2 Print Exp(a) a = 10 Print Log(a) a = 99.8 Print Int(a) a = 99.2 Print Int(a) a = 99.5 Print CInt(a)