vb中怎样返回一个字符串的最后一个字符？ 有哪几种编程语言
\u7f16\u7a0b\u8bed\u8a00\u4e0e\u7a0b\u5e8f\u5458\u6709\u4ec0\u4e48\u533a\u522b?\u7f16\u7a0b\u8bed\u8a00\u4e0e\u7a0b\u5e8f\u5458\u533a\u522b\u4e3a\uff1a\u6027\u8d28\u4e0d\u540c\u3001\u4f7f\u7528\u4e0d\u540c\u3001\u6765\u6e90\u4e0d\u540c\u3002
\u4e00\u3001\u6027\u8d28\u4e0d\u540c
1\u3001\u7f16\u7a0b\u8bed\u8a00\uff1a\u7f16\u7a0b\u8bed\u8a00\u662f\u79cd\u7f16\u7a0b\u5f00\u53d1\u5de5\u5177\uff0c\u5982\uff1aC\uff0cC++\uff0cJAVA\u3001Go\u3001Python\u7b49\u3002
2\u3001\u7a0b\u5e8f\u5458\uff1a\u7a0b\u5e8f\u5458\u662f\u4e00\u79cd\u804c\u4e1a\uff0c\u4e3a\u7528\u6237\u901a\u8fc7\u7a0b\u5e8f\u8f6f\u4ef6\u5b9e\u73b0\u7279\u5b9a\u9700\u6c42\u529f\u80fd\u3002
\u4e8c\u3001\u4f7f\u7528\u4e0d\u540c
1\u3001\u7f16\u7a0b\u8bed\u8a00\uff1a\u7f16\u7a0b\u8bed\u8a00\u88ab\u7528\u4e8e\u4f5c\u4e3a\u7a0b\u5e8f\u7684\u57fa\u7840\uff0c\u5728\u7f16\u7a0b\u4eba\u5458\u7684\u5229\u7528\u4e0b\u624d\u6210\u5f62\u6210\u7a0b\u5e8f\u3002
2\u3001\u7a0b\u5e8f\u5458\uff1a\u7a0b\u5e8f\u5458\u4f7f\u7528\u67d0\u79cd\u7f16\u7a0b\u8bed\u8a00\u7f16\u5199\u7a0b\u5e8f\u4ee5\u5b9e\u73b0\u67d0\u79cd\u529f\u80fd\u3002
\u4e09\u3001\u6765\u6e90\u4e0d\u540c
1\u3001\u7f16\u7a0b\u8bed\u8a00\uff1a\u7f16\u7a0b\u8bed\u8a00\u662f\u4e00\u79cd\u5ba2\u89c2\u5b58\u5728\u7684\u4e1c\u897f\uff0c\u88ab\u7a0b\u5e8f\u5458\u53d1\u660e\u4ee5\u540e\uff0c\u9010\u6e10\u5b8c\u5584\u5c31\u6210\u4e86\u4e00\u79cd\u89c4\u5219\u3002
2\u3001\u7a0b\u5e8f\u5458\uff1a\u7a0b\u5e8f\u5458\u662f\u6765\u81ea\u9700\u8981\u4f7f\u7528\u7f16\u7a0b\u8bed\u8a00\u8fbe\u5230\u7528\u6237\u7535\u5b50\u9700\u6c42\u800c\u8bde\u751f\u7684\u804c\u4e1a\u3002
c++\uff0cc\uff0cjava\uff0cpascal
pascal\uff1a\u9002\u5408\u521d\u5b66\u8005\uff0c\u56e0\u4e3a\u5b83\u7684\u8bed\u6cd5\u6bd4\u8f83\u4e25\u8c28\uff0c\u53ef\u4ee5\u6253\u57fa\u7840\uff0c\u4e3a\u540e\u6765\u5b66c\uff0cc++\u7b49\u505a\u51c6\u5907
c\uff0cc++:\u5e94\u7528\u8303\u56f4\u975e\u5e38\u5e7f\uff0c\u53ef\u4ee5\u7528\u4e8e\u7cfb\u7edf\uff0c\u6e38\u620f\uff0c\u8f6f\u4ef6\u7f16\u7a0b
1.用Right函数,从字符串右边取出的指定数量的字符.
Right(string, length)
取最后一位
A = "ABC123"
D = RIGHT(A,1)
取最后二位
D = RIGHT(A,2)
取最后第二位
D = RIGHT(A,2,1)
2.用MID函数
返回 Variant (String)，其中包含字符串中指定数量的字符。
语法
Mid(string, start[, length])
此发先要用LEN函数确定字符串长度,然后才能确定起始位,例:
A = "ABC123"
取最后一位
D = MID(A,LEN(A),1)
取最后二位
D = MID(A,LEN(A)-1,2)
取最后第二位
D = MID(A,LEN(A)-1,1)
后一种在取每位字符时配合FOR NEXT循环更有用.
Left 函数
返回 Variant (String)，其中包含字符串中从左边算起指定数量的字符。
语法
Left(string, length)
Left 函数的语法有下面的命名参数：
部分 说明
string 必要参数。字符串表达式其中最左边的那些字符将被返回。如果 string 包含 Null，将返回 Null。
length 必要参数；为 Variant (Long)。数值表达式，指出将返回多少个字符。如果为 0，返回零长度字符串 ("")。如果大于或等于 string 的字符数，则返回整个字符串。
说明
欲知 string 的字符数，使用 Len 函数。
Right 函数
返回 Variant (String)，其中包含从字符串右边取出的指定数量的字符。
语法
Right(string, length)
Right 函数的语法具有下面的命名参数：
部分 说明
string 必要参数。字符串表达式，从中最右边的字符将被返回。如果 string 包含 Null，将返回 Null。
length 必要参数；为 Variant (Long)。为数值表达式，指出想返回多少字符。如果为 0，返回零长度字符串 ("")。如果大于或等于 string 的字符数，则返回整个字符串。
说明
欲知 string 的字符数，用 Len 函数。
Mid 函数
返回 Variant (String)，其中包含字符串中指定数量的字符。
语法
Mid(string, start[, length])
Mid 函数的语法具有下面的命名参数：
部分 说明
string 必要参数。字符串表达式，从中返回字符。如果 string 包含 Null，将返回 Null。
start 必要参数。为 Long。string 中被取出部分的字符位置。如果 start 超过 string 的字符数，Mid 返回零长度字符串 ("")。
length 可选参数；为 Variant (Long)。要返回的字符数。如果省略或 length 超过文本的字符数（包括 start 处的字符），将返回字符串中从 start 到尾端的所有字符。
说明
欲知 string 的字符数，可用 Len 函数。
你可以用right这个函数解决。
具体用法是right(您的字符串,您想要取的个数)
mid(字符串, 起始位置, 字符个数)
left(right(字符串，第几个))
right(r(),1)
绛旓細1.鐢≧ight鍑芥暟,浠庡瓧绗︿覆鍙宠竟鍙栧嚭鐨勬寚瀹氭暟閲忕殑瀛楃.Right(string, length)鍙鏈鍚涓浣 A = "ABC123"D = RIGHT(A,1)鍙栨渶鍚庝簩浣 D = RIGHT(A,2)鍙栨渶鍚庣浜屼綅 D = RIGHT(A,2,1)2.鐢∕ID鍑芥暟 杩斿洖 Variant (String)锛屽叾涓寘鍚瀛楃涓蹭腑鎸囧畾鏁伴噺鐨勫瓧绗︺傝娉 Mid(string, start[, length])姝...
绛旓細length 鍙夊弬鏁 ,瑕佽繑鍥炵殑瀛楃涓暟 銆傚鏋滅渷鐣,灏嗚繑鍥炲瓧绗︿覆涓粠 start 鍒版埅鍙栧埌缁撳熬銆備緥:Dim MyString, FirstWord, MidWordsMyString = "Mid Function Demo" 寤虹珛涓涓瓧绗︿覆銆侳irstWord = Mid(MyString, 1, 3) ' 杩斿洖 "Mid"銆侻idWords = Mid(MyString, 5) ' 杩斿洖 "Funcion Demo",鎴彇鍒扮粨灏俱 ...
绛旓細涓銆佽皟鐢 Dim a, b a = "浣犲ソ,寰堝ソ"b = aa(",", a, 1)浜屻佽繃绋 Function aa(a, b, c)Dim i, s, tmp i = InStr(b, a)If i > 0 Then If c = 0 Then 'c=0琛ㄧず鍙栧墠閮ㄥ垎 aa = Left(b, i - 1)Else 'c<>0琛ㄧず鍙栧悗閮ㄥ垎 aa = Mid(b, i + 1)End If End If E...
绛旓細鍙娇鐢⊿plit鍑芥暟鏉ュ疄鐜版埅鍙栬矾寰勬渶鍚庝竴涓"a"鍚庣殑瀛楃銆係plit鍑芥暟锛岃繑鍥炰竴涓笅鏍囦粠闆跺紑濮嬬殑涓缁存暟缁勶紝瀹冨寘鍚寚瀹氭暟鐩殑瀛愬瓧绗︿覆銆傚叿浣撲唬鐮佸涓嬶細Private Sub Form_Click()Dim ljStr As String ljStr = "C:\Program Files\Microsoft Visual Studio\VB98\ado"Debug.Print Split(ljStr, "\")(UBound(Spl...
绛旓細 鎴戞兂鐭ラ亾 vb 濡備綍鑾峰彇瀛楃涓蹭腑鏌愪釜瀛楃涔嬪悗鐨勬墍鏈夊瓧绗 鍥 Variant (Long)锛屾寚瀹氫竴瀛楃涓插湪鍙︿竴瀛楃涓蹭腑鏈鍏堝嚭鐜扮殑浣嶇疆銆 鏈ず渚嬩娇鐢 InStr 鍑芥暟鏉ユ煡鎵炬煇瀛楃涓插湪鍙涓涓瓧绗︿覆涓棣栨鍑虹幇鐨勪綅缃侱im SearchString, Searc ...
绛旓細MyPos = Instr(1, SearchString, SearchChar, 0)' 缂虹渷鐨勬瘮瀵规柟寮忎负浜岃繘鍒舵瘮杈冿紙鏈鍚庝竴涓鍙傛暟鍙渷鐣ワ級銆侻yPos = Instr(SearchString, SearchChar) ' 杩斿洖 9銆侻yPos = Instr(1, SearchString, "W") ' 杩斿洖 0銆備娇鐢∕id 鍑芥暟锛岃繑鍥 Variant (String)锛屽叾涓寘鍚瀛楃涓蹭腑鎸囧畾鏁伴噺鐨勫瓧绗︺侻id ...
绛旓細鍙互鑰冭檻鐢ㄦ鍒欙細Sub GetTrailingNumber() Const STR_PATTERN As String = "(\d+)$" Const STR_TEST As String = "12abc3456" Dim objRegExp As Object On Error Resume Next Set objRegExp = CreateObject("VBScript.RegExp") If Not (objRegExp Is Nothing) Then...
绛旓細寰堢畝鍗曪細鐢╩id鍑芥暟 a="e.g.abcdefghijklmn"b=mid(a,8,6)d鏄8涓瓧绗锛屼粠d鍚庡彇6涓紝灏辨槸mid(a,8,6)锛屽啀鏈夛紝浣犺鍙6涓紝搴旇鏄痚fghi锛屼笉鏄痙efghij锛堣繖鏄7涓瓧绗︿簡锛
绛旓細mid(xx,len(xx)-4,4)
绛旓細寰堢畝鍗曪紝鐢╨eft銆乺ight銆乵id鍑犱釜鍑芥暟 姣斿left("123456789",5),灏辨槸鍙栧墠浜斾綅锛屽緱12345 right("123456789",5)锛屽氨鏄互鍚庝簲浣嶏紝寰56789 mid涔熺被浼硷紝鍏蜂綋鍙互鐪嬪府鍔┿
