小明搭建基于物联网的室内温度检测系统，通过主卧和客卧安装的温度传感器，获取整点时刻的测量数据，并编写程序计算两个卧室的平均温度和统计测量次数。
现获取一段测量数据，第1段为日期，“2020.12.1表示2020年12月18日。从第2段开始，每3段为一条测量记录，依次记录测量时间、主卧温度、客卧温度，最后以“，”结束。例如，7点的测量数据是：“7：00，12.2，12.1”表示7点主卧温度为12.2，客卧温度为12.1。依此类推。
编写VB程序，实现上述功能：在文本框Text1中输入某日获取的若干测量数据，单击“统计平均温度”按钮Commandl完成计算并输出。程序界面如图所示。

请回答下列问题：
（1）实现上述功能的VB程序代码如下，请在横线处填入合适的代码。
（2）程序加框处代码有误，请改正。
PrivateSubCommandlClick （　　）
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表示当前处理的数据段
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中输入内容的最后一个“，”缺失（即输入内容为“……，12.6，12.7”），单击“统计平均温度”按钮后，统计到的测量次数是

9

9

次。