小明搭建基于物聯(lián)網(wǎng)的室內(nèi)溫度檢測系統(tǒng)，通過主臥和客臥安裝的溫度傳感器，獲取整點時刻的測量數(shù)據(jù)，并編寫程序計算兩個臥室的平均溫度和統(tǒng)計測量次數(shù)。
現(xiàn)獲取一段測量數(shù)據(jù)，第1段為日期，“2020.12.1表示2020年12月18日。從第2段開始，每3段為一條測量記錄，依次記錄測量時間、主臥溫度、客臥溫度，最后以“，”結(jié)束。例如，7點的測量數(shù)據(jù)是：“7：00，12.2，12.1”表示7點主臥溫度為12.2，客臥溫度為12.1。依此類推。
編寫VB程序，實現(xiàn)上述功能：在文本框Text1中輸入某日獲取的若干測量數(shù)據(jù)，單擊“統(tǒng)計平均溫度”按鈕Commandl完成計算并輸出。程序界面如圖所示。

請回答下列問題：
（1）實現(xiàn)上述功能的VB程序代碼如下，請在橫線處填入合適的代碼。
（2）程序加框處代碼有誤，請改正。
PrivateSubCommandlClick （　?。?br />DimsAsString,s1AsString,chAsString
Dimsum1AsSingle,sum2AsSingle
DimiAsInteger,jAsInteger,kAsInteger,mAsInteger,nAsInteger

s=Text1.jye.ai

s=Text1.jye.ai

Sum1=0：sum2=0
k=0'變量k表示當前處理的數(shù)據(jù)段
j=1'變量j表示該段的開始位置
m=0：n=0
Fori=1ToLen（s）
ch=Mid（s,i,1）
Ifch=“，“Then
k=k+1
s1=Mid（s,j,i-j）

j=i+1

j=i+1

If（k-1）Mod3=2Thenm=1
IfThen

k＞1And（k-1）Mod3＜＞1

k＞1And（k-1）Mod3＜＞1

suml=suml+m*Val（s1）
sum2=sum2+

（1-m）*Val（s1）或Abs（m-1）*Val（s1）

（1-m）*Val（s1）或Abs（m-1）*Val（s1）

m=0
EndIf
EndIf
Nexti
n=（k-1）\3
List1.AddItem“主臥平均溫度：“+tr（suml/n）+″度″
List1.AddItem客臥平均溫度：“+str（sum2/n）+″度″
Listl.AddItem“共測量“+str（n）+“次″
EndSub
（3）若文本框Text1中輸入內(nèi)容的最后一個“，”缺失（即輸入內(nèi)容為“……，12.6，12.7”），單擊“統(tǒng)計平均溫度”按鈕后，統(tǒng)計到的測量次數(shù)是

9

9

次。