1樓：天空天空天空空
控制元件：1個文字框，1個按鈕
**：private sub command1_click()a = len(text1.text)
b = 0
for i = 1 to a
if " " = mid(text1.text, i, 1) then
b = b + 1 '統計空格數
end if
if "," = mid(text1.text, i, 1) or "." = mid(text1.text, i, 1) then
c = c + 1 '統計逗號和句號end if
next
msgbox str((a - b - c) / (b + 1))end sub
注意，如果出現冒號或者感嘆號的話，需要對c的判斷條件進行一下修正。
2樓：sooye酥月
private sub command1_click()a = len(text1.text)
b = 0
for i = 1 to a
if " " = mid(text1.text, i, 1) then
b = b + 1 '統計空格數
end if
if "," = mid(text1.text, i, 1) or "." = mid(text1.text, i, 1) then
c = c + 1 '統計逗號和句號end if
next
msgbox str((a - b - c) / (b + 1))end sub
3樓：無聲戲班
額 我的想法是這樣
宣告一個陣列，把每個單詞作為陣列元素，然後用length函式求出每個單詞的長度 ，然後除以陣列下標+1
vb任意輸入一個或者多個英文句子,統計這些句子中的單詞數量.
4樓：匿名使用者
private sub command1_click()dim a() as string
a = split(text1.text, " ")text2.text = ubound(a) + 1end sub
細節自已調整。。。
求問用python實現：編寫程式,計算使用者輸入的英文句子中的詞語數量,以及詞語平均長度,輸出計算結果？
5樓：風起雪落
#主要**如下，請參考
import re
words=input("input the words:")l=b=re.split(',| |.|?',words) #使用標點或空格分隔詞語，得到各個單詞
vb程式設計題在文字框tet1中輸入正整數單擊
下面是簡單實現，需要帶入引數是大於等於1的正數 自己防呆 private sub command1 click 呼叫例項dim str as string msgbox return str 5 end sub private function return str number as intege...
c語言程式設計用迴圈語句輸入數，求平均值
酒飲懷華藏 上樓的那個百，明顯是度錯了，應該知用浮點類道型，而版不是整型。權 include main a float sum 10 printf f a getch 櫻桃花花孩子 include main printf d sum 10 實現思路很簡單 將十個數相加後，再除以10即可. 樓上的做法...
英語句子求翻譯人工，求一英語句子翻譯，人工的，謝謝
should iran attempt to.if iran should attempt to.if 去掉，助動詞提前。類似用法 if i had known it，had i know it，mine我覺得你說的對，是布雷的意思。求一英語句子翻譯，人工的，謝謝 翻譯如下 this has man...