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

2008-12-08 09:09:21 152 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

VB,VB.NET,C#对比 VB.NET与VB6.0相似的地方还是很多的。至少看到界面我不会陌生，直接上手操作。当然，也是有区别的地方的。VB基于对象面向的，而VB.NET是完全面向对象的。VB6.0不支持继承、重载和接口。而且，在异常处理上，VB.NET做的更好。在VB6.0中，使用的非结构化的On Error Goto和On Error Resume Next异常处理语句。而在VB.NET中，使用了结构化的Try…Catch…Finally异常处理语句。之前也有学习过C#，VB.NET和C#都是微软开发的面向对象的计算机语言。阅读详情

如题，代码如下：
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

...全文