执行下面的程序，消息框里显示的结果是______。
Private Sub Form_Click()
Dim Str As String
Str=""
S="Access"
For i=Len(S)To 1 Step-1
Str=Str & Mid(S，i，1)
Next i
MsgBox Str
End sub

计算题：已知半硬钢丝绳直径21.5mm，长度210m一捆，试计算重是多少？