Visual Basic编写图形填充程序，在窗体上分别以矩形为形状，显示不同的颜色填充图案

好的，我可以帮你解决这个问题。

首先，我们需要在 Visual Basic 中创建一个新的窗体应用程序。然后，我们需要添加一个矩形控件和一些按钮控件。

接下来，我们需要添加一些代码，以便在矩形控件中显示不同的颜色填充图案。以下是一个简单的程序示例：

Private Sub btnRed_Click()
    '设置矩形控件的颜色为红色
    Rectangle1.FillColor = vbRed
End Sub

Private Sub btnGreen_Click()
    '设置矩形控件的颜色为绿色
    Rectangle1.FillColor = vbGreen
End Sub

Private Sub btnBlue_Click()
    '设置矩形控件的颜色为蓝色
    Rectangle1.FillColor = vbBlue
End Sub

在上面的代码中，我们为每个按钮控件添加了一个单击事件处理程序。当用户单击按钮时，它将设置矩形控件的填充颜色为相应的颜色。

最后，我们需要在窗体加载时设置矩形控件的形状和位置。以下是一个示例：

Private Sub Form_Load()
    '设置矩形控件的形状为矩形
    Rectangle1.Shape = vbShapeRectangle
    
    '设置矩形控件的位置和尺寸
    Rectangle1.Left = 50
    Rectangle1.Top = 50
    Rectangle1.Width = 200
    Rectangle1.Height = 200
End Sub

在上面的代码中，我们设置了矩形控件的形状为矩形，并设置了其位置和大小。

现在，当用户单击按钮时，矩形控件将显示相应的颜色填充图案。

希望这可以帮助到你！