相关试卷

1、有如下VB程序段：
Const n=10

Dim a(1 To 10) As Integer

m = Int(Rnd( ) *n+ 1)

For i=1 To n

    a(i)= 0

Next i

i=0：j=0：c=1：ans=""

Do While c<=3

    i=i Mod n+1

    If a(i)=0 Then j=j+1

    If j=m Then

        a(i)=1：c=c+1

        j=0： ans = ans+ str(i)

    End If

Loop

Text1．Text = ans

执行上述程序段后，文本框Text1中不可能显示的内容是(     )

A、2 4 6 B、7 4 2 C、5 10 6 D、6 2 8

查看解析
2、有如下VB程序段：
Private Sub Command1_Click( )

    Const s1 = "tea"

    s2="老师Happy Teacher's Day！"：s3 = ""

    For i=1 To Len(s2)

        If bjiao(s1，Mid(s2, i, 1))Then s3=s3 + Str(i) + "，"

    Next i

    Text1.Text = s3

End Sub

Function bijiao(x As String, y As String) As Boolean

    bjiao = False

    For i=1 To Len(x)

        If y = Mid(x, i, 1) Then

           bijiao = True：Exit Function

        End If

    Next i

End Function

执行上述程序段后，文本框Text1中显示的内容是（    ）

A、6，11，12，13，16，22 B、6，12，13，16，22 C、4，9，10，11，14，20 D、4，10，11，14，20

查看解析
3、某算法部分流程图如图所示。执行这部分流程图后，输出s的值为( )

A、19 B、25 C、38 D、50

查看解析
4、下列VB表达式的值一定为True的是( )
①Val("10") + 10 = 20

②123Mod100\10=3

③"true"="True"

④Int(Rnd*2)=1

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

查看解析
5、一段时长为2分钟、1 280x1 024像素、24位真彩色、PAL制式的未经压缩AVI格式无声视频，其文件存储容量约为( )

A、187.5MB B、225MB C、10.99GB D、13.18GB

查看解析
6、使用GoldWave软件打开某音频文件，选中一段音频后的部分界面如下图所示。下列说法正确的是( )

A、可以使用GoldWave软件将该音频文件格式转换为MP3格式 B、执行“更改音量”命令将音量提高，音频采样频率和量化位数都会提高 C、执行“静音”命令后，整个音频第10秒至第20秒为静音 D、执行“删除”命令后直接保存，文件存储容量为原来的三分之二

查看解析
7、关于数据库系统，下列说法错误的是( )

A、数据库管理系统是为了建立、使用和维护数据库而设计的数据管理软件 B、自动编号类型字段的数据由系统随机或递增形成，用户不能输入 C、在数据表视图不能删除已设为主键的字段，也不能将某个字段设置为主键 D、Excel工作表中的数据只能拷贝至Access数据表中，不能直接导入数据库

查看解析
8、使用UltraEdit软件查看字符“2020新冠肺炎！”的内码，部分界面如下图所示。下列说法正确的是 ( )

A、字符“10”的ASCII码是“31H 30H" B、图中使用ASCII编码的有5个字符 C、汉字“炎”存储时所占存储空间为4字节 D、图中“！”为全角字符，内码为“A1”

查看解析
9、下列应用中，体现了人工智能技术的有( )
①门卫使用红外测温枪，不接触就能测量体温

②使用翻译笔直接将普通话翻译成英语

③某网站将用户上传的视频自动转化为统一格式

④通过人脸识别，直接获取“健康码”信息

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

查看解析
10、某同学利用百度搜索得到的部分界面如下图所示。下列说法错误的是( )

A、该检索方式是“搜索引擎” B、该同学正在搜索的是“新型冠状病毒”的相关信息 C、用“百度”搜索到有关新型冠状病毒的信息都是可信的 D、百度搜索采用全文检索技术

查看解析
11、学校餐厅实施套餐预订制度来提升窗口打菜效率，缩短学生排队时间。每周学校都会提供“ABCD”四种套餐供学生选择，然后按每种套餐的预定数量安排特定的点餐窗口(混合套餐窗口尽量少，一人只能预订一份套餐)。
安排方法如下：先计算出每个窗口的平均售卖套餐数量num=套餐总需求量(n)\窗口数(k)，然后按平均套餐数量num顺次安排“ABCD"四种套餐(首轮每个窗口出售一种套餐，数量为num)，当某种套餐需求数量或安排后剩余需求数量小于套餐平均数num时，待首轮安排结束后安排在混合窗口。如第一轮安排单-套餐窗口编号为1到b1，那么混合窗口编号为b1+1到k，为了均衡混合窗口的套餐种数，混合窗口从窗口编号k到b1+1按各类套餐剩余需求数由大到小安排一轮(安排k-b1种套餐)，然后从窗口编号b1+1到k按各套餐剩余数量由大到小顺次安排，当窗口安排套餐数量达到num时，剩余套餐换至下一窗口继续安排，最后一个窗口(k窗口)人数允许大于num。

编写VB程序，实现窗口套餐分配功能：点击“载人口点某窗口安排套餐预订信息”按钮Command1后，将预订套餐总人数显示在文本框Text1中，各套餐预订人数显示在列表框List1中，在文本框Text2中输入点菜窗口数，然后点击“窗口安排方案”按钮Command2，在列表框List2中显示点菜窗口安排结果。程序运行界面如图所示。

(1)、“ABCD”套餐预订人数如程序运行界面所示，当窗口数设置为“8”时，最后一个窗口(8号窗口)安排的套餐为。

(2)、实现上述功能的VB程序如下，请在划线处填入合适的代码。
Dim a(1 To4) As Integer'顺次存储“ABCD"四种套餐预订人数

Dim b(1 To 20) As Integer'存储各窗口安排套餐数量

Dim c(1 To 20) As String '存储窗口套餐方案

Dim n As Integer

Private Sub Command1_Click()

    '载人套餐预订信息，预订人数存人n，各套餐预订数量存人a数组，代码略

End Sub

Private Sub Command2_ Click()

    Dim k As Integer，num As Integer， b1 As Integer

    Dim i As Integer，j As Integer， t As Integer， t1 As Integer

    Dims As String

    Dim d(1 To 4) As Integer

    s = "ABCD"

    k = Text2.Text

    num = n\k        '计算各窗口平均排队人数

    b1= 1

    For i=1 To 4

        Do While a(i)：>=num

            c(b1) = Mid(s， i， 1)

            b(b1) = num

            a(i) = a(i)-num

            b1=b1+1

      Loop



    Next i

    b1=b1-1

    For i = 1 To 4

        For j=i+1 To 4

          If a(i) < a(j) Then

                t=a(i)：a(i)=a(j)：a(j)=t

                t=d(i)：d(i)=d(j)：d(j)=t

            End If

       Next j

    Next i

    t=k

    For i=1 To k-b1    '按各类套餐剩余需求数从大到小安排一轮

        b(t) = a(i)

        c(t) = Mid(s, d(i), 1)

      a(i) = 0

        t=t-1

    Next i

    t =i

    For i=b1 To k

      Do While b(i)<num Or i=k And num*(k-1)+b(k)<>n

            b(i) = b(i) 十a(t)



            a(t) = 0

            t=t+1

      Loop

      If b(i)>num And i<>k Then

            t=t-1



          b(i) = num

       End If

    Next i

    List2.AddItem "套餐数量”

    For i =1 To k

        List2.AddItem c(i) + ""+ Str(b(i))

    Next i

End Sub

查看解析
12、在一个整数序列中找第k大的数，若有相同的整数，则位置靠前的整数的名次靠前。如有整数序列为“10，13，12，13，15”，则第1大的数为15，在第5个位置，第2大的数为13，在第2个位置，第3大的数还是13，在第4个位置，第4大的数是12，在第3个位置，第5大的数是10，在第1个位置。
编写一个VB程序，实现如下功能：程序启动时产生n个1~20之间的随机整数，在文本框

Text2中输人整数k(k≤n)，单击“查找"按钮Command1后，在标签Label1上显示第k大的数及位置。程序运行界面如图所示。

(1)、下列对象不具有Caption属性的是(单选，填字母：A .Command1 /B .Form1 / C .Text1 /D .Label1)

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

Dima(1 To n) As Integer

Private Sub Form_ Load( )

'本过程产生n个1~20之间的随机整数存数组a中，并在文本框Text1中显示，代码略

End Sub

Private Sub Command1_Click()

Dimi As Integer，key As Integer，c As Integer，k As Integer

    Dim b(1 To 20) As Integer



    For i= 1 To n

        b(a(i)) = b(a(i)) +1

    Next i

    i= 20

    Do While i> 1 And b(i) < k



        i=i-1

    Loop



    Label3.Caption="第"+Str(k)+"大的数是"+Str( key)

    c=0

    For i=1 To n

        If a(i) = key Then c= c+1

        If c= Then Exit For

    Next i

    Label3.Caption =Label3.Caption + "，在第"+Str(i)+"位置"

End Sub

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

查看解析
13、使用Flash软件制作“鱼牛的故事”动画：

(1)、创作多媒体作品需要进行需求分析和规划设计。下列属于创作需求分析的是(多选，填字母：A .了解用户的计算机应用水平/B .考虑作品创作及运行需要的硬件设施/C .确定获取原始素材的方式/D .设计作品的主要界面/E .确定作品的发布方式)。

(2)、测试该场景时，“鱼”图层内容在播放完第15帧后消失，为了使该图层延续到45帧，下列操作可行的是。(多选题，填字母)

A、选中“鱼”图层第16帧执行“清除关键帧”操作 B、选中“鱼”图层第45帧执行“插入关键帧”操作 C、删除“鱼”图层第16帧 D、选中“鱼”图层第15帧执行“复制帧”操作，在第45帧执行“粘贴帧”操作 E、选中“鱼”图层第15帧执行“复制帧”操作，在第16帧执行“粘贴帧”操作

(3)、“鱼”图层第1帧中的对象是完全透明的“鱼儿”元件实例。测试当前场景时，第1帧到15帧没有实现“鱼儿”元件实例由完全透明到完全显示的渐变动画效果，要实现该效果，则在“鱼”图层第1帧中将“鱼儿”实例的颜色Alpha值设为%。

(4)、删除声音图层的第20帧到第45帧，对动画整体音效 (填：有/无)影响。

(5)、单击“replay”按钮，跳转到“第一幕”场景第1帧并开始播放，该按钮的动作脚本命令是。

查看解析
14、疫情期间学生在家进行网课学习，张老师对自己所带的两个班某节技术课的听课情况进行了统计分析，如下图a所示，请回答下列问题：

(1)、单元格K4统计的是0301班在线时长率低于60%的学生人数，是使用COUNTIFS时计算得到的，并对K4：L5进行自动填充，K4单元格里的公式是。
(提示：COUNTIFS函数用于计算多个区域中满足给定条件的单元格的个数。例如：= COUNTIFS(F4：F83，"<60"，B4： B83，J5)表示求F4： F83区域内所选内容小于“60”且B4：B83区域内所选内容为“0302”的单元格数据，F列、G列均为百分数。)

(2)、将工作表区域A3：H83的数据复制到新工作表，在新工作表中对“班级”和“总收看时长”进行筛选，如图b和图c所示，符合条件的筛选结果只有一项，原因是。

(3)、根据图a数据，制作图d，则该图表的数据源是。

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

i=1：j=10

Do While i<= j

   m= (i+j)\ 2

    s= s+Str(a(m)\ Key)

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

Loop

Text2.Text = s

数组元素a(1)到a( 10)的值依次为“2，3，5，8，9，10，13，17，19，20”。在文本框Text1中输入待查找的整数，执行该程序段，则文本框Text2中显示的内容可能的是（    ）

A、2 1 1 B、0 1 1 1 C、0 0 1 0 D、0 2 0 1

查看解析
16、有如下VB程序段：
a(1)=4：a(2)=5：a(3)=3：a(4)=1：a(5)=1：a(6)=5

s =0

For i=1 To 5

    If a (i)<a(i+1) Then

        t = a(i)：a(i) =a(i + 1)：a(i+1)=t

    End If

    s=s+a(i+ 1)

Next i

执行该程序段后，s的值是（    ）

A、10 B、11 C、18 D、19

查看解析
17、在字符串s中找连续最长不下降数字字符串长度max，如字符串“318714101223411624”连续最长不下降数字字符串为“012234”，其长度max为6，实现该功能的VB程序段如下：
s = "318714101223411624"

c=Mid(s, 1, 1)：i=1：max=0

For j=2 To Len(s)





    If t> c Or j = Len(s) Then





    End If

Next j

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

①i=j

②t=c

③c = Mid(s, j, 1)

④If j-i>max Then max=j-i

则(1)(2)(3)(4)处语句依次为（    ）

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

查看解析
18、有如下VB程序段：
Dims As String, c As String, st As String

Dim n As Integer, i As Integer

s ="20zj20sx7"：n=0：st=""

For i=1 To Len(s)

    c=Mid(s，i，1)

    If c>= "a" And c<= "z" Then

        st=Chr(Asc("a") *2+25-Asc(c))+st

    Else

        n=n*10+ Val(c)

    End If

Next i

st =st+str(n)

执行该程序段后，变量st的值是（    ）

A、chqa 20207 B、cgpz 47 C、zpgc 20207 D、zjsx 47

查看解析
19、某算法的部分流程图如图所示，执行这部分流程，若输人n值为35，k值为3，则输出c的值为（）

A、35 B、62 C、90 D、93

查看解析
20、一个未经压缩的音频文件，相关参数及选取状态如图所示。

则该文件执行裁剪命令后，该音频文件的存储容量约为（）

A、258KB B、602KB C、861KB D、881KB

查看解析

上一页 804 805 806 807 808 下一页跳转