自行寫一個函數如何? Function alls(p As Single) Dim c. If p < 0 Then c = -1 Else c = 1 '控制負數-5.1 要傳回-6. If CInt(p) <> p Then
確定! 回上一頁