用vb判斷第二行資料與第一行資料是否相同

時間 2021-08-30 09:19:58

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 王五 表二 學號...