学进去

使用Access软件设计某居民医疗管理信息系统的数据库，该软件打开数据库，部分界面如图所示，下列说法正确的是（    ）

A．当前打开的数据库文件名是“居民数据：数据库.accdb”

B．当前打开的数据表中共有5个字段，字段顺序可更改

C．“男性”字段的数据类型不能改为“文本”

D．该数据库中共有5张数据表，当前状态能对所有数据表进行重命名

某字符编码规则如下：
（1）将3个字母的 ASCII 值转换成二进制，连接后得到24位二进制数；
（2）将得到的24位二进制数字按每6位一组分成4组；
（3）在每组数字前补上两个0，得到4个字节的二进制数。
现有“air”3个字符的内码如下所示。

3 个字符按上述规则进行转换，若转换后的编码用十六进制表示，则前两位是

A．61 69

B．18 16

C．25  32

D．97 105

某 VB 程序如下：

若 a(1)～a(10)的值分别为 7，9，8，1，9，4，4，2，1，1，则运行以上程序后，下列说法正确的是(   )

A．这是一段冒泡排序程序

B．运行后 a(1)～a(10)的值分别为 1，1，1，2，4，4，7，8，9，9

C．加框部分运行后 b(1)～b(10)的值分别为 3，1，0，2，0，0，1，1，2，0

D．本算法是通过比较交换数据来实现排序的

对数组元素a(1)到a(8)进行从小到大排序，采用选择排序算法的某VB程序段如下：
For m＝1 To 7
p＝m
For n＝m+1 To 8

Next n
If p＜＞m Then t＝a(p):a(p)＝a(m):a(m)＝t
Next m
框内的语句是 （   ）

A．If a(n)＜a(p) Then p＝m	B．If a(n)＜a(p) Then p＝n
C．If a(n)＞a(p) Then p＝n	D．If a(n)＞a(p) Then p＝m

用 Photoshop 软件制作作品“春.psd”，界面如图所示：以下说法正确的是(   )

A．“花 2”图层不可以被直接删除	B．“春.psd”文件的大小为 4.16M
C．“春”图层不能直接添加图层样式	D．“燕子”图层不能直接修改不透明度

使用UltraEdit软件查看字符“测试 Pass!”的内码，部分界面如图所示。

下列说法正确的是（     ）

A．字符“p”与“P”内码值之差的十进制表示为32

B．字符“!”使用ASCII编码，该编码是交换码

C．共有4个ASCII字符

D．字符“Or”的十六进制内码为49 72

现有一个长为n，宽为1的水池，其截面如图a所示。水池截面可以看作是由行和列组成的矩阵，中间部分是由宽度为1且高低不-的墙分割的池底，左右两端黑色部分是无限高的墙，设最底端是水池的第一层，编号为1，依此向上编号。

图a

图b
往池中倒入一定的水量V （每1单位水量刚好填充一个格子，格子大小为1×1），现要求倒入水后，每一列水位高度一致。
如图b所示，往池中倒入V=11的水量，则水位高度为3.5 （解释：第一层没有空白单位，首先填满第2层的3个单位，然后填满第3层的5个单位，此时还剩氽11-3-5-3个单位的水量，第4层有6个单位的空白，不足以填满，此时3/6=0. 5，故总填充高度为3+0.5=3.5）。
为了解决该问题，小吴设计了二分算法：通过枚举水位高度，计算所儒的水量与实际输入水量比较，如果所需水量大于实际水量（精确到0.01），则需降低水位高度，否则增加水位高度，直到得到正确结果。程序功能：运行程序时，在文本框Textl中输入倒入的水量V，在文本框Text2中输出能达到的水位高度（保留1位小数输出）。程序运行界面如图c所示。

图c
程序代码如下：
Dim V As Double
Dim a（1 To 100）As Integer, n As Integer
Private Sub  Form Load() ‘初始化池底
n=8
a（1） = 2:a（2） = 1: a（3） = 4: a（4） = 2
a（5）= 1:a（6） = 3: a（7） = 1: a（8） = 4
End Sub
Function check（g As Double） As Boolean
Dim sum As Double  ‘变量sum用于计算水位高度为g时所儒水量
Sum = 0
For i = 1 To n
If g > a（i） Then  
Next i
If sum < V Then check = True Else check = False
End Function
Private Sub Command1_ Click()
Dim L AS Double,R As Double, mid As
Double

L= 0:R = 32767

V = Val（Text1.Text）

Do While L + 0.001 < R

mid=（L + R）/ 2
If___①__ Then
R= mid
Else
L =__②____   
End If

Loop

Text2.Text = ”高度为：”+ Str（ Int（R * 100 + 0.5） / 100 ）

End Sub
（1）假设池底如图a所示，若倒入的水量为4，则输出为________________。
（2）请在①②划线处填入合适的代码，以实现算法功能。
（3）程序加框处代码有错误，请改正。

使用UltraEdit软件观察字符“2018FIA世界杯！”的内码，部分界面如图所示。

下列说法正确的是（   ）

A．字符“世界杯”的内码占3个字节

B．该条信息共有9个ASCII码字符

C．字符“A”的二进制码是“01000001”

D．字符“Fi”的十六进制码是“46  49”

小天使舞蹈队编排一个舞蹈。该舞蹈要求人数为偶数，其中 1 位同学领舞，其站位始终不变，舞蹈队形变化时，其余同学按逆时针顺序移动站位。我们把所有跳舞的同学从领舞开始依次编为数字 1～n（n 为偶数），然后把队伍编号按 U 形走向分成两列，即得到第一次队形。从第二次队形开始，固定编号 1（领舞），其余编号均按逆时针方向移动一个位置，即为该次队形；以后各次队形以此类推，直到除领舞外的所有同学按逆时针转完一圈为止。
例如，节目人数为 6 时队形变化情况如下：

图1

图2
小嘉为此编写了一个 VB 程序，功能如下：在文本框 Text1 中输入跳舞的同学 n（n 为偶数），单击“队形变化”按钮 Command1在列表框 list1 中输出每次变化后的队形。程序代码如下，运行效果如图2所示。
Private Sub Command1_Click() Dim a(1 To 20) As String
Dim result As String, t As String
Dim n As Integer, i As Integer, j As Integer n = Val(Text1.Text)
For i = 1 To n
___________

result = ""
List1.AddItem "第" & Str(i) & "次："
For j = 1 To n \ 2
result = a(j) + " " +a(n – j + 1 )
List1.AddItem result
Next j
___________
For j = n To 3 Step -1
a(j) = a(j - 1)
Next j
a(2) = temp
Next i
End Sub
请回答下列问题：
（1）语句 List1.AddItem result 中的 AddItem 是______（单选，填字母：A.方法名/B.过程名/C.事件名）
（2）实现上述功能的 VB 代码如下，请在划线处填入合适代码。
（3）程序中加框处代码有错，请改正。

利用奇校验可以识别信息在传输过程中是否存在差错。基本原理是：在发送端发送的每一个字节编码后增加一个校验位，使得“1”的个数为奇数；在接收端统计每一个字节编码及其检验位中“1”的个数，若为偶数，则意味着传输过程中存在差错。
根据上述原理，小明对接收到的一组编码进行验证，如图a所示。

小明编写了VB程序，功能如下：在文本框Text1中输入接收端接收到的编码，单击“校验”按钮，在列表框List1中输出差错的个数及具体位置。程序运行界面如图b所示。

（1）根据程序段可知，校验按钮的对象名是     
（2）实现上述功能的VB 程序如下，请在划线处填入合适的代码。
（3）程序中加框处代码有错，请改正。
Private Sub Check_Click()
Dim a(1 To 900) As Integer, e(1 To 100) As Integer
Dim s As String, count As Integer, cnt As Integer
Dim i As Integer, j As Integer, k As Integer
s = Text1.Text: n = Len(s): cnt = 0
For i = 1 To n
a(i) = Val(Mid(s, i, 1))
Next i
For i = 1 To n \ 9
count = 0
k =      ①      
For j = k To k + 8

Next j
If count Mod 2 = 0 Then
      ②     
e(cnt) = i
End If
Next i
List1.AddItem "共有" + Str(cnt) + "个字节信息存在差错"
For i = 1 To cnt
List1.AddItem "第" + Str(i) + "处差错在第" +    ③    + "个字节"
Next i
End Sub