明式家具常见的品种式样有什么？

设有命令按钮Command1的单击事件过程，代码如下： Private Sub Command1_Click() Dim a(30)As Integer For i=1 To 30 a(i)=i Next For Each arrItem 【13】 aIf arrItem Mod 7=0 Then Print arrItem：If arrItem＞90 Then Exit For Next End Sub 请填空。