标题：marketcount

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:userform1.rar

此主题相关图片如下：marketcount.png

代码：

Sub UserForm1_CommandButton1_Click()   
    dim a,i
    dim mar
    a=marketdata.MarketCount
    application.MsgOut "a="& a
    for i=0 to i=a-1
        set mar=marketdata.GetMarketByIndex(i)
        application.MsgOut mar.name & "  "
    next
End Sub

输出 a=30，可是却只输出了一个market.name

请您耐心等待