1樓：
我來回答吧，舉例說明
<%@language="vbscript" codepage="936"%>
<%chinawordcount = 0
str = "123,45你好，我是漢字"
for i = 1 to len(str)
c_char = mid(str,i,1)
c_asc = asc( c_char) ' 轉換為chr值
if c_asc > 128 or c_asc < 0 then
response.write c_char & "是漢字
"chinawordcount = chinawordcount + 1
else
response.write c_char & "不是漢字
"end if
next
response.write chinawordcount&"箇中文字元"
'另附 chr值對照表
response.write("chr值對照表，重點看 0-128部分為英文狀態
")for i = -50000 to 200
on error resume next
response.write i & "=" & chr(i) & "
"next
%>
2樓：欲速則不達
length一箇中文字元佔兩個位元組
VB中如何輸入文字框文字輸入字元，在這字元後加上
private sub text1 change if len text1.text 4 then text1.text text1.text end sub 我精心寫了一段哦！現在針對的是text1這個控制元件只需要放一個text1控制元件在窗體上在複製這段 貼上執行就可以了。我想了3種方法，一個...
在中如何豎向輸入文字，word中怎樣新增豎向文字
1 以word2010版本為例，點選word頁面上方的 插入 選項 2 在插入選單欄下找到 文字框 點選 3 在文字框的彈出框裡往下拉，找到 繪製豎排文字框 點選 4 則可在文件裡繪製一個豎排文字框了，大小長度根據需要確定則可，如圖，在文字框裡是豎向輸入文字的。在word中，可以更改文字方向。設定方...
在cad中如何讓文字輸入的時候在中間而且預設為中間
可以，你在命令欄裡面輸入t，按enter後，會提示你指定輸入文字框的大小，第一個點就是你準備寫入的矩形左上角的點，第二個點就是矩形的右下角的點，這樣的輸入文字框就和你準備寫入的矩形重合了，這樣你再調整文字的位置就可以保證文字是在矩形的中間了，打完這些才發現你要的是預設中間，這個我也在找呢，我也不會，...