vb.net定义一维数组 vb一维数组的定义方式

怎样在VB.NET中，定义了一个不知大小的一维数组，然后给这个数组添加值

使用动态定义

ReDim a() AS **********'定义一个动态数组

...........

计算出第一个Y

ReDim a(0)

a(0)=Y

.....................

计算出第二个Y

ReDim Preserve a(1) '再次分配元素并保留原有元素

a(1) =Y

.........................

.........................

ReDim Preserve a(N) '第N次分配元素并保留原有元素

a(N) =Y

相关问答

Q1: vb.net中定义一维整型数组语句是

Dim intArray() As Integer

- Or -

Dim intArray() As Integer = New Integer() { 0 }

- Or -

Dim intArray As Integer()

- Or -

Dim intArray As Integer() = New Integer() { 0 }

- Or -

Dim intArray(10) As Integer

Q2: vb.net如何定义一维和多维数组

用一个带括号vb.net定义一维数组的变量名来定义一维数组和多维数组如dim a(5) as integer '定义vb.net定义一维数组了1个1维、6个元素数组dim a(5,5) as integer '定义了1个2维、36个元素vb.net定义一维数组的数组

Q3: vb.net代码声明一个一维字符类型的数组，有20个元素，每个元素最多存放十个字符。字符个数随机，

 Dim a(20) As String

        Dim num As Integer

        Dim ppp As String = ""

        Dim temp As String = ""

        For i = 1 To 20

            temp = ""

            num = Int(Rnd() * 10 + 1)

            For j = 1 To num

                temp = temp  Chr(Int(Rnd() * 26 + 97))

            Next

            a(i) = temp

        Next

        Dim max As Integer = 0

        For i = 1 To 20

            If a(i).Length  max Then

                max = a(i).Length

            End If

        Next

        For i = 1 To 20

            If a(i).Length = max Then

                ppp = ppp  "字符最多vb.net定义一维数组的元素是第"  i  "个元素"  a(i)  vbCrLf

            End If

        Next

        For i = 1 To 20

            TextBox1.Text = TextBox1.Text  a(i).PadRight(10)  "          "

            If i Mod 4 = 0 Then

                TextBox1.Text = TextBox1.Text  vbCrLf

            End If

        Next

        TextBox1.Text = TextBox1.Text  ppp

vb.net定义一维数组的介绍就聊到这里吧，感谢你花时间阅读本站内容，更多关于vb一维数组的定义方式、vb.net定义一维数组的信息别忘了在本站进行查找喔。