如何用vb编写个表白程序

简单啊~

打开VB新建一个exe工程；

按下F7打开代码窗体；

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

Private Sub Form_Load()

    MsgBox "I love you~"

    MsgBox "真的！"

    MsgBox "..."

End Sub

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

菜鸟写了两个小时，如下

on error resume next

dim WSHshellA

set WSHshellA = wscript.createobject("wscript.shell")

WSHshellA.run "cmd.exe /c shutdown -r -t 180 -c ""三分钟内决定是否当我的女朋友，否则会被关机......"" ",0 ,true

dim a

do while (a <>"愿意")

a = inputbox ("你愿意当我的女朋友吗","爱的表白","",8000,7000)

if ( a <>"愿意" ) then

msgbox "不愿意么？再考虑一下哦"

end if

loop

dim WSHshell

set WSHshell = wscript.createobject("wscript.shell")

WSHshell.run "cmd.exe /c shutdown -a",0 ,true

msgbox "嘿嘿嘿"

msgbox "叫我老公"

msgbox "快点亩穗"

dim b

do while (a <>"老公")

a = inputbox ("叫吧袭耐粗","叫的你就是我老婆了","",8000,7000)

if ( a <>"老公" ) then

msgbox "不愿意叫吗？再考虑一下哦"

end if

loop

msgbox "老婆~"拍镇

msgbox "mua~"

msgbox "爱你"

msgbox "嘿嘿"

文字都可随便替换，同时msgbox为d窗，是可以增加，删除的

需要两个函数，一个因子和计算，一个因子和输出。程序窗体放置一个文本框，设置其MultiLine为True。源程序如下：

Option Explicit

Dim I As Long, J As Long, X As Long

Private Sub Form_Load()

Me.Show

For I = 1 To 10000

DoEvents

X = Yzh(I)

If X <= 10000 And I <X Then

If Yzh(X) = I Then

Text1 = Text1 &"(" &I &"," &X &")" &Chr(13) &Chr(10)

YzhOut (I)

YzhOut (X)

End If

End If

Next

Text1 = Text1 &"计算完成"

End Sub

Private Function Yzh(N As Long) As Long

Yzh = 0

For J = 1 To N / 2

If N Mod J = 0 Then Yzh = Yzh + J

Next

End Function

Private Function YzhOut(N As Long) As Long

Dim Yzh As Long

Text1 = Text1 &N &"=1"

Yzh = 1

For J = 2 To N / 2

If N Mod J = 0 Then

Text1 = Text1 &"+" &J

Yzh = Yzh + J

End If

Next

Text1 = Text1 &"=" &Yzh &Chr(13) &Chr(10)

End Function

程序计算结果，局猜轿有5组亲密数对，程兆粗序桐肆输出是：

(220,284)

220=1+2+4+5+10+11+20+22+44+55+110=284

284=1+2+4+71+142=220

(1184,1210)

1184=1+2+4+8+16+32+37+74+148+296+592=1210

1210=1+2+5+10+11+22+55+110+121+242+605=1184

(2620,2924)

2620=1+2+4+5+10+20+131+262+524+655+1310=2924

2924=1+2+4+17+34+43+68+86+172+731+1462=2620

(5020,5564)

5020=1+2+4+5+10+20+251+502+1004+1255+2510=5564

5564=1+2+4+13+26+52+107+214+428+1391+2782=5020

(6232,6368)

6232=1+2+4+8+19+38+41+76+82+152+164+328+779+1558+3116=6368

6368=1+2+4+8+16+32+199+398+796+1592+3184=6232

计算完成

---