如何在vb中計算所有字元的ascii碼之和並顯示

1樓：網海1書生

都怪提問者沒有把問題說清楚，按我的理解，提問者的意思是拿出一段文字，然後計算這段文字中所有字元的ascii碼之和，如果只是計算所有字元的ascii碼之和，那麼只要用個簡單迴圈就可搞定，我想提問者不會連這點都不懂吧？所以樓上兩位都可能理解錯了。

ss = "這裡是一段要計算ascii碼總和的文字abcdefgh1234567890abcdefgh$%^&*"

s = 0

for i = 1 to len(ss)

s = s + asc(mid(ss, i, 1))next

print "ascii碼之和為"; s

2樓：聽不清啊

計算機中用得最廣泛的字符集及其編碼，是由美國國家標準局(ansi)制定的ascii碼（american standard code for information interchange，美國標準資訊交換碼），它已被國際標準化組織（iso）定為國際標準，稱為iso 646標準。適用於所有拉丁文本字母，ascii碼有7位碼和8位碼兩種形式。

因為1位二進位制數可以表示（2^1）=2種狀態：0、1；而2位二進位制數可以表示（2^2）=4種狀態：00、01、10、11；依次類推，7位二進位制數可以表示（2^7）=128種狀態，每種狀態都唯一地編為乙個7位的二進位製碼，對應乙個字元（或控制碼），這些碼可以排列成乙個十進位制序號0～127。

所以，7位ascii碼是用七位二進位制數進行編碼的，可以表示128個字元。

第0～32號及第127號(共34個)是控制字元或通訊專用字元，如控制符：lf（換行）、cr（回車）、ff（換頁）、del（刪除）、bel（振鈴）等；通訊專用字元：soh（文頭）、eot（文尾）、ack（確認）等；

第33～126號(共94個)是字元，其中第48～57號為0～9十個阿拉伯數字；65～90號為26個大寫英文本母，97～122號為26個小寫英文本母，其餘為一些標點符號、運算符號等。

private sub command1_click()

for i = 33 to 126

print i; chr(i),

if i mod 5 = 2 then print

s = s + i

next i

print "sum="; s

end sub

3樓：

dim sum as integer

for i = asc("!") to asc("z")sum = sum + i

next i

樓上的朋友，回答很不錯，但是不對題了。

要是把33到126都知道了，還需要做字元的相加求和？

asc函式是求ascii值，用i來取出！到z的值，再相加i就行了。

4樓：匿名使用者

在vb視窗上建立乙個text1控制項和command1按鈕控制項，新增如下**：

private sub command1_click()dim ret as integer

dim a as string

ret = 0

a = "11111"

for i = 1 to len(a)

ret = ret + asc(mid(a, i, 1))next i

text1.text = ret

end sub

vb 輸出所有ascii字元和對應的編碼

5樓：cc矛盾螺旋

private sub picture1_click()dim asc as integer, i%picture1.print " asc碼對照表"

for asc = 32 to 126

picture1.print tab(8 * i + 2); chr(asc); "="; asc; '8表示每項佔8列

i = i + 1

if i = 7 then i = 0: picture1.print '每行顯示7項

next asc

end sub

6樓：匿名使用者

private sub form_click()dim x as integer, i%

for x=33 to 127

print chr(x);」- 「; x;

i=i +1

if i mod 8=0 then printnext x

end sub

如何在vb中計算所有字元的ascii碼之和並顯示

如何在EXCEL中計算員工入職年限

如何在excel中計算輸入日期到當月月底以及月初的天數

vb如何在picture中用line方法連續畫線

其他用戶還看了：