| 查看: 448 | 回复: 1 | ||
[求助]
哪位计算机打算麻烦帮我看看这段程序哪里有问题，怎么运行不下去！
|
|
Private Sub Command1_Click() Cls '品种属性参数 a = 4.77: b = 10: c = 43: o = 30: FLDN = 16 '常数a；水稻生长下限温度b；水稻生长上限温度c；水稻开花适宜温度o;FLDN为开花持续天数 '读入气象资料 Dim Tmax(366) As Single 'Tmin(366) As Single bb = Text3.Text Open App.Path & "\" & bb & ".txt" For Input As #3 For NF = 1961 To 2010 If NF / 4 - Int(NF / 4) < 0.1 Then LN = 1 Else LN = 0 End If 'LN = 0 For i = 1 To 365 + LN 'Input #3, SN, YY, MM, dd, LT, HT, SH 'Input #3, SN, YY, MM, dd, RF, WS, TA, SH, LT, HT Input #3, SN, YY, MM, dd, AP, AT, HT, LT, RH, WS, PR, SH Tmax(i) = HT / 10 '- 1.5 'Tmin(i) = LT / 10 '- 1.5 Next i 'Print SN, YY, MM, dd, LT, HT, SH '高温败育模拟 '始花期由日期转换为日序 FLM = Text4.Text FLD = Text6.Text KKK = 0 If Int(NF / 4) = NF / 4 Then KKK = 1 If FLM <= 2 Then SH = Int(30.6 * FLM + FLD - 30) Else SH = Int(30.6 * FLM + FLD - 32.3) + KKK End If 'Print SH Dim AT(366) As Single '水稻始花期前五天及后十五天共二十天的日最高气温的平均值 For i = SH - 5 To SH + FIDN - 1 Sum = Sum + Tmax(i) Next i AT(SH) = Sum / 20 'Print AT(SH) Dim X As Single If AT(SH) > o Then X = [(AT(SH)-b)/(o-b)] * [(c-(AT(SH))/(c-o)] ^ [(c-o)/(o-b)] SHRT = 1 - X ^ a Else SHRT = 0 End If SHRT = Int(SHRT * 100 + 0.5) / 100 Text2.Text = SHRT Print NF, LN, SHRT Next NF End Sub |
回复此楼» 猜你喜欢
垃圾破二本职称评审标准
已经有18人回复
-
职称评审没过，求安慰
已经有53人回复
-
毕业后当辅导员了，天天各种学生超烦
已经有5人回复
-
26申博自荐
已经有3人回复
-
A期刊撤稿
已经有4人回复
-
EST投稿状态问题
已经有7人回复
» 本主题相关价值贴推荐，对您同样有帮助:
- 急：求用Fortran或者其他语言编写一个程序，处理下面的数据！！！！！！！！！！
已经有37人回复
- vs2010怎么编译udf程序
已经有10人回复
- 哪位大神帮我看看这张石墨烯的TEM照片
已经有20人回复
- 哪位大神帮我看看这个能不能证明有羧基存在？
已经有14人回复
- 哪位大哥能帮我看看这个ASPEN模拟的结果哪里出现问题了吗
已经有7人回复
- 关于激光器matlab程序
已经有5人回复
- 实在是看不出这段matlab程序里哪里出错了，请大家帮忙看看！
已经有10人回复
- 稿子现在在终审，投过计算机辅助设计与图形学学报 的 帮我看看吧
已经有11人回复
- 请问为什么我的电脑matlab装不上
已经有6人回复
- 有谁用过tomlab，帮我看看下面程序哪里出错了。。。。
已经有11人回复
- 大家爱帮我看看这段MATLAB程序为啥出错了
已经有5人回复
- 哪位大神来指导下数字信号处理怎么学，感激不尽
已经有30人回复
- 哪位大神帮我看看这个从牛肚子里出来的东西是什么
已经有14人回复
- 麻烦各位大侠帮我看看这个是什么问题造成的，小弟不胜感激
已经有4人回复
- 大家帮我看一个fortran的程序，我总是计算不出正确的结果
已经有20人回复
- 麻烦塔菲尔曲线高手帮我看看这几个图，说明什么问题，或者能从中得出什么信息？
已经有12人回复
- 有会看fortran程序的，能帮忙看看这个程序吗？
已经有10人回复
- 同一台电脑能打开多个matlab同时运行吗？
已经有9人回复
- 求高手帮我看看我写的台达PLC控制步进电机的程序对不对
已经有7人回复
deephill
铁杆木虫 (职业作家)
- 应助: 59 (初中生)
- 金币: 5262.3
- 散金: 100
- 红花: 16
- 帖子: 4425
- 在线: 425小时
- 虫号: 305318
- 注册: 2006-12-09
- 性别: GG
- 专业: 微量元素地球化学
2楼2015-05-27 00:15:25