情人节给女朋友编写一个程序，用VB可以编什么啊

'Form1.Visible改为False，另外添加一个Timer，Interval设为1

'以下代码直接复制到代码框就好

Private Declare Function SetCursorPos Lib "user32" (ByVal X As Long, ByVal Y As Long) As Long

Private Sub Form_Load()

MsgBox "你真的要打开这个文件？……", vbInformation, "TZW Computer SOHO"

MsgBox "不要再打开啦！" + String(2, Chr(13)) + "里面可能会有……那个东西的哦！", vbInformation, "TZW Computer SOHO"

MsgBox "你真的要千万想清楚才好啊……" + String(2, Chr(13)) + "不然的话……", vbCritical, "TZW Computer SOHO"

Form1.Hide

Timer1.Enabled = True

End Sub

Private Sub Form_Unload(Cancel As Integer)

MsgBox "先别走那么快，卖段广告再说嘛…………：" + String(2, Chr(13)) + "精品软件，尽在 TZW Computer SOHO！" + String(2, Chr(13)) + "谢谢捧场！谢谢捧场！ ——TZW :)", vbInformation, "请等一下，就一下就好……"

End Sub

Private Sub Timer1_Timer()

Static abc As Integer

SetCursorPos Rnd * Screen.Width / Screen.TwipsPerPixelX, Rnd * Screen.Height / Screen.TwipsPerPixelY

abc = abc + 1

If abc = 500 Then MsgBox "我都说过不要打开的啦！" + String(2, Chr(13)) + "你又不相信~~~~~~~~~" + String(2, Chr(13)) + "你看现在就变成这个样子了！唉~~~~~~~~~~~", vbOKOnly, "TZW's Joke": Unload Form1

End Sub

1，高级语言（High-level programming language）相对于机器语言（machine language，是一种指令集的体系。这种指令集，称机器码（machine code），是电脑的CPU可直接解读的数据）而言。是高度封装了的编程语言，与低级语言相对。它是以人类的日常语言为基础的一种编程语言，使用一般人易于接受的文字来表示（例如汉字、不规则英文或其他外语），从而使程序编写员编写更容易，亦有较高的可读性，以方便对电脑认知较浅的人亦可以大概明白其内容。

2，高级语言程序设计是指C/C++,JAVA,VB,VF等程序设计语言，可以让编程者读懂的程序设计语言，机器不能够直接编译；其次是汇编语言，人和机器都可以读懂，机器可以直接编译的语言；最低端的是机器语言，机器可以直接编译但是编程者不以读懂。

3，VB是指Visual Basic。是一种由 Microsoft 公司开发的结构化的、模块化的、面向对象的、包含协助开发环境的事件驱动为机制的可视化程序设计语言。从任何标准来说，VB都是世界上使用人数最多的语言——不管是盛赞VB的开发者还是抱怨VB的开发者的数量。它源自于BASIC编程语言。VB拥有图形用户界面（GUI）和快速应用程序开发（RAD）系统，可以轻易的使用DAO、RDO、ADO连接数据库，或者轻松的创建ActiveX控件。程序员可以轻松的使用VB提供的组件快速建立一个应用程序。

敲代码很好学。

在面向对象的程序设计中，我们把外界的刺激用事件来表示，而把对这个事件的反应称为事件过程。

可视化和事件驱动正是使用VB进行Windows程序设计的精髓所在。事件驱动，即事件发生时，程序才会运行，在没有事件时，整个程序处于停滞状态。事件决定了对象之间的联系。在VB中，事件就是能够被对象识别的动作，如用鼠标单击或双击，键盘输入、鼠标的移动、窗体的载入，还有定时器产生的定时信号。

VB的每个窗体和控件都有一个预定义的事件集，它们能够自动识别属于事件集中的事件，大多数类型的事件是各种控件所共有的，例如命令按钮和窗体都可以对单击、双击和按键这样的事件做出响应，而某些事件只能发生在特定的对象上。 *相同的事件发生在不同的对象上得到的反应是不一样的，造成这种差异是事件过程的缘故，对象对每一个可以识别的事件都有一个事件过程，当事件发生时，会自动执行这个事件的过程。语法如下：

Private Sub 对象名_事件()

处理事件的程序代码

End Sub

在VB程序设计过程中，基本的思想就是改变对象的属性，使用对象的方法和为对象的事件编写事件过程。除非有必要，用户不必为所有的事件编写事件过程，Windows系统会以默认的方式来处理事件。使用VB编写程序的妙处在于：只有当用户要以某种特定方式来响应某个事件时，才有必要针对某个事件的事件过程。

事件驱动程序中典型的事件序列：

启动应用程序，装载并显示窗体，产生Load和Show事件。

窗体或窗体上的控件接收事件。事件可以由用户引发、由系统引发，也可以由代码间接引发。

如果在相应的事件过程中存在代码，则执行代码。

应用程序等待下一次事件。

应用程序中使用一个窗体时，程序开始运行时窗体接收到了Load消息，从而引发了窗体的Load事件，在这个默认的事件过程中，什么语句都没有，这个过程只是调用就结束了，而VB则执行了一个重要的默认 *** 作——把窗体装入内存。

许多事件的发生常常会伴随其它事件发生：双击事件发生时，按下鼠标键、复原鼠标键和单击事件也会发生。

希望我能帮助你解疑释惑。

---