1樓：和平海
clea
accept "請輸入：" to a
n=len(a)
zifu=0
hanzi=0
for i=1 to n
if asc(substr(a,i,2))>=45120hanzi=hanzi+1
i=i+1
else
zifu=zifu+1
endif
endfor
?"該段文字包含英文字元"+alltrim(str(zifu))+"個。"
?"該段文字包含中文字元"+alltrim(str(hanzi))+"個。"
2樓：匿名使用者
假如輸入的a只有中文和英文，不含空格和其他符號accept "請輸入：" to a
n=len(a)
zifu=0
hanzi=0
for i=1 to n
if (asc(substr(a,i,1))>=65 and asc(substr(a,i,1))<=90) or (asc(substr(a,i,1))>=97 and asc(substr(a,i,1))<=122)
zifu=zifu+1
else
hanzi=hanzi+1
endif
endfor
?"該段文字包含英文字元"+alltrim(str(zifu))+"個。"
?"該段文字包含中文字元"+alltrim(str(hanzi/2))+"個。"
例如輸入：
我a是b中c國d人
結果是：
該段文字包含英文字元4個。
該段文字包含中文字元5個。
編寫一個vb程式，可以讀入一個英文的文字檔案，顯示這個檔案，並統計這個檔案有多少個字元，多少個單詞，
用vb編寫程式，在文字框1中輸入一段文字，單擊「統計」按鈕，分別統計英文字母和數字符的個數並顯示出來
3樓：匿名使用者
private sub command1_click()dim sz as integer, zm as integerfor i = 1 to len(text1.text)select case mid(text1.text, i, 1)case "a" to "z", "a" to "z"
zm = zm + 1
case "0" to "9"
sz = sz + 1
end select
next i
text2.text = "字母的個數為：" & zmtext3.text = "數字的個數為：" & szend sub
用j**a編寫程式 1.建立一個文字檔案，輸入英語短文.編寫一個程式，統計該檔案中英文字母的個數，
用j**a 編寫一個程式，接受使用者輸入的一段英文文字，統計出其中的字元個數、單詞個數和句子的個數。
摘抄一段花草樹木文字,摘抄一段喜歡的文字
水陸草木之花，可愛者甚蕃。晉陶淵明獨愛菊 自李唐來，世人盛愛牡丹 予獨愛蓮之出淤泥而不染，濯清漣而不妖，中通外直，不蔓不枝，香遠益清，亭亭靜植，可遠觀而不可褻玩焉。予謂菊，花之隱逸者也 牡丹，花之富貴者也 蓮，花之君子者也。噫！菊之愛，陶後鮮有聞 蓮之愛，同予者何人 牡丹之愛，宜乎眾矣。愛蓮說 摘抄...
給圖配一段文字,請給圖片配上一段文字，謝謝
過來！抄我的孩子。讓爸爸抱著襲你，好消去你一路的辛勞。讓爸爸聞聞，你身上還殘留著多少硝煙和火藥。還有你戰友的鮮血，灑在你的衣襟留下昏暗痕跡。緊緊抱著你，我對他們有著深深的感激和謝意！有他們的關心和幫助，才能讓我再次擁抱你！才能讓我們父子如此相逢！來吧孩子！流淚已經不是我的強項。我會把掛念及此前的擔憂...
第一段的文字在全文中起什麼作用，第一段文字在全文中起什麼作用
題主沒有列舉具體的文章，那麼就只有泛論 第一段的作用一般是 1 總領全內文 多為報告容類 2 吸引讀者閱讀興趣 多種題材 3 為下文做鋪墊 多種題材 4 引起下文情節 多為記敘文 5 點明主旨 中心 多為議 6 渲染 氣氛 多種題材 7 交代起因 多為記敘文 8 與下文相照映 多種題材 注意，這些作...