在窗體上放一個命令按紐，計算結果將在窗體上輸出，代碼如下（直接拷貝）

PrivateSubCommand1_Click()

DimaAsInteger,bAsInteger,cAsInteger

a=2

b=4

c=6

nna,b,c

EndSub

Subnn(aAsInteger,bAsInteger,cAsInteger)

DimiAsInteger,jAsInteger,kAsInteger,s1AsInteger,s2AsInteger,s3AsInteger

s1=1

s2=1

s3=1

Fori=1Toa

s1=s1*i

Nexti

Forj=1Tob

s2=s2*j

Nextj

Fork=1Toc

s3=s3*k

Nextk

Print"2!+4!+6!="&s1+s2+s3

EndSub