两组数据你要有关联的东西，简单的用二维数组（建议用集合Collection），如果用数据库，后面操作会比较简单。
当然，如果数据不是很多，直接在代码里写就行了，比如
'添加数据到Combo，也可以直接在设计界面编辑列表（List属性）
Combo1.Clear
Combo1.AddItem "操场"
Combo1.AddItem "教学楼"
...
'点击事件Click里的代码
select case Combo1.Index
case 0 '这里需要你自己去对应数据，跟上面一致，这里是“操场”
Text1.Text = "1200" '操场的面积
case 1
Text1.Text = "300" '教学楼面积
case 2
...
End Select
'这是直接显示你选的内容，改成相应的就ok了
Private Sub Combo1_Click()
Text1.Text = Combo1.Text
End Sub
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024