在窗体上画一个列表框、一个文体框及一个按钮,然后编写如下事件过程: Private Sub Form_loab() List.AddItem″357″ List.AddItem″246″ List.AddItem″123″ List.AddItem″456″ TEXT1.Text=″″ End Sub Private Sub Command1_Click() List.Listindex=3 Print List.Text1+Text1.Text End Sub 程序运行后,在文本框中输入″789″,然后双列表框中的″456″,则输出结果为