单击窗体时，下列程序的执行结果是()。　　privAtE suB invErtBy vAl xstrAs string，ystrAs string)　　　　Dim tEmpstrAs string　　　　Dim iAs intEgEr　　　　i=lEn(xstr)　　　　Do whilE i＞=1　　　　　tEmpstr=tEmpstr + miD(xstr，i，1)　　　　　i=i - 1　　　　loop　　　　ystr=tEmpstr　　EnD suB　　privAtE suB Form_CliCk( )　　　　Dim s1As string，s2As string　　　　s1="ABCDEF"　　　　invErt s1，s2　　　　print s2　　EnD suB
A、BlooEAn isAlivE( )
B．thrEAD CurrEntthrEAD( )
C、string gEtnAmE( )
D．smtiC BoolEAn intErruptED( )