110,538
社区成员
发帖
与我相关
我的任务
分享
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;
}