统计单词个数．小明要参加英语等级考试，正在苦练写作，为了快速统计文章中单词的个数，他设计了如下VB程序，只要在文本框Text1中输入短文，单击统计按钮，单词的个数就在Text2中显示（假定每个单词中不包含英文字母以外的其他字符）．
算法的基本思路：按位取出字符，如果是字母，并且flag=False,说明是一个单词的开始，则单词个数增加1，flag置为True,余下的连续字母不再计数．如果读入非字母，则表示一个单词已经完成，flag重新置为False,继续循环．
程序界面如图所示，按此要求编写程序如下，但加框处代码有错，请改正．
Private Sub Command1_Click （　　）
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’将小写字母转化为大写字母．
If ch＞=“a”And ch＜=“z”Then
xtod=’②
Else
xtod=ch
End If
End Function
（1）加框处①有错，应改为

Not flag或者flag=False

Not flag或者flag=False

．
（2）加框处②有错，应改为

Chr（Asc（ch）-32）

Chr（Asc（ch）-32）

．