1.求vb判断数字区间程序源码
2.如何用vb得到网页的邮编源码邮编源代码

求vb判断数字区间程序源码

       Private Sub Command1_Click()

       Dim a As Variant, b As Variant

       a = Array(0, 3, 4, 5, 9, , , , , , , , , , )

       b = Array(1, 2, 6, 7, 8, , , , , , , , )

       For i = 0 To UBound(a)

        If a(i) = Val(Text1.Text) Then Text2.Text = "第一区间": Exit Sub

       Next

       For i = 0 To UBound(b)

        If b(i) = Val(Text1.Text) Then Text2.Text = "第二区间": Exit For

       Next

       End Sub

       一个按钮 2个text

如何用vb得到网页的源代码

       1 先加载网页：

       Private Sub Form_Load()

        WebBrowser1.Navigate "/question/.html"

       End Sub

       2 加载完成后取字符串到文本框:

       Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)

        Dim doc As Object, objhtml As Object

        Dim strhtml As String

        On Error GoTo errorsub

        Me.Caption = WebBrowser1.LocationName & " 加载完成"

        If MaxWebNum <= 0 Then

        Set doc = WebBrowser1.Document

        Set objhtml = doc.body.createtextrange()

        If Not IsNull(objhtml) Then

        strhtml = WebBrowser1.Document.body.innertext

        Text1.Text = strhtml

        End If

        End If

        Exit Sub

       errorsub:

        Text1.Text = "错误！！自动php源码代入dw！生成wifi推广源码123456"

       End Sub