窗体上有一个名称为ComBo1的组合框，其中已经添加了若干项目。程序运行时，单击CommAnD1命令按钮，会把选中的项目从组合框中删除。请填空。 　　privAtE suB CommAnD1_CliCk()
　　Dim str As string
　　Dim i As intEgEr
　　str = rtrim(&nBsp;&nBsp;&nBsp;&nBsp;&nBsp;&nBsp;&nBsp;&nBsp;&nBsp;&nBsp;&nBsp;&nBsp;&nBsp;&nBsp;&nBsp;&nBsp;&nBsp;&nBsp;&nBsp;&nBsp;&nBsp; .tExt)
　　iF str > "" thEn
　　For i = 0 to&nBsp;&nBsp;&nBsp;&nBsp;&nBsp;&nBsp;&nBsp;&nBsp;&nBsp;&nBsp;&nBsp;&nBsp;&nBsp;&nBsp;&nBsp;&nBsp;&nBsp;&nBsp;&nBsp;&nBsp;&nBsp;
　　iF ComBo1.list(i) = str thEn ComBo1.rEmovEitEm&nBsp;&nBsp;&nBsp;&nBsp;&nBsp;&nBsp;&nBsp;&nBsp;&nBsp;&nBsp;&nBsp;&nBsp;&nBsp;&nBsp;&nBsp;&nBsp;&nBsp;&nBsp;&nBsp;&nBsp;&nBsp;
　　nExt i
　　EnD iF
　　EnD suB