private sub command1_click()dim n as integer,s as longn=text1.textfor i=1 to n if i mod 3 =0 and i mod 5=0 then s=s+i end if next itext2.text=send subprivate sub command2_click()end end sub已经试过的,可以运行的~ 20210311
private sub command1_click() dim a as integer,b as integer,c as integer randomize a=10+90*rnd b=10+90*rnd c=inputbox(str(a)&"+"&str(b)&"=") if c=a+b then print str(a)&"+"&str(b)&"=;c;msgbox("恭喜你~答对了!e...