下列程序计算Sn的值。Sn=a+aa+aaa+…+aaa…a，其中最后一项为n个。
例如：a=5，n=4时，则Sn=5+55+555+5555。请在空白处填入适当的内容，将程序补充完整。
Private Sub Comnmnd1_Click()
Dim a As Integer，n As Integer，Cout As Integer
Dim Sn As Long，Tn As Long
Cout=1
Sn=0
Tn=0
a=InputBox(“请输入a的值：”)
n=InputBox(“请输入n的值!”)
Do
Tn=Tn * 10 + a
Sn=Sn+Tn
Cout=Cout+1
【9】
Debug. Print a，n，Sn
End Sub

如图所示，有一可绕中点O转动的轻质细杆，杆上相邻刻度线之间的距离都是相等的。小刚用这套实验器材探究杠杆平衡条件，他使杆在水平位置平衡后，在杆的A刻线处挂了2个钩码后，在杆的B刻线处也挂了2个钩码，杆在水平位置平衡。当他在B刻线处改挂1个钩码后，杆失去了平衡。小刚由此得出结论：只有施加在杆中点两侧的力大小相等时，杆才能在水平位置平衡。请你利用上述器材通过实验说明小刚的说法是错误的。请你写出主要实验步骤和相应的实验现象。 （2分）