2016-2017学年浙江省嘉兴一中高二（上）期中信息技术试卷
发布：2024/12/17 17:0:2
一、选择题（本大题共20小题，每小题1.5分，共30分．在每小题给出的四个选项中，只有一个符合题目要求）
-
1．下列有关信息与信息技术的说法，正确的是（ ）
组卷：7引用：1难度：0.9 -
2．历史的车轮不可能倒转，但可以通过阅读历史教材，了解唐朝从兴盛到衰落的过程．这主要体现了信息的（ ）
组卷：3引用：1难度：0.9 -
3．下列是学生日常生活的六种行为：①上网查找研究性学习资料；②回答老师提问；③计算班级期中考试平均分成绩；④化学实验时用鼻子闻CO2气味；⑤收听校园广播，下列选项均属于信息获取的是（ ）
组卷：25引用：3难度：0.5 -
4．以下行为不恰当的是（ ）
组卷：3引用：2难度：0.9 -
5．某同学利用百度搜索得到的部分界面如图所示，以下说法错误的是（ ）
组卷：10引用：5难度：0.9 -
6．下列关于网上信息浏览与获取正确的是（ ）
组卷：24引用：3难度：0.9 -
7．计算机中的英文字符编码采用统一的ASCII编码，若字母“A”的编码用二进制表示为1000001B，则字符“D”的编码用十六进制表示为（ ）
组卷：3引用：1难度：0.7
二、非选择题（本大题共3小题，其中第21小题8分，第22小题7分，第23小题5分，共20分）
-
22．编写VB程序，实现如下功能：窗体装载时随机生成10个1至100的整数，并显示在列表框list1中，单击“分组”按钮command1，将这10个数分为奇数和偶数两组，在list2中显示奇数数字，及其个数，list3中显示偶数数字，及其个数．运行界面如第题图所示，程序代码如下．
Dim a（1To 10）As Integer,b（1To 10）As Integer,c（1To 10）As Integer
Private Sub'窗体加载时产生10个1～100的整数
Dim i As Integer
Randomize
List1．Clear
For i=1To 10
a（i）='随机产生1个1～100的整数
List1．AddItem Str（a（i））
Next i
End Sub
Private Sub Command1_Click （ ）
Dim i As Integer,ji As Integer,ou As Integer
List2．Clear
List3．Clear
ji=0：ou=0
For i=1To 10
If a（i） Mod 2＜＞0Then
List2．AddItem Str（a（i））
Else
List3．AddItem Str（a（i））
End If
Next i
List2．AddItem“共有奇数“+Str（ji）+“个“
List3．AddItem“共有偶数“+Str（ou）+“个“
End Sub
（1）观察运行界面，选项中没有用到的控件是（ 选项A．
B． 
C．
D．
）．
（2）②处应填的事件是．
（3）③的代码应该是：（填选项号）．
A．Int（Rnd（ ）+100）*1 B．Int（Rnd（ ）+1）*100 C．Int（Rnd（ ）*100）+1
（4）请为④、⑤处填入合适的代码，④：，⑤：．组卷：5引用：1难度：0.3 -
23．用物理天平测量物体的质量．待测得物体的质量为x克（x为小于1000的整数），下列程序为计算天平砝码盘中所需的砝码．已知天平可用砝码为：500克1个，200克1个，100克2个，50克1个，20克1个，10克2个，5克1个，2克2个，1克1个．程序界面如图所示．
Private Sub Command1_Click（ ）
Dim a（1To 12）As Integer,i As Integer,x As Integer
a（1）=500：a（2）=200：a（3）=100：a（4）=100：a（5）=50：a（6）=20
a（7）=10：a（8）=10：a（9）=5：a（10）=2：a（11）=2：a（12）=1
i=1
x=Val（Text1．Text）
List1．Clear
Do While x＜＞0
If x＞=a（i） Then
List1．AddItem Str（a（i））
End If
i=i+1
Loop
End Sub
（1）如要将程序窗口标题“Form1”修改为“天平测质量”，则应该修改窗体的属性（选填：Name/Caption/Text/Font）．
（2）为实现上述功能，划线①处应填入的代码为．
（3）程序正确运行后，在文本框Text1中输入701，并单击“计算”按钮．程序运行结果应为下图中的（单选，填：A/B/C）．
组卷：11引用：2难度：0.5
