当前位置:手动组卷 >高中信息技术 >按章节
时间 使用次数
过滤已使用的试题
防超纲选题
  • 1. 有一数组 a 具有 n(1≤n≤100)个元素,分别为 a(1)到 a(n),数组元素都为正整数且有可能相等。对于每一个数组元素,如果它后面存在大于或等于该元素的数,则这两个数可以组成一对。每个元素和自己也可以组成一对。例如:{3,7,2,4,8},可以组成 11 对,分别为(数字为下标):(1,1),(1, 2), (1, 4), (1, 5), (2, 2),(2, 5), (3, 3), (3, 4), (3, 5), (4, 4), (4, 5), (5, 5)。其中(1, 5)是距离最远的一对,距离为4。小明编写了一个VB程序,用于计算n个数组元素的最远距离。具体功能如下:运行程序时,在列表框List1中显示n个数组元素,单击命令按钮Command1,在文本框中显示这n个数组元素的最远距离。运行效果如图所示。

    实现上述功能的 VB 代码如下。

    Const n = 5 'n=5为例

    Dim a(1 To n) As Integer           '用于记录每个数组元素的值

    Dim b(1 To n) As Integer         '用于记录每个数组元素在原数组中的下标

    Private Sub Form_Load()

    '读取一组正整数,存储在数组 a 中

    '将每个数组元素在原数组中的下标存储在数组 b 中

    '将数组元素显示在列表框 List1中

    '代码略

    End Sub

    Function Getans() As Integer

    Dim left As Integer, ans As Integer

    left = 10000: ans = 0

    For i = 1 To n

    If b(i) < left Then left = b(i)

    If b(i) - left > ans Then ans = b(i) - left

    Next i

    Getans = ans

    End Function

    Private Sub Command1_Click()

    Dim i As Integer, j As Integer, t As Integer

    For i = 1 To n

    For j = n To i + 1 Step -1

    If  Then

    t = a(j): a(j) = a(j - 1): a(j - 1) = t

    t = b(j): b(j) = b(j - 1): b(j - 1) = t

    End If

    Next j

    Next i

    Text1.Text =        

    End Sub

    1. (1) 代码“Private Sub Command1_Click( )”中表示加载在Command1上的事件是________。(单选,填字母:A .Click/B ._Click/C .Command1_Click)
    2. (2) 程序代码中,IF 语句后加框处代码有误,请改正________。
    3. (3) 程序代码中,将 Text1.Text 赋值语句补充完整________。
    4. (4) 如程序运行界面所示数据,单击命令按钮 Command1后,数组元素 b(2)的值为________。
  • 1. 编程找出100到1000之间满足以下条件的整数:该数和该数平方合并后的数字串中不存在重复的数字。例如209,其平方数为43681,209和43681合并后的数字串“20943681”中无重复数字,209就是符合条件的数。实现上述功能的VB代码如下,但加框处代码有错,请改正。

    Private Sub Command1_Click()

    Dim x As Integer, y As Long, st As String

    For x=100 To 1000

    y=x^2

    st=Str(x) & Str(y)

    If     Then    ‘①________

    List1. AddItem"x: "& Str(x) & "x2: "&Str(y) &"x&y: "& Str(st)

    End If

    Next x

    End Sub

    Private Function judge(s As String) As Boolean

    Dim a(1 To 100) As String

    For i=1 To Len(s)

    a(i) =Mid(s, i, 1)

    Next i

    For i =1 To Len(s)-1

    For j=i+ 1 To Len(s)

    If  Then Exit Function.      ‘②________

    Next j

    Next i

    Judge=True

    End Function

  • 1. 编写一个将十进制数转换为二进制的VB自定义函数,完成划线处应填的语句。

    Function dTOb(x As Integer)As String

    Dim s As String

    Do While x>0

    If x Mod 2=0 Then s="0"Else s="1"

    ________

    x=x\2

    Loop

    End Function

  • 1. 在VB中,判断一个整数的各位上的数字是否重复的自定义函数,请在程序划线处填入合适的代码。

    Private Function judge(t As Long)As Boolean

    Dim s As String, s1 As String, i As Integer, j As Integer

    s=Str(t): judge =False

    For i =1 To Len(s)-1

    s1 = Mid(s, i, 1)

    For j =i+ 1 To Len(s)

    If    ①   Then Exit Function

    Next j

    Next i

        ② 

    End Function

    ①________ ②________ 

  • 1. 下列VB程序用于求2个正整数(均小于10000)的最大公约数,请在程序划线处填入合适的代码。

    Private Sub Command1_Click()

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

    x=Val(Text1.Text): y=Val(Text2.Text)

       ①  

    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

        ② 

    End Function

    ①________ ②________ 

  • 1. 在VB中,将一个二进制数转化成十六进制的自定义函数代码如下,请在程序划线处填入合适的代码。

    Function btoh(s As String)As String

    Dim i As Integer, s1 As String, t As Integer

    Dim str As String, j As Integer

    str="0123456789ABCDEF"

    i= Len(s)

    Do While i >=1

    If    ①     Then

    s1= Mid(s, i-3, 4)

    Else

    s1 = Mid(s; 1, i)

    End If

    t=0

    For j =1 To Len(s1)

    t=    ②  

    Next j

    btoh = Mid(str, t + 1, 1)+btoh

    i=i-4

    Loop

    End Function

    ①________ ②________ 

  • 1. 学校把各同学选考组合放在一个数据库中,小明编写了一个VB程序,用于查询每个同学的选考组合,程序界面如图所示,在文本框Text1中输入学号,单击“开始查询”按钮(Command1),就开始查找该学号的信息,如果找到对应的信息,就显示所属学生的姓名和选考组合;如果没有找到,则显示“找不到”。学校共有n名学生,数组a、b分别保存了本次考试所有学生的学号和姓名信息。数据库数据按学号从小到大排列,第i个学生的学号保存在a(i),对应的姓名保存在b(i),c(i)保存该学生的选考组合。

    程序如下,在程序划线处填入适当的代码,把程序补充完整。

    Dim n As Integer, a(1000)As String,

    Dim b(1000)As String, c(1000)As String

    Private Sub Command1_Click()

    Dim x As String, pos As Integer

    Dim conn As New ADODB. Connection,rs As New

    ADODB. Recordset

    conn. ConnectionString="provider =Microsoft. AC

    A.OLEDB.12.0; data source="&.App. Path&"\students.accdb"

    conn. Open

    Set rs. ActiveConnection = conn

    rs. Open"学生信息"

    n=0             '考生数初始化

    Do While Not rs. EOF

    n =n+1

    a(n)=rs. Fields(0)

    b(n)=rs. Fields(1)

    c(n)=rs. Fields(2)

         ①   

    Loop

    x = Text1.Text

    If pos >0 Then

         ②   

    Text2.Text=b(pos)

    Text3.Text =c(pos)

    Else

    Text2.Text="找不到"

    End If

    End Sub

    Function Search(Key As String)As Integer

    Dim i As Integer, j As Integer, m As Integer

    i=1: j=n: Search =0

    Do While i <=j m=Fix((i+j)/2)

    If Key =a(m)Then

         ③   

    Exit Function

    Else lf a(m)> Key Then

    j=m-1

    Else

    i=m+1

    End If

    Loop

    End Function

    ①________ ②________ ③________

  • 1. 如果一个数从左往右读和从右往左读都一样,那么这个数就叫做“回文数”。如果一个数的十进制和二进制表示都是回文数,则把这个数叫做“双重回文数”。例如,十制数33是回文数,将其转化为二进制表示(10001)也是回文数,所以33是双重回文数。编写程序用于查找1000以内的双重回文数。
    1. (1) 根据题目描述,十进制数99是否是“双重回文数”________(填:是/不是)。
    2. (2) 实现上述功能的VB程序如下,请在划线处填入合适代码。

      Private Sub Command1_Click()

      Dim n As Integer, d As String, b As String

      For i = 1 To 999

      n=i

      d=CStr(n)            'CStr函数的功能是数值转换为字符串

           ①    

      If ishws(d)Aind ishws(b)Then

      List1.AddItem Str(i)+" "+b

      End If

      Next i

      End Sub

      Function dtob(k As Integer)As String '进制转换

      Do While k >0

      dtob =CStr(k Mod 2)+ dtob

      k=k\2

      Loop

      End Function

      Function ishws(x As String)As Boolean

      ishws = True

      For j=1 To Len(x) \2

      If     ②    Then

      ishws = False

      Exit For

      End If

      Next j

      End Function

      ①________②________

  • 1. 小明编写了一个寻找奇妙整数的VB程序。此整数的平方与立方正好用了0~9的10个数且每个数只用一次,例如69的平方为4761,69的立方为:328509,4761和328509刚好用了0~9的10数,并且没有重复使用。现需从1至1000寻找这样的奇妙整数并在列表框List1中显示。实现上述功能的VB程序段如下:

    Private Sub.Command1_Click()

    Dim n As Integer, k As Integer, f As Boolean    ‘判断字符k是否重复出现

    Dim s1 As String, s2 As String, i As Integer, j As Integer

    For n= 1 To 1000

    For i =0 To 9

    a(i)= True

    Next i

    f = True

    s1=CStr(n^2)

    s2 =CStr(n^3)    ‘Cstr()函数的作用是将数字型变量改变成字符型变量

    For j = 1 To Len(s1)

         ①   

    If a(k)= True Then

    a(k)=False

    Else

    f = False

    Exit For

    End If

    Next j

    If     ②      Then

    j=0

    Do While j<=9

    If a(i)=True Then f=False: Exit Do

    j=j+1

    Loop

    If f = True Then List1. AddItem Str(n)

    End If

    Next n

    End Sub

    Function Judge(s As String) As Boolean

    Dim i As Integer, k As Integer

    i=1: Judge True

    Do While     ③   

    k =Val(Mid(s, i, 1))

    If a(k)=True Then

    a(k)=False

    Else

    Judge = False

    Exit Do

    End If

    i=i+1

    Loop

    End Function

    请在程序划线处填入合适的代码。

    ①________ ②________ ③________

  • 1. 用26个互不重复的ASCI字符作为密码本,根据英文字母在字母表中位置,替换为密码本该位置的字符。现编写将英文字母加密的VB程序,在文本框Text1中输入明文,单击“加密”按钮Command1,在文本框Text2、Text3中输出产生的密码本和密文。程序运行界面如下图所示。

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

    Private Sub Command1_Click()

    Dim i As Integer, mw As String, jm As String

    mw= Text1.Text: Text2.Text = my(26)

    For i =1 To Len(mw)

    c= Mid(mw, i, 1)

    If c>="A" And c<="Z" Or c>="a"

    And c<="2"Then

           ‘①

    jm =jm+ Mid(Text2.Text, t, 1)

    Else

    jm=jm +c

    End If

    Next i

    Text3.Text =jm

    End Sub

    Function my(n As Integer)As String

    Dim s As String, i As Integer, x As Integer

    s ="ABCDEFGHIKLMNOPQRSTUVWXYZabc-defghijklmnopqrstuvwxyz0123456789"

    i=1

    Do While i <=n

    t=63-i

    x =Int(Rnd()*t+1)

           ‘②

    s = Mid(s, 1, x-1)+ Mid(s, x+1, t-x)

    i=i+1

    Loop

    End Function

    ①________ ②________ 

上一页 1 2 3 4 5 下一页 共1000页