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已经试过的,可以运行的...
方法一:private sub command1_click() form1.cls dim i1 as integer, i2 as integer, i3 as integer, i4 as integer, i5 as integer dim cl**t as string for i1 = 65 to 70 for i2 = i1 + 1 to 70 ...