Visual Basic 程序设计题

《Visual Basic 程序设计题》由会员上传分享，免费在线阅读，更多相关内容在工程资料-天天文库。

1、【编号:1】'-------------------------------------------------'【程序设计】'-------------------------------------------------'题目：(事件)单击窗体。'(响应)求闭区间[1..m]上所有偶数之积，并将结果输'出在窗体上。m是大于1的自然数，例如m=10，则输出3840'-------------------------------------------------PrivateFunctionfun(mAsInteger)AsDouble'***

2、***begin******'******end******EndFunctionPrivateSubForm_Click()Printfun(10)TestFuncEndSubPrivateSubTestFunc()DimfInAsIntegerDimfOutAsIntegerDimiAsIntegerDimtAsIntegerDimjAsIntegerDimlAsIntegerDima(10)AsString,bAsStringfIn=FreeFileOpenApp.Path&"in.dat"ForInputAs#fInfOut=FreeFi

3、leOpenApp.Path&"out.dat"ForOutputAs#fOutFori=1To3LineInput#fIn,a(i)b=""Forj=1ToLen(a(i))t=Asc(Mid(a(i),j,1))Xor10b=b&Chr(t)Nextl=Val(b)Print#fOut,fun(l)NextClose#fInClose#fOutEndSub参考答案:DimsumAsDoubleDimiAsIntegersum=1#Fori=1TomIfiMod2=0Thensum=sum*iEndIfNextfun=sum【编号:2】'---

4、----------------------------------------------'【程序设计】'-------------------------------------------------'题目：(事件)单击窗体。'(响应)求闭区间[1..m]上所有奇数的和，并将结果输'出在窗体上。m是大于1的自然数，例如m=100，则输出2500'-------------------------------------------------PrivateFunctionfun(mAsInteger)AsLong'******begin***

5、***'******end******EndFunctionPrivateSubForm_Click()Printfun(100)TestFuncEndSubPrivateSubTestFunc()DimfInAsIntegerDimfOutAsIntegerDimiAsIntegerDimtAsIntegerDimjAsIntegerDimlAsIntegerDima(10)AsString,bAsStringfIn=FreeFileOpenApp.Path&"in.dat"ForInputAs#fInfOut=FreeFileOpenApp.

6、Path&"out.dat"ForOutputAs#fOutFori=1To3LineInput#fIn,a(i)b=""Forj=1ToLen(a(i))t=Asc(Mid(a(i),j,1))Xor10b=b&Chr(t)Nextl=Val(b)Print#fOut,fun(l)NextClose#fInClose#fOutEndSub参考答案:DimsumAsLongDimiAsIntegerFori=1TomIfiMod2=1Thensum=sum+iEndIfNextfun=sum考生答案:得分:0【编号:3】'------------

7、-------------------------------------'【程序设计】'-------------------------------------------------'题目：编写函数fun其功能是：根据整型形参m，计算'如下公式的值：y=1/2＋1/4＋1/6＋...＋1/2m'例如：若m=9，则应输出：1.41448412698413'-------------------------------------------------PrivateFunctionfun(mAsInteger)AsDouble'******be

8、gin******'******end******EndFunctionPrivateSubForm_Load()Show