Visual Basic.NET程序设计实验实训指导 教学课件 作者 邱炳城 实验4 字符分离.pptVIP

Visual Basic.NET程序设计实验实验4 字符分离 【功能描述】 从程序窗口中输入任意字符串，程序自动将汉字、字母、数字分离出来，并在程序窗口中显示出分离结果。 【实验内容】 1．For-Next语句、Select Case-End Select语句及If-ElseIf-Else-End If语句的应用。 2．Len()、Mid()、Asc()、Chr()、UCase()、LCase()等函数的运用。 3．Like运算符及Is、To关键字的运用。 【实验目的】 1．掌握Select Case-End Select语句的格式、功能及运用。 2．熟悉字符编码的概念及字符的识别方法。 3．熟悉字符串处理的基本方法。 【预备知识】 1．If-ElseIf-Else-End If语句 2．Select Case-End Select语句 3．相关函数 4．Like运算符 【实验步骤】 1．创建及保存项目 2．“即时”窗口的使用 3．窗体设计 4．程序设计 5．程序调试 6．程序改进 【问题与思考】 1．通过联机帮助和“即时”窗口学习下面内容。 （1）字符串对象有一个属性Length，试在“即时”窗口输入下面命令，观察显示结果，并比较该属性与Len()函数有何异同。 ? Hello!.Length （2）比较Mid语句与Mid()函数的功能，学习Mid语句的用法。 （3）字符串对象有一个方法Substring，试在“即时”窗口输入下面命令，观察显示结果，并比较该方法与Mid()函数有何异同。 ? Hello!.Substring(3,2) （4）字符串对象有两个方法ToUpper、ToLower，试在“即时”窗口输入下面命令，观察显示结果，并比较这两个方法与UCase()、LCase()函数有何异同。 ? Hello!.ToUpper ? Hello!.ToLower （5）比较Asc()、Chr()函数与AscW()、ChrW()函数的区别。 2．函数Abs()的功能是什么？为什么当c = Chr(-Abs(Asc(c))) 时就可判断c是汉字（包括全角字符）？ 3．按下面要求改写程序： 将过程Button1_Click中的Select Case语句改为使用If-ElseIf-Else-End If语句编写，并在条件表达式中使用Like运算符，如：c Like # 。 4．按下面要求改写程序： 从程序窗口中输入任意字符串，程序自动将汉字（不包括全角字符）、半角大写字母、半角小写字母、半角数字、全角大写字母、全角小写字母、全角数字、半角标点符号、全角标点符号分离出来，并在程序窗口中显示出分离结果。 例4-1 成绩问题 设x为百分制的成绩，现需要将其转换为等级制成绩y，对应关系如下： x（分数） y（等级） 90-100 A 70-89 B 60-69 C 0-59 D 在实验2和实验3中，我们已学习过If-Else-End If语句的应用，但对于这种多分支的情况，简单使用这样的结构来编程的话，代码就显得累赘，而使用If-ElseIf-Else-End If语句来编程，则代码会简洁很多。 If-ElseIf-Else-End If语句 语句格式： If condition1 Then 语句1 ElseIf condition2 Then 语句2 ElseIf condition3 Then 语句3 …… Else 语句s End If 语句的功能是，当条件condition1为True时，执行“语句1”，否则如果条件condition2为True时，执行“语句2”，否则如果条件condition3为True时，执行“语句3”。如果所有的条件都为False，则执行“语句s”。当某一个条件为True时，程序执行相应的语句后，跳到End If后面的语句，而不会检查其它的条件。也就是说，只有第一个条件为True的分支会被执行。 例4-1 成绩问题解决方案1 例4-1 成绩问题可编写下面的程序代码来解决。如果x=85，则由于第一个条件为True的分支是“x=70”，所以y=B。 If x = 90 Then y = A ElseIf x = 70 Then y = B ElseIf x = 60 Then y = C Else y = D End If Select Case-End Select语句 实现多分支的语句除If语句外，还可以使用Select Case语句，这两个语句的功能相似。Select Case语句的格式为： Select Ca