關於VB，幫師傅解釋，我不明白

private sub form_resize()

on error goto err

0'設定 picture1 框的位置 （x，y）、高度和寬度。

"歡迎使用浙安公司資訊管理系統"'設定狀態列文字。

50'設定 label1 文字。

dim strs as string

strs = getsetting(, "settings", "backpic", "")'從登錄檔中讀取後台檔案。

if strs <>"" then ''** '如果在登錄檔中讀取後台檔名。

loadpicture(strs)'使用 image1** 載入背景。

0, 0, ,'在圖 1 上繪製 image1 的背景。

else ''顏色'如果未在登錄檔中讀取背景檔案，請使用背景色。

strs = getsetting(, "settings", "backcolor", "")'讀取登錄檔中的背景顏色設定。

if strs <>"" then '如果讀取登錄檔中的背景色設定，請將其設定為 picture1 的背景色。

strselse'否則，請使用 image1 在當前路徑中載入 pictur1 的背景**。

0, 0, ,end if

end if

err:end sub

這應該是從執行時發出的歡迎訊息。

讓變數 i 從 1 迴圈到 6

當 i=1 時，x=i=1，則 x=x+1=1+1=2，當 i=2 時，x=x+1=2+1=3

當 i=3 時，x=x+1=3+1=4

當 i=4 時，x=x+1=4+1=5

當 i=5 時，x=x+2=5+2=7

當 i=6 時，x=x+2=7+2=9

所以 x 的輸出是 9

執行結果：

當 i=1 時，x 的初始值為 1，但當 x=x+1 變為 2 時，當 i<=4 為自加 1 時，當 i > 4 時，加 2

宣告兩個整數變數 i， x

第一週期，從1-6

當 i=1 時，x=i

當 i 4 時，x = x + 1

在所有其他情況下，x=x+2

最後，列印 x 的值。

所以最終的列印結果是 8