浙江省台州市2017-2018学年高二上学期信息技术第一次月考试题
试卷更新日期:2018-03-28 类型:月考试卷
一、选择题
-
1. 下列有关信息的说法,错误的是( )A、现在很多智能手机有了指纹锁,是为了提升信息的安全性 B、人类在造纸术和印刷术产生之前,信息无法存储 C、公民身份证号和考生准考证号的编排,都属于信息的编码 D、不同的载体的可以承载同样的信息2. 在计算机内,有符号数有3种表示法:原码、反码和补码。
⑴原码就是二进制定点表示法,即最高位为符号位,“0”表示正,“1”表示负,其余位表示数值的大小;
⑵反码表示法规定:正数的反码与其原码相同;负数的反码是对其原码逐位取反,但符号位除外。如二进制原码10010,则反码11101(注:在10010中,左边的1为符号码,故为负);
⑶补码表示法规定:正数的补码与其原码相同;负数的补码是在其反码的末位加1,符号位除外。
根据以上运算规则,二进制有符号数100011的补码的十进制表示是( )
A、-29 B、-4 C、-61 D、-363. 使用UltraEdit软件观察字符“挑战AlphaGo!”的内码,部分界面如图所示。
下列说法正确的是( )A、字符“!”的内码占两个字节 B、字符“战”的十六进制码是“BD 41” C、字符“h”的二进制码是“01101000” D、字符“go”的十六进制码是“47 6F”4. 某文件夹下共有100张属性相同的BMP图片,共占用了约75MB的存储空间,已知图片的分辨率为1024*768,问这种图片包括多少种颜色( )A、8 B、16 C、256 D、5125. 将一个时长为1分钟、采样频率为44.1kHz、量化位数为16、双声道未经压缩的Wave格式音频文件压缩为MP3格式文件,压缩后的MP3格式文件大小为940KB,则其 压缩比约为( )A、11 : 1 B、11 : 2 C、11:4 D、88 : 16. VB表达式9\8/2 + 12 Mod 3*3 -2^-2 的值是( )A、3.25 B、4.75 C、5 D、77. 有如下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、118. 某两段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. 有如下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、410. 单击窗体后,文本框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 2111. 已知存有6个数字的数组d,其数组元素如下表 ,则以下程序的输出结果为( )A、-8 B、-6 C、9 D、1212. 有如下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. 编写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 x1<x2 Then n=1 Else
For i=x1 To x2 Step n
IfThen
sum=sum+i
Next i
Label3.Caption=“从”& x1 &“到”& x2 &“之前所有奇数的累加和=”& Str(sum)
End Sub
14. 小丁想买几张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. 编写“数字序列”程序,实现如下功能:在文本框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. 小婷编写了一个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”对应的解密数值是