例思2.4：通过本实例掌握Cha类和Smg类中常用两数及使用，参考界面如图23引所示， 要求如下： (1)将配套素材文件夹Chapter2下的窗体文件Exp4.vb到加“Exp”的项目，并将该窗体设 为项目的启动窗体。 (2)编写代码实现以下功能： 1)当在第一个文木框中输入字符时，右边的标签控件中会实时按以下要求最示信息： 当输入的字符时是09之间的数字时，右边显示“X是十进制数字”，其中X表示键入 的字符。 当输入的字符时是2之间的字母时，右边显示“X是小写字母”。 当输入的字符时是A-Z之同的字时，右边显示“X是大写字母，否则显示“X是其 它字符” 2)当单击字节串的长度是按铅时，在其右侧的标签控件中显示源文本的字符个数。 3)当单击 板取子事☐胺钮时，从源文本的指定位置极取子申，结果显示在界面下方的 标签挖件中。 4)当单击军取按钮时，从深文本的指定位置授取指定长度的子串，结果显示在界面下方的 标签控件中。 5)当单击替换按细时，对源文本进行文本替换，结果显示在界面下方的标签控件中。 6)当单击查找按锥时，在潭文本查找指定的字符串，若能找到，则在界面下方的标签控 件中显示该子串在原文本串中第一次出现的位置信息，若找不到，则在标签控件中显示“该 字符串不存在”的信息
例题 2.4：通过本实例掌握 Char 类和 String 类中常用函数及使用，参考界面如图 2.31 所示。 要求如下： (1) 将配套素材文件夹 Chapter2 下的窗体文件 Exp4.vb 到加“Exp”的项目，并将该窗体设 为项目的启动窗体。 (2) 编写代码实现以下功能： 1）当在第一个文本框中输入字符时，右边的标签控件中会实时按以下要求显示信息： ✓ 当输入的字符时是 0~9 之间的数字时，右边显示“X 是十进制数字”，其中 X 表示键入 的字符。 ✓ 当输入的字符时是 a~z 之间的字母时，右边显示“X 是小写字母”。 ✓ 当输入的字符时是 A~Z 之间的字母时，右边显示“X 是大写字母”，否则显示“X 是其 它字符”。 2）当单击 按钮时，在其右侧的标签控件中显示源文本的字符个数。 3）当单击 按钮时，从源文本的指定位置截取子串，结果显示在界面下方的 标签控件中。 4）当单击 按钮时，从源文本的指定位置截取指定长度的子串，结果显示在界面下方的 标签控件中。 5）当单击 按钮时，对源文本进行文本替换，结果显示在界面下方的标签控件中。 6）当单击 按钮时，在源文本查找指定的字符串，若能找到，则在界面下方的标签控 件中显示该子串在原文本串中第一次出现的位置信息，若找不到，则在标签控件中显示“该 字符串不存在”的信息
通文本而敷能用摩洲 石回☒ 千利用Cw受中的函表 2网 是小写字异 利用S七i类中的通数 源文本： Th止9m 字衍串的长度是 9 从第下 个字研开始 起子带 从第一个字符开始密取 个字荷 将 替换成 替羚 在遵文本中直我： 看找 结果： 图23引应用文本处理函数举例参考界面 解题步骤： (1)加载指定素材并将其设为启动窗体。 (2)实现键入字符与实时信息的显示，从以下两方面着手： 1)首先要实时获取键入的字符。委实时获取文本框中键入的字符，应该给文本框控件 (本例的ae属性值为txtA)的KeyPress事件编写代码，利用事件参数e的KeyChar 属性（即e KeyChar)获取健入的字符， 2)对字符进行判断。这里利用C类中的相关函数对字符判断，参考代码载图如图 232如示
图 2.31 应用文本处理函数举例参考界面 解题步骤： （1）加载指定素材并将其设为启动窗体。 （2）实现键入字符与实时信息的显示，从以下两方面着手： 1）首先要实时获取键入的字符。要实时获取文本框中键入的字符，应该给文本框控件 （本例的 name 属性值为 txtA）的 KeyPress 事件编写代码，利用事件参数 e 的 KeyChar 属性（即 e.KeyChar）获取键入的字符。 2）对字符进行判断。这里利用 Char 类中的相关函数对字符判断，参考代码截图如图 2.32 如示
”功能，实时判断并显示键入字符的类型 Private Sub txtA_KeyPress(ByVal sender As Object,ByVal e As Systen Nindows Dim mLetter As Char '声明一个用于保存健入字行钓山型变量 获取健入字行 nyLetter■e.KeyChar '利用a关中的相关函数对字符进行判断并显示结果 If Char.IsDigit(Letter)Then 断字符是否为十进制数字 lblresult.Text=myLetter&“是数字 06 Ialetter (ehr Then字香写字母 If Char.IsUpper(mLetter)Then 1b1 result.Text=y1 etter盘"是大写字每 Else ,1blr花lt,Text=yLetter&“是小写字母“ End If Else lresult.Text■myLetter&“是其它字符 End If End Sub 图232实现实时判断文本框健入字符类型的参考代马截图 (3)给字符串的长度是按钮编写代码并调试。其整本思路是获取并保存源文本串，然后利 用文本实例的gh属性获得实例文本的长度，参考代马如图233所示。 ”功能：获取并显示给定文本串的长度，即字符个数 Private Sub Button2_Click (ByVal sender As Systen.Object,ByVal e As Syatea Din8 s String'声明一个用于很存源字符串的String型变量 Dim a As Integer '声明一个用于保存文本串长度的1tetr型中问变量 ‘获取基础玫据 g■trtS.Text '利用文本帝用其属性1 eng th来获得文本串的长度 a s.Length “显示结果 lblLen.Text Comvert.ToString(a) End Sub 图233获取文本串长度的参考代码酸图 (4)给 际果子串■ 废组编写代码并调试，其基本思路是获取并保存源文本串和载取的 起始位置，然后利用文本实侧的uSg函数，返目一个子文本串。注意第一个字符对应 的位置索引为0，参考代码如图23科所示： ”功陵：从相定的位置取文本甲 Private Sub Button2_Click_1(ByVal sender As Systen Object,ByVal e As Systen Din s As Strlng D5npo8A8 Integer"声明一个用于保存位置的Integer型变量 ”获取基础数据 8 txtS.Text pos Comrvert,ToInt32(txt1.Text) 利用文本串的S出Sig函数，注意位置秀号引是从0开她 1 blEnd.Text=s.Substring(pos-1)‘显结果 End Sub 图234从指定位置截取子串的参考代码截图 (5》给黑取按钮编写代码并调试。其基本思路是获取并候存潭文本串、裁取的配始位置和 截取长度，然后利用文本实例的Sg函数的另一种参数形式，赵国一个子文木半，参
图 2.32 实现实时判断文本框键入字符类型的参考代码截图 （3）给 按钮编写代码并调试。其基本思路是获取并保存源文本串，然后利 用文本实例的 Length 属性获得实例文本的长度，参考代码如图 2.33 所示。 图 2.33 获取文本串长度的参考代码截图 （4）给 按钮编写代码并调试。其基本思路是获取并保存源文本串和截取的 起始位置，然后利用文本实例的 subString 函数，返回一个子文本串。注意第一个字符对应 的位置索引为 0，参考代码如图 2.34 所示。 图 2.34 从指定位置截取子串的参考代码截图 （5）给 按钮编写代码并调试。其基本思路是获取并保存源文本串、截取的起始位置和 截取长度，然后利用文本实例的 subString 函数的另一种参数形式，返回一个子文本串，参
考代码如图235所示。 ·功能，从指定的位置鼓取指定长度的文本串 Private Sub Butto3_Click(ByWal sender As Systen.Object,ByWal e As Systen Din s As String D1mp0s,strlen As Integer'用于保存位置和钱取长度的Integer型变量 获家基甜数据 s txtS.Text pos Comvert.ToInt32(txt2.Text) strlen日Convert.Tolnt32(txt3.Text】 '按要求加工基础欧据并输出结果 lblEnd.Text s.Substring(pos -1,strLen) End Sub 图2.35从指定位置截取指定长度文本的参考代码截图 (6)给节换按短编写代码并调试。其基本思路是获取并保存源文本串、替换字符和核 替换字符，然后利川文本实例的Pe函数赵国一个新的文本，参考代码如图236所示， ”功能：对字符串进行文本普控 Private Sub Buttond_Click(ByVal sender As Systen.Object,ByVal e As Systen Eve Din s As String Din oldStr,newStr As String'用于保存替换和放替摸文本的String型变量 “获取基础玖据 s txtS.Text oldStr txt4.Text newStr三txt5,Tert '用文本串的R©plac函数进行文本普族，并输出结果 1blEnd.Text s.Replace(oldstr,nesStr) End Sub 因2.巧对字符串遗行文本替换的参考代码截图 (7)给查找按钮编写代码并调试。其基本思路是获取并保存源文本串和查找文本，然后 利用文本实例的dOf函数返回一个位置索引，如果返同值为1，表示在源文本串中找不 到相匹配的文本，否则返目第一个出现的位置素引，如果查找方向是从右到左，则使用 LastlndexOf函数，参考代码如图2.37所示。 功衡：在字行串中查我指足文本 Private Sb Button5_Click (DyVal gender As Syaten Objeet,ByVal e As Systen EventAr Din s As String Din foundStr As String‘用于保写被查找的指定文本的Strin型变量 Din posIndex As Integer '用于保翦位置素的Integer型资量 ”花取基础数据 s量trtS.Text foundStr txt6.Text 利用文本串的10f函数宣找瓶定文本，返四一个位置家引 eB☆三8.Index0f(foundStr) 枫据位置索引进行判断并输出相应的结果 If poaIndex =-1 Then -1表示左中役找到与famd松tr相匹配文本 1 blEnd Text=设找到匹配文本，”底fon5tr Bls 1b1 End.Text=“第1次出现的位置是，第”&(posIndex+1)&”个字行” End If nd9中 图27在字符伟中查找文木的参考代码截图
考代码如图 2.35 所示。 图 2.35 从指定位置截取指定长度文本的参考代码截图 （6）给 按钮编写代码并调试。其基本思路是获取并保存源文本串、替换字符和被 替换字符，然后利用文本实例的 rePlace 函数返回一个新的文本，参考代码如图 2.36 所示。 图 2.36 对字符串进行文本替换的参考代码截图 （7）给 按钮编写代码并调试。其基本思路是获取并保存源文本串和查找文本，然后 利用文本实例的 indexOf 函数返回一个位置索引，如果返回值为-1，表示在源文本串中找不 到相匹配的文本，否则返回第一个出现的位置索引，如果查找方向是从右到左，则使用 LastIndexOf 函数。参考代码如图 2.37 所示。 图 2.37 在字符串中查找文本的参考代码截图