此 VB 程式的操作出了點問題

就程式而言，沒有錯誤。

如果要從 1 到 100 相加，請交換 s = s + i 和 i = i + 1 的位置。

為了確定迴圈次數，用於：

private sub command1_click()dim s as long

dim i as long

for i=1 to 100

s = s + i

send sub

請務必使用 while（s=0 是多餘的）字：

private sub command1_click()dim s as long

dim i as long

do while i < 100

i = i + 1

s = s + i

send sub

private sub command1_click()dim s as long

dim i as long

i = 1do while i <= 100s = s + i

i = i + 1

send sub

dim date1 應該放在頂部，作為視窗變數或全域性變數，在你的例子中是乙個過程變數，如果 date2 > date1 + then

date1 in 為 0

而且 date2 也被放在上面，所以沒有必要每次都定義它。

dim date1 as date, date2 as dateprivate sub frmtimer_dragdrop(source as control, x as single, y as single)

date1 = time 'now

end sub

private sub timer1_timer()= "times new roman"

time()

date2 = time

if date2 > date1 + thenendend if

end sub

程式執行沒有問題。 你的意思是從 1+......100？

do while i <= 100

s = s + i

i = i + 1

loop

將 i=i+1 放在 s=s+i 下，否則你不會加 1，只是從 2 到 101

在Excel中，VBA指示下標越界，指示物件不存在或陣列元素不存在。

舉個簡單的例子：工作表中沒有人"一月"但是，此工作表使用工作表（"一月")；陣列定義了 arr（1 到 10），但將使用 arr（11），並且下標將越界。

簡單地說：越界下標是超出範圍的引號。

1.當我們在Excel的VBA中輸入以下**並執行時，會出現“執行過程中錯誤9下標越界”的提示。 **下面：

sub a()

dim arr() as string

arr（1） = 你好"

end sub

2.其實上面的“執行時錯誤9下標越界”是因為定義的動態陣列沒有確定維度和大小。 這個問題可以通過定義固定數量的維度和維度來解決，或者通過使用 redim 定義維度和維度來解決。

更正後的**如下：

sub a()

dim arr（） 定義了乙個動態陣列。

dim i as integer

redim arr(1 to 3) '定義乙個由 3 個元素組成的陣列並初始化該陣列。

arr(1) =3

arr(2) =4

arr(3) =5'在下面的語句中，重新定義乙個包含 10 個元素的陣列，清除前面的元素，並重新分配新的儲存變數。

redim arr(1 to 10)

for i = 1 to 10

arr(i) =i

next i

結束子，就是這樣。