743
社区成员




Private Enum 郑码输入法专利使用类型
一次性购买的专利 = 1
每年需付费的专利租用 = 2
End Enum
Private Sub Command1_Click()
Dim 郑码输入法专利 As 郑码输入法专利使用类型
Dim 微软是否购买专利 As Boolean
Dim 专利有租用的概念吗 As Boolean
Dim 微软什么时候给的专利费 As Long
Dim 微软给了多少年的专利费 As Long
'固有条件设置
微软是否购买专利 = True
微软什么时候给的专利费 = 1998
'不明条件设置
郑码输入法专利 = 一次性购买的专利
专利有租用的概念吗 = False
微软给了多少年的专利费 = 1
If 微软是否购买专利 = True Then
If 郑码输入法专利 = 一次性购买的专利 Then
MsgBox "微软已经给过专利钱,“郑码”的所有权人无理取闹。"
ElseIf 郑码输入法专利 = 每年需付费的专利租用 Then
If 专利有租用的概念吗 = True Then
If Year(Now) <= 微软什么时候给的专利费 + 微软给了多少年的专利费 Then
MsgBox "微软的专利使用期未到,正在合法的使用中"
Else
MsgBox "微软的专利使用期已过,还有 " & Year(Now) - (微软什么时候给的专利费 + 微软给了多少年的专利费) & " 年没交专利的租用费。除了应该补交专利费,还应该罚款以示惩戒。"
End If
Else
MsgBox "“郑码”的所有权人应该停止他的无理举动。"
End If
End If
Else
MsgBox "微软完全无视知识产权,应该受到指责和惩罚。"
End If
End Sub