用VB编写一个欢迎程序

'新建一个窗体，上面插入label标签，并插入两个check复选框

Private Sub Check1_Click()

If Check1Value = 1 Then Label1FontBold = True Else Label1FontBold = False

End Sub

Private Sub Check2_Click()

If Check2Value = 1 Then Label1FontItalic = True Else Label1FontItalic = False

End Sub

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

Option Explicit

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

Private Sub Form_Load()

MeShow

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

计算完成

'定义常量

const yourname = "yumiko886"

const title = "爱情测试"

const question = "你最喜欢的人是谁？请在下面的方框中输入他（她）的名字。"

const info = "你在说谎！不要逃避，实话实说。"

const scend = "你说出了你的心扉，那就向他（她）表白吧!"

'定义变量

dim youranswer

'判断输入是否等于yumiko886不是则循环

do

youranswer = inputbox(question, title)

if youranswer <> yourname then msgbox info, vbinformation+vbokonly, title

loop until youranswer = yourname

msgbox scend, vbinformation+vbokonly, title

可以预先定义一组数组作为惩罚方式的“惩罚组”方式是在通用声明中加入：

dim cf（0 to n）as string 有多少种惩罚方式就把这里的n改成多少

cf(0)= 这里填入惩罚方式

然后

要随机生成惩罚方式就写入：

i= Int(Rnd 10)

label1caption=cf(i)

最后清楚内存数据

set cf()= nothing

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

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

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

OK！你的心愿完成了！

Private Sub Form_Load()

For i = 0 To 11

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

Next

Timer1Enabled = True

End Sub

Private Sub Timer1_Timer()

    Static i As Integer

    Image1(i)Visible = True

    i = i + 1

    If i = Image1Count Then

        Label1Visible = True

        Timer1Enabled = False

    End If

End Sub