下列程序的执行结果为( )。 Private Sub Command1_Click()   Dim s1 As String,s2 As String   s1="abcdef"   Call Invert(s1,s2)

admin2012-03-22  24

问题 下列程序的执行结果为(    )。    Private Sub Command1_Click()      Dim s1 As String,s2 As String      s1="abcdef"      Call Invert(s1,s2)      Print s2    End Sub    Private Sub Invert(ByVal xstr As String,ystr As String)      Dim tempstr As String      i=Len(xstr)      Do While i>=1       tempstr=tempstr+Mid(xstr,i,1)       i=i-1      Loop      ystr=tempstr    End Sub   

选项 A、fedcba
B、abcdef     
C、afbecd
D、defabc

答案A

解析
转载请注明原文地址:https://jikaoti.com/ti/gJO0FFFM
0

最新回复(0)