第03章VB程序设计代码基础(2014下)详解.ppt

内部函数是系统内部预定义的，用于根据用户给定的参数返回特定的函数值.调用格式为： 函数名([参数表]) 如：x = Val(Text1.Text) Text1.SelLength = Len(Text1.Text) Form1.Picture = LoadPicture(C:\tupian\bluesky.jpg) 参数: 可以是常量、变量或表达式。多个参数之间以逗号分隔，有些函数可以没有参数，称作无参函数，如Time 、Date、Now。 函数调用一般出现在表达式中，作为一个值参与表达式的运算或输出。 3.5 常用内部函数 Dim x As Integer x=-34 If x =0 Then x = -x Print x Dim x As integer x=-34 Print Abs(x) 也可以使用求绝对值的函数Abs。 求一个数的绝对值可以使用如下代码实现。 VB中的内部函数一般分为： １．数学函数 ２．字符串函数 ３．转换函数 ４．日期和时间函数 ５．格式输出函数 ６．其它函数 数学函数用于各种数学运算，包括三角函数、求平方根、绝对值、对数、指数函数等。常用的数学函数见书P45中的表3-1 。 3.5.1 数学函数 数学函数示例 Abs(-4) 结果为4 Sqr(16) 结果为4 Log(10) 结果为2.30258509299405 Fix(45.67) 结果为45 Int(45.67) 结果为45 Fix(-2.89) 结果为-2 Int(-2.89) 结果为-3 Sgn(3) 结果为1 Sgn(-6) 结果为-1 Sgn(0) 结果为0 注意：sin300 要写成 Sin(30 * 3.14 / 180) Rnd 函数Rnd函数称作随机函数，用于产生随机数，其调用格式如下： 返回值： [0,1)之间的单精度随机数。 参数x的取值可以是小于0 ﹑大于0和等于0： x0，则每次都使用x作为随机数种子得到相同的结果； x=0，则产生与最近生成的随机数相同的数。 x0，则将上一个随机数作种子，产生序列中的下一个随机数 省略参数同x大于0。 Rnd[(x)] 创建一种子值供 Rnd 函数使用，格式： Randomize语句 n: 种子，省略时以系统时间作为种子。 Randomize [n] 生成[a,b]区间范围内的随机整数公式： Int((b-a+1)*Rnd+a) 例1：生成[1,99]之间的随机整数的表达式为： Int(99*Rnd+1) 例2：生成(1,99)之间的随机整数的表达式为： Int(97*Rnd+2) 思考：怎样随机生成一个三位正整数？ *【例3-2】使用随机函数模拟掷骰子。 准备好六个图形文件，表示骰子的六个面 界面设计： Image1 Label1 Command1 Command2 首先生成一个1~6之间的随机整数x，用字符串连接符号将当前路径（App.Path）、字符串“pic”与该随机整数x进行连接，产生当前要显示的骰子文件的路径及文件名（picFilename）： x = Int(6 * Rnd + 1) picFilename = App.Path \pic Format(x) .jpg 最后用LoadPicture函数给Image1加载该图形。 代码设计： Private Sub Command1_Click() Dim x As Integer Randomize x = Int(6 * Rnd + 1) picFilename = App.Path \pic Format(x) .jpg Image1.Picture = LoadPicture(picFilename) Label1.Caption = Format(x) End Sub Private Sub Command2_Click() End End Sub Visual Basic提供了大量的字符串函数，具有很强的字符串处理能力。常见的字符串函数见教材P48 表3-2。例： LTrim( ABC ) 返回 ABC RTrim( ABC ) 返回 ABC Trim( ABC ) 返回 ABC Left(ABCDE,2) 返回 AB Right(ABCDE,3)