1樓：匿名使用者
輸入一段英文短文，將其中每個單詞的首字母改為大寫，若有兩個或兩個以上的private sub form_click() dim a as variant dim strt as string dim i
vb：輸入一段英文，找出字母a出現次數最多的單詞 10
2樓：戈蕩御錕
輸入一段英文短文，將其中每個單詞的首字母改為大寫，若有兩個或兩個以上的private
subform_click()
dima
asvariant
dimstrt
asstring
dimi
3樓：匿名使用者
private sub text1_change()dim str1() as string, str2() as string, n() as integer
dim i as integer, n1 as integer, n2 as integer, n_max as integer
dim tmpstr as string
str1 = split(text1.text, " ")for i = 0 to ubound(str1)if instr(str1(i), "a") > 0 thenredim preserve n(n1), str2(n1)str2(n1) = str1(i)
n2 = 0
for j = 1 to len(str1(i))if mid(str1(i), j, 1) = "a" thenn2 = n2 + 1
end if
next j
n(n1) = n2
if n2 > n_max then n_max = n2n1 = n1 + 1
end if
next i
for i = 0 to ubound(n)if n(i) = n_max then
tmpstr = tmpstr & " " & str2(i)end if
next i
label1.caption = trim(tmpstr)end sub
4樓：匿名使用者
split 和instr 組合應用 再加個迴圈
求會做vb的做一個程式 內容是： 求 輸入一段英文找出字母a出現次數最多的英文單詞。大致就是這個意思。
5樓：匿名使用者
private sub command1_click()
dim i as integer, myword() as string, myoutput as string, mytemp as string, mymax as integer
mytemp = replace(text1.text, vbcrlf, " ")
myword = split(mytemp, " ")
mymax = 0
for i = lbound(myword) to ubound(myword)
if mymax < len(myword(i)) - len(replace(myword(i), "a", "")) then
mymax = len(myword(i)) - len(replace(myword(i), "a", ""))
myoutput = myword(i)
end if
next
msgbox myoutput & vbtab & mymax
end sub
6樓：寒信
每個單詞之間是空格嗎？有沒有標點符號？
vb 利用文字框輸入一個字串，統計英文字母a,e,z出現次數，不區分大小寫
vb程式設計 輸入一段英文，找出字母a最多的單詞
function numofa s sum 0 for i 1 to len s if mid s,i,1 a or mid s,i,1 a then sum sum 1 end if next i numofa sum end function private sub command1 click...
翻譯一段英文，謝謝，麻煩翻譯一段英文，謝謝
與subtier 商的合作 1 你如何確保將與工程變更有關資訊提供給subtier 商？2 如何將有關工程級別更改有關的資訊通報給您的 商？3 為了處理工程變更，你已經與您的 商建立了哪些程式？4 你如何確保所購買的零件被核准並能夠符合因工程變更商定的時間表？5 你如何確保 商能夠適應為支援工程變更...
幫忙翻譯一段英文，幫忙翻譯一段英文
我相信如果時間的推移，一切truns到美容 如果降雨停止，眼淚清潔 創傷記憶離開 一切都身穿新鮮的顏色 每一個良好的開始扮演一個heartful的旋律 嫉妒embelishes的一頁史詩 願望是在擁抱一個夢想 但我心目中仍是在混亂和 我相信如果時間流逝了 所有的一切都變得美好 如果雨停了,淚乾了 記...