相关试卷

1、关于信息安全与网络道德，下列做法正确的是（）

A、确认环境安全后输入支付密码 B、随意扫描网页中的二维码 C、未经许可，将他人的私人生活视频传到网上 D、在论坛里转发会造成社会不良影响的信息

查看解析
2、下列有关信息特征的说法，正确的是（）

A、信息是不可以进行加工和处理的 B、信息在传递和共享的过程中会产生损耗 C、信息的表示。传播。存储不一定依附于某种载体 D、信息可以脱离它所反映的事物被存储。保存和传播

查看解析
3、已知某数据加密方法如下：
A) 将英文字符的ASCII码值加20(十进制) ；

B)以字节为单位进行加密处理；

C)将1个字节的8位二进制数左移一位，最低位用左移出的最高位填充；

D)将处理后的8位二进制数分割成前4位与后4位两个二进制数；

F)分别将上述两个4位二进制数转换为十六进制数；

G)所得两个十六进制数码交换顺序后连接，即为该字节的密文。

按照上述规则，小明设计了一个解密的VB程序，功能如下：单击“解密”按钮Command 1，程序依次将文本框Text 1中字符提取(只有0到9、A到F)，进行解密处理，并输出在文本框Text 2中，程序运行效果如图所示。请回答下列问题：

(1)、已知明文是A9(已知大写字母A的ASCII值为65D，数字0的ASCII值为48)，则对应的密文是。

(2)、请在划线处填入合适代码。
Private Sub Command 1 Click()

Dim mw As String，mingw As String，ch As String

Dim i As Integer, k As Integer，j As Integer，t As Integer，p As Integer

Dim a( 1 To 8) As Integer

mw=Text 1.Text

For i= 1 To 8

      a(i)=0

Next i

For i=1 To Len(mw)

     ch=Mid(mw，i，1)

     If ch>=“0”And ch<=“9”Then

          t=Val(ch)

     Else

         t= ①

    End If

    j=0

    Do While t<>0

      j=j+1

      a( ② )=t Mod 2

      t=t＼2

    Loop

    If i Mod 2= 0 Then

      k=a(8)

      For j= 1 To 7

          ③

      Next j

      If k-20>=0 And k-20<= 127 Then

          ④

       For j= 1 To 8

           a(j)=0

      Next j

     Else

        mingw=“输入错误”

     End If

      End If

     Next i

    Text 2.Text=mingw

End Sub

① ② ③ ④

查看解析
4、在Excel1中可采用主次关键字排序，先按主关键字排序，如主关键字相同再按次要关键字排序。小明学习了冒泡排序后，编写了一个VB程序模拟该排序过程。功能如下：在列表框list 1中显示排序前数据(各随机产生10个整数存数组a、数组b中)，单击“排序”按钮后，按主关键字数组a升序和次要关键字数组b升序排序，排序后的数据在列表框List 2中显示。程序运行界面如图所示。实现上述功能的VB程序如下：

(1)、由代码可知，命令按钮“排序”的对象名是。

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

Dim a(1 To n) As Integer， b(1 To n) As Integer

Private Sub Form Load()

'各产生10个随机整数存数组a、b，并在列表框list 1中显示，代码略。

End Sub

Private Sub Cod 1_ Click()

Dim i As Integer，j As Integer

i=1

Do While i<=n-1

      ①

    Do While j>=i+ 1

      If a(j)<a(j-1) Then

        temp=a(j)：a(j) =a(j-1)：a(j-1)=temp

        temp=b(j)：b(j) =b(j-1)：b(j-1)=temp

         ‘改错

        temp=a(j)：a(j) =a(j-1)：a(j-1) =temp

        temp=b(j)：b(j) =b(j-1)：b(j-1) =temp

    End If

      j=j-1

    Loop

      ②

Loop

For i=1 To n

    List 2.Add Item Str(a(i))+””+Str(b(i))

Next i

End Sub

① ②

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

查看解析
5、小明创作主题为“新型冠状病毒防治”的多媒体作品。使用Flash软件制作动画(如图a)。请回答下列问题：

(1)、创作多媒体作品需要进行需求分析和规划设计。下列不属于创作需求分析的是(多选，填字母：A ．了解用户的计算机应用水平/B ．考虑作品创作及运行时需要的硬件设施/C ．把作品分为片头、主界面、片尾三个主要部分/D ．设计某场景中各动画元素的呈现顺序/E．确定作品的发布方式)。

(2)、如图a所示，“新型”图层第10帧到第30帧的动画实现了内容“新型”的文字到“冠状病毒”图片的变化，该动画类型为(单选，填字母：A ．动画补间/B ．形状补间/C ．逐帧动画)

(3)、如图a所示，“声音”图层添加了音乐，且第1帧上的声音“同步”属性设置为事件，为了让音乐和“冠状病毒”图层的补间动画一致则进行的操作是。

(4)、按钮“播放”制作界面如图b所示，则“播放”按钮(填：能/不能)响应鼠标事件；测试影片时，影片会停在最后一帧，单击“播放”按钮现在跳转到下一场景的第一帧开始播放，则按钮的动作脚本为。

查看解析
6、小明使用Excel软件对校运动会的数据进行了处理，如图所示：

(1)、金牌比例(%)是指班级金牌数占年级金牌数的比例，在F9单元格中输入计算公式，然后用自动填充功能完成F10：F14的计算，那么在F13单元格中应该输入的计算公式是。

(2)、对高二各班级以“金牌”为关键字进行排序操作，应选择的数据区域为。

(3)、选中单元格区域B2：F8后，在“数据”选项卡中，执行“筛选”命令，在单元格C2中的显示的“筛选”按钮上的筛选方式如图b所示，则筛选出的班级有个。

(4)、为了更直观地反映高二年级金牌比例的对比，下列说法正确的是 (在下列选项中，选择合适的一项，将序号填入横线处)

A、制作的图表的类型可以选择折线图 B、图表的区域可以选择：“B2，B9：B13，F2，F9：F13” C、数据按“金牌比例(%)”升序排序后，图表中数据不会变化

查看解析
7、小明编写VB程序，实现从字符串s中删除指定的子字符串。VB程序段如下：要使程序实现如上功能，则方框①②③中的语句分别是（）
Dim s As String，s1 As String，c As String，key As String

s=Text 1．Text：key=Text2．Text

i=1：s1=””

Do While i<=Len(s)

c=Mid(s， i， len(key) )

If Then

    s1=s1+Mid(s，i，1)

else



End If



Loop

Text 3．Text=s1

A、①c=key②i=i+len(key)③i=i+1 B、①c=key②i=i+1③i=i+len(key) C、①c<>key②i=i+len(key)-1③i=i+1 D、①c<>key②i=i+len(key)③i=i+1

查看解析
8、有下列VB程序段：执行该程序段后，数组元素a(1)到a(5)的数据依次为（）
a(1)=”231”：a(2)=”44”：a(3)=”23”：a(4)=”244”：a(5)=”124”

For i=5 To 4 step-1

k=i

For j=i-1 To 1 Step-1

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

Next j

If k<>i Then

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

End If

Next i

A、”124”，”23”，”231”，”44”， ”244” B、”124”，”23”，”231”，”244”，”44” C、”23”，”44”，”231”，”124”，”244” D、”231”，”124”，”23”，”244”，”44”

查看解析
9、有下列VB程序段：执行程序时，在文本框Text 1中输入“abc：dk7#Aba1@”(不包括双引号)，单击按钮Command 1后，在列表框List 1中显示的结果是（）
Dim s As String，a As String，t As String

s=Text 1．Text：t=””

For i=1 To Len(s)

  a=Mid(s，i，1)

  If a>=”a”And a<=”z”Then

    t=t+a

  ElseIf a=”：”or a>=”A”And a<=”Z”Then

    t=““

  ElseIf t<>””Then

    List 1．Add Item t

  End If

Next i

A、 B、 C、 D、

查看解析
10、执行下列程序段后，文本框中显示的内容为（）
Dim a( 1 To 5) As Integer

a(1)=1：a(2)=2

For i= 3 To 4

    a(i)=i

    For j=i-1 To 1 Step-1

         a(j)=a(j)+a(j+1)

    Next j

Next i

Text 1.Text=Str(a(2) )

A、18 B、12 C、7 D、4

查看解析

11、下列程序段中能够实现100以内偶数相加的有（）

s=0 For i= 1 To 100 If i Mod 2= 0 Then s=s+i End If Next i	s=0：i=0 Do While i<= 100 s=s+i i=i+2 Loop
①	②
s=2 For i= 4 To 100 s=s+i：i=i+2 Next i	s=0：i=2 Do While i<= 100 If i Mod 2= 0 Then s=s+i Loop
③	④

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

查看解析

12、某算法的部分流程图如图所示。依次输入3、3、4、1、6，执行这部分流程后，输出s、i的值分别是（）

A、5，2 B、15，2 C、6，2 D、14，3

查看解析

13、关于下列文件的存储容量说法正确的是（）

序号

①

②

③

④

文件名

小说．txt

音频.wav

图片．bmp

视频.avi（无压缩）

参数

500万汉字

时长为30秒

采样频率为44.1KHZ

量化位数为16bit

双声道

2048*1024像素32位色

总比特率为：10240Kbps时长为16秒

A、①的存储容量约为10MB，大于③的存储容量 B、②的存储容量约为8MB，小于③的存储容量 C、④的存储容量约为400MB，大于其他前3个的存储容量 D、存储容量由小到大的排序顺序是③②①④

查看解析

14、小明使用Photoshop设计了如图所示的图片，下列说法正确的是（）

A、可以将“冠状”图层的图层样式，拷贝并粘贴到“病毒”图层 B、使用“自由变换”修改“防控”图层的字体大小，“冠状”图层的字体不会发生变化 C、将作品存储为JPEG格式文件，该JPEG格式文件不会含有“医护”图层中的图像信息 D、需要将“背景”图层解锁后，才能改变“背景”图层中的内容

查看解析
15、使用UltraEdit软件观察字符内码，结果如下图所示，下列说法正确的是（）

A、存储“COVID-19抗疫”总共需要14个字节，有9个ASCII字符 B、字符“9”的内码为“39H”，可知“10”的内码为“3AH” C、将字符“C”的内码转换为二进制后，“1”的个数为8个 D、“BF B9”是“抗”字在计算机内存储和处理时的交换码

查看解析

16、要建立一个“班级捐款情况”的Access数据表，存放下列表格数据：

姓名	班级	班内学号	日期	金额	团员	方式
张一	201	05	2020/3/2	￥10	是	微信转账
李四	209	09	2020/3/3	￥18	否	支付宝转账
张一	201	05	2020/3/5	￥15	是	微信红包
…	…	…	…	…	…	…

下列关于该数据表的描述中，说法正确的是（）

A、在数据表视图中，可以添加一个名为“序号”，类型为“自动编号”的字段 B、设计数据表时，将日期设置为“日期”型，在该字段中可以输入“2020-02-28” C、“班级”字段一定要设置为“数字”型 D、设计数据表时，班内学号可以设置为主键，团员的类型可以设置为“是/否”型

查看解析

17、小明将刊登在杂志上的一篇文章扫描后，通过OCR软件识别出文字，并用word软件编辑处理。下列说法不正确的是（）

A、对扫描图片进行倾斜校正等预处理，可以提高OCR软件识别的正确率 B、用户“TX”对第一行中的“世界互联网大会”进行批注后，原有批注将发生改变 C、在“叠加”处执行“拒绝修订”，文字变为“重叠所形成的晶格” D、可以使用“查找替换”将文章中的所有的“互联网”一次性加粗显示

查看解析
18、小明用浏览器打开“浙江在线”网站，其主页地址为“www.zjol.com.cn”，该主页内容图文并茂，还有视频等元素，下列描述正确的是（）

A、使用浏览器打开该网页需要使用TCP/IP、WWW等协议 B、网页上的图片、文字等元素都是信息 C、当前访问的URL没有指明网页的文件名，浏览器将不能访问该网页 D、以“网页，全部”格式保存该网页，网页中的视频往往不能被保存

查看解析
19、某校进行学生选修课网上选课，选课报名情况如下:
①该年级有360名学生参与选课，共开设10门选修课程，每门课程的人数上限为40人，限定每位学生只能选一门课程。

②选课报名数据保存在数据库文件中，按报名先后顺序存储选课信息，每条学生的选课记录包含学号、姓名和选课课程编号。

③学生选课是否成功的规则：如果报名该课程的人数小于等于40人，则报名该课程的学生全部选课成功；若超过40人，则通过随机方式抽取40人选中该课程的学生。

小王编写了一个VB程序实现上述要求。单击“数据处理”按钮Command1，将选课数据按选课是否成功的规则进行数据处理后，在列表框List 1中输出每门课程的编号、报名该课程人数，并在列表框List2中按学号升序输出每位学生的选课结果。程序运行界面如图所示，在划线处填入正确的代码。

Const km=10

Const n=360

Const max=40

Dim xh(1 To n) As String‘存储学生学号

Dim xm( 1 To n) As String‘存储学生姓名

Dim kc(1 To n) As Integer'存储学生选课课程编号(1-10)

Dim flag(1 To n) As Boolean'存储学生选课是否成功

Private Sub Form_load()

本过程读取学号、姓名和选择课程编号的数据分别存储在数组xh，xm和kc中

End Sub

Private Sub Command 1_Click()

  Dim i As Integer，j As Integer，k As Integer，t As Integer

  Dim s As String，temp As Integer

  Dim num(1 To km) As Integer，b(1 To km) As Integ

  Dim c(0 To km) As Integer，d(1 To n) As Integer

  For i=1 To km

      num(i) =0

Next i

For i=1 To n

    num(kc(i) ) =num(kc(i))+1

Next i

k=1

For i=1 To km

    List1.AddItem Str(i) &“号课程报名”&num(i) &“人”

If   ⑴ Then b(k)=i：k=k+1

Net i

c(1)=1

For i=2 To k-1

c(i) =c(i-1)+num(b(i-1) )

Next i

For i=1 To n

flag(i) =True

For j=1To k-1

       If b(j) =kc(i) Then

         ⑵

      c(j)=c(j)+1

      flag(i)=False

      Exit For

   End If

Next j

Next i

c(0)=1

For i=1 To k-1 '超过人数上限的课程，随机方式抽取选中学生

   t=1

   Do While t<=max

     j= ⑶

      If flag(d(j)) =False Then flag(d(j))=True：t=t+1

Loop

Next i

For i=1 To n

     d(i)=i

Next i

For i=1 To n'按学号升序排序

For j=n To i+1Step-1

   If   ⑷ Then

       temp=d(j)：d(j)=d(j-1)：d(j-1)=temp

     End If

   Next j

Next i

For i=1 To n

     s=xh(d(i))&“”&xm(d(i))&“”&kc(d(i))&“号课程本轮选课”

     If flag(d(i) ) Then s=s&“成功”Else s=s&“不成功”

     List2.AddItem s

   Next i

End Sub

⑴ ⑵ ⑶ ⑷

查看解析
20、小李编写了一个VB程序，功能如下：在文本框Text 1中输入连续多个正整数(以“，”作为分割符和结束符)，单击“排序”按钮Cmd 1，对其中的整数进行降序排序。排序后奇数在前，偶数在后，在标签Label 3中输出结果。程序运行界面如图所示。

(1)、要使窗体Form 1标题显示“奇偶排序”，可修改该窗体的(单选，填字母：A .Text/B .Captin/C .Name) 属性来实现。

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

    Dim s As Strng，c As String，a( 1 To 100)As Integer

    Dim n As Integer，i As Integer，j As Integer，k As Integer，t As Integer

    s=Text 1．Text：n=0

    For i=1 To Len(s)

        c=Mid(s，i，1)

        If Not(c>=”0”And c<=”9”) Then

            n=n+1

            a(n)=①

            j=0

        Else

            j=j+1

        End If

Next i

For i=1 To n-1

            ②

        For j=i+1 To n

          If a(j) Mod 2= 1 Then

            If Then k=j

        ElseIf a(k) Mod 2=0 And a(j)>a(k) Then

            k=j

        End If

      Next j

      If k<>i Then t=a(k)：③：a(i)=t

    Next i

    c=””

    For i=1 To n

        c=c+Str(a(i))

    Next i

    Label 3．Caption=c

End Sub

① ② ③

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

查看解析

上一页 1368 1369 1370 1371 1372 下一页跳转