浙江省台州市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
