问题详情

运行下列程序：
Private Sub form_Click()
Dim sl As String, s2 As String
s1 = "1234"
m = 0
For i = 3 To 1 Step -1
m = m + 1
s2 = fun1(s1, m)
Debug.Print s2;
Next i
End Sub
Private Function fun1(x, y) As String
fun1 = Right(x, y)
End Function
单击窗体后，则在立即窗口内显示结果是()。
A.1234
B.4321
C.434234
D.1111