vfp 任意输入三角形的三条边

#includedoubletriangle(doublea,doubleb,doublec){if(a+b>c&&b+c>a&&a+c>b)return1;elsereturn0;}doublede

定义一个command四个label四个text.具体属性为command.caption=计算label1.caption=第一条边的长度：label2.caption=第二条边的长度:label3

input"输入N值："tons=1FORi=1TOna=1\x05FORj=1TOi\x05a=a*j\x05ENDFOR\x05s=s+aENDFOR"1!+2!+3!+...+n!="+ALLT

clearinput"请输入第1个数："toak=afori=2to4input"请输入第"+alltrim(str(i))+"个数："tobifabk=bendifendfor"其中最大的数是：",

clears=0input'请输入一个正整数：'toxfori=1toxifi%20&&判断i是否为奇数s=s+iendifendfor's=',sreturn（此题是求和问题,循环和用循环语句,因知

DATE()函数将返回当前的系统日期.包含可选参数将返回与2000年兼容的日期值.有关创建与2000年兼容的日期值的详细内容,请参阅《MicrosoftVisual

数值型的直接相减就行字符型的用val()转换成字符型再减

加入将TEXT1文本框中的值输出到TEXT2文本框,代码为：THISFORM.TEXT2.VALUE=THISFORM.TEXT1.VALUE

#include#includevoidmain(){inta,b,c;//定义三角形三边长scanf("%d%d%d",&a,&b,&c);//输入三边长,为整形doublep=(a+b+c)/2.

n=1sum=0dowhiln

clears=0a="y"dowhilea="y"ora="Y"input"请输入一个数："toxs=s+xwait"是否继续输入数据(Y/N)?"toaenddo?"它们的和是：",s

Functionthird(a,b,c){if(a>0&&b>0&&c>0){if(a==b&&b==c)return("等边三角形");elseif(a==b||b==c||a==c)return(

k=1s=""zh=0input"请输入你要比较的数的个数（必须大于1）："top&dowhilk再问：settalkoffclearinput"一共要比较几个数:"toninput"请输入一个数"t

importjava.util.Scanner;publicclassTest{\x09publicstaticvoidmain(String[]args){\x09\x09Scannersca=ne

PublicFunctionArea(aAsDouble,bAsDouble,cAsDouble)AsDoubleIfa+bMSGBOX"要求任意两边之和大于第三边"ExitFunctionendif

CLEARaccept"请输入N值："TONs=1FORi=1TOVAL(n)IFMOD(i,2)=0s=s*iENDIFENDFOR?"1——N中的所有偶数的积为："+ALLTRIM(STR(s))

CLEARaaa="1,2,3,4,5,-1,-2,-3,-4,0"&&aaaa为您输入的那组数字,用逗号隔开lncount=Getwordcount(aaa,",")k=0j=0Fori=1Toln

替换的应该是总分吧,是将高数+英语的和替换到总分字段中去.

clearinput"请输入一个数："ton?"这些质数有："s=0fori=2tonx=0forj=2toi-1ifi/j=int(i/j)x=1endifendforifx=0?alltrim(s

SETTALKOFFCLEARCLOSEALLSTORE0TOl,j,kFORi=1TO20input"pleaseinputanumber:"toaIFa>0l=l+1ELSEIFa=0j=j+1E