在窗体上画一个名为Label1的标签和一个名为List1的列表框。程序运行后，在列表框中添加若干列表项。当双击列表框中的某个项目时，在标签Label1中显示所选中的项目，如图16-1所示。请在 【9】 和 【10】 处填入适当的内容，将程序补充完整。(2002年9月)

Private Sub Form_load()
List1. AddItem"北京"
List1. AddItem"上海"
List1. AddItem"河北"
End Sub
Private Sub 【9】 ()
Label1. Caption= 【10】
End Sub

计算题：已知某工件的尺寸外径为φ80mm，内径为φ50mm，长为30mm，求该工件的有效加热厚度。