运行下列程序，结果是( )。 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
浏览197
参考答案：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，f1＝5，k＝3＋1＝4；
k＝4时，f＝8，f0＝5，f1＝8，k＝4＋1＝5；
k＝5时，f＝13，f0＝8，f1＝13，k＝6，不再满足循环条件跳出循环，此时f＝13。