(26)在窗體上放置一個(gè)命令按鈕Command1,并編寫下列單擊事件的程序: Private Option Base 1 Sub C
（26）在窗體上放置一個(gè)命令按鈕Command1，并編寫下列單擊事件的程序： Private Option Base 1 Sub Command1_Click() Dim c As Integer,d As Integer d=0 c=6 X=Array(2,4,6,8,10,12) For i=1 To 6 IfX(i)>c Then d=d+X(i) c=X(i) Else d=d-c End If Next i Print d End Sub 程序運(yùn)行后，單擊命令按鈕，則在窗體上輸出的結(jié)果是 。A.10 B.12 C.16 D.20
正確答案：B【解析】程序首先使用Array函數(shù)為x數(shù)組變量賦值，然后利用For循環(huán)和If結(jié)構(gòu)語句實(shí)現(xiàn)程序功能。程序執(zhí)行過程如下：①當(dāng)i=1時(shí)，X(i)=2，d=d-c=-6；②當(dāng)i=2時(shí)，X(i)=4，d=d-c=-12；③當(dāng)i=3時(shí)，X(i)=6，d=d-c=-18；④當(dāng)i=4時(shí)，X(i)=8，d==d+X(i)=-10，c=8；⑤當(dāng)i=5時(shí)，X(i)=10，d=d+X(i)=0，c=10；⑥當(dāng)i=6時(shí)，X(i)=12，d=d+X(i)=12，c=12。
詞條內(nèi)容僅供參考，如果您需要解決具體問題
（尤其在法律、醫(yī)學(xué)等領(lǐng)域），建議您咨詢相關(guān)領(lǐng)域?qū)I(yè)人士。