1、 台州市 2010 学年第二学期 高 二年级 期末 教学 质 量 评估 试 题 信 息 技 术 2011 7 18 I A B 100 90 I 55 1 I 2 2B 17 2 34 1. A B C D 2. A B C D 3. A B C D 4. ABC chen5 5 A. B. C. D. 5. 50H-2D A 48H : *.html A B C D 9. 9 A B C D 10. 10 A. 1 B. 2 C. 3 D. 4 : . . 11. UltraEdit 11 11 A. 5 ASCII B. 2 GB2312 C. 1 ASCII 2 GB2312 D. 3
2、ASCII 1 GB2312 12. Access 12 3 13. 13 -1 13 -2 A. / B. C. D. / A. 5 B. 4 C. 3 D. 2 13 -1 13 -2 14. 14 Windows Media Player A. B. C. 4 17 D. 1 15. A. HTTP B. FTP C. POP3 SMTP D. TCP/IP Internet 16. 17. 17 4 85.11KB 17 A. B. C. D. A. B. C. D. 3 18 5 19 8 20 8 21 18 1 18 -1 _ / / _ / / / 18 -1 2 18 -2
3、 _ / / 3 Word _ / / / 4 18 -3 _ A/B/C 19 Excel , 1 # 19 -1 _ : 2 , K13 _ 3 19 -2 _ 4 19 -3 _ _ / / / 5 19 - 3 _ : # # 20 FrontPage 19 -3 20 -1 1 20 -1 _ _ _ / / 2 3 _ A/B/C A 3 B 3 C 3 3 20 -2 _ sound/bg.wav sound/bg.mp3 _ / 20 -2 20 -3 4 20 -3 _( ) 5 20 -4 _ / / 20 -4 2 4 3 1 45 “ ” “ ” 1 2B A B A
4、B B 2 2B A 13 2 26 1. A. B. C. 1 D. 2. Visual Basic A. x3 B. End C. x*3 D. | x| 3. 100 3 i=1 s=0 s 3 While i b , c A. 8 B. True C. 1 D. Yes 7. Visual Basic Command1 7 Private Sub Command1_Click() Dim i As Integer, s As Integer i = 30 s = 0 Do While i 10 If i Mod 3 = 0 Then s = s + i i = i - 1 Loop T
5、ext1.Text = Str(s) End Sub A. Do If B. C. If End If D. Do : ZXXK 8. 60 1 70 2 x y Visual Basic A. y = Int(x / 60) + 1 B. y = Int(x / 60) C. y = Int(x - 1) / 60) + 1 D. y = Int(x - 1) / 60) 9. VB 9 Text1 : # # Z#X#X#K A. _Click B. Text1_KeyPress C. Command1_Click D. Text1_Click 10. Visual Basic s = 0
6、 For i = _ To 4 Step -1 s = s + i Next i s 15 A. 6 B. 8 C. 9 D. 11 11. 11 Visual Basic A. Click Command1 B. Form1(Code) C. D. 12. 65 78 65 59 43 34 16 7 A. B. C. D. 13. Visual Basic a a(1) = 1 a(2) = 2 a(3) = 4 For i = 4 To 10 a(i) = a(i - 1) + a(i - 2) + a(i - 3) Next i a(5) A. 11 B. 13 C. 16 D. 24
7、 5 14 2 15 2 16 6 17 4 18 5 19 : ZXXK 14. Visual Basic a = 38 : b = 5 a = b Mod a b a = b a a _ 15. VB Command1 Text1 _ Private Sub Command1_ Click() Dim i As Integer Text1.Text = “ For i = 1 To 3 Text1.Text = Text1.Text + Chr(Asc(“A“) + i - 1) Next i End Sub 16. Visual Basic 1n s s=1!+2!+3!+n n!=12
8、34(n-1) n 6!= 1 2 3 4 5 6=720 8!=40320 1 6 -1 16 -2 Text1 n Command1 1n s Text2 :Zxxk.Com Private Sub Command1_Click() Dim n As Integer, i As Integer, k As Integer, s As Integer n = Val(Text1.Text) k = 1 Y in? N 计算 i 的阶乘 k ss+ k 16 -2 16 -1 For i = 1 To n s = s + k Next i Text2.Text = Str(s) End Sub
9、 1 _ 2 Text1 8 Comma nd1 16 -3 A. n i B. C. k s D. i n 3 _ / / Function fct(t As Integer) As If t = 0 Then fct = 1 :Zxxk.Com Else fct = t * fct(t - 1) End If End Function 17. 20 1 19 ( ) 17 -1 17 -2 19 a(1)a(19) , List1 Text1 x Command1 Label1 16 -3 Long Dim a(1 To 20) As Single Private Sub Command1
10、_Click() Dim i As Integer, x As Integer x = Val(Text1.Text) If x = a(19) Then Label1.Caption = “ “ Else i = 1 Do While i = i + 1 Loop Label1.Caption = “ “ + + “ “ End If End Sub Private Sub Form_Load() For i = 1 To 19 19 a(i) List1.AddItem Str(a(i) Next i End Sub 1 2 18. 18 Visual Basic 10 18 Command1 List1 List2 Label1 Command1 List1 Text1 17 -2
