【正文】
OutMonth = NextMonth(InMonth) End If Node (14) Else Node (15) OutDay = 1 OutMonth = NextMonth(InMonth) End If Node (16)End SelectNode (17)newDate = OutMonth Str(OutDay) , amp。路徑2:0→2→3→14路徑3:0→1→3→4→5→13→14路徑4:0→1→3→4→6→7→12→13→14路徑5:0→1→3→4→6→8→9→11→12→13→14路徑6:0→1→3→4→6→8→10→11→12→13→14(4)設(shè)計(jì)的測(cè)試用例如下:輸入數(shù)據(jù)預(yù)期輸出測(cè)試用例1找不到實(shí)際例子無(wú)測(cè)試用例24,2,1Not a Triangle測(cè)試用例33,3,3Equilateral測(cè)試用例44,4,5Isosceles測(cè)試用例53,4,5Right a triangle測(cè)試用例64,5,6scalence Program的測(cè)試Private Sub NextDatePJ(InMonth As String, InDay As Integer, InYear As Integer, newDate As String)Dim OutDay As Integer, OutYear As Integer, OutMonth As StringOutYear = InYearNode (0)Select Case InMonthCase January, March, May, J