这里是程序源代码： // VB 6.0 Run-Time Library support required DIM DeltaV as DCS; DIM EmersonProcess as Supplier /////////////////////////////////////////////////////// SUB MAIN // IMPORTANT: The followed objects must be declared // internally to avoid mis-leading DIM MTL, Dell, Intellution, Munger, MDC, Objectivity, OSI, Rainbow as Supplier DeltaV.Hardware.Controller = MTL.Product("M8000").Controller DeltaV.Hardware.IO = MTL.Product("M8000").IO DeltaV.Hardware.Console = Dell.Product("OfficePC") DeltaV.Hardware.Net = 3COM.Product("OfflineSwitch") DeltaV.Software.MMI = Intellution.Product("iFix") DeltaV.Software.Simulation = Munger.Product("Mimic") DeltaV.Software.Historian = OSI.Product("PI") DeltaV.Software.Database = Objectivity.Product("DB") DeltaV.Software.AdvControl = MDC.Product("MPC") DeltaV.Software.Key = Rainbow.Product("Sentinel") EmersonProcess.Product.Remove PROVOX EmersonProcess.Product.Remove RS3 EmersonProcess.Product.Add DeltaV WHILE EmersonProcess.I_am_Alive IF OneMonthPassed THEN EmersonProcess.Product("DeltaV").Version = EmersonProcess.Product("DeltaV").Version + 1.0 ENDIF EmersonProcess.CheckForSupplierUpdates EmersonProcess.AskSalesToSolveBugs WEND END SUB ////////////////////////////////////////////////////////