Dim a As Single , b As Single , c As String
  
a = b * 1000#    #什么意思c = Str$(a)      $有什么用?