VB程序 function过程调用举例.doc

《VB程序 function过程调用举例.doc》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、(例题)Function过程调用求数组a中的偶数和的开平方（x）与基数和的开平方（y）的乘积PrivateSubCommand1_Click()a=Array(3,8,6,11,64,13,24,9,42,35,22)'**********found*************''请不要删除该行，只在下一行中填空'y=f1(a)PrintyEndSubPrivateFunctionf1(B)x=0y=0Fork=0To10'**********found*************''请不要删除该行，只在下一行中填

2、空'IfkMod2=0Thenx=x+B(k)Elsey=y+B(k)EndIfNextkf1=Sqr(x)*Sqr(y)EndFunction