求大神帮忙翻译一下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
...全文
80 3 打赏 收藏 转发到动态 举报
写回复
用AI写文章
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

110,538

社区成员

发帖
与我相关
我的任务
社区描述
.NET技术 C#
社区管理员
  • C#
  • Web++
  • by_封爱
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告

让您成为最强悍的C#开发者

试试用AI创作助手写篇文章吧