填空题
【程序说明】选择形状、边框后，图片框中控件Shape1作相应变化。界面设计如图所示。
程序填空题1的界面设计
Private Sub Combo1_Click 1
Shape1.Shape = Combo1.List 2
End Sub
Private Sub Combo2_Click 3
（ ） = Combo2.List(Combo2.ListIndex)
End Sub
Private Sub Form_Load 4
Dim i As Integer
For i = 0 To 5: Combo1.AddItem Str(i): Next i
For i = 0 To 6: （ ）: Next i
End Sub