问题
单项选择题
运行下列程序，结果是______。
Private Sub Command32_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，n=2，k=1+1=2；
k=2时，f=3，f1=2，n=3，k=2+1=3；
k=3时，f=5，f1=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。