情书生成器源代码

Attribute VB_Name = "Module1"
Public textA As String '您女友的芳名:
Public textB As String '形容一下她的头发:
Public textC As String '描述一下她的眼睛:
Public textD As String '最性感的部位:
Public textE As String '描述她的性格:
Public textF As String '最后是您的大名:
Public textG As Boolean '是否要生成日期 True为要生成
Public textH As String '自定义日期
Public textL As Boolean '是否以实际日期 true为要生成
Public commandA As Boolean
Public commandB As Boolean
Public commandC As Boolean
Public commandD As Boolean
Public commandE As Boolean
Public commandF As Boolean
Public commandG As Byte
Public commandH As Boolean
Public 内容 As String
Public LoadFrom9 As Boolean
Public loadDay As Boolean
Public LoadStop1 As Boolean
Public loadDayture As Boolean
Option Explicit

Function 加载内容()
内容 = "Dear " & textA
内容 = 内容 & Chr(13) & Chr(10) & "    我的宝贝，你可知道,"
内容 = 内容 & Chr(13) & Chr(10) & "    我是多么的爱你。"
内容 = 内容 & Chr(13) & Chr(10) & "    你那" & textB & ",它是那样的令人陶醉，"
内容 = 内容 & Chr(13) & Chr(10) & "    更不用说你那对" & textC & "，"
内容 = 内容 & Chr(13) & Chr(10) & "    它让我如此的痴迷,"
内容 = 内容 & Chr(13) & Chr(10) & "    就好象一汪秋水频频荡漾，又似夜晚的繁星点点闪亮。"
内容 = 内容 & Chr(13) & Chr(10) & "    但最令我疯狂的，还是你那" & textD & "，"
内容 = 内容 & Chr(13) & Chr(10) & "    它总是充满了诱惑，让我产生犯罪的念头，"
内容 = 内容 & Chr(13) & Chr(10) & "    每当我有意或无意间轻触到它的时候，我的全身便燃起了熊熊烈火。"
内容 = 内容 & Chr(13) & Chr(10) & "    请饶恕我的口不择言，我是如此疯狂地爱着你。"
内容 = 内容 & Chr(13) & Chr(10)
内容 = 内容 & Chr(13) & Chr(10) & "    如果你认为我仅仅是爱你的外表，那么你错了，"
内容 = 内容 & Chr(13) & Chr(10) & "    你是如此的" & textE
内容 = 内容 & Chr(13) & Chr(10) & "    这些才是我爱你的真正原因。"
内容 = 内容 & Chr(13) & Chr(10)
内容 = 内容 & Chr(13) & Chr(10) & "    啊，我的宝贝，救救我这颗已被神箭射穿的心灵吧！"
内容 = 内容 & Chr(13) & Chr(10) & "    让我们珍惜这份情缘，"
内容 = 内容 & Chr(13) & Chr(10) & "    携起手来，"
内容 = 内容 & Chr(13) & Chr(10) & "    一起走向永远，永远......"
内容 = 内容 & Chr(13) & Chr(10)
内容 = 内容 & Chr(13) & Chr(10) & "爱你的，"
内容 = 内容 & Chr(13) & Chr(10) & "        " & textF
If textG = True Then
    If textL = False Then
        内容 = 内容 & Chr(13) & Chr(10) & textH
    Else
        内容 = 内容 & Chr(13) & Chr(10) & "                                                 " & CStr(Now)
    End If
End If
End Function