高中信息技术:

高中 信息技术

小王与小李合作编写一个成绩统计的VB程序:小王编写一个过程,该过程从数据库读取某一指定科目的相关数据,存储在数组a中;小李编写一个过程,该过程依据数组a中的相关数据统计各班级平均分,小王与小李约定的数组a各元素含义如下表所示。

数组元素

数组元素的含义

a(1)

存储班级数n

a(2)

从a(2)到a(n+1)依次存储第

1、第2、……第n个班级的人数

a(n+1)

a(n+2)

从a(n+2)开始依次存储第1个班级每个学生的单科成绩、第2个班级每个学生的单科成绩、……、第n个班级每个学生的单科成绩

程序功能如下:在文本框Text1中输入科目名称,单击“读数据库”按钮Command1,程序从数据库读取数据;单击“开始统计”按钮Command2,程序进行统计处理,结果输出在列表框List1中。程序运行界面如图所示。

实现上述功能的VB程序如下,请回答下列问题:

  1. (1) 根据程序运行界面中的数据及数组a各元素的含义进行分析,数组元素a(5)的值为(填写数值)。
  2. (2) 分析程序,可知数据库的文件名为
  3. (3) 请在划线处填入合适的代码。

    Dim a(1 To 600)As Integer   '数组大小满足处理要求

    Private Sub Command 1_Click()

      '本过程由小王完成,从数据库读取指定科目的各相关数据,存储在数组a中

      Dim conn As New ADODB.Connection

      Dim rs As New ADODB.Recordset

       conn.ConnectionString =" provider = Microsoft. ACE.

       OLEDB.12.0;datasource="+"Score.Accdb"

       conn.Open

       Set rs.ActiveConnection=conn

       '本过程的其他语句略

    End Sub

    Private Sub Command 2_Click()

      '本过程由小李完成,依据数组a中的相关数据统计各班级平均分

      Dim i As Integer,j As Integer,n As Integer

      Dim p As Integer,sum As Integer,aver As Single

             ①       

      p=n+2

      For i=1 To n

        sum=0

        For j=1 To a(i+1)

                 ②    

          p=p+1

        Next j

        aver=sum/a(i+1)

        Listl. Addltem Str(i)+""+Str(a(i+1))+""+Str(aver)

      Next i

    End Sub

     ②

字符“A、B、C、D”采用两位二进制数从小到大进行编码,如字符A和D的编码分别为00和11,机读答题卡部分界面如图所示。

计算机在采集以上4个题目的答案时,获取的信息是(  )

A . 10111100 B . 01101000 C . 11010001 D . 01001110
用GoldWave软件打开一个音频文件,状态栏如下图所示,则该音频文件的存储容量约为(    )

A . 121.1MB B . 20.6MB C . 15.1MB D . 7.6MB
10110100(2) = ((10)

255(10) = ((16)  

100(10) = ((2)

E2(16) = ((2)  

11100101(2) = ((16)

小王要给小张发一封电子邮件,同时将这封邮件抄送给小李。主题为:奥运票拿到了

小王的电子邮件地址是:xiaow@123.com

小张的电子邮件地址是:xiaoZ@263.com

小李的电子邮件地址是:xiaoL@sina.com

收件人栏应填写的内容为:

体重指数BM的计算公式为:BM=体重(kg)身高(m),该计算公式属于(   )
A . 知识 B . 信息 C . 数据 D . 智慧
有如下VB程序段:

n=8

For i =1 To n

d(i)= Int(Rnd * 10)+1

Next i

For i= 2 To n-1

k= 1

For j= 1 To n-i

If d(j)*k > d(j+2)* k Then

temp = d(j): d(j)= d(j+2): d(j+2)= temp

End If

k = -k

Next j

Next i

执行该程序段后,d数组各元素可能是(  )

A . 3,10,3,5,4,4,10,1 B . 0,3,4,5,6,6,7,8 C . 2,1,3,4,5,6,8,7 D . 6,4,5,6,5,7,1,10
某access数据库打开后如题图所示,下列描述正确的是(   )

A . 该数据库文件名为“log:数据库” B . 该数据库里共有5张表 C . 表“connectionlog”是一张空表 D . 表“user_syfwrzb”只有2条记录
以下做法有助于提高信息安全等级的措施是(    )
A . 将数据文件压缩后存放在本地磁盘 B . 将用户数据定期备份到移动硬盘或光盘并记录备份日期 C . 为确保数据安全,只要将C盘中的数据复制到D盘或E盘 D . 一般情况下,网盘上的数据只有自己登陆后才能访问,因此重要的和涉密的数据均可用网盘做数据备份
在办公楼、购物中心等场地停车场的人口处常会设置用来显示车位数量的引导指示牌,指示牌上的信息随着车辆的进出及时更新。现结合实际情况,请你用合适的方式描述车辆驶入时,车位数量监测系统的主要工作流程。
在“开始”菜单的“所有程序”菜单中包括所有已经安装的软件。
某Python程序段如下:

s = "p2y0t2H3on1*c"

t =""

for ch in s:

    if "A”<= ch <="Z":

        ch = chr (ord(ch) + 32)

    if "a”<= ch <="z”:

        t=t+ch

print (t)

运行该程序段,输出结果是

使用光盘安装WIN7时,需要在(   )中设置计算机从光盘启动。
A . BIOS B . 硬盘 C . 主板 D . 光驱
有如下VB程序段:

i=6

Do While i>= 1

  t= Int(Rnd * 10)+ 1

  If t Mod 2=i Mod 2 Then a(i)=t: i=i-1

Loop

For i=1 To 2

  k=-1

  For j=1 To 5-i

    If a(j) * k>a(j+2) *k Then

      temp= a(i): a(j)=a(j+2): a(j+2)= temp

    End If

    k=-k

  Next j

Next i

执行该程序段后,数组元素a(1)到a(6)值可能是(    )

A . 9,2,9,6,1,8 B . 1,6,3,4,7,4 C . 5,4,3,2,7,8 D . 7,0,5,2,3,4
在计算机中,数据都是以二进制的形式存储、加工的。
某VB 程序段如下:

Dim a(1 To 5) As Integer, i As Integer

a(1) = 1: a(2) = 1

For i = 3 To 5

    a(i) = a(i - 1) + a(i - 2)

Next i

Text1 Text = Str(a(i - 1))

该程序段运行后,文本框Text1中显示的内容是(     )

A . 2 B . 3 C . 5 D . 8
下列措施不能提高手机安全的是(   )
A . 设置开机密码 B . 短信的链接不要点 C . 不随意安装软件 D . 经常恢复出厂设置
SmartArt图形的布局按类别共分7种。
在经济普查统计工作中,用数据库系统管理代替手工管理能提高检索和统计的效率。
Windows XP的对话框具有(    )的特点。
A . 不能改变大小 B . 不能移动 C . 不能忽略 D . 没有窗口标题栏