版本：

全部粤教版（2019）浙教版（2019）教科版（2019）沪教版（2019）人教中图版（2019）教科版浙教版

相关试卷

1、某对分查找算法的VB程序段如下：
Key = Val(Text1.Text)

c=0：i=1：j=10

Do While i<=j

    m=(i+j)\2

    c=c+1

    If key >= a(m) Then i=m+1 Else j=m-1

Loop

Text2.Text = Str(c)

数组a(1)到a(10)的值依次为“10，15，15，25，27，28，33，35，36，56”，执行该程序段后，文本框Text2中显示的值为3，则key值可能是(    )

A、10 B、15 C、28 D、36

查看解析
2、有如下VB程序段：
i =1

Do While i<=5

    If i=0 or a(i-1) >= a(i) Then

        i=i+1

    Else

        t = a(i) : a(i) = a(i-1) : a(i-1) = t

        i=i-1

    End If

Loop

For i =0to5

    List1.additem str(a(i))

Next i

数组元素a(0)到a(5)的值依次为“10，77，22，47，79，26”，该程序段运行后，数组元素a(4)的值为(    )

A、10 B、77 C、22 D、47

查看解析
3、有如下VB程序段：
i =1

Do While i<=5

    a(i)= Int(Rnd*10)*2 + 1

    If Not flag(a(i)) Then flag(a(i))=True

    i= i + 1

Loop

已知数组flag各元素的初值为False，运行以上程序段程序，数组元素a(1)到a(5)的值可能为(   )

A、3 9 16 15 11 B、5 7 9 7 13 C、9 3 7 1 15 D、9 17 5 21 1

查看解析
4、有如下VB程序段：
s= "Jinhua2022": t="": i= 1

Do While i< Len(s)

c=Mid(s,i,1)：d=Mid(s,i+1,1)

If c <= d Then t=t+ c

Else t=t+d

i=i+2

Loop

Label1.Caption = t

执行该程序段后，标签Label1中显示的内容是( )

A、iha22 B、Jha02 C、Jna02 D、ihu22

查看解析
5、某算法的部分流程图如第8题图所示。输出g的值是( )

A、-9 B、-3 C、18 D、63

查看解析
6、若xy都是正整数且x mod y = 3，则下列表达式的值一定为True是( )

A、x-y=3 B、x/y<x\y C、x>y D、xmod3=0

查看解析
7、一段未经压缩的AVI格式无声视频参数为：每帧画面为1024*768像素、16位色，PAL制式(25fps) ，若视频文件为375MB，则该视频的时长约为( )

A、2秒 B、8秒 C、10秒 D、15秒

查看解析
8、使用GoldWave软件编辑某音频文件，部分界面如图所示。下列说法正确的是( )

A、当前声音文件采用Wave格式，是一种无损压缩音频格式 B、当前声音文件的存储容量约为6.4MB C、当前状态下，执行“删除”命令后右声道的第14~19 秒将出现静音 D、执行“插入静音”命令，当前状态下插入15秒静音，文件播放时有一段静音

查看解析

9、用Access软件设计数据库，存储疫苗接种相关信息，其中已建好的“已接种人员信息"数据表用于存储如图所示的数据，其中“接种编号”的前4位表示年份。

接种编号	疫苗厂家	疫苗批号	接种日期	接种间隔	是否需要补种
2021 1201	北京生物	202008092	2021.11.12	10	是
2021 1202	北京生物	202008098	2021.12.21	15	否
2021 1203	北京生物	202008092	2021.12.10	20	否
……	……	……	……	……	……

下列关于“已接种人员信息”数据表的描述，正确的是( )

A、一个数据表就是一个数据库文件，该表文件名为“已接种人员信息.accdb” B、“接种编号”字段设置为“自动编号”类型最合适 C、“是否需要补种”字段的数据类型一定是“是/否” D、图中6个字段均可设置为“文本”类型

查看解析

10、某十进制偶数n对应的二进制数据为x，下列说法正确的是( )

A、n+1转换为二进制数后，位数可能比x多 B、nmod4的结果一定与x的最右侧两位等值 C、n转化为十六进制数最低位一定等于0 D、x中1的个数一定比0的个数多

查看解析
11、下列关于网页和网络测览器的说法正确的是( )

A、使用搜索引擎查询，也会搜索到一些虚假的信息，用户需要辨别真伪 B、网页文件可以使用记事本编辑，编辑后的网页必定是txt格式 C、保存网页时选择“网页，仅HTML(<*．htm； *．html)”不能保存超链接 D、浏览器与web服务器之间进行传输网页数据使用SMTP协议

查看解析
12、很多学校开设了在线课程，老师通过网络与学生互动、直播上课。从信息和信息处理的角度分析，以下说法正确的是( )

A、摄像头采集教师上课的实况，实现了“数模转换" B、老师可以同时给全班同学上网课，体现了信息可以共享的特性 C、网络直播授课可以脱离线下的“教室"，这说明了信息的传播可以脱离载体 D、网课平台会自动记录每个同学学习的时长并生成统计报表，这是一种人工智能技术

查看解析

13、小明编写VB程序实现有限小数、纯循环小数、混循环小数转化成最简分数。三种类型的小数转化方法如下表所示：

类型			计算公式	结果
有限小数	格式	a. b	(a*x+b)/x
有限小数	示例	3. 14	(3*10^ 2+14)/10 2	157/50
纯循环小数	格式	a. (b)	(a*(x-1)+b)/(x-1)
纯循环小数	示例	3. (14)	(3*(10^ 2-1)+14)/(10^2-1)	311/99
混循环小数	格式	a.b(c)	(a(t-1)x+ (bt+c-b))/((t-1)x)
混循环小数	示例	3. 14(159)	(3(10 3-1)10 2+(1410 3+159-14))/(10^ 3-1)10^2)	20923/6660
说明: ()内的数字串表示循环节 x=10 Len(b) t=10' Len(c)

程序运行时，在文本框Text1中输入小数，单击“转化”按钮，输出对应的分数，界面如图所示。

(1)、在文本框中输入“0.0(6)”，转化成分数为。

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

Private Sub Command1_ Click()

Dim s As String, xS As String, zS As String

Dim fz As Long, fm As Long

Dim i As Integer

Dim x As Integer, y As Integer

s = Text1.Text

i=1

Do While Mid(s, i, 1) <> "."

i=i+1

Loop

zs =

xs=Mid(s, i+1)

If not(f(xs)) Then

fm = power (Len(xs))

fz = val(zs) * fm + vas (xs)

Else

If Mid(xs, 1, 1) = "(" Then

xs = Mid(xs, 2, Len(xs) - 2)

fm = power(Len(xs)) - 1

fz = Val(zs) * fm + Val(xs) .

Else

x=0: y=0: i=1

Do While Mid(xs, i, 1) <> "("

i=i+1

Loop

x=i-1

y=Len(xs)-i-1

fm =

fz= Val (Mid(xs, 1, x)) * power(y)+Val (Mid(xs, i+1, y))-Val (Mid(xs, 1, x))

fz=Val(zs)*fm+fz

End If

Label2. Caption = Str(fz / gcd(fz, fm)) + "/"+ Str(fm / gcd(fz, fm))

End Sub

Function gcd (ByVal m As Long, ByVal n As Long) As Long

Dim r As Long

Do While m Mod n<>0

r= m Mod n

m=n

n=r

Loop

End Function

Function f(s As String) As Boolean '循环节判断

'函数返回True代表循环小数，False 不是循环小数，代码略

End Function

Function power(x As Integer) As Long '返回10的x次方

'代码略

End Function

查看解析

14、某玩具厂的生产流水线上有道工序，需要使用机械臂对n根长方体木块材料进行自动化排序。排序步骤为：从左起第一个木块开始向右寻找长度最短的，如果木块长度相同，则选择其中厚度较小的记录其位置R1 (不考虑长度及厚度均相同的情况)，然后对区间[1，R1]内的木块进行整体翻转。再从第二个木块向右继续寻找，并记录其位置R2，然后对区间[2，R2]的木块进行整体翻转……机械臂循环操作，直至排序完成。排序过程如图a所示，其中⑦的厚度小于⑤的厚度。

根据．上述要求设计VB程序，功能如下：在窗体加载时，读取木块长度和厚度数据，并显示在列表框List1中，单击“排序”按钮实现木块排序，结果显示在列表框List2中，程序运行界面如图b所示。

(1)、代码Private Sub Com1_ Click ()中的Com1_Click()属于            (单选，填字母)。

A、对象名 B、事件名 C、类别名 D、事件处理过程名

(2)、实现上述功能的VB代码如下，请在划线处填写合适的代码。
Const n = 10

Dim cd(1 To n) As Single, hd(1 To n) As Single

Private Sub Form_ Load()

    '通过数据库读取n根木块的长度数据存储到cd数组，厚度数据存储到hd数组，并将数据显示在列表框List1中，代码略

End Sub

Private Sub Com1_Click()

    Dim L As Integer, R As Integer

    Dim min As Integer

    Dim i As Integer, j As Integer

    Dim t1 As Single, t2 As Single

    For i=1 To n-1

      min=i

        For j=i+1 To n

            If Then min= j

        Next j

        R=min



        '实现区间内木块的整体翻转

        Do While L<R

            t1 = cd(L)： cd(L) = cd(R)： cd(R) = t1

            t2 = hd(L)： hd(L) = hd(R)： hd(R) = t2

            L=L+1



        Loop

    Next i

    List2. AddItem"长度(cm)"+""+"厚度(cm)"

    For i =1 To n

        List2. AddItem Str(cd(i)) +"" + Str(hd(i))

Next i

End Sub

(3)、程序中加框处代码有错，请改正。

查看解析
15、小明制作主题为“快乐运动”的多媒体作品。首先使用Photoshop软件处理图像，然后使用Flash软件制作动画作品。请回答下列问题：

(1)、处理图像的部分界面如图a所示。下列说法正确的有 (多选，填字母)。

A、可以复制“教学楼”图层的图层样式并粘贴至“背景”图层 B、将“绿植”图层移动到“教学楼”图层的下方，会影响图像的呈现效果 C、通过“画布大小”将图像由600×400像素改为800X400像素后，所有图层中的内容均会发生变化 D、将“背景.psd”文件存储为JPG格式后，JPG 文件不包含“纸飞机”图层的内容

(2)、制作动画作品的部分界面如第图b所示，“按钮”图层中的“进入”按钮是由“进入”按钮元件创建的实例。测试影片时，当鼠标悬停在“进入”按钮上时，按钮中文字的颜色发生了改变，当单击鼠标时，发出“叮叮”的声音，由此可见，在“进入”按钮元件的(单选，填字母：A .弹起/ B .指针经过/ C .按下)帧中添加了声音，且声音的同步属性为(单选，填字母：A .事件/ B .数据流)。

(3)、要使“我运动”图层中的内容一直延续到第60帧，其他动画效果保持不变，应进行的操作是。

(4)、在“人物”图层的第60帧上添加了动作脚本“stop( )；”，测试影片时，在任意时刻单击“进入”按钮，跳转到“main”场景第1帧并开始播放，则该按钮实例上的动作脚本可行的有 (多选，填字母)。

A、on (release) {play( );} B、on(release) {play("main",1);} C、on(release) {gotoAndPlay("main",1);} D、on(release) {gotoAndStop(" main", 1); play();}

查看解析
16、小明收集了2020年浙江省各地市农、林、牧、渔业总产值的数据，并使用Excel软件对数据进行处理，如图所示，请回答下列问题：

(1)、表格第1行中的标题“浙江省各地市农、林、牧、渔业总产值(2020年)”可以在A1单元格中输入标题，合并区域后居中得到。

(2)、在C4单元格中输入公式，使用自动填充功能完成C5：C14的计算，然后将C4中的公式复制到E4，G4和I4，并利用自动填充功能完成E5：E14，G5：G14，I5：I14的计算，则C4单元格中的公式是(提示：农业产值占比=某市农业产值/全省农业产值之和)。

(3)、对区域A3：J14进行相关数据分析，下列说法正确的是 (多选，填字母)。

A、为了显示农业和林业产值均位居全省前三的地市，可分别对B列和D列进行筛选 B、已知J列数据是由J4单元格填充得到，若更改H14单元格的值，则不会影响J14单元格的值 C、对区域A3：J14数据以“牧业产值全省占比”为主要关键字降序排序，“丽水市”排在“台州市”前面 D、若要直观展示各地市农、林、牧、渔业总产值在全省所占的比例，可以选择饼图

查看解析
17、某对分查找算法的VB程序段如下：
i =1：j= 8：n= 0：key= 83

Do While i<=j

    n=n+1

    m=(i+j)\2

    If key > a(2 * m) Then j=m-1 Else i=m+1

Loop

Text1。Text = Str(a(2 * j - 1))

数组元素a(1)到a(16)的值依次为“6，90，3，85，5，83，2，83，4，83，8，80，7，77，1，70”，奇数位存储序号，偶数位存储成绩。执行该程序段后，下列说法正确的是(    )

A、循环结束后i的值为5 B、变量m的值为4 C、变量n的值为5 D、Text1输出结果为4

查看解析
18、有如下VB程序段：
c= 0

For i=1 To 7

    k=i

    For j=i+1 To 8

        If a(j) <= a(k) Then k= j

    Next j

    If a(i)<>a(k) And i<>k Then

        t=a(i)：a(i)=a(k)：a(k)=t

        c=c+1

    End If

Next i

数组元素a(1)到a(8)的值依次为“54，12，23，12，7，12，78，23”，执行该程序段后，变量c的值是(    )

A、4 B、5 C、6 D、7

查看解析
19、生成0~9以内不重复的5个整数，并存储至d数组，实现该功能的VB程序段如下：
s = "0123456789"

For i=1 To 5



    s=Mid(s，1，k-1)+Mid(s，k+1)

Next i

上述程序段中方框处可选语句为：

①k=Int(Rnd*10)+1

②k=Int(Rnd*Len(s)+1)

③d(k)=i

④d(i) = Val(Mid(s，k，1))

则方框处语句依次是(    )

A、①③ B、①④ C、②③ D、②④

查看解析
20、有如下VB程序段：
n =357859604

Do While n>0

    c=n Mod 10

    If c>5 Then c=5

    count (c) = count(c) + 1

    n=n\10

Loop

数组元素count (0)到count (9)的初始值均为0，执行该程序段后，则count (5)的值为(    )

A、2 B、4 C、6 D、10

查看解析

上一页 402 403 404 405 406 下一页跳转