万花筒VB程序 PrivateSubCommand1_Click()DimMaxSecAsDouble,MinSecAsDouble,TempSecAsDouble,MaxDataAsDouble,MinDataAsDoubleDimDbNameAsString