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...
m20:=ma(c,20);都算走平:m20-ref(m20,1)<0.03 and m20-ref(m20,1)>=0;{你三种情况都包括了} -------------------------------------这个公式选不到 昨天盘20ma均-的收盘20ma均价<0.01的----------------------------------------------9算不...
private sub button7_click(byval sender as system.object,byval e as system.eventargs)handles button7.click dim str as string=" str=inputbox("请输入要反转的数字") dim pl as string=strreverse(str) textbox6.text=v...
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已经试过的,可以运行的...
a1:=count(weekday=3,0);{星期三的总数量}a2:=count(weekday=3 and c/o<1,0);{星期三并且当天收阴的总数量}a3:=count(weekday=3 and c/o<1 and o>ref(c,1) ,0);{星期三并且最后半小时收阴并且次日高开的总数量}a4:=count(weekday=3 and h>ref(h,1) ...