vb字符串函数实例(有图)

vb字符串函数实例(有图) Public a As Integer Private Sub Command1_Click()If a Then 已经点经了Command1.Caption = "" Else a = a + 1 Dim str1 As StringDim str2 As StringDim str3 As Stringstr1 = " abcdefgh "Print "*" + str1 + "*" 经除左经空格Print "*" + LTrim(str1) + "*", " " 经除右经空格Print "*" + RTrim(str1) + "*", " " 经除所有空格Print "*" + Trim(str1) + "*", " "Print " " 字符串经除空白函数' str2 = "HDSFHSHFSHS"Print str2 从左经截取Print Left(str2, 3), " ,3" 从右经截取Print Right(str2, 3), " ,3" 从中经截取Print Mid(str2, 3, 2), " ,3,2"Print " " 字符串截取函数' str3 = "ahdbhabdahdbah"Print str3 字符串经度Print Len(str3), " " Print " " 字符串经度经经函数' 代经Print String(5, 97), " ASCII" Print " " 字符串'string$(n,) Print " 1234567890" 空格函数Print "*" + Space(10) + "*", " "Print " " 空格函数' 字符串匹配Print InStr("abcdefcdgh", "cd"), " " 区写分大小指经始位置 区写分大小Print InStr(4, "abcdeCDfcdgh", "cd"), " " '4 0 不分大小区写不分大小区写Print InStr(4, "abcdeCDfcdgh", "cd", 1), " " '1 Print " " 字符串匹配函数' 小经大写写Print UCase("adgsadahda"), " " 大经小写写Print LCase("SYUDGFSFGH"), " "Print " " 字母大小经经写' Dim str4 As String, str5 As String str4 = "hdshagfajja"str5 = "HBH" Print str4 Print str5 指入位置～插指入插个数Mid(str4, 4, 2) = str5 '4 2 插入字符串Print str4, " " 字符串入经句插' End If End Sub Private Sub Form_Load()a = 0 End Sub