第13题图 循环结构练习题
1、Visual Basic 程序段如下：该程序段运行后，变量s 的值是（    ）      s=0      For  k=1  To    5        s=s+5      Next k    （A ）  0 （B ）      5 （C ）  10 （D ）  25
2、应用计算机程序解决数学问题“求一元二次方程实数解”的步骤，通常是（    ）。
A. 设计算法→编写程序
B. 编写程序→调试程序→检测结果
C. 分析问题→设计算法→编写程序→调试运行→检测结果
D. 编写程序→调试运行
3、“=”在Visual Basic 程序中既可以表示赋值操作，也可以表示关系运算。右图程序段中“=”作用和⑤相同的是 A ．①  B ．② C ．③  D ．④
4、用计算机解决问题时，首先应该确定程序“做什
么？”，然后再确定程序“如何做？”请问“如何做？”是属于用计算机解决问题的哪一个步骤？（  ）
A ．分析问题
B ．设计算法
C ．编写程序
D 、调试程序
5、流程图中表示判断的是（    ）。
Ａ．矩形框 Ｂ．菱形框  Ｃ．圆形框 Ｄ．椭圆形框
6、任何复杂的算法都可以用三种基本结构组成，下列不属于基本结构的是（    ）
A ．顺序结构
B ．选择结构
C ．层次结构
D ．循环结构 7、执行完循环语句
For x=1 to 100 step 2        ……
Next x 后，x 的值是（      ）
A ．101
B ．100
C ．99
D ．98 8、下列给出的赋值语句中正确的是（      ）。
A ．4 = M
B ．-M =M
C ．B=A －3
D ．x + y = 0 9、以下程序中的循环体执行的次数是(    )。      For  A=1  To  100  Step  2        S=S+A      Next  A      Print  S
A．48    B．49    C．50      D．51
10、下列程序代码中，循环体执行的次数是(    )。
y = 1
Do While y <= 6
y = y+y
Loop
A、2
B、3
C、4
D、5
11、有如下VB程序，其结构为(    )。
Dim i As Integer, sum As Double
sum=0
For i = 1  To  100
sum =sum+1/i
Next i
Print  "sum= " & sum
A、顺序结构
B、分支结构
C、循环结构
D、选择结构
12、阅读如下VB程序段，运行程序后，当n的值为5时，a的值为______。
a = 1
For i = 1 To n
a = a * i
Next i
13、分析下面的Visual Basic程序，执行后显示的内容分别是（）。
Dim x as Integer, y as Integer
x = 1:y = 0
Do While x < 3
y = y + x
x = x * 3
Loop
Print x,y
A、3    1
B、3    27
C、20  3
D、3    21
14、利用计算机编程解决累加问题，计算1+2+3……200的值，我们往往采用（）。
A、循环结构
B、选择结构
C、条件结构
D、顺序结构
15、在Visual Basic中，分析下面的程序代码：执行后，X的值为：(      )。
X = 1
do while语句流程图
Do While X < 35
X = (X + 2) * (X + 3)
Loop
A、168
B、50
C、210
D、0
16、在Visual Basic中，交换变量x和y的值，正确的赋值语句组是(    )。
A、t=x；y=x；y=t
B、x=y；y=t；t=x
C、x=y；y=x
D、t=x；x=y；y=t
17、阅读下面程序，窗体上输出的是(    )。
Dim i As Integer
Dim s As Integer
s = 0
For i = 1 To 10
s = s + i
Next i
Print s, i
A、55  11
B、s=55  i=11
C、55  5
D、s=11  i=5
18、Dim i as integer,sum as integer
For i=1 To 10
Sum=Sum+I
Next i
Print  Sum
End
运行结果：
19、分析并完善程序：
设计程序，输出1-50之内的奇数。
Dim i as integer,sum as integer
For i=1 To 50
If                      then
Print i
End if
End
20、完成下面填空，实现输出如图所示的九九乘法表功能：
Dim I As Integer, J As Integer
Dim Str As String
For I = 1 To ______
For J = 1 To ______
Str = Str & "    " & J & "*" & I & "=" & I * J
______
Print Str
Str = ""
Next I
21、在VB6.0中，函数Int(-2.9)返回的值是_______，“Print 2-2”的输出结果是_______，函数Abs(-2.9)的值是_______。
22、填空完成下面程序，求n的阶乘，n值由键盘输入。
Dim n as Integer, m as Long , I as Integer
n=val(InputBox(“请输入一个整数：”))
m=1
for I=1 to ______
m=______*I
________
Print  m
23、有如下VB程序段，功能是出100以内的奇数中能被7整除的正整数，并将它们累加起来。
Y = 0
For i=1 To 100 Step 2
If        Then
Next i
Print  Y
24、下面是一段Visual Basic程序，运行该程序后，语句sum=sum+i*(i+1)共执行了_______次，Text1中最后输出结果是_______ 。
Private Sub Command1_Click(    )
Dim sum , i  As Integer
sum = 0
For i = 1 To 9  Step 2
sum = sum + i * (i+1)
Next i
Text1.Text=sum
End Sub
25、填空完善程序，求出S=1!+2!+3!+4!+5!+……+n!的值：
S = 0: t = 1
for i = 1 To _______
S = S + t
next i
26．当型循环和直到型循环的区别是_______
A.当型循环的循环体至少执行一次，直到型循环的循环体可能一次也不执行
B.当型循环的循环体可能一次也不执行，直到型循环的循环体至少执行一次
C.当型循环和直到型循环的循环体都至少执行一次
D.当型循环和直到型循环的循环体都有可能一次也不执行
1．一小球从10米高空落地，以后每次弹起的高度都要比前一次减少20%，经过多少次后，小
球弹起的高度小于0.01米。
输出  T
T ← 0结束
H ← 10开始_______H > 0.01
N
Y T ← T + 1
完成该任务，在流程图空白处应填入_____。
A ．H=H*0.2
B ．H=H*0.8
C ．H=H*1-0.2
D ．H=10-H*0.8
2．求1+2+4+7+11+16+...的前20项之和。
在流程图的空白处应填入__________ A. p=p+1        B. p=p+i C. p=p+2        D. p=p*2 3．
4．
开始输入n n>1输入b t=a*2+b 输入a ________n=n-1输出a
结束
Y N
以上是二进制数转十进制数的算法，当依次输入4，1，0，1，1时，输出11。在流程图空白处应该填入_______。
A ．t=a
B ．b=t
C ．t=b
D ．a=t
5．
6．出乘积为399的两个相邻的奇数。
Y N
i<=20?
结束
输出S
S=S+P i=i+1 _________ 开始 S=0,P=1,i=1

版权声明：本站内容均来自互联网，仅供演示用，请勿用于商业和其他非法用途。如果侵犯了您的权益请与我们联系QQ:729038198，我们将在24小时内删除。