爱情代码

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