有如下VB 程序段：

s1 = "PROGRAM": s2 = ""

For i = 1 To 4

    t = Int(Rnd * 4) * 2 + 1

    Do While f(t)

        t = Int(Rnd * 4) * 2 + 1

    Loop

    f(t) = True

    s2 = s2 + Mid(s1， t， 1)

Next i

Label1.Caption = s2

数组f 各元素的初值为False，执行该程序段后，标签Label1上显示的内容可能是（    ）

A、PPOM

B、MROR

C、PROM

D、RPAM