2015年6月份增考

江苏省计算机等级考试二级VB真题

本套题目详细的视频讲解见:http://school.njwww.net/kecheng/detail_962307

第1部分  公共基础知识(共10题)

1.下列关于信息技术的叙述中,错误的是________

A.信息技术的发展历史不足百年,它是随着计算机技术的发展而逐渐发展起来的

B.信息技术已经成为当今社会最有活力,最有效益的生产力之一

C.现代信息技术的主要特点之一是以电(光)信号来传输信息

D.目前常讲的新一代信息技术包括大数据、云计算、移动互联网等技术

2.下列关于目前台式PC机的叙述中，错误的是______

A.芯片组是PC机各组成部分相互连接和通信的枢纽,它实现了PC机总线的功能

B.大多数CPU芯片中集成有高速缓冲存储器(cache),其工作速度很快(与CPU速度相差不大)

C.目前PCI-E总线是PC机最为重要的I/O总线之一,大多数的独立显卡使用该总线接口

D.USB3.0与USB2.0的接口连接器相同,区别在于前者的数据传输速度是后者的一倍以上

3.下列关于I//O设备的叙述中,错误的是______

A.目前键盘和鼠标等设备可以通过无线方式与PC主机相连接

B.光学分辨率是扫描仪的主要性能指标之一,目前普通家用扫描仪的分辨率已达几千dpi

C.传统显示器的宽度与高度之比一般是1:1,现在主流的液晶显示器的宽高之比是4:3

D.目前用于打印数码照片的打印机主要是喷墨打印机

4.下列关于PC机外存储器,错误的是__________

A.移动硬盘通常采用USB接口或eSata接口,可随时插上或拔下(即支持"热插拔")

B.存储卡是闪存做成的一种固态存储器,所有存储卡的形状,大小,接口都是相同的

C.固态硬盘(简称SSD)是基于半导体存储器芯片的一种存储设备,其接口规范、功能及使用方法与普通硬盘几乎相同

D.DVD盘片有单面单层、单面双层、双面单层和双面双层等品种,单面单层的120mm DVD存储容器约4.7GB

5.从操作系统发布的时间来看,下列四个Windows操作系统中最早发布的是________

 A.Windows Xp

 B.Windows 2000

 C.Windows Vista

 D.Windows 7

6.下面给出的四个语言中,不属于程序设计语言的是______

 A.Lisp语言

 B.Matlab语言

 C.Html语言

 D.Ada语言

7.下列关于数字通信技术的叙述中,错误的是________

 A.光纤具有通信容量大,传输距离远,不会受高压线和雷电电磁感应影响

 B.移动通信技术的发展已经历的四代,目前我国所有的智能手机均使用3G

 C.我国自行研发的北斗卫星导航定位系统日趋成熟,并已逐渐投入商业运行

 D.路由器的主要作用是将两个或多个计算机网络进行互连

8.Internet使用TCP/IP协议实现了全球范围的计算机网络的互连,连接在

Internet上的每一台主机都有一个IP地址,目前使用的IPv4标准,其IP地址为_____

 A.32位

 B.64位

 C.96位

 D.128位

9.在下列的汉字标准中,不属于汉字编码标准的是______

 A.GB2312-80

 B.GB8566-88

 C.GBK

 D.GB18030-2000

10.由于采用的压缩编码方式及数据组织方式的不同,声音文件形成了

多种不同的文件格式,在下列四种文件中,不属于数字声音文件的是_____

A.APE

B.WMA

C.MP3

D.TIF

程序设计理论部分

1.单选题

若要正确执行显示Text1.Text=a & vbCrlf & b语句,其中a和b为字符串变量,则须设置Text1的_________属性

A.Text

B.ScrollBars

C.MultiLine

D.Alignment

2.以下叙述中错误的是_______

A.一个工程可以包括多种类型的文件

B.Visual Basic应用程序既能以编译方式执行,也能以解释方式执行

C.程序运行后,在内存中只能驻留一个窗体

D.对于事件驱动的应用程序,每次运行时的执行顺序可以不一样

3.下列数据类型与其类型说明符对应错误的是__________

A.Integer  %   

B.Double   #

C.String   $

D.Currentcy  &

4.假定建立了1个命令按钮控件数组Command1包含多个元素,则以下说法中错误的是_______

A.数组中每个命令按钮的名称(Name)属性均为Command1

B.数组中每个命令按钮的大小可以不同

C.数组中每个命令按钮都是用同一个事件过程

D.使用名称Command1即可直接访问数组中每个命令按钮

5.下列关于过程参数的叙述中，错误的是__________

A.实参和形参的个数、顺序、类型必须一致

B.Sub过程调用可以使用Call或直接使用过程名

C.实参和形参的名称可以不同

D.形参可以是变量或数组

6.填空题

执行下面的程序后,单击Command1按钮后,在弹出的输入框中输入"255"后,窗体上显示的第一行内容是_________,第二行内容是_______

Option Explicit

Private Sub Command1_Click()

  Dim x As Long, y As Long, s As Long

  x=InputBox("请输入一个正整数","程序",255)

  Do

      x=x+h(x)

      print x

  Loop Until h(x)=x

End Sub

Private Function h(Byval x As Long) As Long

   Do

      h=h*10+(x Mod 10)

      x=x\10

   Loop Until x=0

End Function

7.填空题

执行下面的程序后,单击Command1按钮后,在弹出的输入框中输入"3"后,在窗体上输出的数组元素a(1)的值是______,a(4)的值是_______

Option Explicit

Private Sub Command1_Click()

  Dim a(10) as Integer,i as Integer,j as Integer

  For i=1 to 10

    a(i)=i

  Next i

  j=InputBox("输入","程序",3)

  For i=1 to j

    Call jd(a)

  next i

  For i=1 to 10

     Print a(i);

  Next i

End Sub

Private Sub yd(a() As Integer)

  Dim i as Integer, t As Integer

  t=a(UBound(a))

  For i=Ubound(a) To 2 Step -1

     a(i)=a(i-1)

  Next i

  a(1)=t

End Sub

8.执行下面程序,单击命令按钮Command1后,窗体显示的第一行内容是_____,第三行内容是______,最后一行内容是_________

Option Explicit

Private Sub Command1_Click()

  Dim a As Integer,b As Integer, c As Integer

  a=6

  b=18

  c=24

  Print  L(L(a,b),c)

  Print a

End Sub

Private Function L(x As Integer, y As Integer) As Integer

   Dim i As Integer

   Do

      i=i+1

      x=x*i

   Loop  Until  x Mod y=0

   L=x

   Print i

End Function   

9.执行下面程序,在文本框Text1中输入"54,30"后单击Command1按钮,则在窗体上显示的第一行内容是______,第二行内容是______,最后一行内容是_________

Option Explicit

Option Base 1

Private Sub Command1_Click()

   Dim s As String, i As Integer

   Dim a as Integer, b As Integer

   s=Text1.Text

   i=Instr(s,",")

   a=Val(Left(s,i-1))

   b=Val(Mid(s,i+1))

   Print a

   Print G(a,b)

End Sub

Private Function G(Byval x As Integer,Byval y As Integer)

  if y=0 then

     G=x

  else

    G=G(y, x Mod y)

    Print x

  End if

End Function

操作题

1.程序填空题

【要求】

打开T盘中"P1.vbp"文件,按参考界面形式编辑窗体界面,完善程序后,直接保存所有文件

【题目】本程序的功能是:输入任意两个英文单词,将其分别按字典序列排序,并将二者不重复的字符合并,要求合并后的字符仍保持字典序。

Option Explicit

Option Base 1

Private Sub Command1_Click()

    Dim s1 As String, s2 As String, s As String

    s1 = Text1.Text

    s2 = Text2.Text

    Sort s1

    Sort s2

    Text3.Text = __________

End Sub

Private Sub Sort(s As String)  '排序

    Dim i As Integer, j As Integer, a() As String * 1, t As String * 1

    ReDim a(Len(s))

    For i = 1 To Len(s)

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

    Next i

    For i = 1 To UBound(a) - 1

        For j = i + 1 To UBound(a)

            If __________ Then

                t = a(i)

                a(i) = a(j)

                a(j) = t

            End If

        Next j

    Next i

    '按字典序重新排列单词中的字母，并删除其中的重复字母

    s = a(1)

    For i = 1 To UBound(a) - 1

        If a(i + 1) <> a(i) Then s = s & a(i + 1)

    Next i

End Sub

Private Function Combine(s1 As String, s2 As String) As String

    Dim i As Integer, j As Integer

    i = 1

    j = 1

    Do

        If Mid(s1, i, 1) > Mid(s2, j, 1) Then

            __________

            j = j + 1

        ElseIf Mid(s1, i, 1) < Mid(s2, j, 1) Then

            Combine = Combine & Mid(s1, i, 1)

            i = i + 1

        Else

            Combine = Combine & Mid(s2, j, 1)

            i = i + 1

            j = j + 1

        End If

    Loop Until __________

    If i > Len(s1) Then

        Combine = Combine & Mid(s2, j)

    Else

        Combine = Combine & Mid(s1, i)

    End If

End Function

2.改错题

【要求】

(1)打开T盘中"P2.vbp"文件,按参考界面形式编辑窗体界面,改正程序中的错误后,直接保存所有文件

(2)改错时,不得增加或删除语句,但可适当调整语句位置

【题目】本程序的功能是查找满足下列条件的整数:该数的三次方是四位数,四次方是六位数,且该数三次方得到的四位数和四次方得到的六位数的各位数字正好是0--9不重复的10个数字组成

Option Explicit

Private Sub Command1_Click()

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

    For x = 10 To 20

        y = x ^ 3

        z = x ^ 4

        If Len(z) = 6 Then

            If BT(y + z) Then

                Text1.Text = Text1.Text & x

            End If

        End If

    Next x

End Sub

Private Function BT(s As String) As Boolean

    Dim a(0 To 9) As Boolean

    Dim i As Integer, j As Integer

    For i = 1 To Len(s)

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

        If a(j) = False Then

            a(j) = True

        Else

            Exit For

        End If

    Next i

    BT = True

End Function

3.(编程题)

【要求】

(1)打开T盘中"p3.vbp"文件,根据题目要求编写和调试程序后,直接保存所有文件

(2)程序代码书写呈锯齿形,否则适当扣分

【题目】编写程序,找出给定范围内含有三个不同素数因子的整数,例如204包含

2,3,17三个不同的素数因子

【编程要求】

1)程序参考界面如图所示,编程时不得增加或减少界面对象或改变对象的种类,

窗体及界面元素大小适中,且均可见;

2)运行程序,在"a:"文本框中输入数据范围的起始值,在"b:"文本框中输入数据范围

的终止值后,单击"查找"按钮,若数据范围内存在符合要求的整数,则将它们按附图

参考界面所示的格式输出到列表框中,否则在列表框中输出"指定范围内无符合要求的整数"

的信息;按"清除"按钮,将所有的文本框与列表框清空,焦点置于"a:"文本框上,按"结束"

按钮,结束程序运行;

3)程序中至少应定义一个通用过程,用于判断一个数是否为素数

本套题目详细的视频讲解见:http://school.njwww.net/kecheng/detail_962307

完善程序答案

(1) Combine(s1,s2)

(2)a(i)>a(j)或Asc(a(i))

(3)Combine=Combine  & Mid(s2,j,1)

(4)i>Len(s1) Or j>Len(s2)

编程题答案

Option Explicit

Private Sub Command1_Click()

  Dim a As Integer, b As Integer

  Dim i As Integer, j As Integer

  Dim js As Integer, st As String

a = Val(Text1.Text)

b = Val(Text2.Text)

 For i = a To b

   js = 0

   st = ""

   For j = 2 To i - 1

       If i Mod j = 0 And Prime(j) Then

         js = js + 1

         st = st & j & ","

       End If

    Next j

    If js = 3 Then List1.AddItem i & ":" & Left(st, Len(st) - 1)

  Next i

End Sub

Private Function Prime(x As Integer) As Boolean

  Dim i As Integer

   For i = 2 To Sqr(x)

      If x Mod i = 0 Then Exit Function

   Next i

   Prime = True

End Function

Private Sub Command2_Click()

  Text1.Text = ""

  Text2.Text = ""

  List1.Clear

  Text1.SetFocus

End Sub

Private Sub Command3_Click()

  End

End Sub