01项目一初试身手.ppt

字符串函数-3 格式：Mid(s, n[, m]) 、Left(s, n)、Right(s, n) 功能：s是一个字符型数据，n和m是一个整型数据。Mid返回从字符串s中的第n个字符开始的m个字符，Left返回字符串s中左边n个字符，Right返回字符串s中右边n个字符。 示例： Microsoft.VisualBasic.Left(“Visual Basic 2005中文版”, 3)的运算结果为“Vis， Microsoft.VisualBasic.Right(Visual Basic 2005中文版, 3)的运算结果为中文版， Mid(Visual Basic 2005中文版, 8, 5) 的运算结果为Basic。 若文本框TextBox1中输入的是姓名，判断姓名的第二个字是否是“中”字的表达式为： If Mid(TextBox1.Text, 2, 1) = 中 Then 共 页 * 字符串函数-4 字符串查找 格式：Instr([n,] s1, s2) 功能：n和m是一个整型数据，s1和s2是一个字符型数据。Instr函数在s1字符串中从第n个字符开始查找s2字符串，如果找到s2字符串，返回s2在s1中的起始位置值，否则返回0。若省略n，则从第一个字符开始查找。 共 页 * 字符串函数-5 示例： InStr(15, Visual Basic程序设计语言是面向对象的程序设计语言, 程序设计)的计算结果为25 InStr(Visual Basic程序设计语言是面向对象的程序设计语言, 程序设计)的计算结果为13 InStr(Visual Basic程序设计语言是面向对象的程序设计语言, VB程序设计)的计算结果为0 文本框TextBox1中输入的是书名，判断书名中是否含有“计算机”三个字的表达式为： If InStr(TextBox1.Text, 计算机) 0 Then 共 页 * 字符串函数-6 字符串去除空格 格式：Ltrim(s)、Rtrim(s)、Trim(s) 功能：s是一个字符型数据。Ltrim的返回值是去除字符串s左边（前面）空格后的字符串、Rtrim的返回值是去除字符串s右边（后面）空格后的字符串、Trim的返回值是去除字符串s前后空格的字符串。 共 页 * 字符串函数-7 示例： 函数Ltrim( 边学边练 VB程序设计 )的运算结果为边学边练 VB程序设计 不包含前面的空格、但包含后面的空格 函数Trim( 边学边练 VB程序设计 )的运算结果为边学边练 VB程序设计 不包含前面和后面的空格 共 页 * 函数Trim的应用 在运行“图书销售”程序时，用户在“书名”文本框中输入多余的空格，若要使得文本框中的内容没有多余空格，应加入以下事件过程代码： Private Sub TextBox1_LostFocus(ByVal sender As Object, _ ByVal e As System.EventArgs) Handles TextBox1.LostFocus TextBox1.Text = Trim(TextBox1.Text) End Sub 共 页 * 字符串函数-8 字符串替换 格式：Replace(s, s1, s2[, n[, m]]) 功能：s、s1和s2是一个字符型数据，n和m是一个整型数据。Replace在字符串s中从第n个字符开始，将前m个字符串s1替换为s2，并将第n个字符之前的字符删除。 若缺省m，替换把第n个字符开始的所有符合条件的字符串 若缺省n，则从第一个字符串开始替换 共 页 * 字符串函数-9 示例： Replace(abcabcabcabc, bc, 123, 5, 1)的运算结果为123abcabc” Replace(abcabcabcabc, bc, 123, , 2)的运算结果为“a123a123abcabc” Replace(abcabcabcabc, bc, 123, 2)的运算结果为“123a123a123a123” Replace(abcabcabcabc, bc, 123 )的运算结果为“a123a123a123a123” 共 页 * 函数Replace的应用 若窗体上有文本框TextBox1、TextBox2和TextBox3， TextBox1中输入了一段文字， TextBox2中输入的是要查找的文字， TextBox3中输入的是替换成的新文字。 使用以下语句可以实现文本的替换功能： TextBox1.Text = Replace(TextBox1.Text,TextBox2.Text,TextBox3.Text) 共 页 *