子程序ab: 生成ab cls print a; “+”; b ;“=” 主程序: point=0 x=0 i=1 for i= 1 to 10 if x=0 then 调用 子程序ab then if x>1 then 调用 子程序ab x=0 i=i+1 end if c=inpotbox.text if a+b=c then if x=0 then point=point+10 else point=point+5 end if x=0 i=i+1 else x=x+1 end if next i print "总分=";point
楼上错了 改为 子程序ab: 生成ab cls print a; “+”; b ;“=” 主程序: point=0 x=0 i=1 for i= 1 to 10 if x=0 then 调用 子程序ab then if x>1 then x=0 i=i+1 next i end if 使用inputbox为c赋值 if a+b=c then if x=0 then point=point+10 else point=point+5 end if x=0 i=i+1 else x=x+1 end if next i print "总分=";point