Private Sub List1_Click()Text1.Text = List1.TextEnd Sub
1楼正解
这首先要知道每个省份的城市，把这些城市全部保存在一个变量里，单击list时调用变量输出即可 我做了一个例子，告诉我你的邮箱我发给你
