[單項選擇題] 有如下程序： Option Base 1 Private Sub Command1_Click() Dim arr(10) arr+Arra
2021-07-20
[單項選擇題] 有如下程序：
Option Base 1
Private Sub Command1_Click()
Dim arr(10)
arr+Array(10, 35, 28, 90, 54, 68, 72,90)
For Each a Inarr
If a＞50 Then
Sum=Sum+a
End If
Next a
End Sub
運行上述程序時出現(xiàn)錯誤，錯誤之處是( )。
A． 數(shù)組定義語句不對，應(yīng)改為Dimarr
B． 沒有指明For循環(huán)的終值
C． 應(yīng)在For語句之前增加Sum=0
D． Next a應(yīng)改為Next
正確答案：A
參考解析：本題中定義的數(shù)組長度為10，但是賦值卻只有8個，所以賦值與本身數(shù)組的長度不匹配，修改方法是將arr設(shè)置為arr (8) 或者直接為Dimarr，將arr設(shè)置為變體變量。故本題答案選擇A。
詞條內(nèi)容僅供參考，如果您需要解決具體問題
（尤其在法律、醫(yī)學(xué)等領(lǐng)域），建議您咨詢相關(guān)領(lǐng)域?qū)I(yè)人士。