yezz_灬 2013年10月23日
求大神帮忙翻译一下VB代码~翻译成C#的
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
...全文
48 点赞 收藏 3
写回复
3 条回复

还没有回复,快来抢沙发~

发动态
发帖子
C#
创建于2007-09-28

8.4w+

社区成员

64.0w+

社区内容

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