從網站上獲取需要的數據實力(天氣預報)

//定義

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
    ''河北省
    If Combo1.Text = "河北省" Then
        Combo2.AddItem "石家莊"
   &