小明的爸爸开了间水果店，小明想开发个收费软件，请你帮他完善部分代码，能实现：单击“计算总价”按钮，就可以实现输入单价、斤数后，单击“计算总价”按钮，计算并输出总价。如图所示：

Private Sub Command1_Click( )

  Dim a As Single

  Dim b As Single

  Dim total As Single

  a = Val（Text1. Text）

  b =Val（Text2. Text）

  total =

  Text3. Text =

End Sub