从网站上获取需要的数据实例(天气预报)

　　//定义

Option Explicit
Private Type Weather
　　strAdd　　 As String
　　strDate　　As String
　　strPicPath As String
　　strWeather As String
　　strWind　　As String
　　strSM(10)　As String

　　End Type

　　Public Weatherday(2) As Weather

　　//*******************************************************************

　　//窗体

Option Explicit
Dim strHTML As String
Public StaFlag As Byte
Private Sub Combo1_Click()

　　Combo2.Clear

　　'北京

　　If Combo1.Text = "北京市" Then
　　　　Combo2.AddItem "北京"

　　End If

　　'天津

　　If Combo1.Text = "天津市" Then
　　　　Combo2.AddItem "天津"

　　End If

　　'山西省

　　If Combo1.Text = "山西省" Then
　　　　Combo2.AddItem "太原"
　　　　Combo2.AddItem "大同"
　　　　Combo2.AddItem "阳泉"
　　　　Combo2.AddItem "晋城"
　　　　Combo2.AddItem "朔州"
　　　　Combo2.AddItem "忻州"
　　　　Combo2.AddItem "离石"
　　　　Combo2.AddItem "榆次"
　　　　Combo2.AddItem "临汾"
　　　　Combo2.AddItem "运城"
　　　　Combo2.AddItem "长治"

　　End If

　　'河北省