Option Explicit
Private Sub Command1_Click() Dim a As Single a = 100.1 - 100 Text1 = aEnd Sub
不太明白,就拿这个来举个例子!