vb.net變成 數(shù)組組合情況輸出問題

using System;

成都創(chuàng)新互聯(lián)專注于沈河企業(yè)網(wǎng)站建設(shè),響應(yīng)式網(wǎng)站設(shè)計(jì),商城建設(shè)。沈河網(wǎng)站建設(shè)公司,為沈河等地區(qū)提供建站服務(wù)。全流程按需網(wǎng)站策劃，專業(yè)設(shè)計(jì)，全程項(xiàng)目跟蹤，成都創(chuàng)新互聯(lián)專業(yè)和態(tài)度為您提供的服務(wù)

using System.Collections.Generic;

using System.Text;

namespace ConsoleApplication42

{

class Program

{

static void Main(string[] args)

{

count = 0;

String[] s = Console.ReadLine().Split(' ');

int[] array = new int[s.Length];

for (int i = 0; i s.Length; i++)

{

array[i] = Convert.ToInt32(s[i]);

}

int m = Convert.ToInt32(Console.ReadLine());

Listint arraylist = new Listint();

arraylist.AddRange(array);

Output(arraylist, m, null);

Console.WriteLine("共有" + count.ToString() + "個(gè)");

Console.ReadKey();

}

static int count = 0;

static void Output(Listint array, int m, Listint output)

{

if (output == null)

output = new Listint();

if (m == 0)

{

for (int i = 0; i output.Count; i++)

{

Console.Write(output[i].ToString() + " ");

}

Console.Write("\r\n");

count++;

return;

}

else

{

for (int i = 0; i array.Count; i++)

{

Listint output2 = new Listint();

output2.AddRange(output.ToArray());

output.Add(array[i]);

Listint array2 = new Listint();

array2.AddRange(array.ToArray());

for (int j = 0; j = i; j++)

{

int number = array[j];

array2.Remove(number);

}

Output(array2, m - 1, output);

output.Clear();

output.AddRange(output2.ToArray());

}

}

}

}

}

額，沒注意VB，用C#寫的。。。

輸出了的，你新建一個(gè)C#控制臺(tái)程序，把這段貼進(jìn)去，運(yùn)行一下就知道了

先輸入一組字符串，然后輸入一個(gè)整數(shù)，就會(huì)把所有的組合輸出出來(lái)

我把這段轉(zhuǎn)成VB再發(fā)一次吧

Module Module1

Sub Main()

count = 0

Dim s As String() = Console.ReadLine().Split(" ")

Dim array(0 To s.Length - 1) As Integer

For i As Integer = 0 To s.Length - 1

array(i) = Convert.ToInt32(s(i))

Next

Dim m As Integer = Convert.ToInt32(Console.ReadLine())

Dim arraylist As New List(Of Integer)

arraylist.AddRange(array)

Print(arraylist, m, Nothing)

Console.WriteLine("共有" + count.ToString() + "個(gè)")

Console.ReadKey()

End Sub

Sub Print(ByRef array As List(Of Integer), ByVal m As Integer, ByRef output As List(Of Integer))

If output Is Nothing Then

output = New List(Of Integer)()

End If

If m = 0 Then

For i As Integer = 0 To output.Count - 1

Console.Write(output(i).ToString() + " ")

Next

Console.Write(vbCrLf)

count = count + 1

Return

Else

For i As Integer = 0 To array.Count - 1

Dim array2 As New List(Of Integer)

Dim output2 As New List(Of Integer)

output2.AddRange(output.ToArray())

output.Add(array(i))

array2.AddRange(array.ToArray())

For j As Integer = 0 To i

Dim number As Integer = array(j)

array2.Remove(number)

Next

Print(array2, m - 1, output)

output.Clear()

output.AddRange(output2.ToArray())

Next

End If

End Sub

Dim count As Integer = 0

End Module

VB中數(shù)組怎么定義

是這么定義的：

數(shù)組中的第一個(gè)元素的下標(biāo)稱為下界，最后一個(gè)元素的下標(biāo)稱為上界，其余的元素連續(xù)地分布在上下界之間，且數(shù)組在內(nèi)存中也是用連續(xù)的區(qū)域來(lái)存儲(chǔ)的，所以數(shù)組每維的長(zhǎng)度不能超過Long數(shù)據(jù)類型的最大值，即264—1=263。

把VB．NET數(shù)組當(dāng)作一個(gè)對(duì)象來(lái)處理，就意味著數(shù)組類型是單個(gè)引用類型，數(shù)組變量包括指向構(gòu)成數(shù)組元素、數(shù)組維和數(shù)組長(zhǎng)度等數(shù)據(jù)的指針，數(shù)組之間互相賦值但僅僅是在相互復(fù)制指針，數(shù)組繼承了System名字空間的Array類。

VB．NET中的數(shù)組有兩種類型：定長(zhǎng)數(shù)組和動(dòng)態(tài)數(shù)組。

擴(kuò)展資料：

1、數(shù)組的使用

在’VB 6．0中，能夠用For Each來(lái)循環(huán)遍歷一個(gè)數(shù)組。

比如：

Dim?x?As?Integer

F0r?Each?x?In?arrayl

Console．WriteLine(x)

Next?

2、在VB．NET中能夠使用For循環(huán)和數(shù)組長(zhǎng)度來(lái)遍歷一個(gè)數(shù)組。

比如：

Dim?i?As工nteger? ?

F0r?i=0?T0??(arrayl．Length-1)

（此處空一行）

Console．WriteLine(arrayl(1)J

Next?i

vb.net 數(shù)組的定義方法

1、vb.net的

數(shù)組定義與變量定義差不多。可以用

dim

來(lái)定義

比如:

dim

a（100）

as

integer。

也可以不定義下標(biāo)

在程序中

用

redim

來(lái)定義。

如：

dim

a()

as

integer

'

'

redim

a(100)

2、vb.net中定義數(shù)組可以直接賦值。

如：

dim

a()

as

integer

={1,

2,

3,4}

vb.net如何定義一維和多維數(shù)組

用一個(gè)帶括號(hào)的變量名來(lái)定義一維數(shù)組和多維數(shù)組如dim a(5) as integer '定義了1個(gè)1維、6個(gè)元素?cái)?shù)組dim a(5,5) as integer '定義了1個(gè)2維、36個(gè)元素的數(shù)組

關(guān)于在vb程序中使用一維數(shù)組變量有哪些需要注意的？

vb專指vb6,如果vs2001以后的，請(qǐng)用vb.net提問

1、需要知道數(shù)組下標(biāo)開始以及結(jié)束位置，vb6數(shù)組的下標(biāo)可以從任意位置開始，如：

dim a(-5 to 5) as integer

2、數(shù)組下標(biāo)不要越界。

3、傳數(shù)組是傳地址的。

4、要知道什么是靜態(tài)數(shù)組、什么是動(dòng)態(tài)數(shù)組。

VB.NET自定義結(jié)構(gòu)中包含數(shù)組，REDIM后地址還是連續(xù)的嗎？

一. 前提定要聲明數(shù)組,需要賦值或者標(biāo)明維數(shù)例dim a() as integer 二. 使用redim重新定義數(shù)組數(shù)組數(shù)據(jù)全部初始化要保留原數(shù)據(jù)加preserve 三 redim能修改數(shù)據(jù)維數(shù)能改變數(shù)組類型 四 redim 能夠全局聲