有如下程序段：
Dim i As Integer,Sum As Integer
Dim a（1To 11）As Integer
Sum=6
a（11）=49
For i=10To 1Step-1
a（i）=a（i+1）-1
If a（i） Mod 3=0Then Sum=Sum+a（i）
Next i
Text1．Text=Str（Sum）
該程序段運行后，文本框text1中顯示的內容是（　?。?/h1>

A．174

B．180

C．36

D．42

【答案】B

【解答】

【點評】

聲明：本試題解析著作權屬菁優(yōu)網(wǎng)所有，未經(jīng)書面同意，不得復制發(fā)布。

發(fā)布：2024/4/20 14:35:0組卷：8引用：3難度：0.7

相似題

1．《孫子算經(jīng)》中提出“物不知其數(shù)”的問題，此數(shù)以3除余2，以5除余3，以7除余2．以下程序段是求指定范圍內滿足該問題條件的自然數(shù)及其個數(shù)。
k=0'用來計數(shù)
Max=Val（Text1．Text）'指定范圍
n=9'①
Do While n＜=Max
If n Mod 3=2And n Mod 5=3Then'②
List1．AddItem Str（n）
End If
n=n+7'③
k=k+1 ④
Loop
Label1．Caption=Str（Max） &“范圍內滿足問題的數(shù)有“& Str（k） &“個“
運行程序，在文本框中輸入自然數(shù)600，結果統(tǒng)計的個數(shù)與列表框中輸出的個數(shù)不相符，如圖所示：請問出現(xiàn)此問題的原因是（　?。?/h2>

A．語句①錯，應改為n=0

B．語句②應改為n Mod 3=2 And n Mod 5=3 and n Mod 7=2

C．語句③錯，應改為n=n+1

D．語句④的位置不正確，應該移到語句②的下一行

發(fā)布：2024/10/26 17:0:2組卷：4引用：1難度：0.4

A．語句①不正確，應改為n=0

B．語句②不正確，應改為n Mod 3=2 And n Mod 5=3 and n Mod 7=2

C．語句③的位置不正確，應移至語句②的上一行

D．語句④的位置不正確，應移至語句②的下一行

發(fā)布：2024/10/26 17:0:2組卷：9引用：1難度：0.5

把好題分享給你的好友吧~~