您的位置：程序门 -> .net技术 -> vb.net

判断最大值语句怎么写啊（刚接触vb。net）

[收藏此页] [打印本页]选择字色：背景色：字体：[大][中][小]

判断最大值语句怎么写啊（刚接触vb。net）

发表于：2008-02-25 20:16:03 楼主

数据表如下
year day1 day2 day3 day4。。。。。。day244
1990年 0 1.7 2.1 0 1.8
1991年 0 0 0 0 0.4
。
。
。

2007年 0 0.9 0 0.8 0.2

请问怎么写语句得到每一年的七天（连续）的累加量最大值

发表于：2008-02-26 08:22:481楼得分:0

dim intday as long '天数计数
dim day7 as long '7天计数
dim temp as long ，暂时的7天数值和
dim sumvalue as long ‘7天和最大值

for intday=1 to （244-7)
for day7=intday to intday+7

'下面setdata.table.row.item.（day7)是表格行数据变量
'你可用自己的变量代替。
temp +=setdata.table.row.item.（day7)
next

'判断连续7天是否是最大
if temp > sumvalue then
sumvalue=temp
end if

temp=0

next

'最后sumvalue是7天的最大值

发表于：2008-02-26 09:35:162楼得分:0

dim dtdata as new datatable '现有数据表
dim dblmaxday as double = 0 '结果
dim intyear as integer '年循环变量
'dim intday7 as integer = 0 '每个7天的值
for intyear = 0 to 2007 - 1990 - 1
dim intday as integer '天循环变量
dim dbldayadd as double = 0 '累加天的值
for intday = 1 to 244
dbldayadd += cdbl（dtdata.rows（intyear).item（intday))
if intday mod 7 = 0 then
if dbldayadd > dblmaxday then
dblmaxday = dbldayadd
end if
dbldayadd = 0
end if
next
next

return dblmaxday '结果

发表于：2008-02-26 10:20:173楼得分:0

楼主是说的每礼拜计算比较，还是滚动的七天计算比较？

发表于：2008-02-26 10:25:314楼得分:0

滚动的

其他资讯