单项选择题

运行下列程序，结果是（）。
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

<上一题 目录 下一题>
热门 试题

单项选择题
在窗体中添加一个名称为Command1的命令按钮，然后编写如下事件代码： Private Sub Command1_Click() MsgBox f(24，18) End Sub Public Function f(m As Integer，n As Integer)As Integer Do While in＜＞n Do While in＞n m=m-n Loop Do While In＜n n=n-m Loop Loop f=m End Function 窗体打开运行后，单击命令按钮，则消息框的输出结果是（）。

A．2
B．4
C．6
D．8
单项选择题
在窗体上有一个命令按钮Command1和一个文本框Text1，编写事件代码如下：PrivateSubCommand1_Click（）Dimi，j，xFori=1To20step2x=0Forj=iTo20step3x=x+1NextjNextiText1.Value=Str（x）EndSub打开窗体运行后，单击命令按钮，文本框中显示的结果是（）。

A．1
B．7
C．17
D．400
相关试题