Question

vfp程序设计 Visual FoxPro ①九九乘法表 要求九行九列②利用函数计算梯形面积

Answer 1

CLEAR
SET TALK OFF
FOR i=1 to 9
FOR j=1 to i
s=STR(i*j,6)
@ row(),col() say s
NEXT j
?
NEXT i
FOR i=1 to 9
FOR j=1 to i
  ?? i*j
NEXT j
?
NEXT i
RETURN
***********************************

CLEAR
set talk off
a=3
b=4
h=5
area=f(a,b,h)
? area
RETURN
function f(a,b,h)
f=0.5*(a+b)*h
RETURN(f)