程序设计复习题

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

1、...【程序设计】'-------------------------------------------------'题目：(事件)单击窗体。'(响应)求从100到1000之间所有是3的倍数的数之'和，当和大于3000时，停止计算并输出和。请将结果输'出到窗体上,并存入所给变量SUM中。使用for...next语'句完成程序'-------------------------------------------------PrivateSubForm_Click()DimsumAsInteger'*****************Begin**************'**********

2、*****End*************************CallTestFunc(sum)EndSubPrivateSubTestFunc(iAsInteger)DimOUTAsIntegerOUT=FreeFileOpenApp.Path&"out.txt"ForOutputAs#OUTPrint#OUT,iClose#OUTEndSub答案DimiAsIntegersum=0fori=100to1000ifimod3=0thensum=sum+iifsum>3000thenexitforendifendifi=i+1nextPrintsum......【程序设计】'-----

3、--------------------------------------------'题目：(事件)双击窗体。'(响应)求1+5+10+15+⋯⋯+500的和，并将结果输出到窗体上。'将结果存入变量SUM中'-------------------------------------------------PrivateSubForm_dblClick()DimsumAsLongsum=1'*******Begin**********'*******End************TestFunc(sum)答案DimiAsIntegerFori=5To500IfiMod5=0Thensum=

4、sum+iEndIfNextPrintsum+1......【程序设计】'-------------------------------------------------'题目：(事件)双击窗体。'(响应)s=20+21+22+⋯+263，求s的值，并将结果'存储到变量S中。'-------------------------------------------------PrivateSubForm_DblClick()DimsAsLong'********Begin*******'********End************TestFunc(s)EndSubPrivateSubTes

5、tFunc(iAsLong)DimOUTAsIntegerOUT=FreeFileOpenApp.Path&"6.out"ForOutputAs#OUTPrint#OUT,iClose#OUTEndSub答案DimiAsIntegeri=20Whilei<=263s=s+ii=i+1WendPrint(CStr(s))......-------------------------------------------------'【程序设计】'-------------------------------------------------'题目：(事件)双击窗体。'(响应)求100以内奇数

6、的和，并将结果输出在窗体上。'将结果存入变量SUM中'-------------------------------------------------PrivateSubForm_dblClick()DimsumAsInteger'********Begin***********'************End**********TestFunc(sum)EndSubPrivateSubTestFunc(iAsInteger)DimOUTAsIntegerOUT=FreeFileOpenApp.Path&"25.out"ForOutputAs#OUTPrint#OUT,iClose#OU

7、TEndSub答案DimiAsIntegerFori=1To100IfiMod2=1Thensum=sum+iEndIfNextPrintsum......【程序设计】'-------------------------------------------------''题目：(事件)双击窗体。'(响应)编写代码功能如(图1)。'将结果存入变量S中'------------------------------