采用清算价格法评估资产，应当根据公司清算时其资产可变现的价值评定重估价值。( )

运行下面程序，其输出结果(str2的值)为 【13】 。
Dim str1，str2 As String
Dim i As Integer
strl="abcdef"
For i=1 To Len(str1) Step2
str2=UCase(Mid(str1，i，1))+str2
Next
MsgBox str2