資源簡介

登錄二一教育在線組卷平臺 助您教考全無憂
高中信息技術算法與程序設計 專項測試二 算法基礎
一、選擇題
1．某算法的部分流程圖如下圖所示，執行這部分流程后，輸出x，y的值分別是(　　)
A．0，3 B．3，1 C．3，0 D．0，35
【答案】C
【知識點】循環結構語句及程序實現
2．某算法的部分流程圖如下圖所示。
輸入x的值為1，執行完這部分流程后，變量s的值是(　　)
A．0 B．14 C．20 D．44
【答案】B
【知識點】流程圖識讀
3．有如下VB程序段：
Dim x As String, y As String, z As Boolean
x = Text1.Text
y = Text2.Text
z = x + y > y + x
Text3.Text = z
程序運行時，在文本框Text1中輸入12121，在文本框Text2中輸入121，則在文本框Text3中顯示的內容為(　　)
A．12121121 B．12112121 C．True D．False
【答案】C
【知識點】運算符、基本運算與表達式；順序結構及程序實現
4．有如下VB程序段：
s = 0: i = 1
Do While i <= 10
If i Mod 3 = 0 Then a(i) = a(i) + 1 Else a(i) = i
List1.AddItem Str(a(i))
i = i + 1
Loop
i = 10
Do While i >= 1
If a(i) = 1 Then s = s + 1
i = i － 1
Loop
該程序段運行后，變量s值是(　　)
A．3 B．4 C．5 D．9
【答案】B
【知識點】常見數據類型、數組；分支結構語句及程序實現；循環結構語句及程序實現
5．有如下VB程序段：
Dim d As Integer, p As Integer
p = 2
d = 10
Do While d > 1
p = 2 * p
d = d － 1
Loop
Label1.Caption = Str(p)
該程序段運行后，在標簽Label1中顯示的內容是(　　)
A．2 B．512 C．1024 D．2048
【答案】C
【知識點】循環結構語句及程序實現
6．有如下 VB 程序段：
a(1) = 10
For i = 2 To 10
a(i) = 0
If i Mod 2 = 1 Then
a(i) = a(i \ 2) + a(i － 1)
Else
a(i) = a(i) + 1
End If
Next i
該程序段執行后，數組元素a(7)的值是(　　)
A．2 B．10 C．11 D．12
【答案】D
【知識點】常見數據類型、數組
7．有如下VB程序段：
Dim i As Integer, j As Integer, st As String
n = 5
For i = 1 To 5
st = “ ”
If i < 4 Then
For j = 1 To i
st = st + “*”
Next j
Else
For j = i To n
st = st + “*”
Next j
End If
List1.AddItem st
Next i
該程序段運行后，在列表框List1中顯示的內容是(　　)
A． B．
C． D．
【答案】B
【知識點】循環結構語句及程序實現
8．有如下VB程序段：
Dim a(1 To 6) As Long, i As Integer, x As Long, y As Long
x = 654321
For i = 1 To 6
a(i) = x Mod 10
x = x \ 10
y = y + a(i) * 10 ^ (6 － i + 1)
Next i
執行該程序段后，變量y的值為(　　)
A．123456 B．1234560 C．6543210 D．654321
【答案】B
【知識點】常見數據類型、數組；循環結構語句及程序實現
9．計算斐波那契數列的前n項。該數列從第 3 項開始，每一項都等于前兩項之和，其中第1項為1，第2項也為1。計算前第 n項的 VB程序段如下所示：
Private Sub Command1_Click()
Dim n As Integer，i As Integer，a As Long，b As Long，c As Long
a = 1
b = 1
n = Val(Text1.Text)
List1.AddItem Str(a)
List1.AddItem Str(b)
For i = 3 To n
List1.AddItem Str(c)
Next i
End Sub
上述程序中方框處可選語句為(　　)
①a=b ②c=a+b ③b=c
A．①、②、③ B．①、③、② C．③、①、② D．②、①、③
【答案】D
【知識點】常量、變量及變量的賦值；循環結構語句及程序實現
10．有如下VB程序段：
n = 0
For i = 1 To Len(Text1.Text)
c = Mid(Text1.Text, i, 1)
If c >= “0” And c <= “9” Then m = 1 Else m = 2
a(m) = a(m) + 1
If a(m) = 1 Then n = n + 1
Next i
數組a各元素的初始值都為0，文本框Text1的內容為“Happy2018”。執行程序后，變量n的值為(　　)
A．1 B．2 C．4 D．9
【答案】B
【知識點】常見數據類型、數組；分支結構語句及程序實現；循環結構語句及程序實現
二、非選擇題
11．小明編寫了一個計算BMI指數的VB程序。BMI指數(即身體質量指數，稱簡體質指數又稱體重，英文為Body Mass Index，簡稱BMI)，是用體重(公斤)除以身高(米)平方得出的數字，是目前國際上常用的衡量人體胖瘦程度以及是否健康的一個標準，BMI指數的判斷標準如下表所示：
BMI指數 <18.522.9 18.5～23～ 25～24.9 29.9 ≥30 ≥40.0
結果 偏瘦 正常 偏胖 肥胖 重度肥胖 極重度肥胖
程序運行時，在文本框Text1中輸入體重，在文本框Text2中輸入身高，單擊”測試”按鈕Command1，在標簽Label4中顯示對應的結果。程序運行界面如下圖所示。
實現上述功能的VB程序如下，請回答下列問題：
Private Sub Command1_Click()
Dim h As Single, w As Single, ans As Single, s As String
w = Val(Text1.Text)
h = Val(Text2.Text)
①
If ans< 18.5 Then
s = “偏瘦”
ElseIf ans< 22.9 Then
s = “正常”
ElseIf ans<= 24.9 Then
s = “偏胖”
ElseIf ans<= 29.9 Then
s = “肥胖”
ElseIf ans< 40 Then
s = “重度肥胖”
②
s = “極重度肥胖”
End If
Label4.Caption = s
End Sub
（1）程序代碼“Private Sub Command1_Click()”中Command1_Click()是指　 　(選填：對象 / 屬性
/ 過程 / 事件 / 方法)。
（2）請在程序劃線處填入合適代碼。
①　 　②　 　
（3）程序運行時，輸入體重70，身高1.65，則測試結果為　 　。
【答案】（1）過程
（2）ans = w/h^2；Else或ElseIf ans>=40 Then
（3）肥胖
【知識點】類、對象、屬性、方法、事件和事件處理的概念及應用；分支結構語句及程序實現
12．編寫VB程序，實現如下功能：在文本框中輸入一個整數，單擊“計算”按鈕Command1，則輸出表達式 的值。程序運行界面如下圖所示。
（1）該VB窗體上共包含　 　類對象。
（2）實現上述功能的VB程序如下，請在劃線處填入合適的代碼。
Private
Sub Command1_Click()
Dim n
As Integer, p As Long, s As Double, i As Integer, t As Integer
s = 0
t = 1
p = 0
n = Val(Text1.Text)
For i = 1 To n
　 　
s = s + t * 1 / p
　 　
Next i
Label1.Caption = Str(s)
End
Sub
（3）運行該程序，在文本框Text1中輸入5，單擊“計算”按鈕，則表達式的值是　 　。
【答案】（1）3
（2）p = p + i；t = -t或 t=-1*t
（3）0.8
【知識點】類、對象、屬性、方法、事件和事件處理的概念及應用；循環結構語句及程序實現
13．小明編寫了一個VB程序，功能如下：輸入一個不超過10000的整數，若該數的各位數字之積是其各位數字之和的倍數，則輸出“Yes”，否則輸出“No”。
程序運行時，在文本框Text1中輸入一個整數，單擊“判斷”按鈕Command1后，在標簽Label3中顯示判斷結果。程序運行界面如下圖所示。
（1）在設計程序界面時，要清空標簽Label3中的顯示內容，應修改該標簽的　 　屬性。
（2）實現上述功能的VB程序如下，請在劃線處填入合適代碼。
Private
Sub Command1_Click()
Dim x As Integer, h As Integer, k As Integer
x = Val(Text1.Text)
h = 0
k=1
Do
While x > 0
h = h + x Mod 10
k=　 　
x
= x \ 10
Loop
If　 　Then
Label3.Caption = “Yes”
Else
Label3.Caption = “No”
End
If
End
Sub
（3）運行該程序，在文本框Text1中輸入1234，單擊“判斷”按鈕，顯示的判斷結果為　 　。
【答案】（1）Caption
（2）k * (x Mod 10)；k Mod h = 0
（3）No
【知識點】類、對象、屬性、方法、事件和事件處理的概念及應用；分支結構語句及程序實現；循環結構語句及程序實現
14．編寫“加法練習題生成器”程序，實現如下功能：在文本框Text1中輸入題數n，單擊“生成”按鈕Command1，在列表框List1中顯示n個兩數之和小于100的加法練習題。程序運行界面如圖1所示。
（1）在設計程序界面時，應使用圖2所示“控件工具箱”中的　 　(填寫相應編號)添加“生成”按鈕。
（2）實現上述功能的VB程序如下，請在劃線處填入合適的代碼。
Private
Sub Command1_Click(　　)
Dim n As Integer，i As Integer，a As Integer，b As Integer
Randomize
n=Val(Text1.Text)
i=　 　
Do
While i<=n
a=Int(Rnd*100)
b=Int(Rnd*100)
If　 　Then
List1.AddItem“(“+Str(i)+”)“+Str(a)+”+“+Str(b)+”=”
i=i+1
End
If
Loop
End
Sub
（3）運行該程序，在文本框中輸入5，單擊“生成”按鈕后，對語句“a=Int(Rnd*100)”執行次數的描述，最合理的是　 　(單選，填字母：A .執行次數等于5 /
B .執行次數大于等于5 / C .執行次數小于等于5)。
【答案】（1）3
（2）1；a+b<100
（3）B
【知識點】程序設計工具及編程環境；分支結構語句及程序實現；循環結構語句及程序實現；常用標準函數
【解析】【解答】(1)編號1表示標簽，編號2表示文本框，編號3表示按鈕。(2)變量i應從1開始，因此初值為1，①處代碼填入1；題目要求顯示的是兩數之和小于100的n個加法題，因此②處條件為a+b<100；(3)語句“a=Int(Rnd*100)”表示生成[0，99]區間內的整數，生成a、b隨機整數后，如果a+b>=100，則不符合要求，需要重新再生成兩個隨機數，因此執行次數可能會大于實際顯示的加法式子的個數。
【分析】
15．哥德巴赫猜想：任意一個大于等于4的偶數，都可以用兩個素數之和表示。如：4=2+2，6=3+3，8=3+5，10=5+5，12=5+7，98=17+79。
編寫一個驗證哥德巴赫猜想的VB程序：程序運行時，在文本框Text1中輸入一個大于等于4的偶數，單擊“驗證”按鈕Command1后，如果哥德巴赫猜想驗證成功，則在文本框Text2中顯示“Yes”，并在列表框List1中顯示用兩個素數表示該偶數的等式，否則顯示“No”。程序運行結果如圖所示。
實現上述功能的VB代碼如下，但加框處代碼有錯，請改正。
′函數pp(x)的功能是判斷整數x是否為素數，若是素數則返回True，否則返回False
Function pp(x As Integer) As Boolean
Dim j As Integer
pp = True
j = 2
Do While j <= Int(Sqr(x)) And pp=True
If x Mod j = 0 Then pp = False Else
'①
Loop
End Function
Private Sub Command1_Click()
Dim n As Integer, p As Integer, q As Integer, pd As Boolean
n = Val(Text1.Text)
p = 1
pd = False
Do While Not pd And p < n
p = p + 1
'②
If pp(p) And pp(q) Then
Text2.Text = “Yes”
pd = True
List1.AddItem Str(n) + “=” + Str(p) + “+” + Str(q)
End If
Loop
If pd = False Then Text2.Text = “No”
End Sub
程序中加框①處應改正為　 　；
加框②處應改正為　 　。
【答案】j=j+1；q=n－p
【知識點】過程與自定義函數；枚舉算法及程序實現
16．有趣的乘法：輸入一個個位數不是5的奇數p，尋找一個整數s，使得p×s = 1111...1(每位數字均為1)，要求輸出整數s及它們乘積中1的個數(即乘積有幾個1構成)。例如，當p=13時，13*8547=111111，因此整數s為8547，乘積由6個1構成；當p=23時，整數s為48309178743961352657，乘積由22個1構成。
算法思想：
首先生成一個比p大的全1數a，如果a能整除p，則算法結束，否則繼續擴大a的位數，如此繼續，直至a整除p。
程序運行界面如下圖所示，在文本框Text1中輸入整數p，單擊“計算”按鈕，在文本框Text2中輸出整數s，在文本框Text3中輸出乘積中1的個數。
小明依據上述描述設計如下VB程序。請回答下列問題：
（1）當p=3時，整數s為　 　。
（2）請在劃線處填入合適的語句。
Private Sub Command1_Click()
Dim p As Long, a As Long, b As Long, c As
Long, n As Long
Dim s As String '存放整數s，因為該數較大，因此采用字符串存儲
Do While True '判斷輸入的整數p是否為個位不是5的奇數
p = Val(Text1.Text)
If p Mod 2 < > 0 And p Mod 5 < >
0 Then Exit Do
Loop
a = 0
n = 0
Do While a < p
　 　
n = n
+ 1
Loop
c = a Mod p
s = Str(a \ p)
Do While c < > 0
a = c
* 10 + 1
　 　
s = s
& b
n = n
+ 1
　 　
Loop
Text2.Text = s
Text3.Text = Str(n)
End Sub
【答案】（1）37
（2）a = a * 10 + 1；b = a \ p；c = a Mod p或c=a－b*p
【知識點】循環結構語句及程序實現
二一教育在線組卷平臺（zujuan.21cnjy.com）自動生成 1 / 1登錄二一教育在線組卷平臺 助您教考全無憂
高中信息技術算法與程序設計 專項測試二 算法基礎
一、選擇題
1．某算法的部分流程圖如下圖所示，執行這部分流程后，輸出x，y的值分別是(　　)
A．0，3 B．3，1 C．3，0 D．0，35
2．某算法的部分流程圖如下圖所示。
輸入x的值為1，執行完這部分流程后，變量s的值是(　　)
A．0 B．14 C．20 D．44
3．有如下VB程序段：
Dim x As String, y As String, z As Boolean
x = Text1.Text
y = Text2.Text
z = x + y > y + x
Text3.Text = z
程序運行時，在文本框Text1中輸入12121，在文本框Text2中輸入121，則在文本框Text3中顯示的內容為(　　)
A．12121121 B．12112121 C．True D．False
4．有如下VB程序段：
s = 0: i = 1
Do While i <= 10
If i Mod 3 = 0 Then a(i) = a(i) + 1 Else a(i) = i
List1.AddItem Str(a(i))
i = i + 1
Loop
i = 10
Do While i >= 1
If a(i) = 1 Then s = s + 1
i = i － 1
Loop
該程序段運行后，變量s值是(　　)
A．3 B．4 C．5 D．9
5．有如下VB程序段：
Dim d As Integer, p As Integer
p = 2
d = 10
Do While d > 1
p = 2 * p
d = d － 1
Loop
Label1.Caption = Str(p)
該程序段運行后，在標簽Label1中顯示的內容是(　　)
A．2 B．512 C．1024 D．2048
6．有如下 VB 程序段：
a(1) = 10
For i = 2 To 10
a(i) = 0
If i Mod 2 = 1 Then
a(i) = a(i \ 2) + a(i － 1)
Else
a(i) = a(i) + 1
End If
Next i
該程序段執行后，數組元素a(7)的值是(　　)
A．2 B．10 C．11 D．12
7．有如下VB程序段：
Dim i As Integer, j As Integer, st As String
n = 5
For i = 1 To 5
st = “ ”
If i < 4 Then
For j = 1 To i
st = st + “*”
Next j
Else
For j = i To n
st = st + “*”
Next j
End If
List1.AddItem st
Next i
該程序段運行后，在列表框List1中顯示的內容是(　　)
A． B．
C． D．
8．有如下VB程序段：
Dim a(1 To 6) As Long, i As Integer, x As Long, y As Long
x = 654321
For i = 1 To 6
a(i) = x Mod 10
x = x \ 10
y = y + a(i) * 10 ^ (6 － i + 1)
Next i
執行該程序段后，變量y的值為(　　)
A．123456 B．1234560 C．6543210 D．654321
9．計算斐波那契數列的前n項。該數列從第 3 項開始，每一項都等于前兩項之和，其中第1項為1，第2項也為1。計算前第 n項的 VB程序段如下所示：
Private Sub Command1_Click()
Dim n As Integer，i As Integer，a As Long，b As Long，c As Long
a = 1
b = 1
n = Val(Text1.Text)
List1.AddItem Str(a)
List1.AddItem Str(b)
For i = 3 To n
List1.AddItem Str(c)
Next i
End Sub
上述程序中方框處可選語句為(　　)
①a=b ②c=a+b ③b=c
A．①、②、③ B．①、③、② C．③、①、② D．②、①、③
10．有如下VB程序段：
n = 0
For i = 1 To Len(Text1.Text)
c = Mid(Text1.Text, i, 1)
If c >= “0” And c <= “9” Then m = 1 Else m = 2
a(m) = a(m) + 1
If a(m) = 1 Then n = n + 1
Next i
數組a各元素的初始值都為0，文本框Text1的內容為“Happy2018”。執行程序后，變量n的值為(　　)
A．1 B．2 C．4 D．9
二、非選擇題
11．小明編寫了一個計算BMI指數的VB程序。BMI指數(即身體質量指數，稱簡體質指數又稱體重，英文為Body Mass Index，簡稱BMI)，是用體重(公斤)除以身高(米)平方得出的數字，是目前國際上常用的衡量人體胖瘦程度以及是否健康的一個標準，BMI指數的判斷標準如下表所示：
BMI指數 <18.522.9 18.5～23～ 25～24.9 29.9 ≥30 ≥40.0
結果 偏瘦 正常 偏胖 肥胖 重度肥胖 極重度肥胖
程序運行時，在文本框Text1中輸入體重，在文本框Text2中輸入身高，單擊”測試”按鈕Command1，在標簽Label4中顯示對應的結果。程序運行界面如下圖所示。
實現上述功能的VB程序如下，請回答下列問題：
Private Sub Command1_Click()
Dim h As Single, w As Single, ans As Single, s As String
w = Val(Text1.Text)
h = Val(Text2.Text)
①
If ans< 18.5 Then
s = “偏瘦”
ElseIf ans< 22.9 Then
s = “正常”
ElseIf ans<= 24.9 Then
s = “偏胖”
ElseIf ans<= 29.9 Then
s = “肥胖”
ElseIf ans< 40 Then
s = “重度肥胖”
②
s = “極重度肥胖”
End If
Label4.Caption = s
End Sub
（1）程序代碼“Private Sub Command1_Click()”中Command1_Click()是指　 　(選填：對象 / 屬性
/ 過程 / 事件 / 方法)。
（2）請在程序劃線處填入合適代碼。
①　 　②　 　
（3）程序運行時，輸入體重70，身高1.65，則測試結果為　 　。
12．編寫VB程序，實現如下功能：在文本框中輸入一個整數，單擊“計算”按鈕Command1，則輸出表達式 的值。程序運行界面如下圖所示。
（1）該VB窗體上共包含　 　類對象。
（2）實現上述功能的VB程序如下，請在劃線處填入合適的代碼。
Private
Sub Command1_Click()
Dim n
As Integer, p As Long, s As Double, i As Integer, t As Integer
s = 0
t = 1
p = 0
n = Val(Text1.Text)
For i = 1 To n
　 　
s = s + t * 1 / p
　 　
Next i
Label1.Caption = Str(s)
End
Sub
（3）運行該程序，在文本框Text1中輸入5，單擊“計算”按鈕，則表達式的值是　 　。
13．小明編寫了一個VB程序，功能如下：輸入一個不超過10000的整數，若該數的各位數字之積是其各位數字之和的倍數，則輸出“Yes”，否則輸出“No”。
程序運行時，在文本框Text1中輸入一個整數，單擊“判斷”按鈕Command1后，在標簽Label3中顯示判斷結果。程序運行界面如下圖所示。
（1）在設計程序界面時，要清空標簽Label3中的顯示內容，應修改該標簽的　 　屬性。
（2）實現上述功能的VB程序如下，請在劃線處填入合適代碼。
Private
Sub Command1_Click()
Dim x As Integer, h As Integer, k As Integer
x = Val(Text1.Text)
h = 0
k=1
Do
While x > 0
h = h + x Mod 10
k=　 　
x
= x \ 10
Loop
If　 　Then
Label3.Caption = “Yes”
Else
Label3.Caption = “No”
End
If
End
Sub
（3）運行該程序，在文本框Text1中輸入1234，單擊“判斷”按鈕，顯示的判斷結果為　 　。
14．編寫“加法練習題生成器”程序，實現如下功能：在文本框Text1中輸入題數n，單擊“生成”按鈕Command1，在列表框List1中顯示n個兩數之和小于100的加法練習題。程序運行界面如圖1所示。
（1）在設計程序界面時，應使用圖2所示“控件工具箱”中的　 　(填寫相應編號)添加“生成”按鈕。
（2）實現上述功能的VB程序如下，請在劃線處填入合適的代碼。
Private
Sub Command1_Click(　　)
Dim n As Integer，i As Integer，a As Integer，b As Integer
Randomize
n=Val(Text1.Text)
i=　 　
Do
While i<=n
a=Int(Rnd*100)
b=Int(Rnd*100)
If　 　Then
List1.AddItem“(“+Str(i)+”)“+Str(a)+”+“+Str(b)+”=”
i=i+1
End
If
Loop
End
Sub
（3）運行該程序，在文本框中輸入5，單擊“生成”按鈕后，對語句“a=Int(Rnd*100)”執行次數的描述，最合理的是　 　(單選，填字母：A .執行次數等于5 /
B .執行次數大于等于5 / C .執行次數小于等于5)。
15．哥德巴赫猜想：任意一個大于等于4的偶數，都可以用兩個素數之和表示。如：4=2+2，6=3+3，8=3+5，10=5+5，12=5+7，98=17+79。
編寫一個驗證哥德巴赫猜想的VB程序：程序運行時，在文本框Text1中輸入一個大于等于4的偶數，單擊“驗證”按鈕Command1后，如果哥德巴赫猜想驗證成功，則在文本框Text2中顯示“Yes”，并在列表框List1中顯示用兩個素數表示該偶數的等式，否則顯示“No”。程序運行結果如圖所示。
實現上述功能的VB代碼如下，但加框處代碼有錯，請改正。
′函數pp(x)的功能是判斷整數x是否為素數，若是素數則返回True，否則返回False
Function pp(x As Integer) As Boolean
Dim j As Integer
pp = True
j = 2
Do While j <= Int(Sqr(x)) And pp=True
If x Mod j = 0 Then pp = False Else
'①
Loop
End Function
Private Sub Command1_Click()
Dim n As Integer, p As Integer, q As Integer, pd As Boolean
n = Val(Text1.Text)
p = 1
pd = False
Do While Not pd And p < n
p = p + 1
'②
If pp(p) And pp(q) Then
Text2.Text = “Yes”
pd = True
List1.AddItem Str(n) + “=” + Str(p) + “+” + Str(q)
End If
Loop
If pd = False Then Text2.Text = “No”
End Sub
程序中加框①處應改正為　 　；
加框②處應改正為　 　。
16．有趣的乘法：輸入一個個位數不是5的奇數p，尋找一個整數s，使得p×s = 1111...1(每位數字均為1)，要求輸出整數s及它們乘積中1的個數(即乘積有幾個1構成)。例如，當p=13時，13*8547=111111，因此整數s為8547，乘積由6個1構成；當p=23時，整數s為48309178743961352657，乘積由22個1構成。
算法思想：
首先生成一個比p大的全1數a，如果a能整除p，則算法結束，否則繼續擴大a的位數，如此繼續，直至a整除p。
程序運行界面如下圖所示，在文本框Text1中輸入整數p，單擊“計算”按鈕，在文本框Text2中輸出整數s，在文本框Text3中輸出乘積中1的個數。
小明依據上述描述設計如下VB程序。請回答下列問題：
（1）當p=3時，整數s為　 　。
（2）請在劃線處填入合適的語句。
Private Sub Command1_Click()
Dim p As Long, a As Long, b As Long, c As
Long, n As Long
Dim s As String '存放整數s，因為該數較大，因此采用字符串存儲
Do While True '判斷輸入的整數p是否為個位不是5的奇數
p = Val(Text1.Text)
If p Mod 2 < > 0 And p Mod 5 < >
0 Then Exit Do
Loop
a = 0
n = 0
Do While a < p
　 　
n = n
+ 1
Loop
c = a Mod p
s = Str(a \ p)
Do While c < > 0
a = c
* 10 + 1
　 　
s = s
& b
n = n
+ 1
　 　
Loop
Text2.Text = s
Text3.Text = Str(n)
End Sub
答案解析部分
1．【答案】C
【知識點】循環結構語句及程序實現
2．【答案】B
【知識點】流程圖識讀
3．【答案】C
【知識點】運算符、基本運算與表達式；順序結構及程序實現
4．【答案】B
【知識點】常見數據類型、數組；分支結構語句及程序實現；循環結構語句及程序實現
5．【答案】C
【知識點】循環結構語句及程序實現
6．【答案】D
【知識點】常見數據類型、數組
7．【答案】B
【知識點】循環結構語句及程序實現
8．【答案】B
【知識點】常見數據類型、數組；循環結構語句及程序實現
9．【答案】D
【知識點】常量、變量及變量的賦值；循環結構語句及程序實現
10．【答案】B
【知識點】常見數據類型、數組；分支結構語句及程序實現；循環結構語句及程序實現
11．【答案】（1）過程
（2）ans = w/h^2；Else或ElseIf ans>=40 Then
（3）肥胖
【知識點】類、對象、屬性、方法、事件和事件處理的概念及應用；分支結構語句及程序實現
12．【答案】（1）3
（2）p = p + i；t = -t或 t=-1*t
（3）0.8
【知識點】類、對象、屬性、方法、事件和事件處理的概念及應用；循環結構語句及程序實現
13．【答案】（1）Caption
（2）k * (x Mod 10)；k Mod h = 0
（3）No
【知識點】類、對象、屬性、方法、事件和事件處理的概念及應用；分支結構語句及程序實現；循環結構語句及程序實現
14．【答案】（1）3
（2）1；a+b<100
（3）B
【知識點】程序設計工具及編程環境；分支結構語句及程序實現；循環結構語句及程序實現；常用標準函數
【解析】【解答】(1)編號1表示標簽，編號2表示文本框，編號3表示按鈕。(2)變量i應從1開始，因此初值為1，①處代碼填入1；題目要求顯示的是兩數之和小于100的n個加法題，因此②處條件為a+b<100；(3)語句“a=Int(Rnd*100)”表示生成[0，99]區間內的整數，生成a、b隨機整數后，如果a+b>=100，則不符合要求，需要重新再生成兩個隨機數，因此執行次數可能會大于實際顯示的加法式子的個數。
【分析】
15．【答案】j=j+1；q=n－p
【知識點】過程與自定義函數；枚舉算法及程序實現
16．【答案】（1）37
（2）a = a * 10 + 1；b = a \ p；c = a Mod p或c=a－b*p
【知識點】循環結構語句及程序實現
二一教育在線組卷平臺（zujuan.21cnjy.com）自動生成 1 / 1

展開更多......

收起↑