[单项选择题] 下列程序的执行结果为 Private Sub Command1_Click( ) Dim FirStr As String FirSt = "abcdef" Print Pat(FirStr) End SubPrivate Function Pat( xStr As String) As StringDim tempStr As String, strLen As Integer tempStr ="" strLen = Len(

主调函数最终输出值是Pat(FirStr)过程的返回值，这就得调用函数过程Pat。被调过程Pat的参数xStr从主调函数中收到实参FirStr传来的值“abcdef”，过程Pat开始声明了两个变量，一个是String型的tempStr，一个是Integer型的strLen。语句tempStr=""。strLen；Len(xStr)以上两条语句的功能是：为变量tempStr赋空值，变量strLen的值就是xstr的长度，此题为6。程序代码执行DoWhile…Loop的循环语句：第1次循环结束后，tempStr=“af”；第2次循环，i=2，i＜=3成立，继续执行循环体，tempStr=“afbe”；第3次循环，i=3，i＜=3成立，继续执行循环体，tempStr=“atbecd”；第4次循环，i=4，i＜=3不成立，则跳出循环体，执行语句Pat=tempStr。所以最终Pat(FirStr)=“afbecd”。