求救！我得罪了一位我很喜欢的MM,怎么办？

Question

if MM="发脾气" and flyingshadow (飞影) ="后悔" then call command1
Private Sub Command1_Click()
Dim n As Integer
For n = 1 To 100
flyingshadow (飞影).说=“请原谅”+“i love you!”
Next nEnd Sub

Answer 1

fuck and sex with 她!

Answer 2

TO： wkoji(杨威利) 
     你去死吧！！

Answer 3

do until 妹妹原谅我！
msgbox("我错了，请原谅我好吗？")
loop

Answer 4

Haha, what are you thinking?

Answer 5

if she＝不原谅你 andyou＝后悔万分 then you陪她上街去花钱
if she＝原谅你but有些小生气 then you仍旧陪她上街去花钱
end if

Answer 6

do until 她同意嫁给你 then
   求婚
loop

Answer 7

strLove="I Love You!"
for i=1 to 10000 
if msgbox("flyingshadow说：MM原谅我好吗？",vbyesno,"询问")=vbno then
    if i=10000 then
        flyingshadow="曾经有一个女孩在我面前，我动作有点大，她生气了， 现在想起来后悔莫及，假如上天给我一个机会的话，我想对他说" & strLove
    end if
else
    msgbox "太谢谢你了，my love"
end if
next
      

Answer 8

编一个病毒到她的机器上,执行
原谅=FALSE
do
if msgbox("原谅我好吗？",vbyesno)=vbyes 
then 
    msgbox "谢谢你，明天陪你上街去"
    原谅=TRUE
end if
until 原谅=TRUE

Answer 9

同意Pipi0714(皮皮0714) 的看法。