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

《Visual Basic.NET程序设计实验实训指导 教学课件 作者 邱炳城 实验4 字符分离.ppt》由会员上传分享，免费在线阅读，更多相关内容在应用文档-天天文库。

1、VisualBasic.NET程序设计实验实验4字符分离7/24/2021【功能描述】从程序窗口中输入任意字符串，程序自动将汉字、字母、数字分离出来，并在程序窗口中显示出分离结果。7/24/2021【实验内容】1．For-Next语句、SelectCase-EndSelect语句及If-ElseIf-Else-EndIf语句的应用。2．Len()、Mid()、Asc()、Chr()、UCase()、LCase()等函数的运用。3．Like运算符及Is、To关键字的运用。7/24/2021【实验目的】1．掌握SelectCase-End

2、Select语句的格式、功能及运用。2．熟悉字符编码的概念及字符的识别方法。3．熟悉字符串处理的基本方法。7/24/2021【预备知识】1．If-ElseIf-Else-EndIf语句2．SelectCase-EndSelect语句3．相关函数4．Like运算符7/24/2021【实验步骤】1．创建及保存项目2．“即时”窗口的使用3．窗体设计4．程序设计5．程序调试6．程序改进7/24/2021【问题与思考】1．通过联机帮助和“即时”窗口学习下面内容。（1）字符串对象有一个属性Length，试在“即时”窗口输入下面命令，观察显示结果，并比

3、较该属性与Len()函数有何异同。?"Hello!".Length（2）比较Mid语句与Mid()函数的功能，学习Mid语句的用法。（3）字符串对象有一个方法Substring，试在“即时”窗口输入下面命令，观察显示结果，并比较该方法与Mid()函数有何异同。?"Hello!".Substring(3,2)（4）字符串对象有两个方法ToUpper、ToLower，试在“即时”窗口输入下面命令，观察显示结果，并比较这两个方法与UCase()、LCase()函数有何异同。?"Hello!".ToUpper?"Hello!".ToLower（5

4、）比较Asc()、Chr()函数与AscW()、ChrW()函数的区别。2．函数Abs()的功能是什么？为什么当c=Chr(-Abs(Asc(c)))时就可判断c是汉字（包括全角字符）？3．按下面要求改写程序：将过程Button1_Click中的SelectCase语句改为使用If-ElseIf-Else-EndIf语句编写，并在条件表达式中使用Like运算符，如：cLike"#"。4．按下面要求改写程序：从程序窗口中输入任意字符串，程序自动将汉字（不包括全角字符）、半角大写字母、半角小写字母、半角数字、全角大写字母、全角小写字母、全角数

5、字、半角标点符号、全角标点符号分离出来，并在程序窗口中显示出分离结果。7/24/2021例4-1成绩问题设x为百分制的成绩，现需要将其转换为等级制成绩y，对应关系如下：x（分数）y（等级）90-100A70-89B60-69C0-59D在实验2和实验3中，我们已学习过If-Else-EndIf语句的应用，但对于这种多分支的情况，简单使用这样的结构来编程的话，代码就显得累赘，而使用If-ElseIf-Else-EndIf语句来编程，则代码会简洁很多。7/24/2021If-ElseIf-Else-EndIf语句语句格式：Ifconditio

6、n1Then语句1ElseIfcondition2Then语句2ElseIfcondition3Then语句3……Else语句sEndIf语句的功能是，当条件condition1为True时，执行“语句1”，否则如果条件condition2为True时，执行“语句2”，否则如果条件condition3为True时，执行“语句3”。如果所有的条件都为False，则执行“语句s”。当某一个条件为True时，程序执行相应的语句后，跳到EndIf后面的语句，而不会检查其它的条件。也就是说，只有第一个条件为True的分支会被执行。7/24/2021

7、例4-1成绩问题解决方案1例4-1成绩问题可编写下面的程序代码来解决。如果x=85，则由于第一个条件为True的分支是“x>=70”，所以y="B"。Ifx>=90Theny="A"ElseIfx>=70Theny="B"ElseIfx>=60Theny="C"Elsey="D"EndIf7/24/2021SelectCase-EndSelect语句实现多分支的语句除If语句外，还可以使用SelectCase语句，这两个语句的功能相似。SelectCase语句的格式为：SelectCasetestexpressionCaseexpress

8、ionlist1语句1Caseexpressionlist2语句2……CaseElse语句sEndSelect其中，testexpression为测试表达式，expressionlist为与测