Text1. Text Listl list (list. ListIndex) End sub Private Sub Commandl Click O 该按钮用于将文本框中的内容增加到列表框中 List. Additem End Sub Private Sub Command2 Click O 该按钮用于删除你所选中的列表框中的项目,同时清空文本框 Listl. Removeltem Text. Text End sub Private Sub Command3 Click 在文本框中编辑修改你所选中的项目后单击该按钮 该按钮用于修改你所选中的列表框中的项目 Text Text End sub 4.请使用默认的坐标统在窗体上绘制如图3所示的图形,其中第一个矩形的左 上角的坐标为(800,1000),长为800缇,宽为1000缇;第二个矩形的左上角 的坐标为(2000,1000),长为800缇,宽为1000缇;圆心坐标为(3600,1500), 半径为500缇;半园心坐标为(50,1500),半径为500缇。在绘制图形的代 码中将图形颜色以及填充颜色均设为红色 □旧区 图3 Private Sub Form Click O Const pi 3. 1415926 绘制第一个矩形 neText1.Text = List1.list(list1.ListIndex) End Sub Private Sub Command1_Click() '该按钮用于将文本框中的内容增加到列表框中 List1.AddItem_____________________ End Sub Private Sub Command2_Click() '该按钮用于删除你所选中的列表框中的项目，同时清空文本框 List1.RemoveItem___________________ Text1.Text = "" End Sub Private Sub Command3_Click() '在文本框中编辑修改你所选中的项目后单击该按钮 '该按钮用于修改你所选中的列表框中的项目 ___________________= Text1.Text End Sub 4. 请使用默认的坐标统在窗体上绘制如图 3 所示的图形，其中第一个矩形的左 上角的坐标为（800，1000），长为 800 缇，宽为 1000 缇；第二个矩形的左上角 的坐标为（2000，1000），长为 800 缇，宽为 1000 缇；圆心坐标为（3600，1500）， 半径为 500 缇；半园心坐标为（5000，1500），半径为 500 缇。在绘制图形的代 码中将图形颜色以及填充颜色均设为红色。 图 3 Private Sub Form_Click() Const pi = 3.1415926 '绘制第一个矩形 Line_________________________________________