如何实现这个软件的功能?

Question

这是一个根据公式自动求得各个城市的温度的软件。假设公式为T=（海拨h*纬度*纬度）/12.5
时间用Combo1分为24小时、48小时、72小时,而这些城市又把它他归纳为北部(如城市1、城市2、城市3、...)、中部（如城市4、城市5、城市6、...）、南部（如城市7、城市8、城市9、...）,当在Text1输入天气情况如小雨,就表示北部的所有城市为小雨,依此当在Text2输入多云就表示中部的所有城市为多云...
要求，当选择24小时按下计算按钮Command1时，统计出所有城市的24小时天气情况和计算所得的温度，之后按显示按钮Command2时可以显示所有结果并能手工修改结果，当一切正确时，按存库按钮Command3所有数据存入数据库。
注：北部、中部、南部的城市要可以随时改变。
如图:请大家帮帮忙，看看这个怎么做啊！？图上传不上，可以到这儿看看图,有我发的帖http://bbs.bccn.net/thread-241648-1-1.html

Answer 1

If Trim(Text5.Text) <> "" Then
Adodc1.RecordSource = "select * from 城市 where 地域='" & Combo2.Text & "'"
Adodc1.Refresh
If Adodc1.Recordset.EOF Then
MsgBox "没有" & Combo2.Text & "的城市信息", 0 + 48, "提示"
Exit Sub
End If
Do While Not Adodc1.Recordset.EOF
Select Case Val(Text5.Text)
Case 0
Text3.Text = Round(Adodc1.Recordset.Fields("经度") * Adodc1.Recordset.Fields("纬度") / 12.5, 1)Case 1
Text3.Text = Round((Adodc1.Recordset.Fields("经度") + Adodc1.Recordset.Fields("纬度")) / 10, 1)
End Selectdbs.Execute "insert into 气象 (日期,地域,城市,温度,风向,风力,天气) values('" & DTPicker1.Value & "','" & Combo2.Text & "','" & Adodc1.Recordset.Fields("城市") & "'," & Val(Text3.Text) & ",'" & Text1.Text & "','" & Text2.Text & "','" & Text6.Text & "')"Adodc1.Recordset.MoveNext
Loop
ElseMsgBox "请选择公式", 0 + 48, "提示"
Option1.Value = True
Exit Sub
End If