大发快三

组卷网基于海量中小学试题库建立的在线组卷系统
当前位置:手动组卷 >高中信息技术 >按章节
时间 使用次数
过滤已使用的试题 vip
防超纲选题 vip
  • 1. 为分析数组a中各元素依次变化的情况,进行如下定义:

    变化段:数组中相邻两个元素构成一个变化段。变化段有上升段(a(i)>a(i-1))、下降段(a(i)<a(i-1))和持平段(a(i)=a(i-1))。数组a中的n个元素可构成n-1个依次排列的变化段。

    波峰:从上升段转到下降段形成一个波峰。波峰的起点是峰顶前所有连续上升段中的第1个,终点是峰顶后所有连续下降段中的最后1个。

    对称波峰:上升段与下降段个数相同的波峰称为对称波峰。

    下图为一组数据的变化段及波峰示意图。

    现要求统计数组a各元素依次变化过程中“对称波峰”的个数。小李依据上述描述设计如下VB程序。请回答下列问题:

    1. (1) 数组元素“1,4,3,3,2,6,8,7,9,3,4,7,9,6,3,1”依次变化过程中“对称波峰”的个数为________。
    2. (2) 请在划线处填入合适的代码。

      Const n = 20

      Dim a(1 To n) As Integer

      Private Sub Form_Load()

      '读取数据,并存储到数组a中,代码略

      End Sub

      Private Sub Command1_Click()

      Dim flag As Integer    '存储变化段的状态:1表示升,-1表示降,0表示平

      Dim count As Integer      '存储对称波峰段的个数

      Dim steps As Integer

      Dim i As Integer

      flag = 0: steps = 0: count = 0

      For i = ________ To n

      If a(i) > a(i - 1) Then

      If IsSymPeak(flag, steps) Then count = count + 1

      If flag = 0 Or flag = -1 Then

      ________

      Else

      steps = steps + 1

      End If

      flag = 1

      ElseIf a(i) = a(i - 1) Then

      If IsSymPeak(flag, steps) Then count = count + 1

      steps = 0

      flag = 0

      Else

      steps = steps - 1

      flag = -1

      End If

      Next i

      If IsSymPeak(flag, steps) Then count = count + 1

      Text1.Text = Str(count)

      End Sub

      Function IsSymPeak(flag As Integer, steps As Integer) As Boolean

      If ________ Then

      IsSymPeak = True

      Else

      IsSymPeak = False

      End If

      End Function

  • 1. 在参数传递过程中,使用关键字(  )来修饰形式参数,可以使之按值传递。
    A . ByVal B . ByRef C . Value D . Reference
  • 1. CALL语句后的参数是(________)参数。
  • 1. 给定m个区间和1个数组(有n个元素),现要求根据各区间限定的取值范围,将数组依次分割成m+1个段?具体分割方法如下:

    ?第1段是从数组首个元素开始,元素值都属于第1区间的最长连续元素段,如果首个元素不属于第1区间,则第1段元素个数为0;

    ?第1段分割后的剩余元素,用同样的方法来依次分割第2段?第3段?…?第m段;

    ?第m段分割后的剩余元素分割到第m+1段(剩余段)?

    若第p(1≤p≤m-1)段末尾连续元素的值也同时属于第p+1区间,则这块连续元素称为第p段“重叠块”,该段其余部分称为第p段“非重叠块”?由于不存在第m+1区间,这里特别规定:第m段的全部元素都分割到m段“非重叠块”,第m段“重叠块”的元素个数为0?一个数组分段示例如图?图中数组第1个元素10不属于第1区间[0,5],因此第1段的元素个数为0?10和20属于第2区间,而33不属于第2区间,因此第2段只包含10和20两个元素?第3段末尾连续3个元素的值也同时属于第4区间,因此,第3段“非重叠块”包含33,58,46,第3段“重叠块”包含55,62,69?

    1. (1) 给定2个区间,数组各元素为“12,44,34,45,66,50,45,70”,第1段“重叠块”中的元素个数为3个,第1个区间为[10,50],则第2个区间可能为________(单选,填字母A .[30,80] /B .[9,45] /C .[60,90])?
    2. (2) 小李根据上述描述,设计了一个统计各段“非重叠块”“重叠块”和剩余段中元素个数的算法?算法的 VB 程序如下,请在划线处填入合适的代码?

      Const n = 18: m = 6

      Dim a(1 To n) As Integer

      Dim b(1 To 2 ? m) As Integer

      'b(1)?b(2)为第 1 区间的下限和上限,b(3)?b(4)为第2区间的下限和上限,…

      Dim c(1 To 2 ? m + 1) As Integer

      '数组c用于保存统计结果:

      'c(1)?c(2)分别存储第1段"非重叠块"和"重叠块"的元素个数,

      'c(3)?c(4)分别存储第2段"非重叠块"和"重叠块"的元素个数,…

      'c(2m-1)存储第m段"非重叠块"元素个数,c(2m)存储

      第m段"重叠块"的元素个数(值为0)

      'c(2 m+1)存储剩余段元素个数

      Private Sub Command1_Click()

      Dim i As Integer, p As Integer, L As Integer, LL

      As Integer

      '读取n个数据并保存在数组a中,代码略

      '读取m个区间的下限和上限并保存在数组b中,代码略

      For i = 1 To 2 ? m + 1

       c(i) = 0

      Next i

      i = 1: p = 1

      L = 0: LL = 0

      Do While i <= n And p <= m

       If IsIn(i, p) Then

       If ________ Then

       LL = LL + 1

       Else

       L = L + LL + 1

       LL = 0

       End If

       i = i + 1

       Else

       c(2 ? p - 1) = L

       c(2 ? p) = LL

       L = 0

      ________

       p = p + 1

       End If

      Loop

      If i <= n Then

      ________

      Else

       c(2 ? p - 1) = L

       c(2 ? p) = LL

      End If

      '输出统计结果,代码略

      End Sub

      '函数IsIn用来判断a(i)值是否属于第p区间

      Function IsIn ( i As Integer, p As Integer )

      As Boolean

      If a(i) >= b(2 ? p - 1) And a(i) <= b(2 ? p)

      And p <= m Then

       IsIn = True

      Else

       IsIn = False

      End If

      End Function

  • 1. 下列调用子过程不正确的方法是(  )
    A . CALL FS(5) B . FS 5 C . FS(5)
  • 1. 实际参数和形式参数存在________对应、________对应、________对应。
  • 1. 有如下通用过程和事件过程,运行程序后,单击窗体,程序的运行结果是(  )

    Public function ss(x as integer,y as integer) as integer

     if x>y then ss=x-y else ss=y-x

    END FUNCTION

    PRIVATE SUB FORM()CLICK( )

    DIM A AS INTEGER ,B AS INTEGER

     A=8: B=6

     PRINT SS(A,B)

    END SUB

    A . 2 B . -2 C . 8 8 D . 6 6
  • 1. 对输人的明文(由英文字母或大发快三组成的字符串)进行加密,输出加密后得到的密文。数据加密方法为对明文中的每个字符进行如下处理:

    1)将该字符ASCI码转换成对应8位二进制;

    2)将对应8位二进制数进行按位取反(1变0;0变1);

    3)将产生的8位二进制数循环左移3次;

    4)最后产生的8位二进制数转换成对应的十六进制数。

    例如:明文大写字母“A”通过上述算法加密算法加密后生成的密文是“F5”,在文本框Text1中输入明文,单击“生成密文”按钮Command1,加密后生成的密文显示在文本框Text2中。

    1. (1) 如果输入明文为大写字母“F”,则生成的密文是________。
    2. (2) 请在划线处填入合适的代码。

      Function btoh(m As String)As String     ‘将4位二进制数转换成对应的十六进制数

      Dim s As Integer, i As Integer, str As String

      str ="0123456789ABCDEF": s=0

      For i=1 To 4

      s=s*2+ Val(Mid(m, i, 1))

      Next i

           ①     

      End Function

      Private Sub Command1_Click()

      Dim ans As String, s As String, ch As String, ret As String

      Dim i As Integer, asc1 As Integer, n As Integer

         ②    

      ans=" "

      For i = 1 To Len(s)

      ch =Mid(s, i, 1)      ‘取出第i个字符存入变量ch

      asc1=Asc(ch)

      ret" "

      For m =1 To 8      ‘完成加密步骤1)和步骤2)

      n=(asc1+1)mod 2

      ret =n & ret

          ③ 

      Next m

      ret = Mid(ret, 4, 5)+ Mid(ret, 1, 3)     ‘完成加密步骤3)和步骤4)

      s1=btoh(Mid(ret, 1, 4))

      s2 =btoh(Mid(ret, 5, 4))

      ans =ans & s1 & s2       ‘将第i个加密后的字符添加到变量ans的末尾

      Next i

      Text2.Text = ans

      End Sub

      ①________ ②________ ③________

  • 1. 某ASCII字符加密方法算法如下:

    ⑴计算出该ASCII字符的8位二进制数值

    ⑵将该数值分割为前4位与后4位两个二进制数

    ⑶分别将上述两个4位二进制数转换为十进制数

    ⑷将每个十进制数转换为1个加密字符,对应的“密码表”如下

    值(十进制)

    0

    1

    2

    3

    4

    5

    6

    7

    8

    9

    10

    11

    12

    13

    14

    15

    加密字符

    I

    1

    i

    k

    e

    C

    H

    N

    p

    o

    s

    t

    c

    a

    r

    d

    根据以上加密算法来推断解密算法,下表显示了字符串中两个字符的解密过程:

    小明设计了一个解密程序,功能如下:在文本框Text1中输入密文,单击“解密”按钮Command1,在文本框Text2中输出解密结果。程序运行时界面如下图所示。

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

    1. (1) 请在划线处填入合适的代码。

      Private Sub Command1_Click()

      Dim z As String, a As String, b As String

      Dim i As Integer, y As Integer

      z = Text1.Text

      Text2.Text =" "

      For i= 1 To      ①   

      a=Mid(z, i, 1)

      b= Mid(z, i+1, 1)

           ②   

      Text2.Text = Text2.Text + Chr(y)

      Next i

      End Sub

      Function zn(x As String)As Integer '得出加密字符对应密码表中的十进制数

      Dim m As String, i As Integer

      m ="IlikeCHNpostcard"

      For i =0 To 15

      If      ③      Then

      zn=i

      Exit For

      End If

      Next i

      End Function

      ①________ ②________ ③________

    2. (2) 若已知字符“a”的ASCI1码值为97(十进制),加密字符HN对应的英文字母是________。
  • 1. 数组 a 规模为(m+1)×n,其中 a(1) ~a(m ? n)元素中存储数据,数据中m×n个元素按行序排列成一个大发快三矩阵如图所示?计算每列数据的和,并依次存储在m+1行对应的数组元素中?

    依据该算法思想,设计一个VB程序,实现该功能的代码如下,请回答下列问题?

    1. (1) 根据代码可知,该程序的按钮对象名是________?
    2. (2) 在程序划线处填上合适代码?

      Const m = 6

      Const n = 5

      Dim a(1 To (m + 1) ? n) As Integer

      Private Sub Form_Load()

      '数组初始化,生成 m×n 个两位数的随机整数并赋值给数组a

       Randomize

      For i = 1 To m ? n

       a(i)=    ①    

      Next i

      End Sub

      Private Sub Cod1_Click()

      Dim i As Integer, j As Integer

      For i = 1 To n

          ②    

      Next i

      '将计算后数据,按 m + 1 行,n 列输出到列表框中,代码略

      End Sub

      Function sum(y As Integer) As Integer         '函数功能是计算每列数据和

      sum = 0

      For i =     ③     

       sum = sum + a(i)

      Next i

      End Function

      ①________ ②________ ③________

1 2 3 4 5 下一页 共1000页