資源簡介

登錄二一教育在線組卷平臺 助您教考全無憂
高中信息技術算法與程序設計 專項測試一 程序設計基礎
一、選擇題
1．下列問題不能用算法描述的是(　　)
A．求所有自然數之和
B．將四位十進制數轉換為對應的二進制數
C．將100個實數按升序排列
D．求100個整數中的最大值和最小值
2．下列可作為VB變量名的是(　　)
A．3D B．X_Y C．X＋Y D．And
3．有10個數據23、15、51、36、78、47、39、9、88、96依次存放在數組a(1 to 10)中，使用如下程序段找出最大值：
max＝a(1)
For i＝2 to 10
Next i
當方框內的語句執(zhí)行完6次后(此時循環(huán)變量i的值為7)，變量max的值是(　　)
A．23 B．39 C．78 D．96
4．有如下VB程序段：
a＝12
b＝54
a＝a＋b
b＝a－b
a＝a－b
該程序段執(zhí)行后，變量a，b的值分別是(　　)
A．12，54 B．54，12 C．12，12 D．54，54
5．變量c中存儲著一個字符，能夠正確判斷出該字符為數字字符“0”～“9”的VB表達式是(　　)
A．c>＝“0” And c<＝“9” B．c>＝“0” Or c<＝“9”
C．Asc(c)>＝0 And Asc(c)<＝9 D．Asc(c)>＝0 Or Asc(c)<＝9
6．字符串變量a、b的值分別為“12”、“34”，則表達式a＋b的值是(　　)
A．“12＋34” B．“1234” C．46 D．“46”
7．字符串變量s的值為“ZheJiangHangZhou”，下列VB表達式的值是“Hang”的是(　　)
A．Mid(s，8，4) B．Mid(s，4，8)
C．Mid(s，9，4) D．Mid(s，4，9)
8．將數學表達式 (x≠1，y≠1)寫成VB表達式是(　　)
A．x－1/1/y－1 B．y－1/x－1
C．(y－1)/(x－1) D．1/(x－1)/(y－1)
9．有如下VB程序段：
x ＝ 0
For i ＝ 0 To 20 Step 2
If i Mod 3 ＝ 0 Then x ＝ x ＋ i
Next i
該程序段執(zhí)行后，變量x的值是(　　)
A．12 B．18 C．36 D．60
10．小明編寫了一個統(tǒng)計隨機數分布的VB程序，部分程序如下所示，在調試程序的時候出現如下圖所示的錯誤信息：
n ＝ 0
m ＝ 0
For i ＝ 1 To 100
If Rnd > 0.5 Then
n ＝ n ＋ 1
Else
m ＝ m ＋ 1
Next i
……
小明仔細分析該程序段后，發(fā)現其中缺少的語句是(　　)
A．For B．End If C．Next D．If
11．有如下VB程序段：
Dim k As Integer, s As Integer
k ＝ 0: s ＝ 0
Do While k >＝ 10
k ＝ k ＋ 1
s ＝ s ＋ k
Loop
該程序段執(zhí)行后，變量s的值是(　　)
A．0 B．1 C．10 D．11
12．小明在設計VB程序時所使用單選框對象的屬性窗口如下圖所示，他想編寫該單選框單擊事件的處理過程，則該事件處理過程名是(　　)
A．OptionButton_Click B．男_Click
C．Option1_Click D．單選框_Click
13．某算法的部分流程圖如下圖所示，執(zhí)行這部分流程后，輸出b，s的值分別是(　　)
A．72，138 B．72，210 C．87，210 D．87，297
二、非選擇題
14．下列VB程序運行時，單擊命令按鈕Command1后，語句①被執(zhí)行了　 　次，文本框Text1中顯示的內容是　 　。
Private
Sub Command1_Click()
Dim a(1 To 5) As Integer.i As Integer
a(1)＝1
a(2)＝1
For i＝3 To 5
a(i)＝2*a(i－1)＋a(i－2) ′語句①
Next i
Text1.Text＝Str(a(5))
End
Sub
15．下列VB程序運行時，單擊命令按鈕Command1后，文本框Text1中顯示的內容是　 　，文本框Text2中顯示的內容是　 　。
Private
Sub Command1_Click()
Dim
a(1 To 3) As Integer, k As Integer, t As Integer, s As Integer
a(1) ＝ 12: a(2) ＝ 41: a(3) ＝ 2
s ＝ 0
For k
＝ 2 To 3
If a(k) > a(1) Then
t ＝ a(1): a(1) ＝ a(k): a(k) ＝ t
s ＝ s ＋ 1
End If
Next
k
Text1.Text
＝ Str(a(1))
Text2.Text
＝ Str(s)
End
Sub
16．編“求最大數最小數”程序，實現如下功能：在文本框Text1中輸入一個正整數n，單擊“分析”按鈕Command1后，程序將生成n個隨機整數，顯示在列表框List1中；并計算這n個隨機整數中的最大數、最小數及它們所在的位置，最后求出這n個數的平均值。程序運行界面如下圖所示。
（1）要使程序運行時，清空文本框Text1中的內容，可在Form_Load事件過程添加語句　 　(單選，填字母：A .Text1.Caption ＝ “ ” / B .Text1.Text＝“ ” / C
.Text1.Font＝“ ”)。
（2）實現上述功能的VB程序如下，請在劃線處填入合適的代碼。
Private
Sub Command1_Click()
Dim n
As Integer, i As Integer, x As Integer, sum As Integer, avg As Single
Dim
max As Integer, min As Integer, maxi As Integer, mini As Integer
n ＝ Val(Text1.Text)
x ＝ Int(Rnd * 100) ＋ 1
List1.AddItem
Str(x)
max ＝ x : min ＝
x
maxi ＝ 1: mini ＝
1
　 　
For i
＝ 2 To n
x
＝ Int(Rnd * 100) ＋ 1
List1.AddItem
Str(x)
If
x > max Then max ＝
x: maxi ＝ i
If
　 　 Then min ＝ x: mini ＝ i
sum
＝ sum ＋ x
Next
i
　 　
List2.AddItem
“最大數為：” ＋ Str(max) ＋ “，所在位置為：”
＋ Str(maxi)
List2.AddItem
“最小數為：” ＋ Str(min) ＋ “，所在位置為：”
＋ Str(mini)
List2.AddItem
“平均值為：” ＋ Str(avg)
End
Sub
17．現要求編寫VB程序實現如下功能：在文本框Text1中輸入正整數n，單擊命令按鈕Command1后，在文本框Text2中會顯示一個有規(guī)律的數字串，形式為“1 2 3 … n－1 n n－1…3 2 1”。 例如n＝6時，顯示的數字串為“1 2 3 4 5 6 5 4 3 2 1”。按此要求編寫的程序如下，但加框處代碼有錯，請改正。
Private Sub Command1_Click()
Dim n As Integer, i As Integer, s As String
n ＝ Val(Text1.Text)
s ＝ “ ”
For i ＝ 1 To '(1)
If i <＝ n Then s ＝ s ＋ Str(i)
Else
'(2)
Next i
Text2.Text＝ s
End Sub
程序中加框(1)處應改正為　 　；
加框(2)處應改正為　 　。
18．下列VB程序的功能是：程序運行時，在文本框Textin中輸入正整數n.單擊命令按鈕Command1后，統(tǒng)計1至n的整數中包含數字2的整數個數，并在文本框Textout中輸出結果，若n＝20，有2、12和20三個整數包含數字2，則文本框Textout中輸出“3”。
實現上述功能的VB程序如下，請在劃線處填入合適的代碼。
Private
Sub Command1_Click()
Dim i
As Long, n As Long, t As Long
Dim s
As Long ′s用于統(tǒng)計1到n之間包含數字2的整數個數
Dim k
As Boolean
s ＝ 0
n ＝ Val(Textin.Text)
For i
＝ 1 To n
k
＝ False
t ＝ i
Do While Not k And t > 0
　 　
t ＝ t \ 10
Loop
If
k Then 　 　
Next
i
Textout.Text ＝ Str(s)
End
Sub
19．小明設計了一個驗證自由落體規(guī)律的實驗：小球從高處靜止狀態(tài)垂直下落，用照相機每隔0.1秒拍照1次，測得實驗數據如下：
拍照時刻(秒) 0.1 0.2 0.3 0.4 0.5
下落距離測量值(米) 0.049 0.195 0.44 0.785 1.225
現要求編寫一個VB程序實現如下功能：單擊命令按鈕Command1后，由公式h＝ gt2 (其中g＝9.8米/秒2)計算出第一拍照時刻的下落距離理論值，若所有理論值與同一時刻測量值之間的相對誤差 都小于0.01，則認為小球在0.5秒內是作自由落體運動，此時在標簽Label1中顯示“驗證通過”，否則顯示“驗證不通過”。
實現上述功能的VB程序如下，請在劃線處填入合適代碼。
Private Sub Command1_Click()
Dim h1(1 To 5) As Single 'h1用于存儲下落距離測量值
Dim h As Single, i As Integer 'h用于存儲下落距離理論值
Dim t As Single, g As Single, b As Boolean
h1(1) ＝ 0.049: h1(2) ＝ 0.195: h1(3) ＝ 0.44: h1(4) ＝ 0.785: h1(5) ＝ 1.225
i ＝ 1: b ＝ True
　 　
Do While i <＝ 5 And b
t ＝ i / 10
h ＝ g * t * t / 2
If 　 　Then b ＝ False
i ＝ i ＋ 1
Loop
If b Then
Label1.Caption ＝ “驗證通過”
Else
Label1.Caption ＝ “驗證不通過”
End If
End Sub
答案解析部分
1．【答案】A
【知識點】算法的基本概念與特征
2．【答案】B
【知識點】常量、變量及變量的賦值
3．【答案】C
【知識點】循環(huán)結構語句及程序實現
4．【答案】B
【知識點】常量、變量及變量的賦值
5．【答案】A
【知識點】運算符、基本運算與表達式
6．【答案】B
【知識點】運算符、基本運算與表達式
7．【答案】C
【知識點】常用標準函數
8．【答案】C
【知識點】運算符、基本運算與表達式
9．【答案】C
【知識點】循環(huán)結構語句及程序實現
10．【答案】B
【知識點】分支結構語句及程序實現
11．【答案】B
【知識點】循環(huán)結構語句及程序實現
12．【答案】C
【知識點】類、對象、屬性、方法、事件和事件處理的概念及應用
13．【答案】C
【知識點】循環(huán)結構語句及程序實現
14．【答案】3；17
【知識點】循環(huán)結構語句及程序實現
15．【答案】41；1
【知識點】常見數據類型、數組；循環(huán)結構語句及程序實現
16．【答案】（1）B
（2）sum ＝ x；x < min；avg ＝ sum / n
【知識點】類、對象、屬性、方法、事件和事件處理的概念及應用；循環(huán)結構語句及程序實現；常用標準函數
17．【答案】2*n－1；s ＝ s ＋ Str(2 * n - i)
【知識點】分支結構語句及程序實現；循環(huán)結構語句及程序實現
18．【答案】If t Mod 10＝2 Then k＝True；s＝s＋1
【知識點】循環(huán)結構語句及程序實現
19．【答案】g＝9.8；Abs(h － h1(i)) / h >＝ 0.01
【知識點】解析算法及程序實現
二一教育在線組卷平臺（zujuan.21cnjy.com）自動生成 1 / 1登錄二一教育在線組卷平臺 助您教考全無憂
高中信息技術算法與程序設計 專項測試一 程序設計基礎
一、選擇題
1．下列問題不能用算法描述的是(　　)
A．求所有自然數之和
B．將四位十進制數轉換為對應的二進制數
C．將100個實數按升序排列
D．求100個整數中的最大值和最小值
【答案】A
【知識點】算法的基本概念與特征
2．下列可作為VB變量名的是(　　)
A．3D B．X_Y C．X＋Y D．And
【答案】B
【知識點】常量、變量及變量的賦值
3．有10個數據23、15、51、36、78、47、39、9、88、96依次存放在數組a(1 to 10)中，使用如下程序段找出最大值：
max＝a(1)
For i＝2 to 10
Next i
當方框內的語句執(zhí)行完6次后(此時循環(huán)變量i的值為7)，變量max的值是(　　)
A．23 B．39 C．78 D．96
【答案】C
【知識點】循環(huán)結構語句及程序實現
4．有如下VB程序段：
a＝12
b＝54
a＝a＋b
b＝a－b
a＝a－b
該程序段執(zhí)行后，變量a，b的值分別是(　　)
A．12，54 B．54，12 C．12，12 D．54，54
【答案】B
【知識點】常量、變量及變量的賦值
5．變量c中存儲著一個字符，能夠正確判斷出該字符為數字字符“0”～“9”的VB表達式是(　　)
A．c>＝“0” And c<＝“9” B．c>＝“0” Or c<＝“9”
C．Asc(c)>＝0 And Asc(c)<＝9 D．Asc(c)>＝0 Or Asc(c)<＝9
【答案】A
【知識點】運算符、基本運算與表達式
6．字符串變量a、b的值分別為“12”、“34”，則表達式a＋b的值是(　　)
A．“12＋34” B．“1234” C．46 D．“46”
【答案】B
【知識點】運算符、基本運算與表達式
7．字符串變量s的值為“ZheJiangHangZhou”，下列VB表達式的值是“Hang”的是(　　)
A．Mid(s，8，4) B．Mid(s，4，8)
C．Mid(s，9，4) D．Mid(s，4，9)
【答案】C
【知識點】常用標準函數
8．將數學表達式 (x≠1，y≠1)寫成VB表達式是(　　)
A．x－1/1/y－1 B．y－1/x－1
C．(y－1)/(x－1) D．1/(x－1)/(y－1)
【答案】C
【知識點】運算符、基本運算與表達式
9．有如下VB程序段：
x ＝ 0
For i ＝ 0 To 20 Step 2
If i Mod 3 ＝ 0 Then x ＝ x ＋ i
Next i
該程序段執(zhí)行后，變量x的值是(　　)
A．12 B．18 C．36 D．60
【答案】C
【知識點】循環(huán)結構語句及程序實現
10．小明編寫了一個統(tǒng)計隨機數分布的VB程序，部分程序如下所示，在調試程序的時候出現如下圖所示的錯誤信息：
n ＝ 0
m ＝ 0
For i ＝ 1 To 100
If Rnd > 0.5 Then
n ＝ n ＋ 1
Else
m ＝ m ＋ 1
Next i
……
小明仔細分析該程序段后，發(fā)現其中缺少的語句是(　　)
A．For B．End If C．Next D．If
【答案】B
【知識點】分支結構語句及程序實現
11．有如下VB程序段：
Dim k As Integer, s As Integer
k ＝ 0: s ＝ 0
Do While k >＝ 10
k ＝ k ＋ 1
s ＝ s ＋ k
Loop
該程序段執(zhí)行后，變量s的值是(　　)
A．0 B．1 C．10 D．11
【答案】B
【知識點】循環(huán)結構語句及程序實現
12．小明在設計VB程序時所使用單選框對象的屬性窗口如下圖所示，他想編寫該單選框單擊事件的處理過程，則該事件處理過程名是(　　)
A．OptionButton_Click B．男_Click
C．Option1_Click D．單選框_Click
【答案】C
【知識點】類、對象、屬性、方法、事件和事件處理的概念及應用
13．某算法的部分流程圖如下圖所示，執(zhí)行這部分流程后，輸出b，s的值分別是(　　)
A．72，138 B．72，210 C．87，210 D．87，297
【答案】C
【知識點】循環(huán)結構語句及程序實現
二、非選擇題
14．下列VB程序運行時，單擊命令按鈕Command1后，語句①被執(zhí)行了　 　次，文本框Text1中顯示的內容是　 　。
Private
Sub Command1_Click()
Dim a(1 To 5) As Integer.i As Integer
a(1)＝1
a(2)＝1
For i＝3 To 5
a(i)＝2*a(i－1)＋a(i－2) ′語句①
Next i
Text1.Text＝Str(a(5))
End
Sub
【答案】3；17
【知識點】循環(huán)結構語句及程序實現
15．下列VB程序運行時，單擊命令按鈕Command1后，文本框Text1中顯示的內容是　 　，文本框Text2中顯示的內容是　 　。
Private
Sub Command1_Click()
Dim
a(1 To 3) As Integer, k As Integer, t As Integer, s As Integer
a(1) ＝ 12: a(2) ＝ 41: a(3) ＝ 2
s ＝ 0
For k
＝ 2 To 3
If a(k) > a(1) Then
t ＝ a(1): a(1) ＝ a(k): a(k) ＝ t
s ＝ s ＋ 1
End If
Next
k
Text1.Text
＝ Str(a(1))
Text2.Text
＝ Str(s)
End
Sub
【答案】41；1
【知識點】常見數據類型、數組；循環(huán)結構語句及程序實現
16．編“求最大數最小數”程序，實現如下功能：在文本框Text1中輸入一個正整數n，單擊“分析”按鈕Command1后，程序將生成n個隨機整數，顯示在列表框List1中；并計算這n個隨機整數中的最大數、最小數及它們所在的位置，最后求出這n個數的平均值。程序運行界面如下圖所示。
（1）要使程序運行時，清空文本框Text1中的內容，可在Form_Load事件過程添加語句　 　(單選，填字母：A .Text1.Caption ＝ “ ” / B .Text1.Text＝“ ” / C
.Text1.Font＝“ ”)。
（2）實現上述功能的VB程序如下，請在劃線處填入合適的代碼。
Private
Sub Command1_Click()
Dim n
As Integer, i As Integer, x As Integer, sum As Integer, avg As Single
Dim
max As Integer, min As Integer, maxi As Integer, mini As Integer
n ＝ Val(Text1.Text)
x ＝ Int(Rnd * 100) ＋ 1
List1.AddItem
Str(x)
max ＝ x : min ＝
x
maxi ＝ 1: mini ＝
1
　 　
For i
＝ 2 To n
x
＝ Int(Rnd * 100) ＋ 1
List1.AddItem
Str(x)
If
x > max Then max ＝
x: maxi ＝ i
If
　 　 Then min ＝ x: mini ＝ i
sum
＝ sum ＋ x
Next
i
　 　
List2.AddItem
“最大數為：” ＋ Str(max) ＋ “，所在位置為：”
＋ Str(maxi)
List2.AddItem
“最小數為：” ＋ Str(min) ＋ “，所在位置為：”
＋ Str(mini)
List2.AddItem
“平均值為：” ＋ Str(avg)
End
Sub
【答案】（1）B
（2）sum ＝ x；x < min；avg ＝ sum / n
【知識點】類、對象、屬性、方法、事件和事件處理的概念及應用；循環(huán)結構語句及程序實現；常用標準函數
17．現要求編寫VB程序實現如下功能：在文本框Text1中輸入正整數n，單擊命令按鈕Command1后，在文本框Text2中會顯示一個有規(guī)律的數字串，形式為“1 2 3 … n－1 n n－1…3 2 1”。 例如n＝6時，顯示的數字串為“1 2 3 4 5 6 5 4 3 2 1”。按此要求編寫的程序如下，但加框處代碼有錯，請改正。
Private Sub Command1_Click()
Dim n As Integer, i As Integer, s As String
n ＝ Val(Text1.Text)
s ＝ “ ”
For i ＝ 1 To '(1)
If i <＝ n Then s ＝ s ＋ Str(i)
Else
'(2)
Next i
Text2.Text＝ s
End Sub
程序中加框(1)處應改正為　 　；
加框(2)處應改正為　 　。
【答案】2*n－1；s ＝ s ＋ Str(2 * n - i)
【知識點】分支結構語句及程序實現；循環(huán)結構語句及程序實現
18．下列VB程序的功能是：程序運行時，在文本框Textin中輸入正整數n.單擊命令按鈕Command1后，統(tǒng)計1至n的整數中包含數字2的整數個數，并在文本框Textout中輸出結果，若n＝20，有2、12和20三個整數包含數字2，則文本框Textout中輸出“3”。
實現上述功能的VB程序如下，請在劃線處填入合適的代碼。
Private
Sub Command1_Click()
Dim i
As Long, n As Long, t As Long
Dim s
As Long ′s用于統(tǒng)計1到n之間包含數字2的整數個數
Dim k
As Boolean
s ＝ 0
n ＝ Val(Textin.Text)
For i
＝ 1 To n
k
＝ False
t ＝ i
Do While Not k And t > 0
　 　
t ＝ t \ 10
Loop
If
k Then 　 　
Next
i
Textout.Text ＝ Str(s)
End
Sub
【答案】If t Mod 10＝2 Then k＝True；s＝s＋1
【知識點】循環(huán)結構語句及程序實現
19．小明設計了一個驗證自由落體規(guī)律的實驗：小球從高處靜止狀態(tài)垂直下落，用照相機每隔0.1秒拍照1次，測得實驗數據如下：
拍照時刻(秒) 0.1 0.2 0.3 0.4 0.5
下落距離測量值(米) 0.049 0.195 0.44 0.785 1.225
現要求編寫一個VB程序實現如下功能：單擊命令按鈕Command1后，由公式h＝ gt2 (其中g＝9.8米/秒2)計算出第一拍照時刻的下落距離理論值，若所有理論值與同一時刻測量值之間的相對誤差 都小于0.01，則認為小球在0.5秒內是作自由落體運動，此時在標簽Label1中顯示“驗證通過”，否則顯示“驗證不通過”。
實現上述功能的VB程序如下，請在劃線處填入合適代碼。
Private Sub Command1_Click()
Dim h1(1 To 5) As Single 'h1用于存儲下落距離測量值
Dim h As Single, i As Integer 'h用于存儲下落距離理論值
Dim t As Single, g As Single, b As Boolean
h1(1) ＝ 0.049: h1(2) ＝ 0.195: h1(3) ＝ 0.44: h1(4) ＝ 0.785: h1(5) ＝ 1.225
i ＝ 1: b ＝ True
　 　
Do While i <＝ 5 And b
t ＝ i / 10
h ＝ g * t * t / 2
If 　 　Then b ＝ False
i ＝ i ＋ 1
Loop
If b Then
Label1.Caption ＝ “驗證通過”
Else
Label1.Caption ＝ “驗證不通過”
End If
End Sub
【答案】g＝9.8；Abs(h － h1(i)) / h >＝ 0.01
【知識點】解析算法及程序實現
二一教育在線組卷平臺（zujuan.21cnjy.com）自動生成 1 / 1

展開更多......

收起↑