Sub子过程调用程序设计

1、1 返回23 456对对 象象属属 性性属属 性性 值值说说 明明Frame1Frame1CaptionCaption输入三角形的边输入三角形的边长长框架内容框架内容Frame2Frame2CaptionCaption结果结果框架内容框架内容Label1Label1CaptionCaptiona=a=标签内容标签内容Label2Label2CaptionCaptionb=b=标签内容标签内容Label3Label3CaptionCaptionc=c=标签内容标签内容Label4Label4CaptionCaption三角形的面积三角形的面积= =标签内容标签内容Text1Text1TextTe

2、xt空空三角形一边长三角形一边长Text2Text2TextText空空三角形一边长三角形一边长Text3Text3texttext空空三角形一边长三角形一边长Text4Text4TextText空空三角形面积三角形面积Command1Command1CaptionCaption计算计算按钮说明按钮说明Commnad2Commnad2CaptionCaption结束结束按钮说明按钮说明7 8910111213141516 1718 19n辗转相减求最大公约数的算法思想：辗转相减求最大公约数的算法思想：n(1)对于已知两数对于已知两数m，n，如果，如果mn，则，则m=m-n；否则；否则n=n-m

3、；n(2)若若m=n，则，则m为最大公约数结束；否为最大公约数结束；否则执行则执行(1)。n递归调用的思想：递归调用的思想：m,m=nnGcdFun(g,m,n)=GcdFun(g,m-n,n),mnnGcdFun(g,m,n-m),my(j)Andjx(j)Thentmp=x(i)x(i)=x(j)x(j)=tmpEndIf32NextjNextiPrintPrint排序后的数组排序后的数组:输出完成排序的随机整输出完成排序的随机整数数ForEachqInxPrintq;NextqPrintEndSub33 3435对对象象属属性性属属性性值值说说明明LblExpCaption空空显示运算表

4、达式的显示运算表达式的标签标签txtInputText空空输入运算结果的文输入运算结果的文本框本框cmdMarkCaption结束结束“结束程序结束程序”命令命令按钮按钮Text1MultiLineTrue文本框内容多行显文本框内容多行显示示ScrollBars2Vertical垂直滚动栏垂直滚动栏36对对象象属属性性属属性性值值说说明明Frame1Caption答题情况汇答题情况汇总总框架标题内容框架标题内容Label1Caption共答共答标签内容标签内容Label2Caption正确正确标签内容标签内容Label3Caption错误错误标签内容标签内容Label4Caption成绩成绩标签内容标签内容37对对象象属属性性属属性性值值说说明明txttotallText空空输出已答题数的文输出已答题数的文本框本框txtrightText空空输出答题正确率的输出答题正确率的文本框文本框txterrText空空输