下列程序的执行结果为()。　　privAtE suBCommAnDl_CliCk()　　　　Dim s1As string ,s2As string　　　　s1= "ABCD"　　　　CAll trAnsFEr(sl，s2)　　　　print s2　　EnD suB　　privAtE suB trAnsFErByvAl xstrAs string，ystrAs string)　　　　Dim tEmpstrAs string　　　　ystr=tEmpstr　　EnD suB
A、1
B、2
C．随机输出1或2
D、程序有错