在窗体中添加一个列表框(ListBox1)和一个命令按钮,并编写如下代码: Private Sub Commandl_Click() Dim a, i, msg msg="Choose OK to add 100 items to your listbox." MsgBox msg For i=l To 100 a="a:" &i List1. Addltem a Next i End Sub 程
单选题
在窗体中添加一个列表框(ListBox1)和一个命令按钮,并编写如下代码: Private Sub Commandl_Click() Dim a, i, msg msg="Choose OK to add 100 items to your listbox." MsgBox msg For i=l To 100 a="a:" &i List1. Addltem a Next i End Sub 程