第21题-2图(5)选中C3:C16单元格区域 ， 按下图（第21题-3图）所示进行自定义筛选后 ， 将显示_____行数据（不包含标题行） 。
筛选完毕后 ， 之前生成的图表（第21题-2图）______（填“会”或“不会”）发生变化 。
第21题-3图22.写出下列对应的VB表达式(1)数学公式 对应的VB表达式是_________ 。

9、_________________(2分)(2)判断整数x为偶数且不等于8 ， 对应的VB条件表达式是______________(2分)23.有如下Visual Basic程序：Private Sub Command1_Click()来源:学科网Dim a As String, n As IntegerDim s As Integer, i As Integera = 2012n = Len(a)s = 0For i = 1 To ns = s + Val(Mid(a, i, 1)Next iLabel1.Caption = Str(s)Print Str(i n)End Sub(1)运行该程序 。

10、 ， 单击命令按钮Command1 ， 在标签Label1中显示的是__________(2分)(2)Print语句作用是将值输出在窗体上 ， 则程序运行后窗体上显示的值是______(2分)24.张某编写了一个随机生成彩票号码的程序 ， 程序运行界面如图（第23题图） 。
程序功能：文本框TextSet用来录入号码生成数量 ， 单击“设置”按钮(CommandSet)保存需要生成的号码数量；单击“开始生成”按钮(CommandStart)后在列表框ListNum中显示号码；单击“清除”按钮清除生成的号码 。
程序代码如下：Dim setNum As IntegerDim num(1 To 100) As Integer 。

11、Private Sub CommandClear_Click()ListNum.Clear清除列表框内容End Sub第24题图Private Sub CommandSet_Click()setNum = Val(______________)End SubPrivate Sub CommandStart_Click()Dim i As IntegerIf ___________ Then来源:Zxxk.ComMsgBox (请先设置号码生成数量)ElseRandomize来源:Z.xx.k.ComFor i = 1 To setNumnum(i) = ______________ListNu 。

12、m.AddItem num(i)Next iEnd IfEnd Sub请回答如下问题：(1)要对窗体标题“Form1”进行更改 ， 则在其属性面板中设置的属性名是___________(2)补充处的程序代码_____________________(2分)(3)在开始生成前 ， 当用户未设置号码生成数量时 ， 需要进行提醒 ， 请补充处的程序代码_____________________(2分)(4)若要产生的号码范围为1到9之间的整数（包含1和9） ， 则处程序代码为___________________________________(2分)(5)程序中出现的AddItem是_________________ 。

13、___(选填“属性”或“方法”)25. 求孪生素数 。
孪生素数是指两个相邻奇数且都是素数 ， 由于它们是最近的素数 ， 就像孪生兄弟一样 。
下列Visual Basic程序用于查找100以内的所有孪生素数 ， 其中函数f用于判断一个数是否是素数 ， 程序运行界面如图(第25题-1图)所示 ， Command1鼠标单击事件过程的流程图如图(第25题-2图)所示 。
第25题-1图程序代码如下：Private Sub Command1_Click()Dim i As IntegerList1.Clear 清除列表框内容For i = 3 To 97 ______第25题-2图If f(i) And ThenList1.Add 。

14、Item Str(i) + 和 + Str(i + 2)End IfNext iEnd SubPrivate Function f(x As Integer) As Boolean自定义函数f,返回值为逻辑型来源:Z+xx+k.ComDim j As Integerf = TrueFor j = 2 To Int(Sqr(x)If x Mod j = 0 Thenf = 函数返回值Exit For 跳出For循环End IfNext jEnd Function(1)程序中加框部分的算法是 （选填：解析算法/枚举算法）(2分)(2)在程序、划线处 ， 填入适当的语句或表达式 ， 把程序补充完整：程序中划 。

15、线处应填入 (2分)程序中划线处应填入 (2分)程序中划线处应填入 (2分)(3)将加框部分转换为Do While条件循环结构 ， 部分代码如下：Private Sub Command1_Click()Dim i As Integeri = 3Do While i = 97循环内语句块与加框处循环内语句块相同LoopEnd Sub上述转换后的程序运行时会产生什么问题 ， 请写出问题与修改方案:产生的问题是____________________________________修改方案是________________________________(2分)杭州二中2015学年第一学期高一年级期终考试信 。

16、息技术答卷一、选择题选择题答案请在答题卡上填涂二、非选择题21.(1)__________(2)__________________________________(2分)(3)__________ ，__________ ，__________ ，__________(4)________________________________________(2分) ， ___________ ， ____________(5) __________ ，__________22.(1)_______________________________ (2分)(2)______________________ 。

【【全国百强校】浙江省杭州市第二中学高一上学期期末考试信息技术试题】17、___________ (2分)23.(1)_______________ (2分) (2)_______________ (2分)24.(1)_______________(2)__________________________ (2分)(3)__________________________ (2分)(4)_________________________________ (2分)(5)_____________25.(1)________________ (2分)(2) ____________________________(2分)____________________________(2分)____________________________(2分)(3)产生的问题是_________________________________修改方案是_________________________________________________________(2分)2015学年第一学期高一信息技术期末考试客观题答案1. C2. B3. D4. B5. A6. A7. B8. D9. B10. A11. C12. D13. B14. A15. D16. B17. D18. B19. B20. A 。

来源：(未知)

【学习资料】网址：/a/2021/0417/0021956121.html

标题：【全国百强校】浙江省杭州市第二中学高一上学期期末考试信息技术试题( 二 )