資源簡介

浙江省臺州市2017-2018學年高二上學期信息技術第一次月考試題
一、選擇題
1．（2017高二上·臺州月考）下列有關信息的說法，錯誤的是(　　)
A．現在很多智能手機有了指紋鎖，是為了提升信息的安全性
B．人類在造紙術和印刷術產生之前，信息無法存儲
C．公民身份證號和考生準考證號的編排，都屬于信息的編碼
D．不同的載體的可以承載同樣的信息
2．（2017高二上·臺州月考）在計算機內，有符號數有3種表示法：原碼、反碼和補碼。
⑴原碼就是二進制定點表示法，即最高位為符號位，“0”表示正，“1”表示負，其余位表示數值的大小；
⑵反碼表示法規定：正數的反碼與其原碼相同；負數的反碼是對其原碼逐位取反，但符號位除外。如二進制原碼10010，則反碼11101(注：在10010中，左邊的1為符號碼，故為負)；
⑶補碼表示法規定：正數的補碼與其原碼相同；負數的補碼是在其反碼的末位加1，符號位除外。
根據以上運算規則，二進制有符號數100011的補碼的十進制表示是(　　)
A．－29 B．－4 C．－61 D．－36
3．（2017高二上·臺州月考）使用UltraEdit軟件觀察字符“挑戰AlphaGo！”的內碼，部分界面如圖所示。
下列說法正確的是（　　）
A．字符“！”的內碼占兩個字節
B．字符“戰”的十六進制碼是“BD 41”
C．字符“h”的二進制碼是“01101000”
D．字符“go”的十六進制碼是“47 6F”
4．（2017高二上·臺州月考）某文件夾下共有100張屬性相同的BMP圖片，共占用了約75MB的存儲空間，已知圖片的分辨率為1024*768，問這種圖片包括多少種顏色（　　）
A．8 B．16 C．256 D．512
5．（2016高二上·杭州期末）將一個時長為1分鐘、采樣頻率為44.1kHz、量化位數為16、雙聲道未經壓縮的Wave格式音頻文件壓縮為MP3格式文件，壓縮后的MP3格式文件大小為940KB，則其 壓縮比約為（　　）
A．11 : 1 B．11 : 2 C．11：4 D．88 : 1
6．（2017高二上·臺州月考）VB表達式9\8/2 + 12 Mod 3*3 -2^-2 的值是(　　)
A．3.25 B．4.75 C．5 D．7
7．（2017高二上·臺州月考）有如下VB程序段：
Dim a As Integer, b As Integer, c As Integer, y As Integer
a=3:b=4:c=4
If a<=b And c<=a Then
y=a+b
ElseIf a<=b or b<=c Then
y=b+c
ElseIf b=c Then
y=a mod c
Else
y=a+b+c
End If
該程序段運行之后，變量y的值為（　　）
A．3 B．7 C．8 D．11
8．（2017高二上·臺州月考）某兩段VB程序分別如圖1和圖2所示：
Dim n As Integer, s As Integer, i As Integer n=Val(Text1.Text) s=0 For i=1 To n Step 2 s=s+i Next i Text2.Text=Str(s)
圖1
Dim n As Integer, s As Integer, i As Integer n=Val(Text1.Text) s=0 i=1 Do While i<=n s=s+i i=i+2 Loop Text2.Text=Str(s)
圖2
當n的值為10時，關于該兩段程序，下列說法不正確的是(　　)
A．兩段程序中i的初值相同
B．兩段程序的運算結果不相同
C．兩段程序都采用了循環結構
D．圖1程序實現了“1＋3＋5＋7＋9”和的運算
9．（2017高二上·臺州月考）有如下VB程序段：
Dim a(1 To 5) As Integer, i As Integer, c As Integer
a(1)=2:a(2)=1:a(3)=3:a(4)=4:a(5)=5
c=0
For i=3 To 5
If a(i-2)+a(i-1)=a(i) Then c=c+1
Next i
Text1.Text=Str(c)
該程序段運行后，文本框Text1中顯示的內容是（　　）
A．1 B．2 C．3 D．4
10．（2017高二上·臺州月考）單擊窗體后，文本框Text1、Text2中顯示的內容是(　　)
Private Sub Form_Click(　　)
Dim x as Integer, n as Integer
x=1
n=0
Do While x < 20
n=n+1
x=x * 3
Loop
Text1.Text=Str(x)
Text2.Text=Str(n)
End Sub
A．27 3 B．3 27 C．20 3 D．3 21
11．（2017高二上·臺州月考）已知存有6個數字的數組d，其數組元素如下表 ，則以下程序的輸出結果為(　　)
A．-8 B．-6 C．9 D．12
12．（2017高二上·臺州月考）有如下VB程序段：
Dim a(1 To 10) As Integer，i As Integer，j As Integer
a(1)=1
a(2)=1
For i=3 To 5
a(i)=1
For j=i-1 To 2 Step -1
a(j)=a(j)+a(j-1)
Next j
Next i
Text1.Text=Str(a(3))
該程序段運行后，在文本框Text1中顯示的內容是(　　)
A．1 B．3 C．4 D．6
二、非選擇題
13．（2017高二上·臺州月考）編寫VB程序，實現如下功能：在文本框Text1、Text2中分別輸入一個正整數，單擊“計算累加和”按鈕，在標簽Label3中顯示起始值與結束值之間所有奇數的累加和。界面如圖所示。
（1）在設計應用程序界面時，要將窗體的標題改為“計算累加和”，應將窗體的　 　屬性的值更改為“計算累加和” (填寫相應屬性名)。
（2）為實現上述功能，請在劃線處填入合適代碼。
Private Sub Command1_Click()
Dim x1 As Integer，x2 As Integer，n As Integer
Dim sum As Long
x1＝Val(Text1.Text)
x2＝Val(Text2.Text)
Sum＝0
If x1For i＝x1 To x2 Step n
If　 　Then
sum＝sum＋i
　 　
Next i
Label3.Caption＝“從”& x1 &“到”& x2 &“之前所有奇數的累加和＝”& Str(sum)
End Sub
14．（2017高二上·臺州月考）小丁想買幾張6+1彩票，選號時，他希望前4位用自己的生日：11月8日，即1108，特別號碼他選了買彩票日子的個位數5，并且他希望前六個數字組成的數能被他的幸運數字9整除。他的好朋友小杰幫他設計了一個VB程序，可以提供一份符合這些要求的號碼清單供他挑選。相應的界面如圖1所示。閱讀程序并完成后面的問題。
（1）設計應用程序界面時，為添加a所指向的對象，應使用圖2所示的“控件工具箱”中的　 　 （填寫相應編號）。
（2）請根據題意將下列程序補充完整。
Private Sub Command1_Click()
Dim i As Integer, j As Integer, c As Integer,n As Long
c = 0
　 　
n = 110800 + i
If 　 　 Then
List1.AddItem Str(n) + " " + "5"
　 　
End If
Next i
Label2.Caption = "滿足條件的數有：" + Str(c) + "組"
End Sub
15．（2017高二上·臺州月考）編寫“數字序列”程序，實現如下功能：在文本框Text1中輸入[100,500]范圍內的整數，單擊“生成”按鈕Command1，在列表框List1中顯示9個該序列的數字。數字序列的生成規則為：該項的數字+該數百位上的數字+該數十位上的數字+該數個位上的數字=下一項的數字，例如：365+3+6+5=379。小明編寫了VB程序，運行的界面如圖所示，程序代碼如下：
（1）代碼“Private Sub Command1_Click()”中的Command1_Click()是_________。（單選，填字母）
A．對象名 B．事件
C．事件處理過程 D．方法
（2）為實現上述功能，請在劃線處填入合適的代碼。
Private Sub Command1_Click()
Dim n As Integer, i As Integer
Dim a As Integer
Dim b As Integer
Dim c As Integer
List1.Clear
n = Val(Text1.Text)
If n >= 100 And n <= 500 Then
For i = 1 To 9
A．位置一
a = n \ 100
b = (n - 100 * a) \ 10
c = n Mod 10
　 　
B．位置二
Next i
C．位置三
Else
List1.AddItem "輸入數值有誤"
End If
D．位置四
End Sub
（3）上述代碼段中缺少了List1.AddItem Str(i) + "." + Str(n)，此句代碼應該加在　 　（填字母）位置。
（4）若輸入的數字為123，則第三項的值為　 　。
16．（2017高二上·臺州月考）小婷編寫了一個VB程序，實現如下功能，在文本框Text1中輸入一個4位整數zs，單擊解密按鈕后，在List1列表框中顯示當前zs值降序開始的10位相鄰整數“解密前”和“解密后”的信息，運行界面如圖所示。
解密規則：將整數中各個位中的每一位值乘以5，然后除以8所得余數即為該位的值，然后將所得數的首末位進行交換。如數字9357，解密后的值為3715。
（1）觀察程序代碼，可知“解密”按鈕的對象名是　 　
（2）實現上述功能，請在劃線處填入合適的代碼。
Private Sub Decryp_Click(　　)
Dim zs As Long, g As Integer
Dim b As Integer, q As Integer
Dim m As Integer, s As Integer
Dim jmh As String
zs = Val(Text1.Text)
For m = zs To 　 　
q = (m \ 1000) * 5 Mod 8
b = ((m \ 100) Mod 10) * 5 Mod 8
s = ((m \ 10) Mod 10) * 5 Mod 8
g = (m Mod 10) * 5 Mod 8
　 　
List1.AddItem Str(m) + " " + jmh
Next m
End Sub
（3）由上述算法可知，四位數“6124”對應的解密數值是　 　
答案解析部分
1．【答案】B
【知識點】信息及其特征
【解析】【解答】A選項，指紋鎖提升信息的安全性，A選項正確；B選項，人類在造紙術和印刷術產生之前依然在以其它形式存儲信息，B選項錯誤；C選項，身份證號和準考證號屬于信息的編碼，C 選項正確；D選項，不同的載體可以承載同樣的信息，如聲音和文字內容可以相同，D 選項正確；故答案選B.
【分析】此題考查信息及其特征等基本知識。
2．【答案】A
【知識點】進制及數制轉換
【解析】【解答】按題目要求計算，由（1）可知，該二進制有符號數100011是負數，第一位1是符號位，由（2）對符號位之外的原碼逐位取反得其反碼為111100，由（3）知，在反碼的末位加1得其補碼為111101，最后將二制制轉化為十進制數得-29,故答案選A.
【分析】此題考查二進制、十進制的轉換，二進制的加法等。
3．【答案】C
【知識點】進制及數制轉換；字符編碼
【解析】【解答】A選項，字符“！”的內碼占1個字節，A 選項錯誤；B選項，字符“戰”的十六進制碼是“D5 BD”;C選項字符“h”的十六進制碼是68,轉化為二進制碼是“01101000”，C選項正確；D選項字符“Go”的十六進制碼是“47 6F”不是“go",D選項錯誤，故答案D.
【分析】此題考查字符編碼以及二進制、十六進制間的轉換。
4．【答案】C
【知識點】聲音、圖像、視頻編碼
【解析】【解答】已知圖片大小=圖片分辨率*位深/8，位深=圖片大小*8/圖片分辨率=75*1024*1024/100*8/1024*768=8，位深為8的圖片顏色數位2^8=256故答案選C。
【分析】此題考查對圖片大小計算的運用。
5．【答案】A
【知識點】聲音、圖像、視頻編碼
【解析】【解答】先計算未經壓縮的Wave格式音頻文件的大小，音頻數據量=44.1*1000*16*2*60/8/1024=10336，壓縮比例=10336/940約等于11，故答案選A。
【分析】此題考查音頻大小的計算，音頻數據量=數據量=（采樣頻率×采樣位數×聲道數×時間）/8.
6．【答案】B
【知識點】運算符、基本運算與表達式
【解析】【解答】根據VB運算符優先級計算，9\8/2 + 12 Mod 3*3 -2^-2 =9\4+12Mod9-0.25=2+3-0.25=4.75，故答案選B.
【分析】此題考查VB的基本運算，注意運算符優先級^>-(取負）>/>*>\>Mod>+、-
7．【答案】C
【知識點】算法的控制結構
【解析】【解答】按程序結構If a<=b And c<=a不成立執行下一語名ElseIf a<=b or b<=c Then y=b+c即y=4+4=8，不再執行下面的ElseIf b=c，故答案選C.
【分析】此題考查程序的選擇結構,注意if......elseif語句，執行了if后的語句，不再執行elseif后的語句。
8．【答案】B
【知識點】算法的控制結構；運算符、基本運算與表達式
【解析】【解答】選項A，兩段程序中i的初值相同都為1，A選項正確；B選項，兩段程序的運算結果相同都為25，B選項錯誤；C選項，兩段程序都采用了循環結構 C選項正確；D選項，圖1程序實現了“1＋3＋5＋7＋9”和的運算，D選項正確，選擇不正確的選項，故答案選B.
【分析】此題考查VB循環結構、基本運算。
9．【答案】B
【知識點】算法的控制結構
【解析】【解答】程序的運行過程：i=3時，a(1)+a(2)=a(3),c=0+1=1;i=4時，a(2)+a(3)=a(4),c=1+1=2；i=5時不滿足if內的條件，輸出c=2故答案選B。
【分析】此題主要考查vb的選擇結構。
10．【答案】A
【知識點】算法的控制結構
【解析】【解答】程序的執行過程為：n=0+1=1 x=3,x<20;n=1+1=2 x=9,x<20,n=2+1=3,x=3*9=27,x>20跳出循環，輸出x=27,n=3,故答案選A.
【分析】此題重點考查VB循環結構。
11．【答案】B
【知識點】算法的常用表示方法；算法的控制結構
【解析】【解答】程序的執行過程：i=1，c=0,s=0,i<6順序執行d(1)=9>0轉向N后面的語句，i=i+1;i=2,c=0,s=0,i<6順序執行Y后面的語句,d(2)=-3<0執行Y后的程序，s=0+(-3)=-3,c=1,i=i+1;以此執行最終可得，s=-18,c=3,輸出結果s/c=-6,故答案選B。
【分析】此題考查算法的流程圖表示方法及選擇結構。
12．【答案】D
【知識點】算法的控制結構
【解析】【解答】程序的運行過程i=3時，a(3)=1,j=2,a(2)=a(2)+a(1)=2;i=4時，a(4)=1,j=3 To 2 Step -1，j=3,a(3)=a(3)+a(2)=3,j=2,a(2)=a(2)+a(1)=3;i=5時，a(5)=1,j=4To 2 Step -1,j=4,a(4)=a(4)+a(3)=4, j=3,a(3)=a(3)+a(2)=6,j=2,a(2)=a(2)+a(1)=4;跳出循環，a(3)=6,故答案選D。
【分析】此題考查 vb循環嵌套結構。
13．【答案】（1）Caption
（2）n=-1；i mod 2=1；End If
【知識點】運算符、基本運算與表達式；常量、變量及變量的賦值
【解析】【解答】（1）修改窗體標題屬性，故答案為Caption。（2）程序的執行過程，判斷x1、x2的大小，以取得兩值之間的數，若x1x2則每次遞減1取得中間值，所以n的取值為1或-1,為了取得奇數進行累加，判斷條件為imod2（取余數）是否為1，為1為奇數，為0為偶數，算得奇數的和sum＝sum＋i之后結束選擇語句End If，故答案為n=-1、i mod 2=1、End If
【分析】此題考查VB中基本的運算和常用語句。
14．【答案】（1）4
（2）For i=0 To 99；n Mod 9=0；c=c+1
【知識點】運算符、基本運算與表達式；常量、變量及變量的賦值
【解析】【解答】（1）a指向的對象為列表框，故答案選4.（2）程序的執行過程第一個空格，確認i的取值，以確保前面的位數為6位，i的取值為0到99，取得所有滿足條件的值，所以此處有個循環結構，第一個空格處應填For i=0 To 99；前面的六個整數要被9整除，第二個空格判斷是否能整除，如果能整除即輸出str(n),2處填n Mod 9=0；計算滿足條件的組數c，每輸出一次增加1，3處填c=c+1，故答案為For i=0 To 99、n Mod 9=0、c=c+1.
【分析】此題考查vb中的基本運算和常用語句，其中此題的關鍵在于通過mod來判斷是否能被9整數。
15．【答案】（1）C
（2）n=n+a+b+c
（3）A
（4）141
【知識點】運算符、基本運算與表達式
【解析】【解答】（1）Command1_Click()表示事件處理過程，故答案選C。（2）程序求得n百位、十位、個位上的數值后，根據數字序列生成規則求得下一項的數字為：n+a+b+c，故答案為n=n+a+b+c。（3）由于數字序列的首位為輸入的數字，故缺少的代碼應該添加在A位置才能輸出輸入的數字，故答案為A。（4）根據程序的執行過程輸入數字為123時，數字序列的第二項為：123+1+2+3=129，由此可知數字序列的第三項為：129+1+2+9=141，故答案為141.
【分析】此題考查vb中基本的運算和語句，通過\(整除）和mod運算取得各位上值是此題的重點。
16．【答案】（1）Decryp
（2）zs-9 Step -1；jmh=Str(g)+Str(b)+Str(s)+Str(q)
（3）4526
【知識點】運算符、基本運算與表達式；常量、變量及變量的賦值
【解析】【解答】（1）由程序可知“解密”按鈕的對象名為Decryp，故答案為Decryp。（2）由于列表中顯示的是zs值降序開始的10位相鄰整數，所以要依次取得zs降序的10位相鄰整數，m的取值為zs到zs-9依次取值，每次遞減1，m=zs to zs-9 Step -1;由代碼List1.AddItem Str(m) + " " + jmh可知，輸出的是數組jmh,即jmh為解密后的值，由解密規則可得jmh=Str(g)+Str(b)+Str(s)+Str(q),故答案為zs-9 Step -1、jmh=Str(g)+Str(b)+Str(s)+Str(q).(3)由程序可計算出q=6*5mod8=6,b=1*5mod8=5,s=2*5mod8=2,q=4*5mod8=4,交換首尾兩位后，jmh=4526,故答案為4526.
【分析】此題考查vb的基本運算和語句，重點在于根據題干規則計算出解密后各位上的值。
1 / 1浙江省臺州市2017-2018學年高二上學期信息技術第一次月考試題
一、選擇題
1．（2017高二上·臺州月考）下列有關信息的說法，錯誤的是(　　)
A．現在很多智能手機有了指紋鎖，是為了提升信息的安全性
B．人類在造紙術和印刷術產生之前，信息無法存儲
C．公民身份證號和考生準考證號的編排，都屬于信息的編碼
D．不同的載體的可以承載同樣的信息
【答案】B
【知識點】信息及其特征
【解析】【解答】A選項，指紋鎖提升信息的安全性，A選項正確；B選項，人類在造紙術和印刷術產生之前依然在以其它形式存儲信息，B選項錯誤；C選項，身份證號和準考證號屬于信息的編碼，C 選項正確；D選項，不同的載體可以承載同樣的信息，如聲音和文字內容可以相同，D 選項正確；故答案選B.
【分析】此題考查信息及其特征等基本知識。
2．（2017高二上·臺州月考）在計算機內，有符號數有3種表示法：原碼、反碼和補碼。
⑴原碼就是二進制定點表示法，即最高位為符號位，“0”表示正，“1”表示負，其余位表示數值的大小；
⑵反碼表示法規定：正數的反碼與其原碼相同；負數的反碼是對其原碼逐位取反，但符號位除外。如二進制原碼10010，則反碼11101(注：在10010中，左邊的1為符號碼，故為負)；
⑶補碼表示法規定：正數的補碼與其原碼相同；負數的補碼是在其反碼的末位加1，符號位除外。
根據以上運算規則，二進制有符號數100011的補碼的十進制表示是(　　)
A．－29 B．－4 C．－61 D．－36
【答案】A
【知識點】進制及數制轉換
【解析】【解答】按題目要求計算，由（1）可知，該二進制有符號數100011是負數，第一位1是符號位，由（2）對符號位之外的原碼逐位取反得其反碼為111100，由（3）知，在反碼的末位加1得其補碼為111101，最后將二制制轉化為十進制數得-29,故答案選A.
【分析】此題考查二進制、十進制的轉換，二進制的加法等。
3．（2017高二上·臺州月考）使用UltraEdit軟件觀察字符“挑戰AlphaGo！”的內碼，部分界面如圖所示。
下列說法正確的是（　　）
A．字符“！”的內碼占兩個字節
B．字符“戰”的十六進制碼是“BD 41”
C．字符“h”的二進制碼是“01101000”
D．字符“go”的十六進制碼是“47 6F”
【答案】C
【知識點】進制及數制轉換；字符編碼
【解析】【解答】A選項，字符“！”的內碼占1個字節，A 選項錯誤；B選項，字符“戰”的十六進制碼是“D5 BD”;C選項字符“h”的十六進制碼是68,轉化為二進制碼是“01101000”，C選項正確；D選項字符“Go”的十六進制碼是“47 6F”不是“go",D選項錯誤，故答案D.
【分析】此題考查字符編碼以及二進制、十六進制間的轉換。
4．（2017高二上·臺州月考）某文件夾下共有100張屬性相同的BMP圖片，共占用了約75MB的存儲空間，已知圖片的分辨率為1024*768，問這種圖片包括多少種顏色（　　）
A．8 B．16 C．256 D．512
【答案】C
【知識點】聲音、圖像、視頻編碼
【解析】【解答】已知圖片大小=圖片分辨率*位深/8，位深=圖片大小*8/圖片分辨率=75*1024*1024/100*8/1024*768=8，位深為8的圖片顏色數位2^8=256故答案選C。
【分析】此題考查對圖片大小計算的運用。
5．（2016高二上·杭州期末）將一個時長為1分鐘、采樣頻率為44.1kHz、量化位數為16、雙聲道未經壓縮的Wave格式音頻文件壓縮為MP3格式文件，壓縮后的MP3格式文件大小為940KB，則其 壓縮比約為（　　）
A．11 : 1 B．11 : 2 C．11：4 D．88 : 1
【答案】A
【知識點】聲音、圖像、視頻編碼
【解析】【解答】先計算未經壓縮的Wave格式音頻文件的大小，音頻數據量=44.1*1000*16*2*60/8/1024=10336，壓縮比例=10336/940約等于11，故答案選A。
【分析】此題考查音頻大小的計算，音頻數據量=數據量=（采樣頻率×采樣位數×聲道數×時間）/8.
6．（2017高二上·臺州月考）VB表達式9\8/2 + 12 Mod 3*3 -2^-2 的值是(　　)
A．3.25 B．4.75 C．5 D．7
【答案】B
【知識點】運算符、基本運算與表達式
【解析】【解答】根據VB運算符優先級計算，9\8/2 + 12 Mod 3*3 -2^-2 =9\4+12Mod9-0.25=2+3-0.25=4.75，故答案選B.
【分析】此題考查VB的基本運算，注意運算符優先級^>-(取負）>/>*>\>Mod>+、-
7．（2017高二上·臺州月考）有如下VB程序段：
Dim a As Integer, b As Integer, c As Integer, y As Integer
a=3:b=4:c=4
If a<=b And c<=a Then
y=a+b
ElseIf a<=b or b<=c Then
y=b+c
ElseIf b=c Then
y=a mod c
Else
y=a+b+c
End If
該程序段運行之后，變量y的值為（　　）
A．3 B．7 C．8 D．11
【答案】C
【知識點】算法的控制結構
【解析】【解答】按程序結構If a<=b And c<=a不成立執行下一語名ElseIf a<=b or b<=c Then y=b+c即y=4+4=8，不再執行下面的ElseIf b=c，故答案選C.
【分析】此題考查程序的選擇結構,注意if......elseif語句，執行了if后的語句，不再執行elseif后的語句。
8．（2017高二上·臺州月考）某兩段VB程序分別如圖1和圖2所示：
Dim n As Integer, s As Integer, i As Integer n=Val(Text1.Text) s=0 For i=1 To n Step 2 s=s+i Next i Text2.Text=Str(s)
圖1
Dim n As Integer, s As Integer, i As Integer n=Val(Text1.Text) s=0 i=1 Do While i<=n s=s+i i=i+2 Loop Text2.Text=Str(s)
圖2
當n的值為10時，關于該兩段程序，下列說法不正確的是(　　)
A．兩段程序中i的初值相同
B．兩段程序的運算結果不相同
C．兩段程序都采用了循環結構
D．圖1程序實現了“1＋3＋5＋7＋9”和的運算
【答案】B
【知識點】算法的控制結構；運算符、基本運算與表達式
【解析】【解答】選項A，兩段程序中i的初值相同都為1，A選項正確；B選項，兩段程序的運算結果相同都為25，B選項錯誤；C選項，兩段程序都采用了循環結構 C選項正確；D選項，圖1程序實現了“1＋3＋5＋7＋9”和的運算，D選項正確，選擇不正確的選項，故答案選B.
【分析】此題考查VB循環結構、基本運算。
9．（2017高二上·臺州月考）有如下VB程序段：
Dim a(1 To 5) As Integer, i As Integer, c As Integer
a(1)=2:a(2)=1:a(3)=3:a(4)=4:a(5)=5
c=0
For i=3 To 5
If a(i-2)+a(i-1)=a(i) Then c=c+1
Next i
Text1.Text=Str(c)
該程序段運行后，文本框Text1中顯示的內容是（　　）
A．1 B．2 C．3 D．4
【答案】B
【知識點】算法的控制結構
【解析】【解答】程序的運行過程：i=3時，a(1)+a(2)=a(3),c=0+1=1;i=4時，a(2)+a(3)=a(4),c=1+1=2；i=5時不滿足if內的條件，輸出c=2故答案選B。
【分析】此題主要考查vb的選擇結構。
10．（2017高二上·臺州月考）單擊窗體后，文本框Text1、Text2中顯示的內容是(　　)
Private Sub Form_Click(　　)
Dim x as Integer, n as Integer
x=1
n=0
Do While x < 20
n=n+1
x=x * 3
Loop
Text1.Text=Str(x)
Text2.Text=Str(n)
End Sub
A．27 3 B．3 27 C．20 3 D．3 21
【答案】A
【知識點】算法的控制結構
【解析】【解答】程序的執行過程為：n=0+1=1 x=3,x<20;n=1+1=2 x=9,x<20,n=2+1=3,x=3*9=27,x>20跳出循環，輸出x=27,n=3,故答案選A.
【分析】此題重點考查VB循環結構。
11．（2017高二上·臺州月考）已知存有6個數字的數組d，其數組元素如下表 ，則以下程序的輸出結果為(　　)
A．-8 B．-6 C．9 D．12
【答案】B
【知識點】算法的常用表示方法；算法的控制結構
【解析】【解答】程序的執行過程：i=1，c=0,s=0,i<6順序執行d(1)=9>0轉向N后面的語句，i=i+1;i=2,c=0,s=0,i<6順序執行Y后面的語句,d(2)=-3<0執行Y后的程序，s=0+(-3)=-3,c=1,i=i+1;以此執行最終可得，s=-18,c=3,輸出結果s/c=-6,故答案選B。
【分析】此題考查算法的流程圖表示方法及選擇結構。
12．（2017高二上·臺州月考）有如下VB程序段：
Dim a(1 To 10) As Integer，i As Integer，j As Integer
a(1)=1
a(2)=1
For i=3 To 5
a(i)=1
For j=i-1 To 2 Step -1
a(j)=a(j)+a(j-1)
Next j
Next i
Text1.Text=Str(a(3))
該程序段運行后，在文本框Text1中顯示的內容是(　　)
A．1 B．3 C．4 D．6
【答案】D
【知識點】算法的控制結構
【解析】【解答】程序的運行過程i=3時，a(3)=1,j=2,a(2)=a(2)+a(1)=2;i=4時，a(4)=1,j=3 To 2 Step -1，j=3,a(3)=a(3)+a(2)=3,j=2,a(2)=a(2)+a(1)=3;i=5時，a(5)=1,j=4To 2 Step -1,j=4,a(4)=a(4)+a(3)=4, j=3,a(3)=a(3)+a(2)=6,j=2,a(2)=a(2)+a(1)=4;跳出循環，a(3)=6,故答案選D。
【分析】此題考查 vb循環嵌套結構。
二、非選擇題
13．（2017高二上·臺州月考）編寫VB程序，實現如下功能：在文本框Text1、Text2中分別輸入一個正整數，單擊“計算累加和”按鈕，在標簽Label3中顯示起始值與結束值之間所有奇數的累加和。界面如圖所示。
（1）在設計應用程序界面時，要將窗體的標題改為“計算累加和”，應將窗體的　 　屬性的值更改為“計算累加和” (填寫相應屬性名)。
（2）為實現上述功能，請在劃線處填入合適代碼。
Private Sub Command1_Click()
Dim x1 As Integer，x2 As Integer，n As Integer
Dim sum As Long
x1＝Val(Text1.Text)
x2＝Val(Text2.Text)
Sum＝0
If x1For i＝x1 To x2 Step n
If　 　Then
sum＝sum＋i
　 　
Next i
Label3.Caption＝“從”& x1 &“到”& x2 &“之前所有奇數的累加和＝”& Str(sum)
End Sub
【答案】（1）Caption
（2）n=-1；i mod 2=1；End If
【知識點】運算符、基本運算與表達式；常量、變量及變量的賦值
【解析】【解答】（1）修改窗體標題屬性，故答案為Caption。（2）程序的執行過程，判斷x1、x2的大小，以取得兩值之間的數，若x1x2則每次遞減1取得中間值，所以n的取值為1或-1,為了取得奇數進行累加，判斷條件為imod2（取余數）是否為1，為1為奇數，為0為偶數，算得奇數的和sum＝sum＋i之后結束選擇語句End If，故答案為n=-1、i mod 2=1、End If
【分析】此題考查VB中基本的運算和常用語句。
14．（2017高二上·臺州月考）小丁想買幾張6+1彩票，選號時，他希望前4位用自己的生日：11月8日，即1108，特別號碼他選了買彩票日子的個位數5，并且他希望前六個數字組成的數能被他的幸運數字9整除。他的好朋友小杰幫他設計了一個VB程序，可以提供一份符合這些要求的號碼清單供他挑選。相應的界面如圖1所示。閱讀程序并完成后面的問題。
（1）設計應用程序界面時，為添加a所指向的對象，應使用圖2所示的“控件工具箱”中的　 　 （填寫相應編號）。
（2）請根據題意將下列程序補充完整。
Private Sub Command1_Click()
Dim i As Integer, j As Integer, c As Integer,n As Long
c = 0
　 　
n = 110800 + i
If 　 　 Then
List1.AddItem Str(n) + " " + "5"
　 　
End If
Next i
Label2.Caption = "滿足條件的數有：" + Str(c) + "組"
End Sub
【答案】（1）4
（2）For i=0 To 99；n Mod 9=0；c=c+1
【知識點】運算符、基本運算與表達式；常量、變量及變量的賦值
【解析】【解答】（1）a指向的對象為列表框，故答案選4.（2）程序的執行過程第一個空格，確認i的取值，以確保前面的位數為6位，i的取值為0到99，取得所有滿足條件的值，所以此處有個循環結構，第一個空格處應填For i=0 To 99；前面的六個整數要被9整除，第二個空格判斷是否能整除，如果能整除即輸出str(n),2處填n Mod 9=0；計算滿足條件的組數c，每輸出一次增加1，3處填c=c+1，故答案為For i=0 To 99、n Mod 9=0、c=c+1.
【分析】此題考查vb中的基本運算和常用語句，其中此題的關鍵在于通過mod來判斷是否能被9整數。
15．（2017高二上·臺州月考）編寫“數字序列”程序，實現如下功能：在文本框Text1中輸入[100,500]范圍內的整數，單擊“生成”按鈕Command1，在列表框List1中顯示9個該序列的數字。數字序列的生成規則為：該項的數字+該數百位上的數字+該數十位上的數字+該數個位上的數字=下一項的數字，例如：365+3+6+5=379。小明編寫了VB程序，運行的界面如圖所示，程序代碼如下：
（1）代碼“Private Sub Command1_Click()”中的Command1_Click()是_________。（單選，填字母）
A．對象名 B．事件
C．事件處理過程 D．方法
（2）為實現上述功能，請在劃線處填入合適的代碼。
Private Sub Command1_Click()
Dim n As Integer, i As Integer
Dim a As Integer
Dim b As Integer
Dim c As Integer
List1.Clear
n = Val(Text1.Text)
If n >= 100 And n <= 500 Then
For i = 1 To 9
A．位置一
a = n \ 100
b = (n - 100 * a) \ 10
c = n Mod 10
　 　
B．位置二
Next i
C．位置三
Else
List1.AddItem "輸入數值有誤"
End If
D．位置四
End Sub
（3）上述代碼段中缺少了List1.AddItem Str(i) + "." + Str(n)，此句代碼應該加在　 　（填字母）位置。
（4）若輸入的數字為123，則第三項的值為　 　。
【答案】（1）C
（2）n=n+a+b+c
（3）A
（4）141
【知識點】運算符、基本運算與表達式
【解析】【解答】（1）Command1_Click()表示事件處理過程，故答案選C。（2）程序求得n百位、十位、個位上的數值后，根據數字序列生成規則求得下一項的數字為：n+a+b+c，故答案為n=n+a+b+c。（3）由于數字序列的首位為輸入的數字，故缺少的代碼應該添加在A位置才能輸出輸入的數字，故答案為A。（4）根據程序的執行過程輸入數字為123時，數字序列的第二項為：123+1+2+3=129，由此可知數字序列的第三項為：129+1+2+9=141，故答案為141.
【分析】此題考查vb中基本的運算和語句，通過\(整除）和mod運算取得各位上值是此題的重點。
16．（2017高二上·臺州月考）小婷編寫了一個VB程序，實現如下功能，在文本框Text1中輸入一個4位整數zs，單擊解密按鈕后，在List1列表框中顯示當前zs值降序開始的10位相鄰整數“解密前”和“解密后”的信息，運行界面如圖所示。
解密規則：將整數中各個位中的每一位值乘以5，然后除以8所得余數即為該位的值，然后將所得數的首末位進行交換。如數字9357，解密后的值為3715。
（1）觀察程序代碼，可知“解密”按鈕的對象名是　 　
（2）實現上述功能，請在劃線處填入合適的代碼。
Private Sub Decryp_Click(　　)
Dim zs As Long, g As Integer
Dim b As Integer, q As Integer
Dim m As Integer, s As Integer
Dim jmh As String
zs = Val(Text1.Text)
For m = zs To 　 　
q = (m \ 1000) * 5 Mod 8
b = ((m \ 100) Mod 10) * 5 Mod 8
s = ((m \ 10) Mod 10) * 5 Mod 8
g = (m Mod 10) * 5 Mod 8
　 　
List1.AddItem Str(m) + " " + jmh
Next m
End Sub
（3）由上述算法可知，四位數“6124”對應的解密數值是　 　
【答案】（1）Decryp
（2）zs-9 Step -1；jmh=Str(g)+Str(b)+Str(s)+Str(q)
（3）4526
【知識點】運算符、基本運算與表達式；常量、變量及變量的賦值
【解析】【解答】（1）由程序可知“解密”按鈕的對象名為Decryp，故答案為Decryp。（2）由于列表中顯示的是zs值降序開始的10位相鄰整數，所以要依次取得zs降序的10位相鄰整數，m的取值為zs到zs-9依次取值，每次遞減1，m=zs to zs-9 Step -1;由代碼List1.AddItem Str(m) + " " + jmh可知，輸出的是數組jmh,即jmh為解密后的值，由解密規則可得jmh=Str(g)+Str(b)+Str(s)+Str(q),故答案為zs-9 Step -1、jmh=Str(g)+Str(b)+Str(s)+Str(q).(3)由程序可計算出q=6*5mod8=6,b=1*5mod8=5,s=2*5mod8=2,q=4*5mod8=4,交換首尾兩位后，jmh=4526,故答案為4526.
【分析】此題考查vb的基本運算和語句，重點在于根據題干規則計算出解密后各位上的值。
1 / 1

展開更多......

收起↑