Question

VB题，希望高手能帮帮忙！

2）在名称为Form1的窗体上画一个名称为Shape1的形状控件，在属性窗口中将其设置为圆形。画一个名称为List1的列表框，并在属性窗口中设置列表项的值分别为1、2、3、4、5。将窗体的标题设置为“图形控件”。 单击列表框中的某一项，则将所选的值作为形状空间的填充参数。例如，选择3，则形状控件中被竖线填充。如图所示。
要求：程序中不得使用变量，每个事件过程中只能写一条语句。存盘时必须存放在考生文件夹下，工程文件名sjt2.vbp，窗体文件名为sjt2.frm。
这是图

Answer 1

在窗体上加一个shape控件
在右边属性栏的shape里选 “3-circle”
在窗体上加一个listbox控件
复制以下代码运行：
Option Explicit

Private Sub Form_Load()
Dim i As Integer
For i = 1 To 5
List1.AddItem i
Next
End Sub

Private Sub List1_Click()
Shape1.FillStyle = List1.Text
End Sub

Answer 2

这个是作业吧，图在哪呢？

追问

是这个图

追答

Private Sub List1_Click()
Shape1.FillStyle = List1.Text
End Sub

自己在修改下项目的名称 ，还有就是 list 空间的list 属性里添加1,2,3,4，5，填一个按个回车