Google Groups no longer supports new Usenet posts or subscriptions. Historical content remains viewable.
Dismiss

VB...¤@°Ý..

0 views
Skip to first unread message

^^..咖啡.

unread,
Aug 22, 2002, 1:02:05 AM8/22/02
to


For i = 1 To Len(p$)
c = Asc(Mid(p$, i, 1))
If c >= 0 And c < 128 Then
n = n + 1
Else
n = n + 2
End If
Next i

這段是什麼意思阿??還有...asc 跟 mid又是什麼意思咧?
請跟我講一下...3q3q


另外 Shell "c:\all.bat"又是代表什麼ㄋ?
這是vb的程式....
--
[1;31mO [1;32mr [1;33mi [1;34mg [1;35mi [1;36mn [1;31m: [1;36m<不良牛牧場> [1;33mzoo.ee.ntu.edu.tw [1;32m(140.112.18.36) [m
[1;32mWelcome to SimFarm BBS [1;36m-- [m [1;31mFrom : [ [m61-216-212-220.HINET-IP.hinet.net [1;31m] [m

十兵衛

unread,
Aug 29, 2002, 1:25:53 AM8/29/02
to

"^^..咖啡." <awen...@zoo.ee.ntu.edu.tw> 撰寫於郵件
news:421LHU$1...@zoo.ee.ntu.edu.tw...

>
>
>
> For i = 1 To Len(p$)
> c = Asc(Mid(p$, i, 1))
> If c >= 0 And c < 128 Then
> n = n + 1
> Else
> n = n + 2
> End If
> Next i

> 這段是什麼意思阿??還有...asc 跟 mid又是什麼意思咧?
> 請跟我講一下...3q3q

你這段程式應該是求出文字方塊裡的每個字的SCII碼
Mid(字元 , 搜尋位置 , 每次搜尋幾個字)
所以 Mid(p$, i, 1) 就是搜尋P$這個字串，
並用i變數一一指定字串中的每個字，並且一次搜尋一個字
Mid()外用Asc()包起來表示把每次搜尋到的字轉換成ASCII碼
這樣懂了嗎？建議你可以在c = Asc(Mid(p$, i, 1))這行下加上

Msgbox Mid(P$,i,1)
Msgbox c

以便於觀察哦！

>
> 另外 Shell "c:\all.bat"又是代表什麼ㄋ?
> 這是vb的程式....

唉～Shell表示利用VB去執行VB以外的外部程式
所以 Shell "c:\all.bat" 就是用VB去執行C槽下的all.bat這個檔案啦


0 new messages