处理字符串和日期时间.ppt

《处理字符串和日期时间.ppt》由会员分享，可在线阅读，更多相关《处理字符串和日期时间.ppt（66页珍藏版）》请在淘文阁 - 分享文档赚钱的网站上搜索。

1、大学计算机基础教程TaiYuan University of Technology第9章 处理字符串和日期时间 Visual Basic 程序设计教程本章主要介绍：字符类型和字符数组操作字符串查找和替换字符串处理日期和时间使用VB的日历控件MonthView2Visual Basic 程序设计教程 在大量的应用系统中，文本是表达和交互数 据的基本类型，而文本的计算机内部表示就 是字符数据类型 学会运用VB提供的内部函数，包括比较字符 串和搜索字符串，以及在字符串和其他数据 类型之间的转换等3Visual Basic 程序设计教程往往应用程序中需要有日期和时间的相关信息，这就涉及到程序如何表达以

2、及如何使用 合适的格式表达程序中对日期时间的处理要 求 4Visual Basic 程序设计教程【例9-1】一个简单的示例程序，把给出的字符进行加密，然后再解密，程序界面如图所示:5Visual Basic 程序设计教程 Dim Str1 As String,Str2 As String Option Compare Text Private Sub CmdEncrypt_Click()Dim N As Byte,Count As Integer Text2.Text=N=Len(Text1.Text)For Count=1 To N Str1=Mid(Text1.Text,Count,1)I

3、f(Count Mod 2)=0 Then Text2.Text=Text2.Text&ChrW(AscW(Str1)+2)Else Text2.Text=Text2.Text&ChrW(AscW(Str1)+1)End If Next End SubPrivate Sub Form_Load()Label1.Caption=请输入：Label2.Caption=加密后输出：Label3.Caption=解密后输出 Text1.Text=Text2.Text=Text3.Text=End Sub6Visual Basic 程序设计教程Private Sub CmdUncoil_Click()D

4、im N As Byte,Count As Integer Text3.Text=N=Len(Text2.Text)For Count=1 To N Str1=Mid(Text2.Text,Count,1)If Count Mod 2=0 Then Text3.Text=Text3.Text&ChrW(AscW(Str1)-2)Else Text3.Text=Text3.Text&ChrW(AscW(Str1)-1)End If Next End Sub7Visual Basic 程序设计教程本节在小结前述章节的有关字符数据类型的基础上，进一步介绍有关字符运算、字符数组和实现。各种字符操作和字符转换、类型转换的VB函数。8Visual Basic 程序设计教程9.3.1 字符和字符串1字符数据类型VB的字符类型数据支持两种格式，一种是定长，另一种是不定长。如：Dim Str1 As StringDim Str2 As String*长度数值在VB中，变长字符串最多可包含大约20亿(231)个字符，而定长字符串可包含1到大约 64K(216)个字符。9Visual Basic 程序设计教程