文本与数字处理：VisualBasic.NET实用指南

### 文本与数字处理：Visual Basic .NET 实用指南 在编程过程中，我们处理的数据大多以文本或数字的形式存在。Visual Basic .NET 提供了丰富的功能，让我们能够对这些数据进行多样化的操作。下面将详细介绍如何使用 String 类处理文本数据、Math 类处理数字数据，以及 Random 类生成随机数。 #### 1. 使用 String 类处理文本数据 在 VB .NET 中，文本数据由 String 类（属于 System 命名空间）表示。当创建一个 String 类型的变量时，实际上是创建了 String 类的一个实例。String 类代表的是不可变字符串，当对字符串进行“修改”时，会创建一个新实例来替换旧实例。 ```vb ' 创建一个 String 类型的实例 Dim s As String = "Hello" ' 旧实例被销毁，新实例被创建 s = "goodbye" ``` 以下是 String 类一些常用成员的介绍： | 成员 | 描述 | | --- | --- | | Chars | 返回字符串中指定位置的字符 | | Length | 返回字符串的长度 | | CompareTo() | 比较两个字符串 | | EndsWith() | 判断字符串是否以指定文本结尾 | | Equals() | 判断两个字符串是否相等 | | IndexOf() | 返回指定文本在字符串中首次出现的位置 | | Insert() | 在字符串指定位置插入文本 | | LastIndexOf() | 返回指定文本在字符串中最后一次出现的位置 | | PadLeft() | 在字符串开头填充字符以达到指定长度 | | PadRight() | 在字符串结尾填充字符以达到指定长度 | | Remove() | 从字符串指定位置删除指定数量的字符 | | Replace() | 将字符串中指定文本的所有实例替换为新文本 | | StartsWith() | 判断字符串是否以指定文本开头 | | SubString() | 从字符串中提取子字符串 | | ToLower() | 返回字符串的小写副本 | | ToUpper() | 返回字符串的大写副本 | | Trim() | 去除字符串开头和结尾的所有空格或其他指定字符 | | TrimEnd() | 去除字符串结尾的所有空格或其他指定字符 | | TrimStart() | 去除字符串开头的所有空格或其他指定字符 | 下面是这些成员的具体使用示例： ```vb ' Chars 属性示例 Dim s As String = "abcde" Dim c As Char c = s.Chars(1) ' c 现在包含 "b" ' Length 属性示例 Dim s2 As String Dim len As Integer len = s.Length ' len 等于 5 ' len = s2.Length ' 会引发异常 ' CompareTo() 方法示例 Dim s1 As String = "Banana" Dim s2 As String = "banana" Dim result As Integer result = s1.CompareTo(s2) ' 使用 Option Compare Binary 时，result = 1；使用 Option Compare Text 时，result = 0 ' EndsWith() 和 StartsWith() 方法示例 Dim s3 As String = "New York" Dim resultBool As Boolean resultBool = s3.EndsWith("rk") ' 返回 True resultBool = s3.StartsWith("New") ' 返回 True resultBool = s3.StartsWith("new") ' 返回 False ' Equals() 方法示例 Dim s4 As String = "reed" resultBool = s4.Equals("seed") ' 返回 False ' IndexOf() 和 LastIndexOf() 方法示例 Dim s5 As String = "Mississippi" Dim pos As Integer pos = s5.IndexOf("ss") ' 返回 2 pos = s5.IndexOf("ss", 3) ' 返回 5 pos = s5.LastIndexOf("ss") ' 返回 5 pos = s5.LastIndexOf("Mi") ' 返回 0 pos = s5.LastIndexOf("mi") ' 返回 -1 ' Insert() 方法示例 Dim s6 As String = "V Basic" Dim t As String t = s6.Insert(1, "isual") ' t = "Visual Basic" ' PadLeft() 和 PadRight() 方法示例 Dim s7 As String = "Index" Dim r1 As String Dim r2 As String r1 = s7.PadLeft(10, ".") ' r1 = ".....Index" r2 = s7.PadRight(5) ' r2 = "Index " ' Remove() 方法示例 Dim s8 As String = "abcdefg" Dim r3 As String Dim r4 As String r3 = s8.Remove(1, 3) ' r3 = "aefg" ' r4 = s8.Remove(4, 5) ' 会引发异常 ' Replace() 方法示例 Dim s9 As Str ```