16. 有如下Visual Basic程序段：（每空2分，共4分） Dim i As Integer, s As Integer s = 0

i = 1: a = 5

Do While i <= 100 s = s + a * i i = i * 5 Loop

问：该程序段运行后，

（1）变量i的值是____________。 （2）变量s的值为____________。

17.用VB编程解决“找出一个正整数的所有因子”的问题，其界面如下图所示，通过文本框 txt_Num输入任意一个大于1的正整数，单击命令按 钮Command1运行程序，在lb_Result标签上显示因 子个数，并在列表框ls_Result上显示所有因子。程 序代码如下：（每空2分，共6分） Private Sub Command1_Click() Dim x As Integer, c As Integer Dim i As Integer

x = Val(txt_Num.Text) If x <= 1 Then

MsgBox \请输入一个大于1的正整数！\

Exit Sub End If c = 0

For i = 1 To x

If x Mod i = 0 Then c = c + 1

① End If Next

lb_Result.Caption = \该数共有\② + \个因子\End Sub

（1）程序中划线处①应填入 。 （2）程序中划线处②应填入 。

（3）如果文本框输入100000，调试程序会出现什么错误提示 。

5

2015-2高一信息期末试卷

答题纸

一、选择题（每题2分，共24分） 1 2 3 4 5 6 7 8 9

座位号：

10 11 12 姓名： 班级 考号： 二、填空题（除了注明的，其它每空1分，共26分） 13.（1） （2分） （2） （2分） （3）

14.（1） （2） （3） （4） （5）

15.（1） （2） （3） （4） （5） （2分） 16.（1） （2分） （2） （2分） （3） （2分） 17.（1） （2分） （2） （2分）

6

2015-2高一信息期末试卷答案

一、选择题（每题2分，共24分） 1 C 2 A 3 A 4 A 5 C 6 A 7 B 8 B 9 C 10 11 12 D C B 二、填空题（除了注明的，其它每空1分，共26分） 13.（1） =SUM(B9:E9) （2分） （2） =F4-M4 （2分） （3） 列宽不够

14.（1） 魔棒（2）变亮 （3）文字层和扇子层（意对即可）

（4） 历史记录 （5） jpg 15.（1） 5 （2） 影片剪辑 （3） 关键帧 （4） 动画 （5） on(release){fscommand(“quit”);}（2分） 16.（1） 125 （2分）（2） 155 （2分） 17.（1） ls_Result.AddItem i （i加与不加str都可） （2分） （2） str(c) （注意：不用Str，直接c是错误的） （2分） （3） 溢出 （2分）

7