相关试卷

下列说法正确的是（  ）

①主题目录搜索就是将收集并整理好的网站信息以分类目录的形式链接好，供用户检索

②百度、腾讯均是搜索引擎，其类型和原理均完全相同，所以搜索结果也差不多

③用搜索引擎搜索信息，本质上是检索搜索引擎网站的索引数据库

④在百度中输入关键词“开学第一课”，百度将实时搜索整个因特网中所有的网页

下列描述不正确的是（  ）

校验的方式如下，求校验值g1、g2、g3：

g1 = p1 Xor b1 Xor b2 Xor b4

g2 = p2 Xor b1 Xor b3 Xor b4

g3 = p3 Xor b2 Xor b3 Xor b4

其中Xor 为异或运算，规则是：0 Xor 0 =0，0 Xor 1 =1，1 Xor 0 =1，1 Xor 1 =0，

p1 Xor b1 是将p1、b1 转换为二进制后按位进行异或运算，如7 Xor 12 的结果为11。

⑴若计算得到的校验值g1、g2、g3均为0，说明校验正确，数据无错误。例如：若7位编码为1101001，计算校验值g1、g2、g3值均为0，验证正确。

⑵若校验值g1、g2、g3不全为0，说明数据有错，出错位置为g3g2g1（二进制数表示），纠错的方法是对错误的位进行取反，即“0”变“1”，“1”变“0”。例如：若7位编码为1111001，计算校验值g1=1、g2=1、g3=0，不全为0，说明数据有错，错误位置在011（二进制数）位，即第3位，原位置上“1”应为“0”，正确编码为1101001。

小明为此编写了VB程序，程序运行时，在文本框Text1中输入编码值，单击“校验”

按钮Command1后，在文本框Text2中输出运行结果，如图所示。

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

实现上述功能的VB程序如下：

程序功能:在文本框Text1中输入课程号,单击“查询”按钮Command1，在列表框List1中显示选修本课程的学生信息｡如果没人选修该课程显示“该课程当前无人报名”｡

按此要求将程序补充完整｡

Private Sub command1_click()

Dim xh(1 to 40),xm(1 to 40) As String ’学号和姓名的数组

Dim i, num as integer

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

 Dim strSQL As String

conn.ConnectionString=“Provider=Microsoft.ACE.OLEDB.12.0;DataSource=”+App.Path+“ \      ①           ”                 ‘打开到数据库的链接

conn.Open

strSQL=”select xh,xm from     ②     where    ‘课程&(Text1.Text)&’”

‘设置查询的SQL 语句

Set rs.ActiveConnection =conn   ‘设置rs的ActiveConnection属性,指定与其关联的数据库链接

 rs.Open strSQL    ‘打开记录集，将从表student中读取的结果集保存到记录集rs中

 List1.Clear

 num=0

 Do while not rs.EOF

 num=num+1

  xh(num)= rs.Fields(“xh”)

  xm(num)= rs.Fields(“xm”)

  rs.MoveNext

 loop

 rs.Close

 conn.close

 set rs=nothing

 set conn=nothing

 For i=1 to num

list1.additem xh(i)+””+xm(i) Next i

    if num=0 then list1.additem(“该课程当前无人报名”)

End Sub

i=l:j=9:n=0

key=Val(Text1,Text)

Do While i<=j

  n=n+1

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

  If key=d(m) Then Exit Do            ‘Exit Do表示退出循环

  If key<d(m) Then j=m-1 Else i=m+1

Loop

数组元素d(1)到d(9)的值依次为“7,12,18,25,39,58,61,72,86”｡若该程序段运行结束后，n的值为2，则key的值是（  ）

For i=1 To 6

 k=i

 For j=i+1 To 7

   If a(j)<a(k) Then k=j

 Next j

 If i<>k Then

   t=a(i):a(i)= a(k):a(k)= t

 End If

Next i

在排序过程中,经过某一遍排序“加工”后，数组元素a(1)到a(7)的数据依次为“10,41,75,12,63,11,85”｡则下一遍排序“加工”后数组元素a(1)到a(7)的数据依次是（  ）

n = 0 : i = 1 : j = 8

Key = Val(Text1.Text)

Do While i <= j

    m = (i + j) \ 2

        If Key = d(m) Then  Exit Do   'Exit Do表示退出循环

If Key > d(m) Then

j = m - 1 : n = n - 1

Else

i = m + 1 : n = n + 1

        End If

Loop

Label1.Caption = Str(n)

当输入不同的Key值，运行该程序段后，在标签Label1中显示的不同结果共有（  ）

m = Val(Text1.Text)

Do While m <> 0

x = m Mod 8

m = m \ 8

a(x) = a(x) + 1

If a(x) = 1 Then n = n + 1

Loop

数组a各元素的初始值都为0，在文本框Text1中输入“529”，执行程序后，变量n的值为（  ）

Dim a(1 to 1000)as long, n as integer

n=Val(Text1.Text)

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

For i=3 to n

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

Next i

Label1.Caption=“斐波那契的第”&Str(n)&“是”&a(n)

该程序用到了下列哪一个算法（  ）

Private Sub Command1_Click()

Dim x As Integer,y As Integer,z As Integer

x=Val(Text1.Text)     ‘第1个正整数

y=Val(Text2.Text)     ‘第2个正整数

                   ‘调用函数gcd

Text3.Text=Str(z)

End Sub

Function gcd(a As Integer, b As Integer) As Integer

 Do While a <> b

If a>b Then a=a-b Else b=b-a

Loop

gcd=b

End Function

方框中的正确语句是（  ）