浙江省台州市2017-2018学年高二上学期信息技术第一次月考试题

试卷更新日期:2018-03-28 类型:月考试卷

一、选择题

  • 1. 下列有关信息的说法,错误的是(  )
    A、现在很多智能手机有了指纹锁,是为了提升信息的安全性 B、人类在造纸术和印刷术产生之前,信息无法存储 C、公民身份证号和考生准考证号的编排,都属于信息的编码 D、不同的载体的可以承载同样的信息
  • 2. 在计算机内,有符号数有3种表示法:原码、反码和补码。

    ⑴原码就是二进制定点表示法,即最高位为符号位,“0”表示正,“1”表示负,其余位表示数值的大小;

    ⑵反码表示法规定:正数的反码与其原码相同;负数的反码是对其原码逐位取反,但符号位除外。如二进制原码10010,则反码11101(注:在10010中,左边的1为符号码,故为负);

    ⑶补码表示法规定:正数的补码与其原码相同;负数的补码是在其反码的末位加1,符号位除外。

    根据以上运算规则,二进制有符号数100011的补码的十进制表示是(  )

    A、-29 B、-4 C、-61 D、-36
  • 3. 使用UltraEdit软件观察字符“挑战AlphaGo!”的内码,部分界面如图所示。


    下列说法正确的是(    )

    A、字符“!”的内码占两个字节 B、字符“战”的十六进制码是“BD 41” C、字符“h”的二进制码是“01101000” D、字符“go”的十六进制码是“47 6F”
  • 4. 某文件夹下共有100张属性相同的BMP图片,共占用了约75MB的存储空间,已知图片的分辨率为1024*768,问这种图片包括多少种颜色(   )
    A、8 B、16 C、256 D、512
  • 5. 将一个时长为1分钟、采样频率为44.1kHz、量化位数为16、双声道未经压缩的Wave格式音频文件压缩为MP3格式文件,压缩后的MP3格式文件大小为940KB,则其 压缩比约为(   )
    A、11 : 1 B、11 : 2 C、11:4 D、88 : 1
  • 6. VB表达式9\8/2 + 12 Mod 3*3 -2^-2 的值是(   )
    A、3.25 B、4.75 C、5 D、7
  • 7. 有如下VB程序段:

    Dim a As Integer, b As Integer, c As Integer, y As Integer

    a=3:b=4:c=4

    If a<=b And c<=a Then

      y=a+b

    ElseIf a<=b or b<=c Then

      y=b+c

    ElseIf b=c Then

    y=a mod c

    Else

      y=a+b+c

    End If

    该程序段运行之后,变量y的值为(   )

    A、3 B、7 C、8 D、11
  • 8. 某两段VB程序分别如图1和图2所示:

    Dim n As Integer, s As Integer, i As Integer

    n=Val(Text1.Text)

    s=0

    For i=1 To n Step 2

     s=s+i

    Next i

    Text2.Text=Str(s)

    图1

    Dim n As Integer, s As Integer, i As Integer

    n=Val(Text1.Text)

    s=0

    i=1

    Do While i<=n

     s=s+i

     i=i+2

    Loop

    Text2.Text=Str(s)

    图2

    当n的值为10时,关于该两段程序,下列说法不正确的是(  )

    A、两段程序中i的初值相同             B、两段程序的运算结果不相同 C、两段程序都采用了循环结构            D、图1程序实现了“1+3+5+7+9”和的运算
  • 9. 有如下VB程序段:

    Dim a(1 To 5) As Integer, i As Integer, c As Integer

    a(1)=2:a(2)=1:a(3)=3:a(4)=4:a(5)=5

    c=0

    For i=3 To 5

    If a(i-2)+a(i-1)=a(i) Then c=c+1

    Next i

    Text1.Text=Str(c)

    该程序段运行后,文本框Text1中显示的内容是(   )

    A、1 B、2 C、3 D、4
  • 10. 单击窗体后,文本框Text1、Text2中显示的内容是(  )

    Private Sub Form_Click(  )

    Dim x as Integer, n as Integer

     x=1

     n=0

    Do While x < 20

        n=n+1

        x=x * 3

    Loop

    Text1.Text=Str(x)

    Text2.Text=Str(n)

    End Sub

    A、27 3 B、3 27 C、20 3 D、3 21
  • 11. 已知存有6个数字的数组d,其数组元素如下表 ,则以下程序的输出结果为(     )

    A、-8 B、-6 C、9 D、12
  • 12. 有如下VB程序段:

    Dim a(1 To 10) As Integer,i As Integer,j As Integer

    a(1)=1

    a(2)=1

    For i=3 To 5

    a(i)=1

    For j=i-1 To 2 Step -1

    a(j)=a(j)+a(j-1)

    Next j

    Next i

    Text1.Text=Str(a(3))

    该程序段运行后,在文本框Text1中显示的内容是(  )

    A、1 B、3 C、4 D、6

二、非选择题

  • 13. 编写VB程序,实现如下功能:在文本框Text1、Text2中分别输入一个正整数,单击“计算累加和”按钮,在标签Label3中显示起始值与结束值之间所有奇数的累加和。界面如图所示。

    (1)、在设计应用程序界面时,要将窗体的标题改为“计算累加和”,应将窗体的属性的值更改为“计算累加和” (填写相应属性名)。
    (2)、为实现上述功能,请在划线处填入合适代码。

    Private Sub Command1_Click()

    Dim x1 As Integer,x2 As Integer,n As Integer

    Dim sum As Long

    x1=Val(Text1.Text)

    x2=Val(Text2.Text)

    Sum=0

    If x1<x2 Then n=1 Else

    For i=x1 To x2 Step n

    IfThen

    sum=sum+i

    Next i

    Label3.Caption=“从”& x1 &“到”& x2 &“之前所有奇数的累加和=”& Str(sum)

    End Sub

  • 14. 小丁想买几张6+1彩票,选号时,他希望前4位用自己的生日:11月8日,即1108,特别号码他选了买彩票日子的个位数5,并且他希望前六个数字组成的数能被他的幸运数字9整除。他的好朋友小杰帮他设计了一个VB程序,可以提供一份符合这些要求的号码清单供他挑选。相应的界面如图1所示。阅读程序并完成后面的问题。


    (1)、设计应用程序界面时,为添加a所指向的对象,应使用图2所示的“控件工具箱”中的 (填写相应编号)。


    (2)、请根据题意将下列程序补充完整。

    Private Sub Command1_Click()

    Dim i As Integer, j As Integer, c As Integer,n As Long

    c = 0

        n = 110800 + i

                If  Then

            List1.AddItem Str(n) + " " + "5"

            

       End If

    Next i

    Label2.Caption = "满足条件的数有:" + Str(c) + "组"

    End Sub

  • 15. 编写“数字序列”程序,实现如下功能:在文本框Text1中输入[100,500]范围内的整数,单击“生成”按钮Command1,在列表框List1中显示9个该序列的数字。数字序列的生成规则为:该项的数字+该数百位上的数字+该数十位上的数字+该数个位上的数字=下一项的数字,例如:365+3+6+5=379。小明编写了VB程序,运行的界面如图所示,程序代码如下:

    (1)、代码“Private Sub Command1_Click()”中的Command1_Click()是_________。(单选,填字母)
    A、对象名 B、事件 C、事件处理过程 D、方法
    (2)、为实现上述功能,请在划线处填入合适的代码。

    Private Sub Command1_Click()

    Dim n As Integer, i As Integer

    Dim a As Integer

    Dim b As Integer

    Dim c As Integer

    List1.Clear

    n = Val(Text1.Text)

    If n >= 100 And n <= 500 Then

                 For i = 1 To 9

               A.位置一

                   a = n \ 100

                   b = (n - 100 * a) \ 10

                   c = n Mod 10

                    

                 B.位置二

                 Next i

                C.位置三

    Else

                    List1.AddItem "输入数值有误"

    End If

             D.位置四

    End Sub

    (3)、上述代码段中缺少了List1.AddItem Str(i) + "." + Str(n),此句代码应该加在(填字母)位置。
    (4)、若输入的数字为123,则第三项的值为
  • 16. 小婷编写了一个VB程序,实现如下功能,在文本框Text1中输入一个4位整数zs,单击解密按钮后,在List1列表框中显示当前zs值降序开始的10位相邻整数“解密前”和“解密后”的信息,运行界面如图所示。

    解密规则:将整数中各个位中的每一位值乘以5,然后除以8所得余数即为该位的值,然后将所得数的首末位进行交换。如数字9357,解密后的值为3715。

    (1)、观察程序代码,可知“解密”按钮的对象名是
    (2)、实现上述功能,请在划线处填入合适的代码。

    Private Sub Decryp_Click( )

    Dim zs As Long, g As Integer

    Dim b As Integer, q As Integer

    Dim m As Integer, s As Integer

    Dim jmh As String

    zs = Val(Text1.Text)

    For m = zs To

    q = (m \ 1000) * 5 Mod 8

    b = ((m \ 100) Mod 10) * 5 Mod 8

    s = ((m \ 10) Mod 10) * 5 Mod 8

    g = (m Mod 10) * 5 Mod 8

    List1.AddItem Str(m) + "  " + jmh

    Next m

    End Sub

    (3)、由上述算法可知,四位数“6124”对应的解密数值是