1樓：
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()s = inputbox("請輸入一段英文")a = split(s, " ")
maxa = numofa(a(0)): maxstr = a(0)for i = 0 to ubound(a)if maxa < numofa(a(i)) thenmaxa = numofa(a(i))
maxstr = a(i)
end if
next i
print "a字元最多的單詞是" & maxstr & " 共" & maxa & "個"
end sub
2樓：令運旺冉培
輸入一段英文短文，將其中每個單詞的首字母改為大寫，若有兩個或兩個以上的private
subform_click()
dima
asvariant
dimstrt
asstring
dimi
vb：輸入一段英文，找出字母a出現次數最多的單詞 10
3樓：戈蕩御錕
輸入一段英文短文，將其中每個單詞的首字母改為大寫，若有兩個或兩個以上的private
subform_click()
dima
asvariant
dimstrt
asstring
dimi
4樓：匿名使用者
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
5樓：匿名使用者
split 和instr 組合應用 再加個迴圈
求會做vb的做一個程式 內容是： 求 輸入一段英文找出字母a出現次數最多的英文單詞。大致就是這個意思。
6樓：匿名使用者
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
7樓：寒信
每個單詞之間是空格嗎？有沒有標點符號？
輸入一段英文,找出字母a出現次數最多的英文單詞的vb程式設計怎麼寫
8樓：匿名使用者
輸入一段英文短文，將其中每個單詞的首字母改為大寫，若有兩個或兩個以上的private sub form_click() dim a as variant dim strt as string dim i
輸入一段英文,找出字母a出現次數最多的英文單詞的vb程式設計怎麼
輸入一段英文短文，將其中每個單詞的首字母改為大寫，若有兩個或兩個以上的private sub form click dim a as variant dim strt as string dim i vb 輸入一段英文，找出字母a出現次數最多的單詞 10 戈蕩御錕 輸入一段英文短文，將其中每個單詞的...
幫忙翻譯一段英文，幫忙翻譯一段英文
我相信如果時間的推移，一切truns到美容 如果降雨停止，眼淚清潔 創傷記憶離開 一切都身穿新鮮的顏色 每一個良好的開始扮演一個heartful的旋律 嫉妒embelishes的一頁史詩 願望是在擁抱一個夢想 但我心目中仍是在混亂和 我相信如果時間流逝了 所有的一切都變得美好 如果雨停了,淚乾了 記...
一段英文翻譯，一段英文翻譯
託尼討厭生病。他捲起snuggly絲般床，他呻吟著一些陽光流通過一個視窗，並擊中他的面部。它只是放大了大規模頭痛。他完全是赤裸裸的下方的床單，因為他發燒了一種傾向，扣球在無任何警告，所以當他沒有睡著，他喘著氣從難以忍受的高溫。這是絕對的地獄。除威廉訪問。那麼至少，他說話的人除了討好 誰痴迷，他對不起...