1樓:歸萱
private sub command1_click()
dim a(1 to 4, 1 to 4), i, j, s, n as single
a(1, 1) = 2008222001: a(1, 2) = "大學化學": a(1, 3) = 70: a(1, 4) = 1
a(2, 1) = 2008222001: a(2, 2) = "大學物理": a(2, 3) = 60: a(2, 4) = 2
a(3, 1) = 2008222002: a(3, 2) = "計算機": a(3, 3) = 20: a(3, 4) = 3
a(4, 1) = 2008222003: a(4, 2) = "大學化學": a(4, 3) = 70: a(4, 4) = 1
s = a(1, 1): n = iif(val(a(1, 3)) >= 60, val(a(1, 4)), 0)
for i = 2 to ubound(a, 1)
if s = a(i, 1) then
n = n + iif(val(a(i, 3)) >= 60, val(a(i, 4)), 0)
else
print "******" & vbnewline & s, n
n = iif(val(a(i, 3)) >= 60, val(a(i, 4)), 0)
end if
s = a(i, 1)
next
print "******" & vbnewline & s, n
end sub
2樓:匿名使用者
dim i as integer
dim xf as single
dim a() as variant
xf = 0
for i = 1 to 300
if a(i, 1) = a(i+1, 1) thenif a(i, 3) >= 60 thenxf = xf + a(i, 4)
end if
else
if a(i, 3) >= 60 thenxf = xf + a(i, 4)
end if
print "********"
print xf
xf = 0
end if
next i
如何把SQL表中的第一行資料更新到第二行中
du瓶邪 create table tmp id int identity 1,1 firstbalance int,lastbalance int insert into tmp lastbalance values 1 insert into tmp lastbalance values 3 i...
excel如何判斷一行資料是否連續詳細請看下圖
跟wykcorp學習了 ai2公式,公式編輯欄內,同時按下 ctrl shift enter 結束公式輸入,將ai2的公式向下填充 if sum n frequency column d2 ai2 if d2 ah2 column d2 ah2 1 1,斷開 連續 小矇 在af1輸入 if or c...
求助,oracle多行資料合併成一行
select wm concat t.name as allname from test t 注意資料庫的限制長度 我現在身邊沒有 資料庫環境 這個是我以前寫的sql 你看一下,修改一下就可以了 oracle分組查詢用逗號分隔結果sql語句 表一 學號 姓名 1 張三 2 李四 3 王五 表二 學號...