在线速求两个VB程序代码

一个是从1+2+3+4+5 一直+到N

N是可以自定义的

另一个是创建一个登陆程序，用户名和密码都是111，密码错误超过三次锁定。

速求，谢谢

sum=(1+N)*(N/2)

第二

dim a$

if text1.text="111" and text2.text="111" then

msgbox "成功"

else

a=a+1

if a>=3 then

text1.enabled=false

text2.enabled=false

timer1.enabled=true

timer1.interval=1000

end if

end if

private sub timer1_timer()

static a as integer

a=a+1

if a>=1800 then

text1.enabled=true

text2.enabled=true

a=0

timer1.enabled=false

end if

end sub

第一个的：

 dim n as integer

n=inputbox("N=")

s=0

for i=1 to n

     s=s+i

next i

print s

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息