欢迎来到天天文库
浏览记录
ID:37126825
大小:352.00 KB
页数:28页
时间:2019-05-18
《程序设计复习题》由会员上传分享,免费在线阅读,更多相关内容在行业资料-天天文库。
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中'------------------------------
此文档下载收益归作者所有