在VC中怎么将一个数组中的数据通过串口发送？

一个数组中存储了一些数据，要求是每200ms左右发送数组中的5个数据，数据都是整形的，该怎么写程序啊，求教大神！

答案：Dim cycle(1 To 4) As String
    Dim i As Integer

Private Sub Command1_Click()
    Timer1.Enabled = True
End Sub

Private Sub Form_Load()
    Timer1.Enabled = False
    Timer1.Interval = 1000
    MSComm1.Settings = "9600,n,8,1"
    MSComm1.RThreshold = 1
    MSComm1.PortOpen = True
    cycle(1) = "#4p1900"
    cycle(2) = "#4p1600"
    cycle(3) = "#4p1800"
    cycle(4) = "#4p1400"
End Sub

Private Sub Timer1_Timer()
    i = i + 1
    MSComm1.Output = cycle(i)
    If i >= 4 Then
        i = i - 4
    End If
End Sub

其他：转换成一个CString对象，操作串口发送就行了啊，200ms用定时器就行 。。。 

上一个：vc++6.0中文版总体是C1.EXE出错
下一个：VC中用Edit Box传递参数的问题