1樓：卓月
dim b(n) as integer,c(n) as integer,d(n) as integer,e(-1 to n) as integer,geshu as integer
sub jiejuewenti()''''''改成你的過程for i=0 to n
for j=0 to i
if a(j)=a(i) then b(i)=b(i)+1next j
next i
static k
for i=0 to n
if b(i)>=2 then
c(k)=a(i)
d(k)=i
k=k+1
end if
next i
print "總共有"&k&"個符合要求的數"'此處可以取出c（）的個數
geshu=k
k=0open "1.txt" for output as #1write #1,a(0)
for i=0 to k
write #1,c(k)
next i
write #1,a(n)
close #1
for i=0 to geshu-1
for j=d(i) to d(i+1)
e(i)=e(i)&","&a(j)
next j
next i
for j=0 to d(i)
e(-1)=e(-1)&","&a(j)
next j
for j=d(geshu) to n
open "2.txt" for output as #1for i=-1 to geshu
write #1,e(i)
next i
close #1
end sub
大體上差不多了，可能有些細節需要處理（我沒執行，只是按你的要求寫了**，另外，各人認為**有點亂，不知能看懂否，習慣了，見諒）
希望對你有幫助。
2樓：匿名使用者
明白了就好寫了，，
其實很簡單
private sub command1_click()dim a(24) as double, x as integerdim bl as string
a(0) = 0
a(1) = 1
a(2) = 4
a(3) = 55
a(4) = 7
a(5) = 6
a(6) = 3
a(7) = 5
a(8) = 4
a(9) = 33
a(10) = 9
a(11) = 3
a(12) = 56
a(13) = 66
a(14) = 4
a(16) = 33
a(17) = 71
a(18) = 23
a(19) = 3
a(20) = 51
a(21) = 61
a(22) = 33
a(23) = 52
a(24) = 41
bl = a(0) & vbcrlf '新增最前項for i = 1 to 24
x = 0
for j = 1 to 24
if a(i) = a(j) then x = x + 1next j
if x >= 3 then bl = bl & a(i) & vbcrlf
next i
bl = bl & a(ubound(a)) & vbcrlf '新增最末項
open "c:\1.txt" for output as #1 '儲存到c盤的1.txt
print #1, bl
close 1
end sub
查詢表中的資料重複出現三次的sql怎麼寫
如果沒理解錯你的意思的話，需要用迴圈語句 判斷語句和sql查詢語句結合來實現 select data from tabel where count data 3 欄位名 表名 出現次數 一樓的bai寫錯，二樓的亂寫du,假設存在zhi一主dao鍵列idselect from 表 where id i...
急乙肝疫苗打過三次再打對身體有害嗎
如果以前沒抗抄體，需要打三針襲。如果以前bai有抗體，不需要打du，如果抗zhi體弱陽性，打dao一針 加強，就是2倍的劑量，具體看情況 產生抗體後會維持三到五年，抗體可能會減弱或消失，但人體的免疫系統有記憶力，在病毒再次感染的時候會大量生成抗體從而中合掉入侵的病毒避免成為感染者。基本上，打過疫苗產...
數學中至少取三次的反面是什麼？還有至多取三次的反面是什麼？這些真心煩啊
至少取三次的反面 包含三次 是 取的次數少於三次 不包含三次 至多取三次的反面 包含三次 是 取的次數多餘三次 不包含三次 反面就是對立面，習慣了就好 望採納 大於等於3，小於等於3 初中數學 至多和至少的反面是什麼啊？5 至少有n個的反面是至多有n 1個 至多有n個的反面是至少有n 1個 而至少有...