- 1、原创力文档(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。。
- 2、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载。
- 3、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
- 4、该文档为VIP文档,如果想要下载,成为VIP会员后,下载免费。
- 5、成为VIP后,下载本文档将扣除1次下载权益。下载后,不支持退款、换文档。如有疑问请联系我们。
- 6、成为VIP后,您将拥有八大权益,权益包括:VIP文档下载权益、阅读免打扰、文档格式转换、高级专利检索、专属身份标志、高级客服、多端互通、版权登记。
- 7、VIP文档为合作方或网友上传,每下载1次, 网站将根据用户上传文档的质量评分、类型等,对文档贡献者给予高额补贴、流量扶持。如果你也想贡献VIP文档。上传文档
查看更多
循环结构复习练习
1、以下是一段Visual Basic程序:
b=0
For i=1 To 5
b=b+i
Next i
它的基本结构属于( )。
A.循环结构 B.选择结构 C.树型结构 D.顺序结构
2、在VB中,以下程序段:
n=10 :x=1 : k=1
Do While k=n
x=x*2 : k=k+1
Loop
执行后,x的值为:( )。
A、512 B、256 C、1024 D、16
3、在VB中,假定有以下程序段:
i=0
Do While i0
i=i+1
Loop
则执行结束后i的值是:( )。
A、死循环 B、2 C、1 D、0
4、让计算机能求出1+2+3…+100的值,并比较好的算法是( ).
A、在程序中直接写出1+2+3+4+5+6+7+8…+100让计算机运算
B、利用解析算法:借助于高斯求和公式来解答,即(1+100)*100*0.5
C、利用循环让计算机产生1、2、3、4…100数,并将这些数进行累加
D、利用排序算法来解决
5、阅读下面程序,单击窗体后,在文本框Text1和Text2中显示的内容分别是( )。
Private Sub Form_Click()
Dim x As Integer, y As Integer
x = 1y = 0
Do While x3
x=x+1
y=y+x
Loop
Text1.Text=x
Text2.Text=y
End Sub
A、3 3 B、3 5 C、5 3 D、5 5
6、下列程序段中,循环体执行的次数是( )。
x=0
For y=1 To 10 Step -1
x=x+1
print x
Next y
A、4 B、3 C、2 D、1
执行下面的程序段:
Dim int1,int2 as integer
Int1=1:Int2=0
Do while int120
Int2=int1+int2
Int1=int1*(int1+1)
Loop
Text1.text=int2
文本框text1中显示的是()
A 9 B 8 C 7 D 6
7、如果编程画出由100同心圆组成的图案,比较好的算法是( )。
A、按顺序执行100个画不同大小圆的程序段
B、①先编写1个能画不同大小圆的程序模块 ②在主程序中用100语句调用画圆程序模块
-
D、不必先定义画圆程序模块,而直接循环100次的方法来画图案
8、要求计算机打印出100至200之间所有偶数的平方根值,正确的算法是( )。
A、①i=100
②Do While i=200.
Print i, Sqr(i)
I=I+2
Loop
B、①i=100 ②Do While i200. Print i, Sqr(i). i = i + 1. Loop
C、For i = 100 To 200 Step 2. Print i, Sqr(i). Next i
D、For i = 100 To 200. Print i, Sqr(i). Next I
9、小屋图形是由1个三角形与1个正方形图案组成,如要编程让计算机画出2个相同小屋图案,比较好的方法是( )。
A、用一个主程序完成,具体为:三角形程序+正方形程序+三角形程序+正方形程序
B、①编写画三角形程序模块与画正方形程序模块 ②编写画小屋程序模块(调用三角形与正方形程序模块)③在主程序中调用2次画小屋程序模块
C、①编写画三角形与画正方形程序模块 ②在主程序中分别调用2次画三角形与正方形程序模块
D、不必编写画三角形与正方形程序模块,而在主程序中调用2次画小屋程序模块
116、阅读下面程序,单击窗体后,在文本框显示的内容是( )。
Private Sub Form_Click()
Dim a(8), b(8) As Integer
Dim i, j As Integer
For j = 1 To 4
a(j) = 2*j
b(j) = a(j) * 3
Next j
Text1.Text = b(j \ 2)
End Sub
文档评论(0)