20. ちょっとリファクタ。イミディェイトに表示 Option Explicit Sub いちに2を加えると3になるべき() Dim CalcAs New Calc Dim actual As Integer actual = Calc.add(1, 2) Debug.Assertactual = 3 Debug.Printactual End Sub 24. Option Explicit ''usage ''Sub allTest() '' Dim TestSuite As New TestSuite '' '' With TestSuite '' .testAll '' '.testAll ("test") 'procedurePrefix '' '.testAll (procedurePrefix =:"test", modeulePrefix :="テスト") '' End Wi
