关于使用链接的问题？

Question

Private Sub cmd2_Click()
    Dim s As String
    Dim p As String
    Inet1.Cancel
    Inet1.protocol = icHTTP
    p = Trim(stocknum.Text)
    Inet1.url = "http://money.finance.sina.com.cn/corp/go.php/vFD_BalanceSheet/stockid/000001/ctrl/part/displaytype/4.phtml"
    s = ""
    s = Inet1.OpenURL
    'Debug.Print s
end sub
想问一下，大量的用到相似的链接应该怎么处理，如上面的例子，“000001”的部分是递增的，但是其他部分不变，应该把这部分做成变量，还是创建数据库，从数据库读取？

Answer 1

如果只是简单的递增用变量好了，比如：Private Sub cmd2_Click()
    Dim s As String
    Dim p As Stringdim tt as long
for tt=1 to 100    Inet1.Cancel
    Inet1.protocol = icHTTP
    p = Trim(stocknum.Text)
    Inet1.url = "http://money.finance.sina.com.cn/corp/go.php/vFD_BalanceSheet/stockid/" & right("000000" & tt,6) & "/ctrl/part/displaytype/4.phtml"
    s = ""
    s = Inet1.OpenURL
    'Debug.Print snext ttend sub

Answer 2

'如果用循环处理里就变量吧
dim x as string
for i=1 to 1000
x=format(i,"000000")
  Inet1.url = "http://money.finance.sina.com.cn/corp/go.php/vFD_BalanceSheet/stockid/" & x & "/ctrl/part/displaytype/4.phtml"
'......
next
'如果手工处理，不在循环里做，用不用变量意思不大

Answer 3

for tt=1 to 100
后面加
Step 3
for tt=1 to 100 Step 3
表示每三个取一个