21. 江雪彤用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)保存文件。