?? 情書生成器.bas
字號(hào):
Attribute VB_Name = "Module1"
Public textA As String '您女友的芳名:
Public textB As String '形容一下她的頭發(fā):
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 '是否以實(shí)際日期 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 內(nèi)容 As String
Public LoadFrom9 As Boolean
Public loadDay As Boolean
Public LoadStop1 As Boolean
Public loadDayture As Boolean
Option Explicit
Function 加載內(nèi)容()
內(nèi)容 = "Dear " & textA
內(nèi)容 = 內(nèi)容 & Chr(13) & Chr(10) & " 我的寶貝,你可知道,"
內(nèi)容 = 內(nèi)容 & Chr(13) & Chr(10) & " 我是多么的愛你。"
內(nèi)容 = 內(nèi)容 & Chr(13) & Chr(10) & " 你那" & textB & ",它是那樣的令人陶醉,"
內(nèi)容 = 內(nèi)容 & Chr(13) & Chr(10) & " 更不用說你那對(duì)" & textC & ","
內(nèi)容 = 內(nèi)容 & Chr(13) & Chr(10) & " 它讓我如此的癡迷,"
內(nèi)容 = 內(nèi)容 & Chr(13) & Chr(10) & " 就好象一汪秋水頻頻蕩漾,又似夜晚的繁星點(diǎn)點(diǎn)閃亮。"
內(nèi)容 = 內(nèi)容 & Chr(13) & Chr(10) & " 但最令我瘋狂的,還是你那" & textD & ","
內(nèi)容 = 內(nèi)容 & Chr(13) & Chr(10) & " 它總是充滿了誘惑,讓我產(chǎn)生犯罪的念頭,"
內(nèi)容 = 內(nèi)容 & Chr(13) & Chr(10) & " 每當(dāng)我有意或無意間輕觸到它的時(shí)候,我的全身便燃起了熊熊烈火。"
內(nèi)容 = 內(nèi)容 & Chr(13) & Chr(10) & " 請(qǐng)饒恕我的口不擇言,我是如此瘋狂地愛著你。"
內(nèi)容 = 內(nèi)容 & Chr(13) & Chr(10)
內(nèi)容 = 內(nèi)容 & Chr(13) & Chr(10) & " 如果你認(rèn)為我僅僅是愛你的外表,那么你錯(cuò)了,"
內(nèi)容 = 內(nèi)容 & Chr(13) & Chr(10) & " 你是如此的" & textE
內(nèi)容 = 內(nèi)容 & Chr(13) & Chr(10) & " 這些才是我愛你的真正原因。"
內(nèi)容 = 內(nèi)容 & Chr(13) & Chr(10)
內(nèi)容 = 內(nèi)容 & Chr(13) & Chr(10) & " 啊,我的寶貝,救救我這顆已被神箭射穿的心靈吧!"
內(nèi)容 = 內(nèi)容 & Chr(13) & Chr(10) & " 讓我們珍惜這份情緣,"
內(nèi)容 = 內(nèi)容 & Chr(13) & Chr(10) & " 攜起手來,"
內(nèi)容 = 內(nèi)容 & Chr(13) & Chr(10) & " 一起走向永遠(yuǎn),永遠(yuǎn)......"
內(nèi)容 = 內(nèi)容 & Chr(13) & Chr(10) & "愛你的,"
內(nèi)容 = 內(nèi)容 & Chr(13) & Chr(10) & " " & textF
If textG = True Then
If textL = False Then
內(nèi)容 = 內(nèi)容 & Chr(13) & Chr(10) & textH
Else
內(nèi)容 = 內(nèi)容 & Chr(13) & Chr(10) & " " & CStr(Now)
End If
End If
End Function
?? 快捷鍵說明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號(hào)
Ctrl + =
減小字號(hào)
Ctrl + -