用vb做字數統計,該怎麼做?漢字的ascii的範圍是多少?不要告訴我直接用len最好

時間 2022-11-15 09:05:49

1樓:聽不清啊

你嘗試把以下**複製後執行一遍,再開啟d:\111.txt觀察一下,相信你對上面的問題會有幫助。

其中的漢字部分,是從i=176開始的,前面是標點和圖形。

舉其中乙個例子,256*176+161=45217。你按著alt鍵不鬆手,再依次按數字鍵盤的45217,按完數字鍵後鬆開alt鍵,就是「啊」字了。

注意,不是qwer上面的數字,是右邊的數字小鍵盤。

private sub command1_click()open "d:\111.txt" for output as #1for i = 161 to 247

if i = 170 then i = 176for j = 161 to 249

print #1, chr(256 * i + j); " ";

next j

print #1,

next i

close #1

end sub

private sub command2_click()print chr(45217) '就是256*161+161end sub

2樓:百小度

如我是=len(text1.text)

用vb裡的len語句統計text1中的字數

3樓:

如果是僅僅排出換行符,可以用以下辦法快速達到要求stri=text1.text

stri=replace(stri,chr(10),"")stri=replace(stri,chr(13),"")text1的長度=len(stri)

用VB做簡單的小程式,用VB做乙個簡單的小程式

private sub command1 click me.cls dim n as integer,i as integern inputbox n 9 for i 1 to 2 n 1if i n then print space n i string 2 i 1,cstr i else pri...

怎樣用VB做最簡單的時鐘,怎樣用VB做乙個最簡單的時鐘?

在窗體上畫乙個label和乙個計時器,寫下如下 即可。private sub form load timer1.interval 2000timer1.enabled truelabel1.caption timeend sub private sub timer1 timer label1.cap...

怎麼用VB打九九乘法表,用VB程式怎麼做九九乘法表?

三角形的九九乘法表 private sub form load dim i,j,s for i 1 to 9 for j 1 to i s s j i iif len i j 2,i j i j next s s vbcrlf next msgbox s end sub private sub 確定...

vb裡這個怎麼做,vb主要是做什麼用的

c語言要想學好還是很難的!vc和c 倒是和vb差不多難度。vb是高階語言,c語言是介於高階語言和低階語言之中的一種語言,所以功能要比vb和vc大多了 個人認為 要想成為高手,組合語言還是必不可少的!vb是微軟公司開發的一種程式語言,大部分語義借鑑了basice的語句,但實現了圖形化程式設計介面,並實...

用vb做產生20 100的隨機整數,求出這些數的最大值 最小值和平均值

dim a 1 to 20 as integerprivate sub command1 click clsscale 0,0 100,100 for u 1 to 20 a u int rnd 50 50b b a u print a u next u c b 20 for i 1 to 19 f...