如何用vb编写个表白程序

简单啊~

打开VB新建一个exe工程；

按下F7打开代码窗体；

写入以下代码并生成exe发送给对方即可。

Private Sub Form_Load()

    MsgBox "I love you~"

    MsgBox "真的！"

    MsgBox "..."

End Sub

MsgBox请自由更改以及添加，想说多少加多少。

首先你要准备一个玫瑰花图片文件，要小一点。

然后在窗体上放12个Image控件，组成一个控件数组，摆成心形，Picture属性设置为你的玫瑰花。Visibel属性全部设置为False。

在窗体上放一个Timer控件。Interval属性设置为1000，每秒显示一朵玫瑰花。

OK！你的心愿完成了！

Private Sub Form_Load()

For i = 0 To 11

    Image1(i).Picture = LoadPicture(App.Path + "\西安绿博园七彩玫瑰.jpg")

Next

Timer1.Enabled = True

End Sub

Private Sub Timer1_Timer()

    Static i As Integer

    Image1(i).Visible = True

    i = i + 1

    If i = Image1.Count Then

        Label1.Visible = True

        Timer1.Enabled = False

    End If

   

End Sub

---