請問調整一維陣列大小的方式 - Excel程式區 - 麻辣家族討論版版

麻辣家族討論版版 » Excel程式區 » 請問調整一維陣列大小的方式

返回列表下一主題上一主題發帖

請問調整一維陣列大小的方式

大學生 Rank: 4

帖子: 1018
主題: 15
精華: 0
積分: 1058
點名: 0
作業系統: win7 32bit
軟體版本: Office 2016 64-bit
閱讀權限: 50
性別: 男
來自: 桃園
註冊時間: 2012-5-9
最後登錄: 2022-9-28

1^# 跳轉到 »

發表於 2020-1-9 10:53 | 顯示全部帖子

回復 1# mlbolerud
後面加一行
ReDim Preserve arr(1 To 5)

表達不清、題意不明確、沒附檔案格式、沒有討論問題的態度~~~~~~以上愛莫能助。

大學生 Rank: 4

帖子: 1018
主題: 15
精華: 0
積分: 1058
點名: 0
作業系統: win7 32bit
軟體版本: Office 2016 64-bit
閱讀權限: 50
性別: 男
來自: 桃園
註冊時間: 2012-5-9
最後登錄: 2022-9-28

2^#

發表於 2020-1-9 13:19 | 顯示全部帖子

本帖最後由 stillfish00 於 2020-1-9 13:24 編輯

回復 3# mlbolerud
沒有要你再用一個迴圈，你判斷是質數放到arr的時候就要塞到前面

Sub Test1()
Dim arr(1 To 100)
Dim cnt As Long
cnt = 0
For i = 1 To 100
If 是質數(i) Then
cnt = cnt + 1
arr(cnt) = i
End If
Next
ReDim Preserve arr(1 To cnt)
End Sub

複製代碼

表達不清、題意不明確、沒附檔案格式、沒有討論問題的態度~~~~~~以上愛莫能助。

靜思自在 : 有智慧才能分辨善惡邪正；有謙虛才能建立美滿人生。

返回列表下一主題上一主題