DO WHILE X<10 Ⅹ=X+1 IFINT(/2)X/2 Y=Y+1 ENDIF ENDDO 7、下列的程序实现了一个圆环面积的计算并输出结果。其中,圆面积计算代码按自定义函数形 式组织,函数名为AREA,要求在画线处填上适当的程序代码 主程序三三三三三三三=三三=== NPUT“请输入大圆的半径:”ToR1 NPUT“请输入小圆的半径:"TOR2 S=AREA(R1)-AREA(R2) &调用函数AREA ?圆环的面积:"+ RETURN ==三====完成圆面积计算的自定义函数=三三三三= FUNCTION AREA(R) s=P()*R^2 ENDFUN 六、编程(共15分) 1、编写程序,统计1~-100之间所有能被7又能被3整除的整数的个数。(5分) 2、编写程序实现从键盘上输入正整数N,计算11+2!+…+N。要求N的阶乘计算代码按函数 的形式来组织,过程名为JC,请写出完整的程序代码。(5分) 3、若设计如下图所示的求解一元二次方程根的表单程序,其中方程的三个参数从表单的文本框 TextI、Text2、Text3)中输入,单击“求解”按钮求实数根,所求实数根显示在文本框(Text4 和Text5)中。(5分)X=0 Y=0 DO WHILE X<10 X=X+1 IF INT(X/2)<>X/2 Y=Y+1 ENDIF ENDDO ?Y 7、下列的程序实现了一个圆环面积的计算并输出结果。其中，圆面积计算代码按自定义函数形 式组织，函数名为 AREA，要求在画线处填上适当的程序代码。 * ============= 主程序 ============= INPUT “请输入大圆的半径：” TO R1 INPUT “请输入小圆的半径：” TO R2 S=AREA(R1)-AREA(R2) &&调用函数 AREA ?”圆环的面积：”+ RETURN *=======完成圆面积计算的自定义函数======== FUNCTION AREA(R) S=PI( )*R^2 ENDFUN 六、编程（共 15 分） 1、编写程序，统计 1~100 之间所有能被 7 又能被 3 整除的整数的个数。（5 分） 2、编写程序实现从键盘上输入正整数 N，计算 1!+2!+……+N!。要求 N 的阶乘计算代码按函数 的形式来组织，过程名为 JC，请写出完整的程序代码。（5 分） 3、若设计如下图所示的求解一元二次方程根的表单程序，其中方程的三个参数从表单的文本框 (Text1、Text2、Text3)中输入，单击“求解”按钮求实数根，所求实数根显示在文本框（Text4 和 Text5）中。（5 分）