某班主任收集了本班级学生线上学习情况的数据， 并用Excel软件进行数据处理，如第13题图a所示。请回答下列问题：

逻辑表达式“D”>“C”or“A”>“B”的值是（   ）。  

【加试题】小马正在看一本侦探小说，想了解其中一段案情的解析，却发现了一串字符“#2017—2018go：)”，并附有文字提示：①答案所在的页码是这串字符中最大数字字串(若值相同则取后面的数字字串)的起始位置*10+结束位置②答案所在行号是最大数值除以100的余数。例如：“#17a18#”字符串中，最大数字字串“18”。起始位置是5，结束位置是6，其页码是56，行号是18。小马编写了一个VB程序帮他寻找答案，程序运行界面如图所示。在文Text2中输出页码，在Text3中输入行号。实现上述功能的VB程序代码如下，但加框处代码有错，请改正。

Private Sub Command1_Click（）

  Dim s1 As String，s2 As String   

  Dim ch As String，ch2 As String   

  Dim max As Double   

  Dim n As Integer，page As Integer  

  Dim i As Integer，j As Integer

  s1=Text1．Text：s2=””

  n=Len(s1)

  i=1：max=0

  Do While i<=n

    ch=Mid(s1，i，1)

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

        j=i

        ch2=Mid(s1，i，1)

        Do While ch2>=“0”And ch2<=“9”

           j=j+1

           ch2=Mid(s1，j, 1)

        Loop

        s2=    ’(1)

        If   Then    ’(2)

            max=Val(s2)

            page=i*10+j-1

            Text2．Text=Str(page)

            Text3．Text=Str(max Mod l00)

        End If

        i=j

      End If

      i=i+1

    Loop

  End Sub

下列关于算法的描述，正确的是 （    ）

在Word中将光标移到本行行首的快捷键是键。

对计算机安全不会造成威胁的是（   ）

  为了便于游戏循环中反复调用，可以定义成一个函数,在绘制福字时，需要设置图像显示的位置，因此showfu中有两个参数，分别表示图像位置的和。

有如下VB程序段：

i=1

Do While <=6

    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 6-i*2

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

            t=a(j): a(j)=a(j+2): a(j+2)=t

        End If

        k=-k

    Next j

Next i

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

数列1，4，7，10，13，…的递推公式为（  ）

电子商务活动有一定的流程，请对下列网上购物步骤进行排序

①签收订购产品

②选定所需的商务产品

③在电子商务网站注册用户

④进入电子商务网站结算处

⑤网上电子支付交易金额

⑥物流公司送来货物

有一种利用打孔透光原理设计的简易身份识别卡：每张卡在规定位置上有一排预打孔位，读卡器根据透光检测判断哪些孔位已打孔，哪些未打孔，从而识别出卡的编码。如果要设计一种供1000人使用的身份卡，则卡上的预定孔位至少需要（   ）

在制作网页时下列关于超链接的叙述正确的是（   ）

某张单据上有一个5位数的编号n，如图所示 ，其百位数和十位数模糊不清，但是知道 这个5位数是23的倍数。现要设计一个算法，找出所有满足这些条件的5位数，并统计个数。

现有Python程序段如下：

c=0

for i in range(10):

    for j in range(10):

                                         

        m=25006+s

        if m%23==0:

            print(m)

            c=c+1

print(“满足这些条件的5位数总共有:”，c，“个” )

画线处应填的代码是（    ）

小张要制作一份电子小报，准备素材时先从报纸扫描得到图像文件，再使用OCR软件进行字符识别，部分界面如下图所示。

请回答下列问题：

模拟一个简单计算器，输入两个数和一个运算符（加、减、乘、除），进行算术运算，并输出运算结果。程序界面如第14题图所示，在文本框Text1输入第一个数a，在文本框Text2输入第二个数b，在文本框Text3输入运算符ch，在文本框Text4中输出结果。

当输入的运算符不是加、减、乘、除四种运算符时，则输出“运算符不正确”；当进行除法运算时，如果除数为0，提示输出“除数不能为零”。相应的Visual Basic程序如下，在①和②划线处，填入合适的语句或表达式，把程序补充完整。

Private Sub Command1_Click（）

    Dim a As Single, b As Single, ch As String

    a = Val(Text1.Text)

    b = Val(Text2.Text)

             ①      

    If ch = "+" Then

        Text4.Text = Str(a + b)

    ElseIf ch = "*" Then

        Text4.Text = Str(a * b)

    ElseIf ch = "-" Then

        Text4.Text = Str(a - b)

    ElseIf ch = "/" Then

        If  ②  Then Text4.Text = Str(a / b) Else Text4.Text = "除数不能是零"

    Else

                 ③     

    End If

End Sub

【加试题】随机产生一个存有两位整数组a，先排序，然后进行数据重组，使被排序的数据呈现中间小，并逐次向两边增大。小李编写了该VB程序，运行程序时，在列表框List1中显示排序前数据，单击“重组”按钮Command2，在列表框List2中显示“重组”后的数据，程序运行界面如图所示。

实现上述功能的VB程序如下，但加框处代码有错，请改正。

Dim a(0 To 20)As Integer，d(0 To 20)As Integer

Dim n As Integer

Private Sub Command1_Click()

‘产生n个[10，99]之间的随机整数，存储在a(0 To n-1)中，同时显示在List1中，代码略

End Sub  

Private Sub Command2_Click()

    Dim i As Integer  

    n=Val(Text1．Text)   

    For i=0 To n-2    

      For j=i+1 To n-1  

        If     Then            ‘(1)

          temp=a(i)：a(i)=a(j)：a(j)=temp

        End If

     Next j

Next i 

If n Mod 2<>0 Then  d(n＼2)=a(n-1)  ‘个数为奇数，最小值放中间位置

    For i=0 To n＼2—1

    d(i)=a(i*2)

=a(2*i+1)               ‘(2)

Next i

  ‘在列表框List2中输出数组d，代码略

  End Sub

TCP/IP协议分为多少个层次（  ）。

某Windows客户端(IP地址为192.168.1.100)开机后无法上网，其他计算机均能正常上网。经过检查，该机网络协议相关配置均正确。使用ping命令测试127.0.0.1及FTP服务器(IP地址为192.168.1.2)连接状况，结果如图所示。

则产生该故障的可能原因是(    )

word中页码的外观不能用“字体”对话框改变。

使用GldWavee软件录制并编辑某音频文件，部分界面如图所示。下列说法正确的是（    ）