运行下列程序,结果是( )。 Private Sub Command1_Click() f0=1:f1=1:k=1 Do While k<=5 f=f0+f1 f0=f1 f1=f k=k+1 Loop MsgBox"f="&f End Sub

admin2019-05-23  37

问题 运行下列程序,结果是(    )。
Private Sub Command1_Click()
f0=1:f1=1:k=1
Do While k<=5
f=f0+f1
f0=f1
f1=f
k=k+1
Loop
MsgBox"f="&f
End Sub

选项 A、f=5
B、f=7
C、f=8
D、f=13

答案D

解析 本题考查Do循环语句:
k=1时,f=1+1=2,f0=1,f1=2,k=1+1=2;
k=2时,f=3,f0=2,f1=3,k=2+1=3;
k=3时,f=5,f0=3,n=5,k=3+1=4;
k=4时,f=8,f0=5,n=8,k=4+1=5;
k=5时,f=13,f0=8,f1=13,k=6,不再满足循环条件即跳出循环,此时f=13。
转载请注明原文地址:https://kaotiyun.com/show/eR0p777K
0

相关试题推荐
最新回复(0)