4、根据练习图练习3.4所示的运行参考界面。要求如下： 通综合应用蜂习 日▣☒ 转计文本串中各个字每出现的数 输入文本串：H1a,团t灯 计 I1L11:1K:11:20:1T:2:1 利用文本相一☆输入多个数据并进行处理、盟示 航入多个数据返号模开： 12,90.89.09,100 显示组合枉 12 90 100 图练习3.4综合应用练习运行参考界面 将光盆配套素材文件夹CEx3下的窗体文作ex4vb加载，并将其设为启动对象，编写 代码实联以下功能： 1)单击计按相时。烧计其上面文本框中各个字每（不区分大小写）出现的次数，统计 结果显示其右边的标签控件中。 2)编写代码实现：在多行文木框中。输入多个数熬，数据之阿以延号稀开（即限制文木框 中具修输入09，小数点。负号，退号和递格键这些字符)，当输入其它字符中，将不接受 输入并产生一个消息框投示， )单击 婴示组合相 按组时，将多行文本框中输入的多个数指最示其右边的组合框控件 中。 【提示】实现 烧计 按钮功能的参考代码截图如图342
4、根据练习图练习 3.4 所示的运行参考界面。要求如下： 图练习 3.4 综合应用练习运行参考界面 将光盘配套素材文件夹 ChapterEx3 下的窗体文件 ex4.vb 加载，并将其设为启动对象，编写 代码实现以下功能： 1）单击 按钮时，统计其上面文本框中各个字母（不区分大小写）出现的次数，统计 结果显示其右边的标签控件中。 2）编写代码实现：在多行文本框中，输入多个数据，数据之间以逗号隔开（即限制文本框 中只能输入 0~9，小数点，负号，逗号和退格键这些字符），当输入其它字符中，将不接受 输入并产生一个消息框提示。 3）单击 按钮时，将多行文本框中输入的多个数据显示其右边的组合框控件 中。 【提示】 实现 按钮功能的参考代码截图如图 3.42
”功能：统计并显示文本串中各个字符出现的次数 Private Sub btnl_Click(ByVal sender As System.Object,ByVal e As Systen Eve Dim str As String 用于获取文本框中的文本 Dim i As Integer Dim strLen As Integer ·用于保留文本串的长度 Dim count(25)As Integer'用于保留26个字母出现的次数 Dim subIndex As Integer '用于调定数组的下标，中问变量 Dim ch As Char str txtString.Text ”获取基础数据 strLen str.Length 得到文本串的长度 For i 0 To strLen 1 ·满历每一个符 c中=tr.Substring(i,1)'得到位家索引为i的字符 If Char.IsLetter(ch)Then‘是否是字得 中ChIr(@h转提减天 利用“A”对应的ASC11为65，使A2对应的数组元素的下标为0^25 subIndex Ase(ch)-65 count (subIndex)count (subIndex)+1 End If Next ”显示 lblResult.Text ="M For i 0 To 25 If count(i))0Thn'只显示出现过的字母 ch=Cr(1+65)"利用下标来韩定对应的字母，Cr(65)返回"A” lResult.Text=1blResult.Text&ch盘“："盘count(i)&" End If Next End Sth 图3.42实现统计并显示字母出现次数的参考代码镜图
图 3.42 实现统计并显示字母出现次数的参考代码截图
