更多"设有如下过程: x=1 Do x=x+2 Loop Until"的相关试题:
[单项选择]设有如下过程:
x=1
Do
x=x+2
Loop Until ______
运行程序,要求循环体执行3次后结束循环,空白处应填入的语句是( )。
A. x<=7
B. x<7
C. x>=7
D. x>7
[填空题]设有如下代码:
x=1
do
x=x+2
loop until 【13】
运行程序,要求循环体执行三次后结束循环,在空白处填入适当语句。
[填空题]
设有如下代码:
x=1
Do
x=x+2
Loop until()
运行程序,要求循环执行3次后结束循环,在空白处填入适当语句。
[填空题]
设有下列循环:
x=1
Do
x=x+2
Print x
Loop Until ()
要求程序运行时执行3次循环体,请填空。
[填空题]设有如下代码:
x = 1
Do
x = x + 2
Loop until__________
运行程序,要求循环执行3次后结束循环,在空白处填入适当语句。
[单项选择]
下面程序运行后j的结果是()。
i=1
j=0
Do
j=j+1
i=i+1
Loop Until i < 5
A. 0
B. 4
C. 1
D. 5
[单项选择]设有下面的循环:
i=1
Do
i=i+3
Print i
Loop Until i>______
程序运行后要执行3次循环体,则条件中i的最小值为
A. 6
B. 7
C. 8
D. 9
[填空题]设有以下循环:
x=1
Do
x=x+2
Print x
Loop Until ______
要求程序运行时执行3次循环体,请填空。
[单项选择]设有下面的循环:
i=1
Do
i=i+3
Print i
Loop Until i>____
程序运行后要执行3次循环体,则条件中i的最小值为( )。
A. 6
B. 7
C. 8
D. 9
[单项选择]Do Until…Loop循环命令的功能是( )。
A. 先进入循环行语句段落后,再判断是否再进入循环
B. 先进入循环执行语句段落后,再判断是否不再进入循环
C. 执行前先判断是否不满足条件,若不满足才进入循环
D. 执行前先判断是否不满足条件,若满足才进入循环
[单项选择]
设有一个命令按钮Commsand1的事件过程以及一个函数过程。程序如下:
Private Sub Command1_Click(0
Static x As Integer
x=f(x+5)
Cls
Print x
End Sub
Private Funtion f(x As integer)As Integer
F=x+x
End Funtion
连续单击命令按钮3次,第3次单击命令按钮后,窗体上显示的计算结果是()。
A. 10
B. 30
C. 60
D. 70
[单项选择]窗体上有一个命令按钮,命令按钮的单击事件过程如下。运行程序后,单击命令按钮,输出结果是
Private Sub Command1_Click( )
Dim a
a = Array(1,2,3,4,5)
For k = 1 To4
s=s+a(k)
Next
Print S
End Sub
A. 10
B. 14
C. 15
D. 120
[填空题]
在Visual FoxPro中如下程序的运行结果(即执行命令DO main后)是()。
* 程序文件名:main.prg
SET TALK OFF
CLOSE ALL
CLEAR ALL
mX="Visual FoxPro"
mY="二级"
DO s1
mY+mY
RETURU
* 子程序文件名:s1.prg
PROCEDURE s1
LOCAL mX
mX="Visual FoxPro DBMS 考试"
mY="计算机等级"+ mY
RETURN
[单项选择]假定有以下循环结构
Do Until条件
循环体
Loop
则正确的叙述是( )。
A. 如果“条件”值为0,则一次循环体也不执行
B. 如果“条件”值为0,则至少执行一次循环体
C. 如果“条件”值不为0,则至少执行一次循环体
D. 不论“条件”是否为“真”,至少要执行一次循环体
[填空题]
在Visual FoxPro中如下程序的运行结果(即执行命令DO main后)是()。
* 程序文件名:main.prg
SET TALK OFF
CLOSE ALL
CLEAR ALL
mX=“Visual FoxPro”
mY=“二级”
DO s1
mY+mY
RETURU
* 子程序文件名:s1.prg
PROCEDURE s1
LOCAL mX
mX=“Visual FoxPro DBMS 考试”
mY=“计算机等级”+ mY
RETURN
[单项选择]窗体上有一个命令按钮,命令按钮的单击事件过程如下。运行程序后,单击命令按钮,输出结果是( )。
Private Sub Command1_Clcik( )
Dim a
a=Array(1,2,3,4,5)
For k=1 To 4
s=s+a(k)
Next k
Print s
End Sub
A. 10
B. 14
C. 15
D. 120