浙江省宁波诺丁汉大学附属中学2020-2021学年高二10月月考信息技术试题(原卷版)

  • 格式:doc
  • 大小:110.28 KB
  • 文档页数:6

宁波诺丁汉大学附属中学高二年级2020-2021学年考试
信息技术试题卷
答卷时间:[45分钟] 满分:[50]
一、选择题(本大题共15小题,每小题2分,共30分。

在每小题给出的四个选项中,只有一个符合题目要求)
1. 下列有关信息及信息技术的说法,正确的是()
A. 信息必须依附于载体才能得以表示、存储和传播
B. 信息在传递和共享的过程中会产生损耗
C. 信息技术是计算机出现后才产生的
D. 虚假的内容不属于是信息
2. i=3:s=1/(i-3) 无法执行,原因是它违反了算法特征中的()
A. 有穷性
B. 唯一性
C. 可行性
D. 确定性
3. s=0
For i = To 2
s=s+i
Next i
若要使语句s=s+i执行3次,则循环变量i的初值为()
A. 0
B. 1
C. 2
D. 3
4. 下列描述正确的是()
A. 字符“2020 宁诺附中!”共占14字节
B. 字符“!”是在全角模式下输入的
C. “2”的内码为“32”,“10”的内码为“3A”
D. 图中有6个ASCII码,4个汉字编码。

5. 下列问题适合使用枚举算法解决的是()
A. 计算已知半径圆的面积
B. 超市打折方案
C. 校园歌曲大赛的成绩排名
D. 计算10000以内的所有的素数 6. 下列VB 表达式中,值最大的是( )
A. 15/2
B. 3\2
C. 7 mod 10
D. 2^2
7. VB 表达式Int(Rnd*9)+54\3^2/3的值可能是( )
A. 9
B. 16
C. 19
D. 27
8. 将文本框Text2内输入的字符数据"abc"送到字符型变量n 中,应使用的语句是( ) A. n=text B. n=text2.text C. n=val(text2)
D. n=val(text2.text) 9. 产生[1,100]范围内某一随机整数的表达式是( )
A. Int(Rnd*100+1)
B. Int(Rnd*98+2)
C. Int(Rnd*99+1)
D. Int(Rnd*99+2) 10. 下列VB 表达式的值等于2016的是( )
A. 2016 Mod 2 ^ 20
B . Len(“2015”) + 1
C. Str(2008) +“8”
D. Mid(“20160501”,1,4)
11. 有如下程序段,运行时程序出现如下错误提示,出错语句的
位置是(

Private Sub Command1_Click()
Dim i As Integer
Dim a(10) As Integer ’
For i = 1 To 10 ’
a(i) = Rnd * 100 ’
Next i
Label1.Caption = Str(a(i)) ’
End Sub
A. B. C. D.
12. 有如下VB程序段,执行该程序段后,文本框Text1中显示的内容是()
s = 2: k = 1
If Not k = s Then s = s + k Else s = 0
Text1.Text = Str(s)
A. 0
B. 1
C. 2
D. 3
13. 有如下VB程序段:
s=0 : i=1
Do While
s=s+i
i=i+1
Loop
执行该程序段后,变量s的值等于10,则程序中划线处的语句是()
A. i < 5
B. i <= 5
C. i = 4
D. i <= 6
14. 阅读下面程序:
Dim i As Integer, c As String, s As String , t As String
s=”GaoEr1YueXKChongA!”
For i = 1 To Len(s)
c=Mid(s, i, 1)
If c >= “A” And c<=”Z” Then t=t+c
Next i
Text1.Text = t
程序运行结束后是在文本框Text1中输出结果是()
A. GEYXKCA
B. aoeuehong
C. ACKXYEG
D. gnoheueoa
15. 现要求刚好输出1至100内所有能被7整除的数字,下列哪段程序不能实现()
A. For i = 1 To 100
If i Mod 7 = 0 Then List1.AddItem Str(i)
Next i
B. For i = 7 To 100 Step 7
List1.AddItem Str(i)
Next i
C. i = 1: s = 7
Do While s <= 100
List1.AddItem str(s)
i = i + 1
s = i * 7
Loop
D. Do While s <= 100
s = s + 7
List1.AddItem str(s)
Loop
二、非选择题(本大题3小题,其中第16题8分,第17题4分,第18题8分,共20分)
16. 对下列数字按要求进行进制转换:
(1)D8H转换成10进制
(2)81H转换成2进制
(3)A3H转换成10进制
(4)56转换成2进制
17. 下面VB程序完成将一个四位数的百位和十位交换,个位和千位交换的任务,如输入1954,输出4591.程序运行界面如图所示,在文本框Text1中输入某四位数,单击“切换”按钮Comd1,在文本框Text2中输出转换后的结果。

请将程序补充完整。

Private Sub Comd1_Click()
Dim k As Integer, n As Integer
Dim a, b, c, d As Integer
k = Val(Text1.Text)
a = k \ 1000
b = _________________
c = _________________
d = k Mod 10
n = d * 1000 + c * 100 + b * 10 + a
Text2.Text = Str(n)
End Sub
18. 简易加法器:小王用VB编写了一个简易加法器,其功能如下:在文本框Text1中输入数字,中间用“,”
隔开,单击“计算”命令按钮后,将这几个数字的和输出在标签Label1中。

运行界面如图所示,VB程序代
码如下,请回答以下问题。

(单选,填字母:A.Label / B.TextBox / C.CommandButton)。

(1)Cmd1对象属于________类。

(2)请在划线处填入合适代码。

Private Sub Cmd1_Click()
Dim i As Integer, j As Integer, ans As Integer
Dim chAs String, s As String
s = Text1.Text
ans = 0
j = 1
For i = 1 To Len(s)
_______________
If ch = "," Then
ans = ____________
j = i + 1
End If
Next i
Label1.Caption = "计算结果是:" +Str(ans)
End Sub
(3)运行该程序,在文本框中输入“21,5,3”(不包含双引号),则计算结果是_______。