请教C#高手将VB的一个程序转为C#代码

[yilianyin]

如题，代码如下：
Option Explicit

Dim i, j
Dim min, max, dimension, numCount
Dim dimen()
dim src()
Dim rst()

dimension = Request.Forms("txtDimension") '没个组合数字的个数
numCount = Request.Forms("txtNumCount") '数字的个数
min = 1 '最小值
max = numCount '最大值

'取得参加组合的数字
redim src(numCount)
for i=1 to numCount
src(i)=Request.Forms("txtNum" & i)
next

'从小到大排序
for i=1 to numCount-1
for j=i+1 to numCount
if src(i)>scr(j) then
src(0)=src(i)
src(i)=src(j)
src(j)=src(0)
end if
next j
next


ReDim dimen(dimension - 1) '初始各维的当前值
For i = 0 To dimension - 1
dimen(i) = min
Next i

ReDim rst(0) '初始结果数组
Do
If Not AddArray(dimen, min, max, dimension) Then Exit Do
ReDim Preserve rst(UBound(rst) + 1)
rst(UBound(rst)) = replacr2Src(dimen)
Loop

'输出结果
For i = 1 To UBound(rst)
Response.Write rst(i) & "<BR>"
Next

Private Function AddArray(ByRef theArray, ByVal lngMin, ByVal lngMax, ByVal lngDimen)
Dim i, j, currentDimen
currentDimen = 0
For i = lngDimen - 1 To 0 Step -1
If theArray(i) < lngMax Then
theArray(i) = theArray(i) + 1

If currentDimen > 0 Then
'去掉重复的值
currentDimen = lngDimen - currentDimen
For j = currentDimen To lngDimen - 1
theArray(j) = theArray(j - 1)
Next
If theArray(lngDimen - 1) = theArray(0) Then theArray(lngDimen - 1) = theArray(lngDimen - 1) + 1
If theArray(lngDimen - 1) > lngMax Then Exit For
End If

For j = lngDimen - 1 To 1 Step -1
If theArray(j) <= theArray(j - 1) Then
AddArray = AddArray(theArray, lngMin, lngMax, lngDimen)
Exit Function
End If
Next

AddArray = True
Exit Function
Else
currentDimen = currentDimen + 1
End If
Next
AddArray = False
End Function

private function replacr2Src(byval theArray)
'将组合结果替换成原始数字
Dim
For i = numCount to 1 step -1
for j=UBound(theArray)-1 to 0 step -1
if theArray(j)=i then
theArray(j)=src(i)
exit for
end if
next
next
replacr2Src=Join(theArray, ",")
end function

[yilianyin]

自己先顶一个，呵呵 。

[ericllzh]

有一个自动转换的代码的网站。我找找

[ericllzh]

http://labs.developerfusion.co.uk/convert/vb-to-csharp.aspx
到这个网站转。很简单的。

[ericllzh]

嗯。先转为VB.NET在转C＃咯

[dai78]

你先用VB.net把VB6.0的打开转换成VB.Net然后用转换工具转换成C#

[yilianyin]

那个网站我看了 ，只有Vb.net转C#的；
以上代码是老版本VB写的

[赵一一]

http://labs.developerfusion.co.uk/convert/vb-to-csharp.aspx
到这个网站转。很简单的。
不行的话。那就自己修改吧。

[killer_liqiao]

up

[longjun1627]

VB与C#就是语法上有些不同而已呀
自己看着写出来,不就可以了吗?

[eyu660]

先用VS2005打开原VB项目，它会自动改为VB.NET代码，然后再用vb-to-csharp。

[yilianyin]

那我先试试吧