求高手给端小代码，很简单，但我不会用VB，汗。

Question

再简单也是一个完整的程序了啊,建议往www.csto.com等威客网站挂任务

Answer 1

在工程中需要引用“Microsoft ActiveXData Objects 2.5 Library”或其它版本的ADO
在界面中放一个Label1，一个Command1，一个Timer1，然后放下面代码
Option Explicit
Dim NameSZ() As String, TelSZ() As String, CurrI As LongPrivate Sub Form_Load()
    Dim cn1 As New ADODB.Connection, rst As New ADODB.Recordset, i As Long
    cn1.Open "Driver={Microsoft Excel Driver (*.xls)};ReadOnly=0;DBQ=c:\aaa.xls"
    rst.Open "select * from [Sheet1$]", cn1, adOpenKeyset, adLockReadOnly '"Sheet1" 是工作表名称
    ReDim NameSZ(rst.RecordCount)
    ReDim TelSZ(rst.RecordCount)
    For i = 1 To rst.RecordCount
        NameSZ(i) = rst.Fields(0)
        TelSZ(i) = rst.Fields(1)
        rst.MoveNext
    Next
    rst.Close
    cn1.Close
    Timer1.Enabled = True
    Timer1.Interval = 2000
    CurrI = 0
End SubPrivate Sub Timer1_Timer()
    CurrI = CurrI + 1
    If CurrI > UBound(NameSZ) Then CurrI = 1
    Label1.Caption = NameSZ(CurrI) & "  " & CurrI & "/" & UBound(NameSZ)
End Sub
Private Sub Command1_Click()
    Timer1.Enabled = False
    Label1.Caption = NameSZ(CurrI) & "  " & TelSZ(CurrI) & "  " & CurrI & "/" & UBound(NameSZ) + 1
End Sub