在窗体上画一个命令按钮Command1，然后编写如下程序：
Private Sub Command1_click()
Dim arr() As Integer
ReDim arr(3)
For i=0 To 3
arr(i)=i
Next i
x=InputBox("请输入一个数字：")
If Val(x)＞4 Then
ReDim arr(4)
an(4)=x
End If
Me.Print(an(4)-arr(3))
End Sub
程序运行后，单击命令按钮，在输入对话框中输入12，输出结果为 【10】 。

阅读材料，回答问题。

守望相助，邻里相恤，在我国有着几千年的传统。但近几年随着城镇化进程加快，邻里往来减少，关系趋于淡漠。12年前，因为一位小学生的倡议，青岛市海伦路街道试办了第一届“邻居节”，之后再市北区全面推广，今年扩至全市。12年来，这个百姓自己的节日从小到大，活动形式从大众化的自娱自乐扩展到邻里友爱互助和各类志愿服务，密切了居民间的情感联系，促进了“亲人善邻、和睦融洽”的新型邻里关系的建构。

“家庭是社会的基本细胞，是人生的第一所学校。不论时代发生多大变化，不论生活格局发生多大变化，我们都要重视家庭建设，注重家庭、注重家教、注重家风”。请列举一项优良家风，并运用所学知识说明传承该家风的两点意义。