小龍編寫了一個(gè)簡(jiǎn)易加法器VB程序，運(yùn)行界面如圖所示．在文本框Text1中輸入一個(gè)數(shù)字后再輸入空格表示一個(gè)加數(shù)輸入完畢，連續(xù)不斷輸入不同的加數(shù)，待所有需要相加的數(shù)輸入完畢后，單擊“求和”按鈕Command1后，在標(biāo)簽label1中顯示加數(shù)的個(gè)數(shù)以及總和．（數(shù)字0和空格的ASCII碼分別為48、32）
實(shí)現(xiàn)上述功能的VB程序如下，但加框處代碼有錯(cuò)，請(qǐng)改正．
Private Sub Command1_Click （　　）
Dim a As String
Dim x As Integer,s As Integer,k As Integer
a=Text1．Text
x=1：s=0：k=0
For i=1To Len（a）
'如果輸入的不是0到9的數(shù)字或者空格，則給出錯(cuò)誤提示后結(jié)束子程序
If （Asc（Mid（a,i,1））＜48Or Asc（Mid（a,i,1））＞57）then’①Label1．Caption=“只能輸入數(shù)字或空格“
Exit Sub
End If
If Mid（a,i,1）=““Then
s=s+’②
x=i+1
k=k+1
End If
Next i
Label1．Caption=“這“+Str（k）+“個(gè)數(shù)的和為：“+Str（s）
End Sub.