visual foxpro程序题两道求详细过程

Question

如题所述

Answer 1

clear
input “输入长方体长：” to L
input “输入长方体宽：” to W
input “输入长方体高：” to H
**求表面积bmj与体积s
bmj=(val(L)*val(W)+val(L)*val(H)+val(W)*val(H))*2
s=val(L)*val(W)*val(H)
? “求长方体表面积结果为：”，bmj
? “求长方体的体积结果为：”，s

**随意输入两个数按从大到小输出
clear
input “请输入第1个数字：” to m1
input “请输入第2个数字：” to m2
s1=max(val(m1),val(m2))
s2=min(val(m1),val(m2))
s=alltrim(str(s1))+”,”+alltrim(str(s2))
？“从大到小输出：”，s