1樓：匿名使用者
其實這個很簡單吧，就是查詢每個空格之間的長度，把最長的那個顯示出來而已。
2樓：匿名使用者
private sub ***mand1_click()
dim word() as string, longestword as string, longestwordlength as integer
word = split(left(text1.text, len(text1.text) - 1), " ")
longestwordlength = 0
for i = lbound(word) to ubound(word)
if len(word(i)) > longestwordlength then
longestword = word(i)
longestwordlength = len(word(i))
end if
next i
label1.caption = "最長的單詞為「" + longestword + "」，其長度為" + cstr(longestwordlength) + "。"
end sub
3樓：匿名使用者
private sub ***mand1_click()
dim t as string, t1 as string, t2 as string * 1
dim i as integer, j as integer, l as integer, ascii as integer, m as integer, k as integer
t = inputbox("please input a sentence ,end of .")
l = len(t)
redim a(l) as string
redim n(l) as integer
j = 1
for i = 1 to l
t1 = mid(t, i, 1)
if t1 = "" then t1 = " "
ascii = asc(t1)
if (ascii > 65 and ascii < 90) or (ascii > 97 and ascii < 122) then
a(j) = a(j) + t1
n(j) = n(j) + 1
else
if n(j) > n(j - 1) then m = n(j): k = j
j = j + 1
end if
next
print "the longest word is:" & a(k) & ", long is: " & m
end sub
輸入一行英文句子(單詞之間有一個空格,最後用句號結束)找出其中最長的單詞,輸入該單詞和它的長度。要
4樓：匿名使用者
其實這個很簡單吧，就是查詢每個空格之間的長度，把最長的那個顯示出來而已。
用vb找出一個英文句子中最長的單詞,並輸出其長度
5樓：落葉l無情
tx=left(trim(text1),len(trim(text1))-1) '去開始和結尾的空格及結尾的標點符號
s=split(tx," ")
l=len(s(0))
for i=1 to ubound(s)
if len(s(i))>l then l=len(s(i))next
label3.caption=l
6樓：匿名使用者
private sub ***mand1_click()dim stra() as string, changdu as integer
stra = split(text1.text, " ")for i = lbound(stra()) to ubound(stra())
if changdu <= len(stra(i)) then changdu = len(stra(i))
next
msgbox "最長的字元的長度為：" & changduend sub
編寫一個程式,輸入一行英文句子,統計其中的單詞個數.假設單詞間僅使用空格(可能會有多個空格隔開）
7樓：匿名使用者
#include
#include
int main()
printf("the word number is %d \n",number);
return 0;}
C 輸入一行字元,統計其中單詞的個數 各單詞之間用空格分隔
利用c 的string類物件解決。可以先給物件賦一個空格字串，把從鍵盤接收的字元追加其後，以方便統一查詢。舉例如下 include stdafx.h if the vc 6.0,with this line.include include using namespace std int main i...
輸入一行英文，統計每個出現的英文字母的個數。注意 不區分大小
以下是在vb中的寫法，修改於其他的版本，不區分大小寫 dim tmp i lenstr sum tmp lcase text1.text lenstr len tmp for i 97 to 122 sum lenstr len replace tmp,chr i if sum 0 then pri...
中英文錄入的時候,同單詞會跳到下一行
格式 段落 中文版式 勾選允許西文在段落中間換行 格式 段落 中文版式 不選自動調整中文與西文的間距 很簡單,幫助裡面有介紹 開啟word文件 工具 選項 拼寫和語法 鍵入時檢查拼寫 確定 為什麼在word中打英文或者是字母的時候，一行未寫滿卻跳到下一行？格式 段落 中文板式 勾選 允許西文在單詞中...