请大侠帮小弟我看看这段简单的C#如何转换成VB.NET代码
请大侠帮我看看这段简单的C#怎么转换成VB.NET代码
public A[] GetA()
{
IList alist = new ArrayList();
A a;
for (int i = 0; i < 100; i++)
{
a = new A();
a.A1 = "x ";
a.A2 = 1;
alist.Add(a);
}
A[] aarray = new A[alist.Count];
for (int i = 0; i < aarray.Length; i++)
{
aarray[i] = alist[i] as A;
}
return aarray;
}
' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' '
'下面是类A 这个我已经转换成VB的,但是上面的代码我不知道怎么转换!
public class A
{
public A()
{
//
// TODO: 在此处添加构造函数逻辑
//
}
private string a1;
private int a2;
public string A1
{
get { return a1; }
set { a1 = value; }
}
public int A2
{
get { return a2; }
set { a2 = value; }
}
}
------解决方案--------------------
sorry,j写成i了,改正:
Public Function GetA() As A()
Dim alist As IList = New ArrayList
Dim aa As A
For i As Integer = 0 To 99
aa = New A
aa.A1 = "x "
aa.A2 = 1
alist.Add(aa)
Next
Dim aarray() As A
ReDim aarray(alist.Count)
public A[] GetA()
{
IList alist = new ArrayList();
A a;
for (int i = 0; i < 100; i++)
{
a = new A();
a.A1 = "x ";
a.A2 = 1;
alist.Add(a);
}
A[] aarray = new A[alist.Count];
for (int i = 0; i < aarray.Length; i++)
{
aarray[i] = alist[i] as A;
}
return aarray;
}
' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' '
'下面是类A 这个我已经转换成VB的,但是上面的代码我不知道怎么转换!
public class A
{
public A()
{
//
// TODO: 在此处添加构造函数逻辑
//
}
private string a1;
private int a2;
public string A1
{
get { return a1; }
set { a1 = value; }
}
public int A2
{
get { return a2; }
set { a2 = value; }
}
}
------解决方案--------------------
sorry,j写成i了,改正:
Public Function GetA() As A()
Dim alist As IList = New ArrayList
Dim aa As A
For i As Integer = 0 To 99
aa = New A
aa.A1 = "x "
aa.A2 = 1
alist.Add(aa)
Next
Dim aarray() As A
ReDim aarray(alist.Count)