編寫“數(shù)字提取”程序，實(shí)現(xiàn)如下功能：在文本框 Text1 中輸入包含數(shù)字和其他非數(shù)字字符混合的原始數(shù)據(jù)，點(diǎn)擊“數(shù)字提取”按鈕 Command1，將數(shù)據(jù)中的數(shù)字以“，”間隔輸出到文本 框 Text2 中。程序運(yùn)行界面如圖所示，VB 代碼如下。請(qǐng)回答以下問(wèn)題：

（1）要使程序運(yùn)行后，窗體 Form1 標(biāo)題立即自動(dòng)顯示為“數(shù)字提取”，可在 （單選，填字 母：A．Form_Load/B．Form_Click/C．Command1_Click）事件過(guò)程中添加語(yǔ)句 Form1．Caption=“數(shù)字 提取“。
（2）實(shí)現(xiàn)上述功能的 VB 程序如下，請(qǐng)?jiān)跈M線處填入合適的代碼。Private Sub Command1_Click（　?。?br />Dim s As String,ch As String,flag As Boolean
Dim tmp As String,ans As String
s=Text1．Text
s=s+“?！?br />tmp=““：ans=““
flag=False
For i=1To Len（s）
ch=Mid（s,i,1）
If ch＞=“0“And ch＜=“9“Then
tmp=

①

①

flag=True
ElseIf flag=True Then
ans=ans+tmp+“，“

②

②

flag=False
End If
Next i
Text2．Text=ans End Sub
（3）如圖，若刪除程序中的語(yǔ)句“s=s+“。“”，輸入不變，則提取后的數(shù)字信息為

86，1，

86，1，

。