1樓：匿名使用者
sub main()
dim str as string
dim i as integer
dim bfindflag as booleandim j as integer
for i = 1000 to 2000 step 1bfindflag = false
'求餘數
for j = 2 to 2000 step 1if i mod j = 0 and i <> j thenbfindflag = true
exit for
end if
next j
'找到素數
if bfindflag = false thenstr = str & i & ","
end if
next i
'結果放在a1裡
sheet1.cells(1, 1) = strend sub
2樓：
素數，也就是隻能被1和本身整除的數。
電腦運算，可以簡化為：從1到這個數的平方根所有數進行判斷。**如下：
結果寫在a列
急急急！excel中a列n個數的和值與b列n個數的和值相等，求a列和b列中這些相等的數列
倒不難寫 只是組合數 2 n m 很大 你的條件很寬鬆 結果會很多 時間空間開銷都大 很可能行號會溢位 如下 已執行通過 n cells rows.count,1 end xlup row m cells rows.count,2 end xlup row s 1 string n 1,0 k 0d...
急急急！高分懸賞！EXCEL圖表中，折線圖下面的資料表，系列4如何修改成所需要的各個折線代表的名
右鍵 源資料 系列 名稱裡面修改 不知道你指的是哪個1,2,3,4，如果是橫座標的，右鍵 源資料 系列 分類x軸標識裡面改 不能改，只能在後面新增你要表示的圖的名稱。excel2010版本無問題 cad裡高程點裡，點的顏色和字的顏色不一樣，如何把它改為一樣。求教各位大神，急急急，高分懸賞！我剛才看了...
《成長中的我》作文左右急急急急急急急急急急急急急
成長中的我作文 在人生漫長的旅途中，我一天天在成長，我也明白了許多，時光悠悠，波光明滅，就如一隻小魚的卵變成小魚後，不能再變成卵一樣，是無法從頭再來的。時光悠悠，一去不復返，每過一天，就會想明天是如何的，而不想當前，許多人都是這樣，天天在為明天做打算，成天生活在空虛中，到頭來，什麼也沒有做成，想從頭...