四、完善程序题（共10分】 30.程序运行界面如图1所示。要求从文本框中输入课程名称，然后按“添加”按钮，将其 添加到列表框中；当选择列表框中某一项后，按“删除”按钮，则从列表框中删除该项；当选择列 表框中某一项后，按“修改”按钮，把列表框中选取的项送往文本框且“修改”按钮变为“修改确 认”。在文本框的内容修改好后，按“修改确认”按钮，再把文本框中修改后的信息送到列表框 且“修改确认”按钮变为“修改”。 。列表框应用程序 日回☒ 程序设计基础 B程序设计 Textl SQLServer数据库应用 网站设计技术 系统开发 与文档编写 添加 Commandl Listl 信息系统试 信息系统开发案例分折与 网络实用技 纸 Command2 Delphi程序设讦基础 眦除 修改 Command3 图1 程序如下，请补充完整。 Private Sub Form._Load() List1.AddItem"计算机应用基础" Listl.AddItem"程序设计基础" Listl.AddItem"VB程序设计" Listl.AddItem"SQL Server数据库应用" Listl.AddItem"网站设计技术" Listl.AddItem"系统开发规范与文档编写" Listl,AddItem"信息系统测试" End Sub Private Sub Command1_Click() If Text1.Text<>""Then 1074四、完善程序题(共 30. 运行界面 图l 所示 要求 文本 入课程 添加到列表框中;当选择列表框中某一项后，按"删除"按钮，则从列表框中删除该项;当选择列 表框中某一项后，按"修改"按钮，把列表框中选取的项送往文本框且"修改"按钮变为"修改确 认"。在文本框的内容修改好后，按"修改确认"按钮，再把文本框中修改后的信息送到列表框 且"修改确认"按钮变为"修改"。 List! 程序如下，请补充完整。 Private Sub Form一LoadO Listl. AddItem" 机应 Listl. AddItem" 设计基 Listl. AddItem"VB Listl. AddItem咆QL Server 库应 Listl. AddItem" Listl. AddItem" 编写 Listl. Addltem" End Sub Private Sub Commandl_ClickO If Textl. Text<> '''' Then 1074 Textl Commandl Command2 Command3