[第5讲简单程序设计.ppt

数据输出(MsgBox) 数据输出(MsgBox) Msgbox函数的返回值： Private Sub Command1_Click() t = MsgBox(请确认数据是否正确。, 3, 数据检查) If t = 6 Then Print t * t ElseIf t = 7 Then Print 请重新输入 End If End Sub 数学函数 练习： VB函数表达式Int(Abs(3^3-100)/2) = ? 36 Evaluation only. Created with Aspose.Slides for .NET 3.5 Client Profile 5.2.0.0. Copyright 2004-2011 Aspose Pty Ltd. 补充知识 Round(X,N) 返回保留小数点后n位的实数 X:需要保留的数 N：保留小数点后面的位数 例如： Round(1.234,0) Round(1.234,2) 1 1.23 Evaluation only. Created with Aspose.Slides for .NET 3.5 Client Profile 5.2.0.0. Copyright 2004-2011 Aspose Pty Ltd. 7. 符号函数（Sgn） Sgn(x) 返回x的符号值 Sgn(x) = 1 说明X0 Sgn(x) = 0 说明X=0 Sgn(x) =-1 说明X0 Evaluation only. Created with Aspose.Slides for .NET 3.5 Client Profile 5.2.0.0. Copyright 2004-2011 Aspose Pty Ltd. 8. 随机函数 Rnd(X) 返回小于1，或大于等于0的Single型随机数。 X0 每次都使用相同的随机种子x，得到相同的结果 X=0 得到相同的结果 X0 得到任意随机数 省略 得到任意随机数 Evaluation only. Created with Aspose.Slides for .NET 3.5 Client Profile 5.2.0.0. Copyright 2004-2011 Aspose Pty Ltd. 8. 随机函数 产生一定范围内的随机整数： Int((上限-下限+1)*Rnd+下限) 例如：生成10~20之间的随机数 Private Sub Command1_Click() Dim a As Integer Randomize ’初始化随机发生器 a = Int((20 - 10 + 1) * Rnd + 10) Print a End Sub Evaluation only. Created with Aspose.Slides for .NET 3.5 Client Profile 5.2.0.0. Copyright 2004-2011 Aspose Pty Ltd. 字符串函数 字母大小转换函数 求子串函数 删除空格函数 字符串长度函数 字符串匹配函数 重复字符串生成函数 Evaluation only. Created with Aspose.Slides for .NET 3.5 Client Profile 5.2.0.0. Copyright 2004-2011 Aspose Pty Ltd. 1.字母大小转换函数 LCase(s) 将字符串中的大写字母转换成小写字母。 UCase(s) 将字符串中的小写字母转换成大写字母。 练习： Private Sub Command1_Click() Dim s As String s = Try Print LCase(s) Print UCase(s) End Sub Evaluation only. Created with Aspose.Slides for .NET 3.5 Client Profile 5.2.0.0. Copyright 2004-2011 Aspose Pty Ltd. 2. 求子串函数 Left(s,n) 截取字符串s左端的n个字符 Right(s,n) 截取字符串s右端的n个字符 Mid(s,p,n) 在s中，从第p个字符开始，向后截取n个字符 Mid(s,p) 在s中，从第p个字符开始，向后截取所有字符 注意： 对于求子串操作，每个ASCII字符和汉字（包括标点和空格）都视为一个字符! E