第四章 数据、表达式与简单程序设计.pptVIP

4.6　常用公共函数 函数是VB的一种程序模块，可以完成特定的功能。函数有用户自定义函数和内部函数。内部函数不必定义就可以直接使用。 数学函数 字符串函数 时间/日期函数 随机数函数 转换函数 可以在立即窗口中直接显示函数的执行结果 Log(x) 求自然对数即数学中的lnx 三角函数运算的对象为弧度值 说明 1、MID(string, start[, length]) 可选参数；为 Variant (Long)。要返回的字符数。如果省略或 length 超过文本的字符数（包括 start 处的字符），将返回字符串中从 start 到尾端的所有字符。 2、Len（），返回 Long，其中包含字符串内字符的数目，或是存储一变量所需的字节数 3、UCASE（）和LCase（） ，只会作用于英文的字母，对其他字符原样输出。 5 Date返回当前日期，Time返回当前的时间 说明 1、Weekday(date, [firstdayofweek])，的返回值 122 例题.函数CInt Int Fix都返回整数值，以下能正确地描述它们返回整数值大小关系的是（　　　）。 A. CInt(-4.51)=Int(-4.51) Fix(-4.51)B. Int(-4.51)CInt(-4.51) Fix(-4.51)C. CInt(-4.51) Fix(-4.51)Int(-4.51)D. Int(-4.51)Fix(-4.51)=CInt(-4.51) 1、Cint(x):将数值型数据X的小数部分四舍五入取整； 2、Int(X)：取小于等于X的最大整数； 3、Fix(X)：将数值型数据X的小数部分舍去。 思考：Cint(4.5)的值是多少？ 注意 1、CInt(x)与CLng(x)函数的运算规则：四舍五入取整，但是若小数部分等于0.5时，结果为与X最接近的偶数； 如： Cint(4.5)=4 Cint(3.5)=4 Clng(4.5)=4 Clng(3.5)=4 2、 CStr(x)与Str(x)函数的区别： 若x为正数，CStr(x)会删去X前面的表示正号的符号位；而 Str(x)函数不会删除符号位。 如： CStr(12) 结果为： ″12″ Str(12) 结果为：″□12″ 4.6.5 格式化函数Format 用格式输出函数Format$可以使数值或日期按指定的格式输出。一般格式为： Format$(数值表达式，格式字符串) 数值格式符： 0: 显示一数字，若此位置没有数字则补0 #: 显示一数字，若此位置没有数字则不显示 , - + $ ( ) :原样打出 如：Print Format(12.345, 000.00) Print Format(12000.345, #,###.##) 当格式字符串为常量时，必须放在双引号中。 4.7 InputBox、MsgBox函数 4.7.1 InputBox函数 4.7.2 MsgBox函数 4.7.1 InputBox函数 InputBox函数用来接受用户通过键盘输入的数据。InputBox函数使用的形式： A = InputBox(Prompt[,title][,defsult][,x,y][,helpfile,context]) Prompt：提示用的文字信息； title：对话框标题（字符型），缺省时，为工程名； default：显示在用户编辑框中的缺省值，缺省时，返回空值； 特别注意：InputBox函数返回的是一个字符类型数据 程序示例 Private Sub Cmd1_Click() Dim N As String N= InputBox(请输入你的学号：, 程序示例, 230001) If Left(N, 2) = 23 Then Print 你是工程系的学生！ Else Print 你不是工程系的学生！ End If End Sub 4.7.2 MsgBox函数 MsgBox函数用于向用户发布提示信息，并要求用户作出必要的响应。 MsgBox函数的形式是： MsgBox(Prompt[,button][,title][,helpfile,context]) MsgBox函数中各个参数的说明 Prompt：提示用的文字信息； button：这是一个由4个数值常量组成的式子，形式为c1+c2+c3+c4，用于决定信息框中按钮的个数和类型以及出现在信息框中的图标类型，各个参量的可选值及其功能见表4-10（凡有0值的参量，0值为缺省值）； title：信息框标题（字符型），缺省时，为空白