統(tǒng)計(jì)單詞個(gè)數(shù)．小明要參加英語等級考試，正在苦練寫作，為了快速統(tǒng)計(jì)文章中單詞的個(gè)數(shù)，他設(shè)計(jì)了如下VB程序，只要在文本框Text1中輸入短文，單擊統(tǒng)計(jì)按鈕，單詞的個(gè)數(shù)就在Text2中顯示（假定每個(gè)單詞中不包含英文字母以外的其他字符）．
算法的基本思路：按位取出字符，如果是字母，并且flag=False,說明是一個(gè)單詞的開始，則單詞個(gè)數(shù)增加1，flag置為True,余下的連續(xù)字母不再計(jì)數(shù)．如果讀入非字母，則表示一個(gè)單詞已經(jīng)完成，flag重新置為False,繼續(xù)循環(huán)．
程序界面如圖所示，按此要求編寫程序如下，但加框處代碼有錯(cuò)，請改正．
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
IfThen’①
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）加框處①有錯(cuò)，應(yīng)改為

Not flag或者flag=False

Not flag或者flag=False

．
（2）加框處②有錯(cuò)，應(yīng)改為

Chr（Asc（ch）-32）

Chr（Asc（ch）-32）

．