求计算机大神帮忙

Question

在给定的数据文件基础上，完成操作，将编写的程序代码复制到建立的word文件中，标清题号。

1. 假设低于1500元（含）免税；1500（不含）元到3000元（含）税率为5%；3000（不含）元到5000元（含）税率为10%；5000（不含）元到10000元（含）税率为20%；超过10000元（不含）税率为30%。编程计算个人所得税税额，其个人收入通过键盘输入。
以下给出部分成绩代码，将程序补充完整并运行程序。
Clear
Input "请输入个人收入数额：" To x
Do Case
Case x<=1500
y=0
Case x<=3000
y=(x-1500)*0.05
Case x<=5000
y=___________________________
Case x<=10000
y=___________________________
Otherwise
y=____________________________
Endcase
? y
Return
2. 编程设计一个可进行加、减、称、除运算的简单计算器。参与运算的两个操作数和计算类型均通过键盘输入；计算的结果显示在Visual FoxPro窗口中。将程序补充完整并运行程序。
Clear
Input "输入第1个计算操作数" to x
Input "输入第2个计算操作数" to y
? "-----------------请选择----------------"
?
? " 1-加运算 2-减运算 3-称运算 4-除运算"
?
? " 0-退出"
? "-----------------请选择----------------"
Wait " " to p
Do Case
Case p=____
ans=x+Y
Case p=____
ans=x-Y
Case p=____
ans=x*Y
Case p=____
If ______
? "除数不能为0"
Return
Else
ans=x/Y
Endif
Case p=____
Return
Endcase
? "计算结果为：",ans
Return
3. 编写程序，实现功能：S=2**2+4**2+6**2+8**2+ …+100**2
4. 编写程序，实现功能：从键盘输入一个小于1000的正数，求出它的平方根。要求数值输入后先判断输入值是否为小于1000的数，若不是，提示重新输入。
5. 编写程序，实现功能：将从键盘输入的字符串逆序输出，如：输入“abcdef”，输出“fedcba”。

Answer 1

  假设低于1500元（含）免税；1500（不含）元到3000元（含）税率为5%；3000（不含）元到5000元（含）税率为10%；5000（不含）元到10000元（含）税率为20%；超过10000元（不含）税率为30%。编程计算个人所得税税额，其个人收入通过键盘输入。
以下给出部分成绩代码，将程序补充完整并运行程序。
Clear
Input "请输入个人收入数额：" To x
Do Case
Case x<=1500
y=0
Case x<=3000
y=(x-1500)*0.05
Case x<=5000
y=_____1500*0.05+(x-3000)*0.1_____________
Case x<=10000
y=___1500*0.05+2000*0.1+(x-5000)*0.2____
Otherwise
y=__1500*0.05+2000*0.1+5000*0.2+(x-10000)*0.3_
Endcase
? y
Return
2.  编程设计一个可进行加、减、称、除运算的简单计算器。参与运算的两个操作数和计算类型均通过键盘输入；计算的结果显示在Visual FoxPro窗口中。将程序补充完整并运行程序。
Clear
Input "输入第1个计算操作数"  to  x
Input "输入第2个计算操作数"  to  y
?  "-----------------请选择----------------"
?
?  " 1-加运算  2-减运算  3-称运算  4-除运算"
?
?  "                0-退出"
?  "-----------------请选择----------------"
Wait "  " to p
Do Case
Case  p=_"1"___
ans=x+Y
Case  p=_"2"_
       ans=x-Y
Case  p=_"3"_
       ans=x*Y
Case  p=_"4"_
       If  _y=0__
           ? "除数不能为0"
           Return
Else
ans=x/Y
Endif
Case  p=_"0"_
       Return
Endcase
? "计算结果为：",ans
Return
3.       编写程序，实现功能：S=2**2+4**2+6**2+8**2+ …+100**2

s=0

i=2

do while i<=100

  s=s+i**2

  i=i+2

enddo

?s

4.       编写程序，实现功能：从键盘输入一个小于1000的正数，求出它的平方根。要求数值输入后先判断输入值是否为小于1000的数，若不是，提示重新输入。

x=-1

do while x<0 .or. x>1000

  input "请输入1个小于1000的正数：" to x

enddo

?x,"的平方根是:",sqrt(x)

5.       编写程序，实现功能：将从键盘输入的字符串逆序输出，如：输入“abcdef”，输出“fedcba”。

a="abcdef"

b=""

k=LEN(a)

i=k

do while i>=1

  c=subs(a,i,1)

  b=b+c

  i=i-1

enddo

? b