高中信息技术：

高中信息技术

下图为一张血液化验单，该化验单的分析不正确的选项是（）

（说明：竖框为蓝的框，横框为红色框）

A . 医生根据化验结果做出诊断，依靠的是专业基础知识和临床实践经验 B . 蓝色框内是一组孤立的数据，不结合检查项目无法确定其含义 C . 红色框内的信息表明患者血红蛋白测定数据低于参考值 D . 该医院近年来的患者血液化验结果就可以构成医疗大数据

某种编码以4位二进制码为一组，每组前两位表示方向，后两位表示距离。编写一个程序，将编码翻译成方向和距离，距离值为每组编码后两位二进制码转换为十进制数的值。具体功能如下：在文本框Text1中输入连续多组编码，单击“翻译”按钮Command1，结果显示在列表框List1中。程序运行界面如图所示。

（1）要使程序运行时,文本框 Text 1 的 Width 属性值为 2018,可在Form_Load 事件过程中添加语句（单选,填字母：A .Width=2018/B .Text 1.Width=2018/C .Width.Text 1=2018）.
（2）实现上述功能的 VB 程序如下,请在划线处填入合适的代码。
Private Sub Commandl_Click（）

Dim s As String,c As String,d As String

Dim n As Integer,bl AsInteger,b2 As Integer, v As

Integer, i As Integer

s = Text1.Text:n = Len（s）:i= l

Do While i <=n

    c = Mid（s,i,2）

    If c = "00" Then

      d = "东"

    ElseIf c= "01" Then

      d = "南"

    ElseIf c= "10" Then

      d= "西"

    Else

      d = "北"

    End If

    bl = Val（Mid（s,i +2,1））

    b2 = Val（Mid（s,i+3,1））

    v=   ①

    List1.Addltem d + " "+ Str（v）

        ②

Loop

End Sub

①②
（3）若文本框Text1中输入的内容为“1111”，单击“翻译”按钮，列表框List1中显示的内容是。

某市要组织高中生参加竞技比赛。现要求在报名的n名学生中挑选出m名身高大于等于175cm的学生，被挑选出的学生两两组队，且队内两名成员的体重之和不能超过175公斤。

编写VB程序，实现上述挑选、组队功能。运行程序，在列表框List1中显示m名身高大于等于175cm的学生信息，且根据体重数值降序排序。单击“组队”按钮，在符合条件的情况下尽可能多的两两组队，并将组队结果显示在列表框List2中。程序运行界面如图所示，实现上述功能的VB程序如下。

请回答下列问题：

（1）观察代码可知，该程序“组队”按钮的对象名为。
（2）请在划线处填入合适的代码。
Const n = 20

Dim id(1 To 20) As Integer， h(1 To 20) As Integer，w(1 To 20) As Integer

Dim m As Integer

Private Sub Form_Load( )

   '从数据库中读取n名学生的编号、身高和体重分别存储在数组id、h和w中。

   '代码略。

   m=0    '存储身高≥175cm的学生总数

   For i=1 To n

        k=i

        For j=i+1 To n

            If h(j) >= 175 Then

                If Then k= j    '⑶

            End If

        Next j

        If k<>I Then

            t = id(i)： id(i) = id(k)： id(k) = t

            t=h(i)：h(i)=h(k)：h(k)=t

            t=w(i)：w(i)=w(k)：w(k)=t

        End If

        If h(i) < 175 Then

            m=i-1

            Exit For    '结束挑选

        Else



        End If

        List1.AddItem str(id(i)) +“”+ Str(h(i)) +””+ Str(w(i))

  Next i

End Sub

Private Sub Com_Click()

   L=1：R=m

  Do While L< R

        If Then

            List2. AddItem Str(id(L)) + “号和”+ Str(id(R)) +“号组队”

            L=L+1

            R=R-1

        Else



        End If

  Loop

End Sub
（3）程序中加框处代码有错，请改正。

有如下VB程序段：

s = 0: i = 1

Do While i <= 10

If i Mod 3 = 0 Then a(i) = a(i) + 1 Else a(i) = i

List1.AddItem Str(a(i))

i = i + 1

Loop

i = 10

Do While i >= 1

If a(i) = 1 Then s = s + 1

i = i － 1

Loop

该程序段运行后，变量s值是( )

A . 3 B . 4 C . 5 D . 9

某Access数据表的设计视图和数据表视图界面如下图所示，以下说法正确的是（）

A . 该数据表的名称为“兴趣特色课程.accdb”，共有12条记录 B . 被指定为主键的字段，其字段类型一定为自动编号 C . 在数据表视图中，不能在已有记录之前插入新的记录 D . 在数据表视图中，可以把第9条记录“课程序号”字段的值改为“9”

WPS是一种（（）

A . 游戏 B . 电子表格 C . 动画处理 D . 文字处理

某算法流程图如图所示，若输入n值为30，则算法执行后输出k的值为( )

A . 3 B . 5 C . 4 D . 2

为了测试汽车安全气囊的安全性，用计算机制作汽车碰撞的全过程，结果“驾驶员”头破血流。这里使用了（）计算机技术。

A . 虚拟现实技术 B . 语音技术 C . 智能代理技术 D . 碰撞技术

程序的三种基本控制结构是（）。

A . 顺序结构、层次结构、循环结构 B . 顺序结构、分支结构、循环结构 C . 树型结构、分支结构、循环结构 D . 顺序结构、分支结构、树型结构

下列属于日期型数据的是（）。

A . @January 10,2021@ B . #January 10,2021# C . January 10,2021 D . &January 10,2021&

下列关于人工智能的说法，正确的是（）

A . 人工智能技术就是虚拟现实技术 B . 计算机病毒具有传染性和破坏性，也是人工智能技术的体现 C . 烟雾探测器探测到浓烟时自动启动喷淋系统，体现了人工智能技术 D . 人工智能是一种模拟人类智能活动，尝试对事物进行识别、理解、学习和推理的技术

在Excel中可用组合键“Shift+；”输入系统当前的时间。

素数只能被1和它本身整除，不能被其他自然数整除。编写Python程序实现如下功能随机产生一个三位数，并判断其是否为素数。

（1）若随机产生的三位数为593，则输出。
（2）实现上述功能的Python程序如下，请在划线处填写合适的代码。
import random

a=     #随机产生三位正整数

flag=True

for i in range():

if a%i==0:

    flag=False



if flag:

print(a,"是素数")

else:

print(a,"不是素数")
（3）以下选项中，与表达式“a % i == 0”等价的是（）(单选，填字母）。

A . a // i == int(a / i) B . a // i == a / i C . a % i == a // i

求一个十进制负数的8位二进制补码方法是：将其对应的正数7位二进制所有位数取反（1改为 0，0 改为 1）后加 1，并设置符号位（最高位）为 1。如求-3 的 8 位二进制补码方法：3的7 位二进制数为 0000011，取反后为 1111100,加 1 后为 1111101，设置符号位为 1，-3 的 8位二进制补码为 11111101。则十进制数-5 的 8 位二进制补码为（）

A . 11111011 B . 10000101 C . 11111010 D . 11111100

末笔识别码是由末笔代码和字型代码共同构成。

使用Photoshop软件对“远航.psd”进行处理时，编辑界面如图所示，下列说法中，正确的是（）

A . 将作品存储为BMP格式的文件，该BMP文件将不包含“海鸥”图层的内容 B . 由于“天空”图层设置了图层样式，无法直接删除该图层 C . 交换“鸟”和“天空”图层的位置，不影响作品的呈现效果 D . 可以使用文字工具修改“远航”图层中文字的字体

按了回车键后，将组合框中输入的内容添加到组合框中，组合框的名称是COMBO1。

PRIVATE SUB COMBO1 （KEYASCII AS INTEGER）

END IF

END SUB

以下VB 程序段的功能是：单击一次按钮Command1，在列表List1 中随机输出一行10个大小写字母。已知字母“A”和“a”的ASCII码值分别为65和97。

Private Sub Command1_Click()

Dim s As String, c As String, i As String, a As String, t As Integer

Randomize

s = “”

For i = 1 To 10

If a <= 26 Then

t = a + 64

Else

End If

c = Chr(t)

s = s + c

Next i

List1.AddItem s

End Sub

以上横线处的正确语句是( )

A . ①a=Int(Rnd * 52 + 1) ②t = a + 70 B . ①a=Int(Rnd * 52) ②t = a + 71 C . ①a=Int(Rnd * 52 + 1) ②t = a + 72 D . ①a=Int(Rnd * 52) ②t = a + 73

求2+4+6+8+10+12+14+……100

PRIVATE SUB FORM-------CLICK()

S=0

DIM I AS INTEGER, S AS INTEGER

FOR I= 2 TO 100

S=S+

NEXT I

PRINT S

END SUB

下列各组控件都具有Caption属性的是（）

A . 文本框、窗体 B . 文本框、定时器 C . 标签、窗体 D . 标签、定时器

高中信息技术：

高中 信息技术

高中信息技术