第4章 习题参考答案

《第4章 习题参考答案》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、一、选择题1.执行下面的程序段后，x的值为A。x=5Fori=1To20Step2x=x+i5NextiA．21B．22C．23D．242.在窗体上画两个文本框（其【Name】属性分别为“Text1”和“Text2”）和一个命令按钮（其【Name】属性为“Command1”），然后编写如下事件过程：PrivateSubCommand1_Click()x=0DoWhilex<50x=(x+2)*(x+3)n=n+1LoopForm1.PrintxForm1.PrintnEndSub程序运行后，单击命令按钮，窗体上显

2、示的值分别为B。A．1和0B．2和72C．3和50D．4和1683.执行下面的程序段后，s的值为C。s=5Fori=2.6To4.9Step0.6s=s+1NextiA．7B．8C．9D．104.执行下面的程序段后，s的值为A。s=0i=1N=1DoWhilei

3、Tab(16-i);Forj=1TO2*i-1Print"*"NextjPrint'换行Nexti2.补充代码，以完成查找75最大公约数的功能。Fori=36To1Step-1If75modi==0ThenPrint"75最大公约数为",iExitForEndifNexti3.补充代码，以完成查找35和75最大公约数的功能。i=18'如果i能被35和75整除，则为最大公约数DoWhileNot(35Modi=0And75Modi=0)ExitDoLoop二、编程题4.求1/1+1/2+1/3+…1/n。要求n从输入

4、对话框中输入。参考代码：DimNAsInteger,iAsInteger,sumAsIntegerDimmyinputAsStringmyinput=InputBox("请输入要求阶乘的数:","输入对话框")N=Val(myinput)sum=0Fori=1ToNsum=sum+1/iNexti5.求1！+2！+3！+…+n!。要求n从输入对话框中输入。（提示：n!=1*2*3*…*n。）参考代码：DimNAsInteger,iAsInteger,jAsIntegerDimsAsInteger,sumAsInte

5、gerDimmyinputAsStringmyinput=InputBox("请输入要求阶乘的数:","输入对话框")N=Val(myinput)sum=0s=0Fori=1ToNForj=1Tois=s*j;Nextjsum=sum+sNexti1.编程求出100～200之间的全部素数。参考代码：DimiAsInteger,jAsInteger,mAsIntegerFori=100To200m=0'用于判断是否是素数Forj=2Toi-1IfiModj=0Thenm=1ExitForEndIfNextjIfm=0

6、ThenPrinti;EndIfNexti