close
Function 感情(ByVal 方法 As String) As String
Dim 家長成見 As Integer = ∞
Dim 努力 As Integer = 0
Dim 薪水 As Integer = 0
Dim 前途 As Integer = 0
Do While ( 努力 < 家長成見 Or 薪水 < 家長成見 Or 前途 < 家長成見 )
If (方法 <> ”脫離父女關係”) Then
努力++
薪水++
前途++
Else
Exit Do
End If
Loop
Return “Happy Ending”
End Function
全站熱搜
留言列表
