相关试卷
-
1、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
-
2、某市对一户一表居民实行阶梯电价，电费计算方式如下：月用电量在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)、程序代码中加框处代码有误，请改正。改正：
-
3、若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
-
4、下列选项中，对变量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
-
5、有如下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加油！”（显示内容不包括引号） -
6、已知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
-
7、执行以下表达式，不能实现交换两个非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
-
8、在VB中，用变量ID存储学生的学籍号（如“20190305”），则变量ID的数据类型应定义为（ ）A、Integer B、Single C、String D、Date
-
9、下列VB表达式的值等于数值69的是（ ）A、mid("12345698",6,2) B、"10"+"59" C、len("69") D、Abs(31-100)
-
10、某算法的部分流程图如图所示，执行这部分流程，变量 x，y 的值分别是 （ ）
A、0,"7 1" B、0, "1 7" C、0, 17 D、1,7 -
11、城市出租车按里程收费，小明绘制了收费价格程序的流程图，如下所示，要测试所有程序分支是否正确，以下测试数据中，最恰当的一组是（ ）
A、2，10，12 B、10，2，6 C、-1，6，10 D、3，11，100 -
12、利用Photoshop软件把一幅大小为1280*1024像素、颜色位数为3字节的BMP格式图像存储为JPG格式,存储后容量是240KB,则图像的压缩比约为（ ）A、128∶1 B、32∶1 C、16∶1 D、2∶1
-
13、使用UltraEdit软件观察字符的内码，部分界面如下图所示。
下列说法正确的是（ ）
A、大写字母“J”的内码是50 B、该段字符包含6个ASCII编码字符 C、字符“浙”的内码是“A1 D5” D、小写字母 “o”的内码以二进制形式表示为“01101100” -
14、用UltraEdit软件观察字符串“学习Python”的内码，该字符串的内码是（ ）A、
B、
C、
D、
-
15、某品牌无人机的参数如图所示：
下列关于无人机说法不正确的是（ ）
A、支持Android4.3及以上和IOS8.0以上操作系统 B、照片拍摄具有连拍功能 C、带GPS定位系统 D、照片最大分辨率是640*480 -
16、下列关于信息的说法正确的是（ ）A、手语是一种信息表达技术 B、一条信息只能依附于一个载体 C、书本是信息的载体，文字是信息 D、信息可以被重复使用而不会像物质和能源那样产生损耗
-
17、下列关于信息处理的描述，错误的是（ ）A、只有计算机才能进行信息处理 B、计算机进行信息处理通常需要软件支持 C、只有数字化后的信息才能被计算机处理 D、算术运算和逻辑运算是计算机处理信息的基本运算
-
18、小王编写了一个实现文字查找替换功能的VB程序，运行界面如图所示。文本框Text1显示原文内容，Text2中输入查找内容，Text3中输入替换内容，单击“全部替换”按钮Command1后，Text4显示查找替换的结果，Text5中显示替换的次数，Text6显示“查找内容”在原文中的起始位置。
Private Sub Command1_Click()
Dim s As String, resule As String, pos As String
Dim count As Integer, i As Integer
i = 1: count = 0: resule = "": pos = ""
Do While i <= Len(Text1.Text) ‘ i 是查找过程中所查找到的当前字符位置的标记
s = Mid(Text1.Text, i, Len(Text2.Text))
If s =Thenresult = result + Text3.Text
count = count + 1
pos = ‘pos 依次显示被替换内容在原文中的起始位置
i = i + Len(Text2.Text)
Else
result=result+Mid(text1.text,i,1)
End If
Loop
Text4.Text = result
Text5.Text =
Text6.Text = pos
End Sub
-
19、奇偶校验是一种校验数据传输正确性的方法。其中奇校验方法：统计二进制数据的数位中“1”的个数，若个数为奇数，则校验位值为0，否则校验位值为1。小李编写了一个计算奇校验位值得VB程序，功能如下：在文本框Text1中输入1～255十进制待校验数，单击“计算”按钮Command1后，在文本框Text2中显示该数对应的二进制值，并在标签Label3中显示该数的校验位值。程序运行界面如图所示。(1)、在设计程序界面时，要清空文本框中的显示内容，应修改该文本框中的属性，要修改窗体的标题，应该应修改该窗体的属性。(2)、实现上述功能的VB程序如下，请在划线处填入合适代码。
Private Sub Command1_Click()
Dim a As Integer, s As String
Dim n As Integer, t As Integer, v As Integer
n = Val(Text1.Text)
t = 0
s = ""
Do While n > 0
a = n Mod 2
n = n \ 2
t =
s = Str(a) + s
Loop
v = t Mod 2
Text2.Text = s
Label3.Caption = "校验位值：" +
End Sub
(3)、运行该程序，在文本框Text1中输入22，单击“计算”按钮，则显示的校验位值是 。
-
20、小李使用Flash软件创作“花中君子”多媒体作品。请回答下列问题：(1)、作品的模块设计框架图如图a所示，将各功能模块和主交互界面都设计成独立场景。各功能模块的场景播放完成后自动停止，单击“返回”按钮，返回主交互界面。下列说法正确的是 （多选，填字母）。
图 a
A、主交互界面中包含5个功能模块 B、主交互界面中按钮的应用体现了多媒体技术的交互性 C、各功能模块场景的最后一帧可添加帧动作脚本stop()； D、各功能模块场景中“返回”按钮上可添加动作脚本on（release）{gotoAndStop(1); }(2)、“竹之韵”场景的编辑界面如图b所示，“轻舟”图层中的小船是“舟”元件的实例。“舟”元件是在当前场景中通过绘制船形状并转换为图形元件后生成的，“舟”元件中的船是（选填：位图/矢量图）。若调整小船实例的大小，则“舟”元件（选填：会/不会）同步变化。
图 b
(3)、“轻舟”图层中实现了小船从起始位置1移动到终止位置2的动画，位置1、2及其坐标（X,Y）值如图b所示。下列关于小船动画的描述正确的是 （多选，填字母）。A、测试场景时，小船沿水平方向匀速移动 B、小船动画的补间类型为“动画”，移动时间约为4.5秒 C、若将小船动画的缓动值调整为100，测试场景时，小船移动总时长将增加 D、若在当前图层第15帧插入关键帧，测试场景时，小船从第1帧到第15帧没有移动 E、若将小船起始坐标改为（150,200），测试场景时，小船移动将变快(4)、“文字”图层的第30帧和第36帧均为关键帧。测试场景时，为了使“文字”图层第31帧到第35帧中的内容完全消失，其他动画效果保持不变，应进行的操作是。