A-A+
运行下列程序:Private Sub form_Click()Dim sl As String s2 As Strings1 = "1234&quo
问题详情
运行下列程序:
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