相关试卷

  • 1、用UltraEdit软件观察“Sohu一族”六个字符,显示的十六进制内码如图所示,则字符“一”的内码用二进制表示应该是(     )

    A、(11010010 10111011)2 B、(1010011 01101111)2 C、(11010111 11100101)2 D、(11011101 11010111)2
  • 2、某车间有一监控系统,通过三盏灯灯光组合表示车间内机器的运行状况,假设每一盏灯有红黄蓝三种颜色,请问机器运行状况的总数为(    )
    A、8种 B、9种 C、18种 D、27种
  • 3、下列关于数制及数制转换说法正确的是(  )
    A、二进制数中最大的数是2 B、数10B和数10D是一样大的 C、4位二进制数表示的最大数是15D D、n位二进制数可以表示最多的信息数量是2×n
  • 4、十进制数45D对应的数全对的是(    )
    A、101011B   2BH B、101101B   2DH C、101011B   2DH D、101101B   2BH
  • 5、二进制数110000是二进制数110的(  )
    A、16倍 B、8倍 C、4倍 D、2倍
  • 6、下列4个数中最大的是(    )
    A、11001B B、26D C、1BH D、11010B
  • 7、Photoshop软件中引入了“色差”的概念,色差可表示为RGB各通道颜色在正负两个方向上 的偏离最大范围。

    例如:像素A的颜色为RGB(10,40,100),像素B的颜色为RGB(80,20,200),则R通道偏离10-80=-70,G通道偏离40-20=20,B通道偏离100-200=-100,色差=正最大偏离值-负最大偏离值,即20-(-100)=120,当偏离全部为正时,负方向以0表示,反之,偏离全部为负时,正方向以0表示。

    小明设计了计算两点色差的VB程序,程序界面如图所示:

    以下VB程序用于计算两个随机颜色的色差,请完成以下各题。

    (1)、若将图中A处位置的文字修改为“VB程序”,应修改属性。
    (2)、程序中的Form_Load()属于                。(单选,填字母)
    A、对象名 B、事件名 C、属性名 D、事件处理过程名
    (3)、填充程序中下划线处代码。

    Dim R1, G1, B1 As Integer      '分别用于存储第一个像素的RGB值

    Dim R2, G2, B2 As Integer      '分别用于存储第二个像素的RGB值

    Private Sub Form_Load()

    ' 随机生成两个数的 RGB值,并显示在text1—text6中,代码略

    End Sub

    Private Sub Command1_Click()

    Dim alw as Integer

    t1 = R1 - R2 : t2 = G1 - G2 : t3 = B1 - B2

    If t1 > t2 Then

      Max = t1 : Min = t2

    Else

      Max = t2 : Min = t1

    If t3 > Max Then

      Max = t3

    ElseIf t3 < Min Then

      Min = t3

    End If

    If Max * Min < 0 Then

      alw = Max - Min

    ElseIf Max < 0 Then

      alw = -Min

    Else

      alw =

    End If

    Text7.Text =

    End Sub

  • 8、某市对一户一表居民实行阶梯电价,电费计算方式如下:月用电量在1-50千瓦时部分不调价;月用电量在51-200千瓦时部分,电价每千瓦时上调0.03元;月用电量超过200千瓦时部分,电价每千瓦时上调0.10元。

    若假定某用户一个月的用电量为x千瓦时,当前单价为p元/千瓦时,则计算标准如下:当x≤50时,电费为p×x元;当50<x≤200时,电费为p×x+(x-50)×0.03元;当x>200时,电费为p×x+4.5+(x-200)×0.1元。

    程序设计界面如下图所示,程序的功能是:在文本框Text1中输入用电量x(单位:千瓦时),在文本框Text2中输入电量p(单位:元),单击“计算”按钮(Command1)后,在标签Label4中输出计算结果。

    (1)、实现上述功能的VB程序如下,请在划线处填入合适的代码。

    Private Sub Command1_Click()

    Dim x As Single, p As Single

    Dim s As Single

    x =

    p =        '此处改错

    If x <= 50 Then

        s = p * x

       

        s = p * x + (x - 50) * 0.03

    Else

        s = p * x + 4.5 + (x - 200) * 0.1

    End If

    Label4.Caption = "本月的电费为:" +  + "元"

    End Sub

    (2)、程序代码中加框处代码有误,请改正。

    改正:

  • 9、若x,y都为正整数且均为奇数,则下列逻辑表达式一定为真的是(   )
    A、x*y mod 2=1 B、(x\2=1)Or(y\2=1) C、(x+y)mod 2=1 D、x mod y=1
  • 10、下列选项中,对变量flag的赋值与其他三项不等价的是(   )
    A、flag=a>b B、If a>b then flag=True Flag=False C、flag=False If a>b Then flag=True D、If a>b Then flag=True Else flag=False
  • 11、有如下VB程序段:

    Private Sub Form_Load(  )

       Dim s as string

       s=str(val(“2020”)+len(“加油!”))

       Label1.Caption=s

    End Sub

    下列说法正确的是(   )

    A、这段程序中涉及到2个对象 B、响应此事件的对象名肯定为“Form” C、“=”在VB中只能表示为赋值 D、运行该程序段后,Label1中显示“2020加油!”(显示内容不包括引号)
  • 12、已知k为十进制多位整数,下列选项中能正确表示含义“若k的十位是偶数则a为1,否则a为2”的是(    )
    A、a=1: if k mod 2<>0 then a=2 B、a=2: if k mod 100 \2 <>0 then a=1 C、If k\100 mod 2 <>0 then a=2 else a=1 D、if k\10 mod 2 =0 then a=1 else a=2
  • 13、执行以下表达式,不能实现交换两个非0变量x和y的值的选项是(   )
    A、t=x: x=y: y=t B、x=y: y=x C、a=a+b: b=a-b:a=a-b D、x=x*y: y=x/y: x=x/y
  • 14、在VB中,用变量ID存储学生的学籍号(如“20190305”),则变量ID的数据类型应定义为(   )
    A、Integer B、Single C、String D、Date
  • 15、下列VB表达式的值等于数值69的是(   )
    A、mid("12345698",6,2) B、"10"+"59" C、len("69") D、Abs(31-100)
  • 16、某算法的部分流程图如图所示,执行这部分流程,变量 x,y 的值分别是 (   )

    A、0,"7 1" B、0, "1 7" C、0, 17 D、1,7
  • 17、城市出租车按里程收费,小明绘制了收费价格程序的流程图,如下所示,要测试所有程序分支是否正确,以下测试数据中,最恰当的一组是(    )

    A、2,10,12 B、10,2,6 C、-1,6,10 D、3,11,100
  • 18、利用Photoshop软件把一幅大小为1280*1024像素、颜色位数为3字节的BMP格式图像存储为JPG格式,存储后容量是240KB,则图像的压缩比约为(    )
    A、128∶1 B、32∶1 C、16∶1 D、2∶1
  • 19、使用UltraEdit软件观察字符的内码,部分界面如下图所示。

    下列说法正确的是(    )

    A、大写字母“J”的内码是50 B、该段字符包含6个ASCII编码字符 C、字符“浙”的内码是“A1 D5” D、小写字母 “o”的内码以二进制形式表示为“01101100”
  • 20、用UltraEdit软件观察字符串“学习Python”的内码,该字符串的内码是(    )
    A、 B、 C、 D、
上一页 1159 1160 1161 1162 1163 下一页 跳转