江雪彤用VB编写一个能自动计算水电气费的程序运行该程序输入用水量、用电量和用气量，单击“计价”按钮，即可计算出用户应缴费用如下图所示。但江雪彤编写的程序有几处错误，请帮她修改。（注：应缴费用=水费×水价+电费×电价+气费×气价）

Private Sub Command1_ Click() Dim a, b, c As single Dim As Single a=Val(Text1.Text) b= Val(Tex2.Text) c=Val(Text3.Text) s=a×2.75+b*0.56+c*1.85 Text4.Caption=s End Sub

（1）修改“Dim as Single”行中的1处错误；
（2）修改“s=a×2.75+b*0.56+c*1.85”行中的1处错误；
（3）修改“Text4. Caption=s”行中的1处错误；
（4）保存文件。