vb.net自定义数组,vbs定义数组

vB.net语言编写N个数字数组排序可自定义数组长度的

Dim d() As Integer

Dim n As Integer

Dim i As Integer

Dim j As Integer

Dim T As Integer

n = Val(InputBox("请输入n，确定数组的元素个数"))

ReDim d(n)

'用随机函数生成正整数数组

Randomize

For i = 1 To n

d(i) = Int(Rnd * 100 + 1)

Next i

'输出

Print

For i = 1 To n

Print d(i),

Next i

'从小到大排序

For i = 1 To n - 1

For j = i + 1 To n

If d(i) d(j) Then

T = d(i)

d(i) = d(j)

d(j) = T

End If

Next j

Next i

'输出

Print

For i = 1 To n

Print d(i),

Next i

相关问答

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

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

Q2: vb.net 数组的定义方法

1、vb.net的

数组定义与变量定义差不多。可以用

dim

来定义

比如:

dim

a（100）

as

integer。

也可以不定义下标

在程序中

用

redim

来定义。

如：

dim

a()

as

integer

'

'

redim

a(100)

2、vb.net中定义数组可以直接赋值。

如：

dim

a()

as

integer

={1,

2,

3,4}

Q3: 在VB.NET中,使用Redim语句重新定义一个数组是,需要注意什么问题

1. 前提一定要声明一个数组,不需要赋值或者标明维数，例如dim a() as integer

2. 如果使用redim重新定义一个数组，数组里数据全部被初始化，要保留原有数据加上preserve

3 redim只能修改数据最后的维数，不能改变数组类型

4 redim 不能够全局声明