一个有关问题，在vb中能不能定义一个长度位一千的数组，然后按照公式取其中的元素啊

请教大家一个问题，在vb中能不能定义一个长度位一千的数组，然后按照公式取其中的元素啊？
请教大家一个问题，在vb中能不能定义一个长度位一千的数组，然后按照公式取其中的元素啊？比如定义：dim ch（1000） as byte
dim a as string
dim b as string
dim c asstring
dim d as string
for i as integer to 249
a=ch(4*i)
b=ch(4*i+1)
c=ch(4*i+2)
d=ch(4*i+3)next 

我写的具体代码：

Public Class

    Public Delegate Sub myDelegate()

    Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

        For i As Integer = 0 To My.Computer.Ports.SerialPortNames.Count - 1


            cmbSerialPort.Items.Add(My.Computer.Ports.SerialPortNames(i))

        Next

        btnCloseSerialPort.Enabled = False

        SerialPort.Close()

        Timer.Enabled = False

        picState.BackColor = Color.Red

        cmbBoadrate.Items.Add("4800")

        cmbBoadrate.Items.Add("9600")

        cmbBoadrate.Items.Add("57600")

        cmbChanel.Items.Add("通道一")

        cmbChanel.Items.Add("通道二")

        cmbChanel.Items.Add("通道三")

        cmbChanel.Items.Add("通道四")

    End Sub

    Private Sub btnOpenSerialPort_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnOpenSerialPort.Click

        If SerialPort.IsOpen = True Then

            SerialPort.Close()

        End If

        If cmbSerialPort.Text = "" Then

            MessageBox.Show("请选择一个串口", "串口选择警告", MessageBoxButtons.OK, MessageBoxIcon.Error)

        Else


            SerialPort.PortName = cmbSerialPort.Text

            SerialPort.ReadBufferSize = 4096

            SerialPort.BaudRate = cmbBoadrate.Text

            SerialPort.Parity = IO.Ports.Parity.None

            SerialPort.DataBits = 8

            SerialPort.StopBits = IO.Ports.StopBits.One

            SerialPort.DiscardNull = True

            SerialPort.DtrEnable = False

            SerialPort.Encoding = System.Text.Encoding.ASCII