統(tǒng)計(jì)單詞個數(shù).小明要參加英語等級考試,正在苦練寫作,為了快速統(tǒng)計(jì)文章中單詞的個數(shù),他設(shè)計(jì)了如下VB程序,只要在文本框Text1中輸入短文,單擊統(tǒng)計(jì)按鈕,單詞的個數(shù)就在Text2中顯示(假定每個單詞中不包含英文字母以外的其他字符).
算法的基本思路:按位取出字符,如果是字母,并且flag=False,說明是一個單詞的開始,則單詞個數(shù)增加1,flag置為True,余下的連續(xù)字母不再計(jì)數(shù).如果讀入非字母,則表示一個單詞已經(jīng)完成,flag重新置為False,繼續(xù)循環(huán).
程序界面如圖所示,按此要求編寫程序如下,但加框處代碼有錯,請改正.
Private Sub Command1_Click ( ?。?br />Dim x As String,y As String
Dim n As Integer,m As Integer,flag As Boolean
x=Text1.Text
m=0:flag=False
For i=1To Len(x)
y=xtod(Mid(x,i,1))
If y>=“A”And y<=“Z”Then
If
Then’①
m=m+1
flag=True
End If
Else
flag=False
End If
Next
Text 2.Text=Str(m)
End Sub
Function xtod(ch As String) As String’將小寫字母轉(zhuǎn)化為大寫字母.
If ch>=“a”And ch<=“z”Then
xtod=
’②
Else
xtod=ch
End If
End Function
(1)加框處①有錯,應(yīng)改為
Not flag或者flag=False
Not flag或者flag=False
.
(2)加框處②有錯,應(yīng)改為
Chr(Asc(ch)-32)
Chr(Asc(ch)-32)
.