急！！！求VF高手速度解决！！

Question

1编写程序计算三角形的面积，三角形底长X和三角形高Y的值由键盘输入。
提示：掌握其他形状如长方形、圆形等面积的计算方法。
2编写程序判断输入的数值是否为奇数，输入的数值用input语句送到变量X中，如果X是奇数，则输出字符串“X是奇数”，否则，则输出字符串“X是偶数”。
提示：掌握判断输入的数值是否为偶数的方法。
3编写程序计算下列函数值，变量X的值由键盘输入，最后输出Y。
sin(x) (x<1)
y= 2*x-1 (1<=x<10)
3*x-11 (x>=10)
4.编写程序计算1—500之间所有的数据的和。
5.交互输入一个成绩(0－100)，如果成绩在90分以上，显示“优秀”；如果成绩在75－89之间，显示“良好”；如果成绩在60－74之间，显示“及格”；如果成绩在0-59分，显示“不及格”；若成绩不在所有范围内，则显示“成绩无效”。
6．编写程序判断输入数值的阶乘，输入的数值用input语句送到变量N中。
7. 统计自然数N从1到50所有奇数的和(用do while循环实现)。
正确后会采纳为最佳

Answer 1

1编写程序计算三角形的面积，三角形底长X和三角形高Y的值由键盘输入。
提示：掌握其他形状如长方形、圆形等面积的计算方法。
clear
set talk off
input "请输入三角形的底边长:" to x
input "请输入此三角形的高：" to y
s=x*y/2
?"此三角形面积是：" ,s
set talk on
cancel

2编写程序判断输入的数值是否为奇数，输入的数值用input语句送到变量X中，如果X是奇数，则输出字符串“X是奇数”，否则，则输出字符串“X是偶数”。
提示：掌握判断输入的数值是否为偶数的方法。
clear
set talk off
input "请输入任意一个数：" to x
if mod(x,2)=0
?"X是偶数"
else
?"X是奇数"
endif
set talk on
cancel

3编写程序计算下列函数值，变量X的值由键盘输入，最后输出Y。
sin(x) (x<1)
y= 2*x-1 (1<=x<10)
3*x-11 (x>=10)
clear
set talk off
input "x=" to x
if x<1
y=sin(x)
else
if x<10
y=2*x-1
else
y=3*x-11
endif
endif
?"y=",y
set talk on
cancel

4.编写程序计算1—500之间所有的数据的和。
clear
set talk off
s=0
for i=1 to 500
s=s+i
endfor
?"s=",s
set talk on
return

5.交互输入一个成绩(0－100)，如果成绩在90分以上，显示“优秀”；如果成绩在75－89之间，显示“良好”；如果成绩在60－74之间，显示“及格”；如果成绩在0-59分，显示“不及格”；若成绩不在所有范围内，则显示“成绩无效”。
clear
set talk off
input "输入一个成绩经：" to cj
do case
case x<=0 or x>100
?"成绩无效"
case x>=90
?"优秀"
case x>=74
?"良好"
case x>=60
?"及格"
otherwise
?"不及格"
endcase
set talk on
return
6．编写程序判断输入数值的阶乘，输入的数值用input语句送到变量N中。
clear
set talk off
input "n=" to n
p=1
for i=1 to n
p=p*i
endfor
?"n!=", p
set talk on
return
7. 统计自然数N从1到50所有奇数的和(用do while循环实现)。
clear
s=0
n=1
do while n<50
s=s+n
n=n+2
endfor
?"1到50所有奇数的和是：" ,s
set talk on
return

追问

你的QQ号码多少，可以详细讨论下吗

追答

发现误写了几行。
5.交互输入一个成绩(0－100)，如果成绩在90分以上，显示“优秀”；如果成绩在75－89之间，显示“良好”；如果成绩在60－74之间，显示“及格”；如果成绩在0-59分，显示“不及格”；若成绩不在所有范围内，则显示“成绩无效”。
clear
set talk off
input "输入一个成绩：" to x （这行变量有改动)
do case
case x100 （此行刚才多打了一个=）
?"成绩无效"
case x>=90
?"优秀"
case x>=74
?"良好"
case x>=60
?"及格"
otherwise
?"不及格"
endcase
set talk on
return

7. 统计自然数N从1到50所有奇数的和(用do while循环实现)。
clear
s=0
n=1
do while n<50
s=s+n
n=n+2
enddo (刚才这行写错了)
?"1到50所有奇数的和是：" ,s
set talk on
return

追问

我学的是计算机二级 VF，你写的set talk on
return 完全没见过

追答

return
是返回上一级程序的调用处。常用于子程序末尾返回上一级主程序用。但如果没有调用主程序，则是结束程序运行。这是很常用的程序结束命令。还有一个cancel也是结束程序的运行。

set talk off
set talk on
是关闭和打开会话状态。

都是VF 中最常用的命令。

追问

我学的是大学计算机二级vf，总觉得你的看不懂。。。

追答

我只能告诉你，我写得是正确的。看不懂就没办法了。所有程序中的clear 、set talk off 、set talk on 、return你可以不写。有些不会影响程序的结果，但一个完整的规范程序它们应该写上。