Private Sub Command1_Click()

  Dim sjzs As Integer

  Dim rjzs As String

  sjzs = Val(Text1.Text)

  rjzs = ""

  Do While Int(sjzs / 2) > 0

    rjzs = Str(sjzs Mod 2) + rjzs

    sjzs = Int(sjzs / 2)

  Loop

  Label1.Caption = rjzs

End Sub

若流程执行时，输入x的值为13，那么输出的依次是（  ）

Dim n As Integer, i As Integer, a As Integer, b As Integer

Randomize

n=5：i=1

Do While i <=n

a= Int(Rnd*90)+ 10

b= Int(Rnd*90)+ 10

If a>b Then

List1.AddItem Str(a)+"-"+ Str(b)+“=“

i=i+1

End If

Loop

执行该程序段后，下列说法正确的是（  ）

Dim f1 as long, f2 as long, f as long

 n=val(Text1.Text)

 f1=1

 f2=1

 For k=3 to n

Next k

Label1.Caption=“斐波那契数列第”+str(n)+“项的值为”+str(f)

方框中的代码由以下三部分组成：

①f2=f  ②f1=f2  ③f=f1+f2

代码顺序正确的选项是（  ）