程序设计复习题.docx
- 文档编号:2428299
- 上传时间:2022-10-29
- 格式:DOCX
- 页数:36
- 大小:18.66KB
程序设计复习题.docx
《程序设计复习题.docx》由会员分享,可在线阅读,更多相关《程序设计复习题.docx(36页珍藏版)》请在冰豆网上搜索。
程序设计复习题
【程序设计】
'-------------------------------------------------
'题目:
(事件)单击窗体。
'(响应)求从100到1000之间所有是3的倍数的数之
'和,当和大于3000时,停止计算并输出和。
请将结果输
'出到窗体上,并存入所给变量SUM中。
使用for...next语
'句完成程序
'-------------------------------------------------
PrivateSubForm_Click()
DimsumAsInteger
'*****************Begin**************
'***************End*************************
CallTestFunc(sum)
EndSub
PrivateSubTestFunc(iAsInteger)
DimOUTAsInteger
OUT=FreeFile
OpenApp.Path&"\out.txt"ForOutputAs#OUT
Print#OUT,i
Close#OUT
EndSub
答案
DimiAsInteger
sum=0
fori=100to1000
ifimod3=0then
sum=sum+i
ifsum>3000then
exitfor
endif
endif
i=i+1
next
Printsum
【程序设计】
'-------------------------------------------------
'题目:
(事件)双击窗体。
'(响应)求1+5+10+15+……+500的和,并将结果输出到窗体上。
'将结果存入变量SUM中
'-------------------------------------------------
PrivateSubForm_dblClick()
DimsumAsLong
sum=1
'*******Begin**********
'*******End************
TestFunc(sum)
答案
DimiAsInteger
Fori=5To500
IfiMod5=0Then
sum=sum+i
EndIf
Next
Printsum+1
【程序设计】
'-------------------------------------------------
'题目:
(事件)双击窗体。
'(响应)s=20+21+22+…+263,求s的值,并将结果
'存储到变量S中。
'-------------------------------------------------
PrivateSubForm_DblClick()
DimsAsLong
'********Begin*******
'********End************
TestFunc(s)
EndSub
PrivateSubTestFunc(iAsLong)
DimOUTAsInteger
OUT=FreeFile
OpenApp.Path&"\6.out"ForOutputAs#OUT
Print#OUT,i
Close#OUT
EndSub
答案
DimiAsInteger
i=20
Whilei<=263
s=s+i
i=i+1
Wend
Print(CStr(s))
-------------------------------------------------
'【程序设计】
'-------------------------------------------------
'题目:
(事件)双击窗体。
'(响应)求100以内奇数的和,并将结果输出在窗体上。
'将结果存入变量SUM中
'-------------------------------------------------
PrivateSubForm_dblClick()
DimsumAsInteger
'********Begin***********
'************End**********
TestFunc(sum)
EndSub
PrivateSubTestFunc(iAsInteger)
DimOUTAsInteger
OUT=FreeFile
OpenApp.Path&"\25.out"ForOutputAs#OUT
Print#OUT,i
Close#OUT
EndSub
答案
DimiAsInteger
Fori=1To100
IfiMod2=1Then
sum=sum+i
EndIf
Next
Printsum
【程序设计】
'-------------------------------------------------
'
'题目:
(事件)双击窗体。
'(响应)编写代码功能如(图1)。
'将结果存入变量S中
'-------------------------------------------------
PrivateSubForm_dblClick()
DimsAsDouble
'**********Begin**********
'***********End**************
TestFunc(s)
EndSub
PrivateSubTestFunc(iAsDouble)
DimOUTAsInteger
OUT=FreeFile
OpenApp.Path&"\12.out"ForOutputAs#OUT
Print#OUT,i
Close#OUT
EndSub
答案
DimiAsInteger
s=1
Fori=1To10
s=s*i*i
Next
Print(CStr(s))
【程序设计】
'-------------------------------------------------
'题目:
(事件)双击窗体。
'(响应)求出100~200之间,能被5整除,但不能被3整除的数。
'并求所有数之和,存入变量中SUM中
'-------------------------------------------------
PrivateSubForm_dblClick()
DimsumAsInteger
sum=0
'**********Begin*********
'**********End*************
Printsum
TestFunc(sum)
EndSub
PrivateSubTestFunc(iAsInteger)
DimOUTAsInteger
OUT=FreeFile
OpenApp.Path&"\17.out"ForOutputAs#OUT
Print#OUT,i
Close#OUT
EndSub
答案
DimiAsInteger
Fori=100To200
If((iMod5)=0)And((iMod3)<>0)Then
Print(CStr(i))
sum=sum+i
EndIf
Next
【程序设计】
'-------------------------------------------------
'题目:
(事件)双击窗体。
'(响应)求出50以内所有奇数的和。
'将结果存入变量SUM中
'-------------------------------------------------
PrivateSubForm_dblClick()
DimsumAsInteger
'*******Begin*******
'*******End**********
TestFunc(sum)
EndSub
PrivateSubTestFunc(iAsInteger)
DimOUTAsInteger
OUT=FreeFile
OpenApp.Path&"\19.out"ForOutputAs#OUT
Print#OUT,i
Close#OUT
EndSub
答案
DimiAsInteger
Fori=1To50
IfiMod2=1Then
sum=sum+i
EndIf
Next
Printsum
【程序设计】
'-------------------------------------------------
'题目:
(事件)单击窗体。
'(响应)求200~300之间既能被3整除又能被7整除的数。
'并求出所有数之和存入变量SUM中
'-------------------------------------------------
PrivateSubForm_Click()
DimsumAsInteger
sum=0
'*****************Begin************
'***************End******************
TestFunc(sum)
EndSub
PrivateSubTestFunc(iAsInteger)
DimOUTAsInteger
OUT=FreeFile
OpenApp.Path&"\2.out"ForOutputAs#OUT
Print#OUT,i
Close#OUT
EndSub
答案
DimiAsInteger
Fori=201To300
If((iMod3)=0)And((iMod7)=0)Then
Print(CStr(i))
sum=sum+i
EndIf
Next
Printsum
-------------------------------------------------
'【程序设计】
'-------------------------------------------------
'题目:
(事件)单击窗体。
'(响应)求1+2+3+……+100的值,并把结果输出在窗体上。
'结果存入变量SUM中
'--------
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 程序设计 复习题
![提示](https://static.bdocx.com/images/bang_tan.gif)