定义长度为1的字符串数组（新手请教）

Question

我定义了如下字符串数组，我想让每一个字符串数组长度定义为1，以下怎么实现不了呢？显示出gR7002Array(0)的值还是123，怎么不是1呢？请大家指点下，谢谢了Public gR7002Array(15) As String
Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        For i As Integer = 0 To gR7002Array.Length - 1
            gR7002Array(i) = New String(Chr(0), 1)
        Next        gR7002Array(0) = "123"
        MessageBox.Show(gR7002Array(0))
    End Sub

Answer 1

Public gR7002Array(15) As String
Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
  For i As Integer = 0 To gR7002Array.Length - 1
  gR7002Array(i) = New String(Chr(0), 1)
  Next  gR7002Array(0) = "1"
  MessageBox.Show(gR7002Array(0))
End Sub

Answer 2

谢谢楼上回复，我下面这段程序不是保证了gR7002Array中每个字符串包含一个字节吗，为什么我赋值给gR7002Array(0) = "123"，得不到1呢For i As Integer = 0 To gR7002Array.Length - 1
  gR7002Array(i) = New String(Chr(0), 1)
  Next

Answer 3

gR7002Array(0) = "123"  ' 你这是重新赋值了。

Answer 4

谢谢楼上回复，我想限制gR7002Array中每个字符串长度为1，即使赋值给不是1个长度的字符串，想得到的是第一个字符，该怎么实现呢

Answer 5

gR7002Array(i) = New String(Chr(0), 1)
这是赋值，不是定义长度为1的

Answer 6

你要是想定义每个只包含一个字符
定义成char类型的数组就可以了Public gR7002Array(15) As char

Answer 7

既然1个字符，你干嘛不定义成字符数组呢。
dim chars(0 to 14) as char