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...