VB 简单程序：判断一个人是不是天才（是否聪明）

Private Sub Form_Load()
　　On Error Resume Next
　　Dim IsClever As Object, Result As Boolean
　　Set IsClever = CreateObject("Person.IsClever")
　　Result = IsClever.Judge("somename") 'somename 替换成你自己的名字
　　If Result Then
　　　　MsgBox "Clever!"
　　Else
　　　　MsgBox "Not Clever!"
　　End If
End Sub
'你可以试试看，结果超准的。
'快来试试啊，不试怎么知道呢。