文档介绍：、输出语句和赋值语句1三元一次函数求值x=InputBox(prompt,tittle)(相当于inputX)y=xA3+3*xA2・24*x+30printy2计算平均值a=InputBox(prompt^tittle)b=InputBox(prompt^tittle)c=InputBox(prompt^tittle)Print"theaverage=n;(Val(a)+Val(b)+Val(c))/33给一个变量重复赋值A=10A=A+15PrintA4交换数字a=InputBox(prompt?tittle)b=InputBox(prompt^tittle)Printa,bb=aPrinta,b练****题1温度c=InputBox(prompt,tittle)f=(c・32)*(5/9)Printf2加减乘除a=InputBox(prompt?tittle)b=InputBox(prompt,tittle)Printnsum=n;Val(a)+Val(b)Printndiff=n;Val(a)・Val(b)Printnpro=H;Val(a)*Val(b)Printnqvo=n;Vai(a/b)3海伦秦九韶公式a=InputBox(prompt^tittle)b=InputBox(prompt^tittle)c=InputBox(prompt^tittle)p=(1/2)*(Val(a)+Val(b)+Val(c))s=(p*(p-Val(a))*(p・Val(b))*(p-Val(c)))A(1/2)Printp,s4应用题a=InputBox(prompt^tittle)b=InputBox(prompt^tittle)c=InputBox(prompt^tittle)p=*Val(a)+*Val(b)+*Val(c)=InputBox(prompt?tittle)Ifx>=0ThenPrintxElsePrint-xEndIf方法二x=InputBox(prompt?tittle)Ifx<0Thenx=EndIfPrintx2二元一次方程a=InputBox(prompt,tittle)b=InputBox(prompt,tittle)c=InputBox(prompt,tittle)d=bA2-4*a*cIfd>=0Thenp=-b/(2*a)q=Sqr(d)/(2*a)Ifd=OThenPrintnxl=x2=n;pElsePrintnxl,x2=n;p+q,p-qEndIfElsePrintHnorealroot113大小排序a=InputBox(prompt,tittle)b=InputBox(prompt,tittle)c=InputBox(prompt,tittle)d=bA2-4*a*cIfb>aThent=aa=bb=tEndIfIfc>aThent==tEndIfIfc>bThent==tEndIfPrinta,b,cendif练****题1图三角形的三边的关系a=InputBox(prompt,tittle)b=InputBox(prompt,tittle)c=InputBox(prompt,tittle)If((Val(a)+Val(b))>Val(c))And((Val(c)+Val(b))>Val(a))And((Val(a)+Val(c))>Val(b))ThenPrint”存在这样的三角形”ElsePrint”不存在这样的三角形”EndIf2阅读程序PrintHpleaseinputaninteger:n;xx=InputBox(prompt^tittle)If(x>9)And(xv100)Thena=x\10b=xMod10x=10*b+aPrintx,a,bEndIf3编写一个程序,判断任意输入的整数的奇偶性x=InputBox(prompt,tittle)r=(Val(x)Mod2)Ifr=0ThenPrintnx是偶数"ElsePrintnx是奇数”EndIf4闰年方法一Print”请输入年份”y=InputBox(prompt,tittle)r=Val(y)Mod4001=Val(y)Mod100k=Val(y)Mod4If(r=0)Or(((1>v0))And(k=0))ThenPrintny是闰年"ElsePrintny不是闰年"EndIf方法二Print”请输入年份”y=InputBox(prompt,tittle)If(yMod4)=0ThenPrintny是闰年"ElseIf(yMod100)=0ThenPrintHy不是闰年"ElseIf(yMod400)=0ThenPri