求大神帮忙翻译一下VB代码~翻译成C#的

yezz_灬 2013-10-23 05:15:48
Private Sub input_Click()


CommonDialog1.Filter = "all files(*.*)|*.*|text_files(*.txt)|*.txt|batch files(*.bat)|*.bat"
CommonDialog1.ShowOpen

Open CommonDialog1.FileName For Input As #1
Input #1, m

For i = 1 To m
Input #1, noriver(i)
Next i

For i = 1 To m
Input #1, ff(i)
Next i



num = 1
Do While Not EOF(1) '==============资料输入
Input #1, t(num)


pp(num) = 0
For i = 1 To m
Input #1, p(num, i)
pp(num) = p(num, i) * ff(i) + pp(num)
Next i


Input #1, EPpP(num)

num = num + 1
Loop

num = num - 1 '这里表示原始系列的个数

n = num
Close #1


Open App.Path & "\源口站水位流量关系.txt" For Input As #2

For i = 1 To 107
Input #2, h(i), qh(i)
Next i

Close #2



End Sub
...全文
49 点赞 收藏 3
写回复
3 条回复
是_这样吗 2013年10月23日
工具翻译的有错自己改吧~
回复 点赞
是_这样吗 2013年10月23日

private void input_Click()
{


CommonDialog1.Filter = "all files(*.*)|*.*|text_files(*.txt)|*.txt|batch files(*.bat)|*.bat";
CommonDialog1.ShowOpen;

Open CommonDialog1.FileName For Input As #1;
	Input #1, m;

	for (var i = 1; i <= m; i++)
	{
	 Input #1, noriver(i);
	}

	for (var i = 1; i <= m; i++)
	{
	 Input #1, ff(i);
	}



	   num = 1;
	while (! (Microsoft.VisualBasic.FileSystem.EOF(1))) //==============资料输入
	{
		Input #1, t(num);


		 pp(num) = 0;
		for (var i = 1; i <= m; i++)
		{
		  Input #1, p(num, i);
		  pp(num) = p(num, i) * ff(i) + pp(num);
		}


		Input #1, EPpP(num);

		  num = num + 1;
	}

	 num = num - 1; //这里表示原始系列的个数

	 n = num;
Close #1;


Open App.Path + "\\源口站水位流量关系.txt" For Input As #2;

 for (var i = 1; i <= 107; i++)
 {
	 Input #2, h(i), qh(i);
 }

Close #2;



}
回复 点赞
是_这样吗 2013年10月23日
有工具可以直接翻译VB代码到C#的啊。。。 http://download.csdn.net/detail/zhongyuansheng/3798875
回复 点赞
发动态
发帖子
C#
创建于2007-09-28

8.4w+

社区成员

64.0w+

社区内容

.NET技术 C#
社区公告
暂无公告