各位好，新手刚接触C#，有份VB版的小程序代码，需要转换成C#，需要寻求帮助，可适当付费，麻烦大家看看，多谢

部分代码如下：
Dim Input_Data_APP As Excel.Application
Dim Input_Data_WB As Excel.Workbook
Dim Input_Data_WS Data1 As Excel.Worksheet
Dim Input_Data_WS_Data2AsExcel.Worksheet
Dim Output_Data WS A sExcel.Worksheet
Set Input_Data_APP = CreateObject("Excel.Application")
Set Input_Data_WB = Input_Data_APP.Workbooks.Open(LOCA_DIF_Path)
Set Input_Data_WS_Data1 = Input_Data_WB.Worksheets(1)
Set Input_Data_WS_Data2 = Input_Data_WB.Worksheets(2)
Input_Data_APP.Visible = True
Dim V(1 To 9,1 To 2)                 
Dim L(1 To 100,1 To 31)
Dim D_Ele(1 To 100,1 To 2)            
Dim D_Par(1 To 100,1 To 2)            
Dim R(1 To 100,1 To 9)
Dim Rate_I_Ele                     
Dim Rate_I_Par                        
Dim Rate_I_Org                        
Dim Name_Ele(1 To 200)
Dim Style_Ele(1 To 200)
Dim Lamda(1 To 200)
Dim A_Core(1 To 200)
Dim A_Start(1 To 200)
Dim T_Start
Dim NO_Ele
Dim V_CODE(1 To 9)
Dim L_CODE(1 To 9, 1 To 9, 1 To 730)
Dim L_Out_Total(1 To 9, 1 To 730)
Dim D_Ele_CODE(1 To 7300)
Dim D_Par_CODE(1 To 7300)
Dim R_C0DE(1 To 8,1 To 7300)
Dim T_Fenduan(0 To 20000)
Dim A_Node(1To200,1To9)
Dim A_Ele_Node(1 To 200, 1 To 9)
Dim A_Org_Node(1 To 200, 1 To 9)
Dim A_Par_Node(1 To 200, 1 To 9)
     For i = 1 To 9
       For j = 1 To 2                  
         V(i,j) = Input_Data_WS_Data1.Cells(i + 5, j + 1)
       Next j
     Next i
     For i = 1 To 100
       For j = 1 To 31
         L(i,j) = Input_Data_WS_Data1.Cells(i + 4, j + 24)
       Next j
     Next i
     For i = 1 To 100
       For j = 1 To 2
         D_Ele(i,j) = Input_Data_WS_Data1.Cells(i + 5, j + 5)
       Next j
     Next i
     For i = 1 To 100
       For j = 1 To 2
         D_Par(i,j) = Input_Data_WS_Data1.Cells(i + 5, j + 9)
       Next j
     Next i
     For i = 1 To 100
       For j = 1 To 9
         R(i,j) = Input_Data_WS_Data1.Cells(i + 5, j + 13)
       Next j
     Next i
     Rate_I_Ele = Input_Data_WS_Data1.Cells(l, 6)
     Rate_I_Org = Input_Data_WS_Data1.Cells(2, 6)
     Rate_I_Par = Input_Data_WS_Data1.Cells(3, 6)
     NO_Ele = 0
     For i = 4 To 203
       If Input_Data_WS_Data2.Cells(i, 3) <> "" Then
         NO_Ele = NO_Ele + 1
         Name_Ele(NO_Ele) = Input_Data_WS_Data2.Cells(i, 3)
         Style_Ele(NO_Ele) = Input_Data_WS_Data2.Cells(i, 4)
         Lamda(NO_Ele) = Input_Data_WS_Data2.Cells(i, 5)
         A_Core(NO_Ele) = Input_Data_WS_Data2.Cells(i, 6)
         A_Start(NO_Ele) = Input_Data_WS_Data2.Cells(i, 7)
       End if  

对的，与excel相关，主要是以excel为总的输入数据，从中提取对应的数据，然后根据数学公式进行计算，输出结果。
不知阁下可否提供帮助？愿意提供一定的报酬。有意我们详谈，谢支持。