VB程序题(4)

《VB程序题(4)》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、1在窗体Form1中实现函数MarkClass。mark参数为成绩，函数对成绩的评价。成绩评价方法为：90及以上优秀，80及以上良好，70及以上中等，60及以上及格，60以下不及格。PublicFunctionMarkClass(markAsLong)AsString……EndFunctionPublicFunctionmarkclass(markAsLong)AsStringDims$Ifmark>=90Thens="优秀"ElseIfmark>=80Thens="良好"ElseIfmark>=70Thens="中等"ElseIfmark>=60Thens="及格"El

2、se:s="不及格"EndIfmarkclass=sEndFunction2在窗体Form1中实现函数MySgn。当参数x>0时，函数MySgn返回1；当参数x<0时，函数MySgn返回-1；当参数x=0时，函数MySgn返回0。PublicFunctionMySgn(xAsLong)AsLong……EndFunctionPublicFunctionmysgn(xAsLong)AsLongIfx>0Thenmysgn=1ElseIfx=0Thenmysgn=0Elsemysgn=-1EndIfEndFunction3在窗体Form1中实现函数TriangleArea。a,

3、b,c三个参数为三角形三条边，若三边能构成三角形，函数返回三角形面积；否则返回0。提示：海伦公式为：,PublicFunctionTriangleArea(aAsLong,bAsLong,cAsLong)AsDouble……EndFunctionPublicFunctiontrianglearea(aAsLong,bAsLong,cAsLong)AsDoubleDims%,p%p=(a+b+c)/2s=Sqr(p*(p-a)*(p-b)*(p-c))Ifa+b<=cOra+c<=bOrb+c<=aThentrianglearea=0Elsetrianglearea=sEn

4、dIfEndFunction4在窗体Form1中实现函数TriangleClass。a,b,c三个参数为三角形三条边，函数返回三角形的形状。可能的三角形形状为以下4种：等边三角形，等腰三角形，一般三角形，不构成三角形。PublicFunctionTriangleClass(aAsLong,bAsLong,cAsLong)AsString……EndFunctionPublicFunctiontriangleclass(aAsLong,bAsLong,cAsLong)AsStringDims$Ifa+b<=cOrb+c<=aOra+c<=bThens="不构成三角形"Else

5、Ifa=bAnda=cAndb=cThens="等边三角形"ElseIfa=bOra=cOrb=cThens="等腰三角形"Else:s="一般三角形"EndIftriangleclass=sEndFunction5在窗体Form1中实现子程序MaxMin。参数中的a,b,c为三个数，通过max和min将找到的最大值和最小值以参数的形式返回。PublicSubMaxMin(aAsLong,bAsLong,cAsLong,maxasLong,minasLong)……EndSubSubmaxmin(aAsLong,bAsLong,cAsLong,maxAsLong,minAs

6、Long)Ifa>bAnda>cThenmax=aIfb>aAndb>cThenmax=bIfc>bAndc>aThenmax=cIfayThenMax=xElseMax=yEndIfEndFunction

7、7在窗体Form1中实现子程序Swap。Swap功能为：使第一个实参变量为较大值，第二个实参变量为较小值。PublicSubSwap(xAsLong,yAsLong)……EndSubSubswap(xAsLong,yAsLong)DimtAsLongIfx