爱情代码

1

代码 1: If " 如果你未来还没确定 " = True Then  （ “ 如果你的未来还没有确定，是真的，那么 ” ）   
 
Txtbox.text = " 我还有机会追到你 "  （ “ 我还有机会追到你 ” ）   
 
Else  （ “ 否则你的未来已经确定了，你有喜欢的人了 ” ）   
 
Msgbox(" 我也有机会追到你 ")  （ “ 我也有机会追到你的 ” ）   
 
End If  
 
End Sub  
 
代码 2: Dim i As string  （ “ 定义个变量  i  为字符窜型 ” ）   
 
For i = " 电话不通 " To " 电话打通了 "  （ “ 循环语句   我给你打电话   到   打通了 ” ）   
 
If " 电话通了 " = True Then " 我们聊天吧 "  （ “ 如果电话通了   是正确的   我们聊天吧 ” ）   
 
Msgbox(" 电话正在通话中 ")  （ “ 对话框显示   电话正在通话中 ” ）   
 
Else  （ “ 如果电话不通 ” ）   
 
Me.text = " 我会打个不停的   直到通了啊 "  （ “ 我会打个不停的   直到通了啊 ” ）   
 
Msgbox （  " 紧急呼叫 " ）   （ “ 对话框显示   紧急呼叫 ” ）   
 
End If  
 
Next  
 
End Sub  
 
quxiao.clear()  （ “ 取消电话号码 ” ）   
 
电话号码 .focus()  （ “ 电话框得到光标 ” ）   
 
End Sub  
 
这是 05 版的爱情代码啊   
 
都是爱情的代码啊   哈哈   
 
追女朋友的啊   可以短信发给你的女朋友啊   呵呵   
 
[url]http://jianqiu.good.blog.163.com/tag/edit/?tagModEdit  [/url]
 
这个是 03 版的爱情代码啊   
 
Private WithEvents Timer1 As Timer  
 
Private Sub Command1_Click()  
 
MsgBox " 电话正在通话中 "  
 
Command1.Enabled = False  
 
Timer1.Enabled = False  
 
Unload Form1  
 
End Sub  
 
Private Sub Form_Load()  
 
Set Timer1 = Controls.Add("vb.timer", "Timer1")  
 
Timer1.Interval = 1000  
 
Timer1.Enabled = False  
 
i = MsgBox(" 注意 ", 36, " 电话请求 ")  
 
Select Case i  
 
Case 6  
 
MsgBox " 电话正在通话中 "  
 
Timer1.Enabled = False  
 
Unload Form1  
 
Case 7  
 
MsgBox " 我会打个不停的   直到通了啊 "  
 
Label1.Caption = " 紧急呼叫 ..."  
 
Timer1.Enabled = True  
 
Me.Show  
 
End Select  
 
End Sub  
 
Private Sub Timer1_Timer()  
 
i = MsgBox(" 注意 ", 36, " 电话请求 ")  
 
Select Case i  
 
Case 6  
 
MsgBox " 电话正在通话中 "  
 
Unload Form1  
 
Case 7  
 
MsgBox " 我会打个不停的   直到通了啊 "  
 
Label1.Caption = " 紧急呼叫 ..."  
 
End Select  
 
End Sub