【单选题】下列程序的执行结果为 Private Sub Command1_Click() Dim FirStr As String FirSt='abcdef' Print Pat(FirStr) End Sub Private Function Pat(xStr As String) As String Dim tempStr As String, strLen As Integer tempStr=''...
【单选题】下列程序的执行结果为 Private Sub Commandl_Click() Dim s1 As String ,s2 As String s1= 'abcd' Call Transfer(sl,s2) Print s2 End Sub Private Sub Transfer (ByVal xstr As String,ystr As String) Dim tempstr As String...
【单选题】下列程序的执行结果为 Ptivate Sub Commandl_Click() Dim FirStr As String FirStr='abcdef' Print Pct (FirStr) End Sub Private Function Pct(xStr As String)As String Dim tempStr As String,strLen As Integer tempStr=''...