高中信息技术:

高中 信息技术

下面的程序段,通过键盘输入5,则运算结果是(    )

A=input()

print(A * 5)

A . 3125 B . 25 C . 5*5 D . 5.5
如图a所示的“学生信息”数据表中存储着全校学生的“7选3”选课信息杰克同学编写了一个VB程序,用于查询每个同学的选考科目,程序运行界面如图b所示。

程序运行时,在文本框Text1中输入学号,单击“开始查询”按钮(Command1),在“查询结果”区域显示查询到的学生姓名和选考科目数据。

学校共有n名学生,数组a、b分别保存了所有学生的学号和姓名信息。数据库数据按学号从小到大排列,第i个学生的学号保存在a(i),对应的姓名保存在b(i),该学生的选考科目保存在c(i)中。

实现上述算法的VB程序如下,在程序划线处填入适当的代码,把程序补充完整。

Dim n As Integer, a( 1000 ) As String

Dim b ( 1000 ) As String

Private Sub Command1_Click ( )

Dim x As String, pos As Integer

Dim conn As New ADODB Connection, rs As New ADODB. Recordset

conn ConnectionString = “provider = Microsoft. ACE OLEDB. 12.0; data source = “ & App. Path &" \students. accdb”

conn. Open

Set rs. ActiveConnection = conn

rs.Open “学生信息”

n = 0    ‘考生数初始化

Do While Not rs. EOF

  n=n+1

  a(n) = rs Fields (0): b(n) = rs Fields (1): c(n) = rs Fields(2)

       ①      

Loop

x= Text. Text

     ②     

If pos > 0 Then

  Text2 Text = b(pos):Text3 Text = c(pos)

Else

  Text2.Text= “找不到” : Text3.Text =“”

End if

End Sub

Function Search(Key As string) As Integer

Dim i As Integer, j As Integer, m As Integer

i = 1: j = n: Search = 0

Do While i < = j

  m = Fix((1+j) / 2)

  If Key = a(m) Then

         ③      

    Exit Function

  ElseIf a(m) > Key Then

    j = m-1

  Else

    i=m+1

  End If

Loop

End Function

 ② ③ 

有如下程序段:

For i = 1 To Len(Text1.Text)

  c = Mid(Text1.Text, i, 1)

  If c >= "0" And c <= "9" Then c = Chr(Asc(c) + 1)

  If c >= "A" And c <= "Z" Then c = Chr(Asc(c) + 32)

  s =s + c

Next i

若文本框Text1的内容为“Number 2468!”执行程序后,变量s的值为(   )

A . NUMBER 3579! B . NUMBER 2468! C . number 3579! D . number 2468!
用户通过手机连接互联网,随时随地查询公交车实时到站信息。这是通过公交车上的什么系统来实现的?(    )
A . GPS定位 B . USB跟踪 C . 单片机分时 D . RFID标签读写
台州市政公共停车的收费标准如下:

30分钟以内不收费,1小时及以内收费5元,超过一小时后超过部分2元\小时收费(不足1小时的按1小时计算)。小明据此设计了以下VB程序,程序运行界面如图。

  1. (1) 若将窗体标题改为“台州停车收费”,应修改窗体属性栏中的属性。
  2. (2) 运行程序,在文本框Text1中输入当天停车时间(分钟),单击“收费”按钮Command1,在文本框Text2显示所对应的费用(元),实现上述功能的VB程序如下,请在划线处填写合适的代码。

    Private Sub Command1_Click()

    Dim t As Integer , cost As Integer , h As Integer    ‘h是小时时长

    t=Val(Text1.Text)

        If t <= 30 Then

            cost=0

        Else

            h=(t-1)\60+1

            If Then

                cost=5

            Else

                cost=

            EndIf

        EndIf

        Text2.Text=

    EndSub

是一种可以将数字信号调制转换为模拟信号,又能将模拟信号解调转换为数字信号的一种装置。
想知道“地球自转方向”,通过网上搜索查询得出两种不同的答案,一是顺时针旋转二是逆时针旋转,面对这种情况,以下哪种判断结果正确率较高(  )
A . 查找的网络科学数据库,是否是专业的、权威的、可信度高的 B . 查询的结果多少而定,得出相同结论多的就是正确的 C . 网站界面的美观度,界面设计好的数据比较准确 D . 查找的速度,速度快的网站比较准确
某VB程序的一个事件过程如下:

Private Sub Command1_Click()

Dim a As Integer

a = Val(Text1.Text)

Text1.Text = Str(Sqr(a))

End Sub

程序运行时,单击命令按钮command1后弹出如图所示的错误信息提示。出现错误的原因是(    )

A . 变量a类型定义错误 B . 界面缺少文本框Text1 C . Command1属性设置错误 D . Sqr函数计算时出错
如下左图和右图所示,是求绝对值的算法,其描述方式分别是(     )

A . 自然语言、流程图 B . 伪代码、流程图 C . 自然语言、伪代码 D . 流程图、自然语言
小明用 Gold Wave软件选取一段背景音乐,如图所示。

 

下列说法正确的是(  )

A . 采样频率为44.1kHz B . 音频总时长为3分30秒 C . 这是一个Wave文件 D . 当前状态下执行剪裁操作后,总时长变为2分15秒
请编写程序,实现输入一个人的出生年份(>=1972),输出他的生肖,直到输入0结束,运行结果如下:

请输入出生年份,输入0结束:2004

你的生肖是:猴

请输入出生年份,输入0结束:

完善下列代码,实现上述功能.

def shengxiao(year):

#求生肖

    zodiac=["鼠","牛","虎","兔","龙","蛇","马","羊","猴","鸡","狗","猪"]

#以下为主程序    

myyear=int(input("请输入出生年份,输入0结束:"))

while myyear!=0:

    print("你的生肖是:",)

    myyear=int(input("请输入出生年份,输入0结束:"))

信息资源管理是指使用数据库管理信息。
在HTML语言中,用于定义超级链接的标记是(  )
A . <p></p> B . <font></><font> C . <a href=“链接目标”>链接源</a> D . <form></form>
数据库技术能够很好地实现对大量数据的存储、管理及高效检索。
给定一个正整数,要求将该数各个位上数字反转得到一个新数,如数字56020反转得到新数2065。有如下VB程序段:

n=Val(Text1.Text)

s=""

flag=True

Do While n>0

      ⑴ 

    n=n\10

    If Not flag Or x>0 Then

          ⑵ 

        flag=False

    End If

Loop

If s="" Then s ="0"

Labe 11.Caption=s

方框中(1)和(2)应填入的代码顺序为(    )

①x=nMod10^len(n)  ②x=nMod10  ③s=Str(x)+s  ④s=s+Str(x)

A . ①③ B . ②③ C . ①④ D . ②④
为了保证计算机系统中的数据安全,下列操作不可取的是(  )
A . 数据定期备份 B . 建立磁盘阵列 C . 建立容灾系统 D . 格式化硬盘
信息系统的应用给人们的生活带来很多便利,比如使用手机上的导航软件即便到陌生的地区也不迷路就是一个典型的例子。
请阅读下列语句,判断S的最后结果是(     )

s=2

t=3

s=s+t

该程序段运行后,变量x的值是:(      )

A . 2 B . 1 C . 5 D . 3
世界上第一台电子计算机诞生于哪个国家?(   )   
A . 美国 B . 德国 C . 英国 D . 日本
Excel 中,返回绝对值的函数是(    )。
A . ABS B . EXP C . MOD D . PI
最近更新