运行下列程序:
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