相关试卷
-
1、在VB中，添加一个标签，在工具箱中要单击控件是（ ）。A、
B、
C、
D、
-
2、下列程序，当单击窗体时s的值是（ ）。
Private Sub Form_Click()
s = 11 \ 3 + 11 Mod 3
Print s
End Sub
A、3 B、4 C、5 D、6 -
3、（加试题）小赵对选择排序算法进行了如下改进：在数组的所有元素中找出最小和最大数据的元素，然后将这两个元素分别与第一个和最后一个元素交换数据，在余下的元素中找出最小和最大数据的元素，分别与第二个和倒数第二个元素交换数据，以此类推，直到所有元素的数据按升序排列。小赵编写的VB程序段如下：
p = 1: q = 10
Do While p < q
iMin = p: iMax = p
For i = p + 1 To q
If a(i) < a(iMin) Then iMin = i
If a(i) > a(iMax) Then iMax = i
Next i
t = a(iMin): a(iMin) = a(p): a(p) = t
t = a(iMax): a(iMax) = a(q): a(q) = t
p =" p" + 1
q =" q" - 1
Loop
要使程序实现上述算法思想，则方框中的语句是
A、If iMax =" p" Then iMax = iMin B、If iMin =" p" Then iMin = iMax C、If iMax =" p" Then iMin = iMax D、If iMin =" p" Then iMax = iMin -
4、奇偶校验是一种校验数据传输正确性的方法。其中奇校验方法：统计二进制数据的数位中“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，单击“计算”按钮，则显示的校验位值是。 -
5、在Visual Basic中，下列( )类型属于字符串型。A、Integer B、Single C、String D、Boolean
-
6、下列可以作为VB变量名的是（ ）A、A-s B、A+S C、AS D、A_s
-
7、VB中工程文件的扩展名为( )A、.vbp B、.frm C、.bas D、.ds
-
8、VB中工程文件的扩展名为( )A、vbp B、frm C、.bas D、.vbw
-
9、下列关于程序设计语言的说法，不正确的是（ ）。A、机器语言是最早出现的程序设计语言 B、机器语言是一串由“0”和“1”构成的二进制代码 C、高级语言是一种接近于自然语言的编程语言 D、机器语言是最早出现的高级程序设计语言
-
10、玫瑰花数是一个四位正整数，该数每一位上的数字4次方之和等于它本身。如：1634=14+64+34+44，小张设计VB程序用于找出所有可能的玫瑰花数，程序运行界面如下图所示。
(1)、在窗体中要显示玫瑰花图像（文件名为flower.bmp），需添加图像框image1，并设置其属性（单选，填字母：A ．Image/B ．Pictrue/C ．Caption/D ．Text）的值为“flower.bmp”。(2)、为实现上述功能，请在划线处填入合适的代码。Private Sub Command1_Click()
Dim sum As Integer, a As Integer, b As Integer
Dim i As Integer, c As Integer, d As Integer
List1.Clear
sum = 0 '玫瑰花个数
For i = 1000 To 9999
a = i Mod 10 '求个位上的数字
b =① '求十位上的数字
c = i \ 100 Mod 10 '求百位上的数字
d = i \ 1000 '求千位上的数字
If a ^ 4 + b ^ 4 + c ^ 4 + d ^ 4 = i Then
List1.AddItem Str(i)
②
End If
Next i
Label1.Caption = "玫瑰花个数为：" + Str(sum)
End Sub
(3)、解决该问题主要采用的算法是 -
11、在VB中编制一个含有一个窗体的VB应用程序并保存在磁盘上，运行测试后编译成可执行程序，整个过程中肯定会产生的文件类型是( )A、.vbp、.frm、.exe B、.vbp、.exe、.txt C、.txt、.frm、.exe D、.vbp、.txt、.frm
-
12、小明使用Flash软件创作“一盔一带”作品，其中“文明行车”场景的制作脚本如下表所示，部分界面如图a所示。请回答下列问题：
场景名：文明行车
类别序号：2
进入方式：来自“片头”场景，通过“进入”按钮进入
呈现方式：
①“骑行安全从头“文字变为“一盔一带安全守护行动”文字，时长5秒。
②电动车从舞台外从右到左移动，移动效果约3.6秒。
③“结束”按钮位于舞台右侧，单击该按钮，声音停止并跳转到“片尾”场景第1帧并开始插放。
呈现顺序：
①一开始出现背景，文字动画，音乐响起。
②1.5秒时开始出现电动车动画。
③最后出现“结束”按钮，该场景动画停止在最后一帧。
(1)、分析制作脚本，下列说法正确的有 (多选，填字母)。A、“文明行车”场景至少需要2个按钮 B、制作脚本编写之前需要编写对应的文字脚本 C、若动画的帧频为10fps，则电动车动画在第18帧开始出现 D、该场景动画停止在最后一帧后，电动车动画中的车轮还在转动，说明车轮实例的元件类型为影片剪辑(2)、根据制作脚本，在制作“文字”图层的补间动画时，补间类型应选择(选填：动画补间/形状补间)。动画创建失败是第60帧中文字还未彻底分离为形状，为使动画创建成功，应该对第60帧上的文字再进行 次分离操作。(3)、测试场景时发现“按钮”图层的按钮从该场景动画开始播放就出现了，为了使按钮在最后出现，可以进行的操作是。
(4)、已知声音图层上的声音的同步方式如图b所示，根据制作脚本，“结束”按钮上的动作脚本正确的有 (多选，填字母)。A、on(press) [stopAllSounds()；gotoAndPlay(“片尾”，1)：) B、on(release) (stop All Sounds()；gotoAndPlay(1) ：) C、on(press) (stop All Sounds()；play()； ) D、on(release) (stop() ：gotoAndPlay(“片尾”，1)；)(5)、小明将该动画制作了一半后，由于中途有事，需要关闭计算机，为使下次能继续编辑该动画，他应保存为 格式(单选，填字母)。A、Flash影片(*，swf) B、GIF动画(*．gif) C、Flash CS3文档(*．fla) -
13、为防止某传染病，在堂食中不能两个人相邻就餐。为避免两个人相邻就餐，小明设计了一个VB程序，在Text 1中输入某一排座位就餐人员的分布情况，用字符“*”代表当前座位有人，字符“#”代表当前座位没人。如“*#**”就代表1号座位有人，2号座位没人，3号座位有人，4号座位有人。单击“检查”按钮后，若该排有人相邻就餐，则在标签Label 2中输出“警告！”；若该排没有人相邻就餐，在己入座人员不换坐的情况下，检查该排座位中是否还可以再加人就餐，若可以，则在标签Label 2中输出这排中至多还能有几个人入座；若不可以，则在标签Label 2中输出“该排人数已满”，程序运行界面如图所示。
(1)、观察VB代码，可知“检查”按钮的名称为。(2)、实现上述功能的VB代码如下，请在划线处填入合适的代码。Private Sub Cmd1_Click()
Dim s As String， c As String
Dim flag As Boolean
Dim i As Integer，count As Integer
s=Text 1.Text
flag=True
For i=1 To Len(s) -1
c=Mid(s，i，2)
If c=“**”Then
①
Exit For
End If
Next i
s=“#”+s·“#”
count =0：i= 2
Do While flag And i<=Len(s) -1
If ② Then
s=Mid(s，1，i-1) +“*”+Mid(s， i+1， Len(s) -i)
③
End If
i=i+1
Loop
If Not flag Then
Label2.Cnption=“警告！“
Elself count = 0 Then
Label2.Caption=“该排人数己满”
Else
Label2.Caption=“该排至多还能有”+Str(count) +“个人入座”
End If
End Sub
① ② ③
-
14、小明用Excel软件对2019年四个季度中国部分省GDP进行数据处理，如第10图a所示。
请回答下列问题
(1)、小明通过I4单元格中的公式，对数据区域J4：L4进行自动填充公式，发现结果有误，I4单元格中的公式应改为 (单选，填字母)。(提示：SUM IF函数用于返回某个区域内满足条件的所有单元格数值的和。例如：=SUM IF(B4：B34，H4，C4：C34)用于计算所有地区中是东北地区的2019年第四季度GDP之和)A、=SUM IF($B$4：$B$34， H$4，$C$4：$C$34) B、=SUM IF(B$4：B$34，$H 4，C$4：C$34) C、=SUM IF($B4：$B34，$H 4，C4：C34) D、=SUM IF($B4：$B34， H 4，C4：C34)(2)、根据图a中数据制作的图表如图b所示，创建该图表的数据区域为。
(3)、选中数据区域A3：F34，用图c方式对该表进行筛选，则可能筛选出 行数据。(多选，填字母)。
A、1 B、2 C、3 D、4 -
15、用Flash软件制作动画，以下是某按钮元件的编辑界面。
下列操作，会让该按钮实例无法响应鼠标事件的是（ ）
A、在“声音”图层的点击帧中执行“插入关键帧”操作 B、在“文字”图层的按下帧中执行“插入帧”操作 C、在“矩形”图层的点击帧中执行“删除”操作 D、在“矩形”图层的弹起帧中执行“清除关键帧”操作 -
16、用Photoshop软件制作“5G”作品，效果如图所示。
当前状态下，下列说法正确的是（ ）
A、使用“填充”命令，可以仅将“5G”图层中的“5G”字样填充为红色 B、“4G”图层使用了滤镜效果 C、橡皮擦工具可以擦除“5G”图层上的文字图案 D、“背景”图层和“4G”图层进行交换后，不会影响“4G”图层的内容显示 -
17、用GoldWave软件编辑某音频文件，部分界面如图所示。
在当前状态下，下列说法错误的是（ ）
A、执行“删除”操作后再通过“插入静音”操作插入3秒静音，文件存储容量约为2．2MB B、用GoldWave软件录制声音，实现了将声音数字信号通过采样、量化转化为模拟信号 C、用GoldWave软件可以将该音频文件转化为MP3文件 D、音频的量化位数越大，其量化值越接近采样值，音质越好 -
18、下列关于信息编码及数据压缩的描述，正确的是（ ）A、由于计算机内部只能处理二进制数据，因此不能用十进制数对信息进行编码 B、已知字符“1”的ASCII码值为十进制数49，则字符“2”的ASCII码值为十进制数50 C、采用不同编码方式对汉字进行编码，处理码与交换码一定不同 D、将文件a．bmp重命名为a．jpg可以实现数据压缩
-
19、某算法的部分流程图如图所示。
执行这部分流程，若输入a的值为6，输出sum的值为15．则输入b的值为（ ）
A、6 B、7 C、8 D、9 -
20、某Access数据库打开后信息如图所示。
下列说法正确的是（ ）
A、当前数据表中，“体温”字段数据类型一定是“数字”类型 B、可以在设计视图中将“姓名”字段设置为主键 C、不可以在“班级表”数据表中添加字段名为“班级”的字段 D、当前状态下，不能对“疫情体温表”数据表进行重命名操作