VB考试题库-二级习题(含答案).doc

VB考试一
1、能够获得一个文本框中被选取文本的内容的属性是______。
  A：SelStart B：SelLength C：SelText D：Text
参考答案：C

2、在窗体上画一个文本框，其名称为Text1，为了在程序运行后隐藏该文本框，应当使用的语句为：______。
  A：Text1.Enabled = False B：Text1.Hide
  C：Text1.Clear D：Text1.Visible = False
  参考答案：D

3、对于语句 If x=1 Then y=1, 下列说法正确的是____。
  A： x=1和y=1 均为赋值语句
  B： x=1和y=1 均为关系表达式
  C： x=1为赋值语句，y=1为关系表达式
  D： x=1为关系表达式，y=1 为赋值语句

参考答案：D

4、以下变量名中，______是不符合Visual Basic的命名规范的。
  A：_mnu_Open_234 B：Abc901 C：price_ D：K
参考答案：A

5、MsgBox 函数返回值的类型是__________。
  A：数值或字符串  B：字符串   C：变体   D：整型数值
参考答案：D

6、VB一共有设计、运行和中断三种模式，要使用调试工具应该______。
  A：进入中断模式  B：进入运行模式
  C：进入设计模式  D：不用进入任何模式
参考答案：A

7、设a=6，则执行
    x=IIF(a>5,-1,0) 后，x的值为______。
A：-1 B：6   C：0   D：5
参考答案：A

8、可以同时删除字符前导和尾部空白的函数是______。
  A：Mid   B：Rtrim   C：Trim   D：Ltrim
参考答案：C

9、以下语句的输出结果是______。
  Print Format$("32548.5","000,000.00")

  A：32,548.5   B：32548.5   C：032,548.50   D：32,548.50
参考答案：C

10、设有如下声明：
Dim X As Integer
如果Sgn(X)的值为-1，则X的值是______。
  A：等于0的整数  B：大于0的整数  C：整数  D：小于0的整数
参考答案：D

11、在窗体上画一个命令按钮，然后编写如下事件过程：
Private Sub Command1_Click()
    For i = 1 To 4
        x = 4
        For j = 1 To 3
            x = 3
            For k = 1 To 2
                x = x + 6
            Next k
        Next j
    Next i
    Print x
End Sub
程序运行后，单击命令按钮，输出结果是______。

参考答案： 15# 15 #15 #15

12、执行下面的程序段后，S的值为______。
    s=5
    For i=2.6 To 4.9 Step 0.6
        s=s+1
    Next i
参考答案：9

13、下列表达式有错误,正确的写法应该是______。
  [(a+b)+c]/80-5÷(d+e)

参考答案：(a+b+c)/80-5/(d+e)#（a+b+c）/80-5/（d+e）

14、表示x 是5的倍数或是9的倍数的逻辑表达式为__________

参考答案：x Mod 5 = 0 Or x Mod 9 = 0#x Mod 9 = 0 Or x Mod 5 = 0

15、以下程序的功能是:从键盘上输入若干个数字，当输入负数时结束输入，统计出若干数字的平均值，输出结果。请填空。

Private Sub Form_click()
    Dim x, y As Single
    Dim z As Integer
    x = InputBox("Enter a score")
    Do while x>=0
        y = y + x
        z = z + 1
        x = InputBox("Enter a score")
    Loop
    If z = 0 Then
        z = 1
    End If
    y = ______
    Print y
End Sub

参考答案：y/z

VB考试二
1、列表框中的列表项的数目可以通过以下哪个属性的值获得______。
  A：ListIndex   B：ListCount   C：Count   D：Index
参考答案：B

2、在窗体上画一个名称为List1的列表框，一个名称为Label1的标签。列表框中显示若干城市的名称。当单击列表框中的某个城市名时，在标签中显示选中城市的名称。下列能正确实现上述功能的程序是______。
  A：Private Sub List1_Click()
       Label1.Caption=List1.Text
     End Sub
  B：Private Sub List1_Click()
       Label1.Name=List1.ListIndex
     End Sub
  C：Private Sub List1_Click()
      Label1.Name=List1.Text
     End Sub
  D：Private Sub List1_Click()
       Label1.Caption=List1.ListIndex
     End Sub
 参考答案：A

3、在列表框中当前被选中的列表项的序号是由下列哪个属性表示______。
  A：Listindex   B：Index   C：List   D：Tabindex
参考答案：A

4、为了清除列表框中的所有内容，应使用的方法是：______。
  A：Clear   B：Remove   C：RemoveItem   D：Cls
参考答案：A

5、在窗体上画一个名称为List1的列表框，为了对列表框中的每个项目都能进行处理，应使用的循环语句为______。
  A：For i=1 To List1.ListCount
       ……
     NEXT
  B：For i=0 To List1.Count-1
       ……
     NEXT
  C：For i=0 To List1.ListCount-1
       ……
     NEXT
  D：For i=1 To List1.Count
       ……
     NEXT

参考答案：C

6、设有如下程序：
Option Base 0
Private Sub Form_Click()
    Dim a
    Dim i As Integer
    a = Array(1, 2, 3, 4, 5, 6, 7, 8, 9)
    For i = 0 To 3
        Print a(5 - i);
    Next
End Sub
程序运行后，单击窗体，则在窗体上显示的是______。
  A： 6  5  4  3   B： 5  4  3  2   C： 4  3  2  1   D： 7  6  5  4
参考答案：A

7、设执行以下程序段时依次输入1、3、5，执行结果为______。
    Dim a(4) As Integer, b(4) As Integer
    For K = 0 To 2
        a(K + 1) = Val(InputBox("请输入数据"))
        b(3 - K) = a(K + 1)
    Next K
    Print b(K)
  A： 0   B： 3   C： 5   D： 1
参考答案：D

8、在窗体上画一个名称为Command1的命令按钮，然后编写如下程序：
Private Sub Command1_Click()
     Dim i As Integer,j As Integer
     Dim a(10,10) As Integer
     For i=1 To 3
         For j=1 To 3
              a(i,j)=(i-1)*3+j
              Print a(i,j);
         Next j
         Print
     Next i
End Sub
程序运行后，单击命令按钮，窗体上显示的是______。

  A：   1 2 3
        4 5 6
        7 8 9
  B：   2 3 4
        3 4 5
        4 5 6
  C：   1 4 7
        2 5 8
        3 6 9
  D：   1 2 3
        2 4 6
        3 6 9

参考答案：A

9、用下面的语句所定义的数组的元素个数是：______。
Dim arr(3 To 5,-2 to 2)
A：24   B：12   C：15   D：20
 参考答案：C

10、下列______语句可以为动态数组分配实际元素个数。
  A：static语句  B：Dim语句  C：public语句  D：ReDim语句
参考答案：D

11、假定程序中有以下语句：
  answer = MsgBox("String1",,"String2","String3",2)
执行该语句后，将显示一个信息框，此时如果单击"确定"按钮，则answer的值为：______。
  A：String3   B：String2   C：String1   D：1 

参考答案：D

12、设有语句
x=InputBox("输入数值","0","示例")
程序运行后，如果从键盘上输入数值10并按回车键，则下列叙述中正确的是______。
  A：0是默认值
  B：变量X的值是字符串"10"
  C：在InputBox对话框标题栏中显示的是"示例"
  D：变量X的值是数值10

参考答案：B

13、以下程序段运行的结果是：______。
    Dim a(-1 To 5) As Boolean
    Dim flag As Boolean
    flag = False
    Dim i As Integer
    Dim j As Integer
    Do Until flag = True
        For i = -1 To 5
            j = j + 1
            If a(i) = False Then
                a(i) = True
                Exit For
            End If
            If i = 5 Then
                flag = True
            End If
        Next
    Loop
    Print j
  A：20 B：7   C：8   D：35 
参考答案：D

14、设a=5，b=6，c=7，d=8，则执行下列语句后，x的值为：______。
x= IIF((a>b) And (c<d),10,20)
  A：300   B：20   C：30   D：10 
参考答案：B

15、要将一个组合框设置为简单组合框（Simple Combo），则应将其Style属性设置为______。
  A：0   B：1   C：3   D：2 
参考答案：B

 VB考试三
1、设组合框Combo1中有3个项目，则以下能删除最后一项的语句是______。
  A：Combo1.RemoveItem Combo1.Listcount
  B：Combo1.RemoveItem 2
  C：Combo1.RemoveItem 3
  D：Combo1.RemoveItem Text
 参考答案：B   题分：6

2、在窗体上画一个命令按钮，其名称为Command1，然后编写如下程序：
Function Func(ByVal x As Integer, y As Integer)
    y = x * y
    If y > 0 Then
        Func = x
    Else
        Func = y
    End If
End Function

Private Sub Command1_Click()
    Dim a As Integer, b As Integer
    a = 3
    b = 4
    c = Func(a, b)
    Print "a="; a
    Print "b="; b
Print "c="; c
End Sub
程序运行后，单击命令按钮，其输出结果为：______。
  A：a= 3
   b= 4
   c= 12
  B：a= 13
   b= 12
   c= 12
  C：a= 3
   b= 4
   c= 3
  D：a= 3
   b= 12
   c= 3
 参考答案：D   题分：6

3、单击命令按钮时，下列程序代码的执行结果为______。
Public Sub Procl(n As Integer, ByVal m As Integer)

    n = n Mod 10
    m = m / 10
End Sub

Private Sub Command1_Click()
    Dim x As Integer, y As Integer
    x = 12: y = 34
    Call Procl(x, y)
    Print x; y
End Sub
  A： 12  3   B： 2   3   C： 12  34   D： 2  34 
参考答案：D  题分：6

4、以下关于函数过程的叙述中，正确的是______。
  A：在函数过程中，过程的返回值可以有多个
  B：函数过程形参的类型与函数返回值的类型没有关系
  C：当数组作为函数过程的参数时，既能以传值方式传递，也能以传址方式传递
  D：如果不指明函数过程参数的类型，则该参数没有数据类型

参考答案：B  题分：6

5、以下说法错误的是______。
  A：函数过程可以带参数  B：子过程没有返回值
  C：函数过程没有返回值  D：子过程可以带参数 
参考答案：C   题分：6

6、在窗体上画一个命令按钮（名称为Command1），然后编写如下事件过程：
Private Sub Command1_Click()
    Dim b As Integer
    b = b + 1
End Sub
运行程序，三次单击命令按钮后，变量b的值是：______。
  A：2   B：1   C：0   D：3
 参考答案：B  题分：6

7、假定有以下函数过程：
Function Fun(S As String) As String
    Dim s1 As String
    For i = 1 To Len(S)
        s1=UCase(Mid(S,i,1))+s1
    Next i
    Fun = s1
End Function
在窗体上画一个命令按钮，然后编写如下事件过程：

Private Sub Command1_Click()
    Dim Str1 As String,Str2 As String
    Str1 = InputBox("请输入一个字符串")
    Str2= Fun(Str1)
    Print Str2
End Sub
程序运行后，单击命令按钮，如果在输入对话框中输入字符串"abcdefg"则单击"确定"按钮后在窗体上的输出结果为______。
  A：GFEDCBA
  B：ABCEDFG
  C：gfedcba
  D：abcdefg
 参考答案：A  题分：6

8、Sub过程与Function过程最根本的区别是______。
  A：两种过程参数的传递方式不同
  B：Function过程可以有参数，Sub过程不可以
  C：Sub过程可以使用Call语句或直接使用过程名调用，而Function过程不可以
  D：Sub过程的过程名不能返回值，而Function过程能通过过程名返回值
 参考答案：D  题分：6

9、在代码中定义了一个子过程：
 Sub P(a,b)
       ...
 End Sub
下面______调用该过程的格式是正确的。
  A：Call P
  B：Call P 10,20
  C：P(10,20)
  D：Call P(10,20)
 参考答案：D  题分：6

10、在窗体上画一个名称为Command1的命令按钮，然后编写如下程序：
Private Sub Command1_Click()
    Static X As Integer
    Static Y As Integer
    Cls
    Y = 1
    Y = Y + 5
    X = 5 + X
    Print X, Y
End Sub
程序运行时，三次单击命令按钮Command1后，窗体上显示的结果为______。
  A： 15     15

  B： 15     6
  C： 15     16
  D： 5      6
参考答案：B  题分：6

11、设有以下循环结构
Do
    循环体
Loop While<条件>
则以下叙述中错误的是______。
  A：循环体中可以使用Exit Do语句
  B："条件"可以是关系表达式、逻辑表达式或常数
  C：若"条件"是一个为0的常数，则一次也不执行循环体
  D：如果"条件"总是为True，则不停地执行循环体
参考答案：C   题分：6

12、在窗体上画一个名称为Command1的命令按钮，然后编写如下通用过程和命令按钮的事件过程：
Private Function fun(ByVal m As Integer)
    If m Mod 2 = 0 Then
        fun = 2
    Else
        fun = 1
    End If
End Function
Private Sub Command1_Click()
    Dim i As Integer, s As Integer
    s = 0
    For i = 1 To 5
        s = s + fun(i)
    Next
    Print s
End Sub
程序运行后，单击命令按钮，在窗体上显示是______。
  A：7   B：6   C：8   D：9 
参考答案：A   题分：6

VB考试四
1、某人编写了如下程序，用来求10个整数（整数从键盘输入）中的最大值：
Private Sub Command1_Click()
    Dim a(10) As Integer,max As Integer
    For k=1 To 10
        a(k)=InputBox("输入一个整数")
    Next k

    max=0
    For k=1 To 10
        If a(k)>max Then
            max=a(k)
        End If
    Next k
    Print max
End Sub
运行程序时发现，当输入10个正数时，可以得到正确结果，但输入10个负数时结果是错误的，程序需要修改。下面的修改中可以得到正确运行结果的是______。
  A：把max=a(k)改为a(k)=max
  B：把If a(k)>max Then改为If a(k)<max Then
  C：把第2个循环语句For k=1 To 10改为For k=2 To 10
  D：把max=0改为max=a(10)

参考答案：D

2、设有语句：Open "d:\Test.txt" For Output As #1，以下叙述中错误的是______。
  A：执行该语句后，就可以通过Print#语句向文件Test.txt中写入信息
  B：用该语句建立的文件的文件号为1
  C：该语句打开d盘根目录下一个已存在的文件Test.txt，之后就可以从文件中读取信息
  D：若d盘根目录下无Test.txt文件，则该语句创建此文件
参考答案：C

3、工程中有2个窗体，名称分别为Form1、Form2，Form1为启动窗体，该窗体上有命令按钮Command1。要求程序运行后单击该命令按钮时显示Form2，则按钮Click事件过程应该是______。
  A：Private Sub Command1_Click()
       Form2.Load
   End Sub
  B：Private Sub Command1_Click()
       Form2.Visible
   End Sub
  C：Private Sub Command1_Click()
       Load  Form2
   End Sub
  D：Private Sub Command1_Click()
       Form2.Show
   End Sub

参考答案：D

4、在窗体上画一个名为Command1的命令按钮，然后编写如下代码：
Option Base 1

Private Sub Command1_Click()
    Dim a
    a=Array(1,2,3,4)
    j=1
    For i=4 To 1 Step -1
        s=s+a(i)*j
        j=j*10
    Next i
    Print s
End Sub
运行上面的程序，其输出结果是______。
  A：12
  B：1234
  C：34
  D：4321

参考答案：B

5、设在窗体中有一个名称为List1的列表框，其中有若干个项目（如图）。要求选中某一项后单击Command1按钮，就删除选中的项，则正确的事件过程是______。

  A：Private Sub Command1_Click()
       List1.Clear List1.ListIndex
   End Sub
  B：Private Sub Command1_Click()
       List1.Clear
   End Sub
  C：Private Sub Command1_Click()
       List1.RemoveItemList1.ListIndex
   End Sub
  D：Private Sub Command1_Click()
       List1.RemoveItem
   End Sub
参考答案：C

6、窗体上有一个名称为Frame1的框架（如图），若要把框架上显示的"Frame1"改为汉字"框架"，下面正确的语句是______。

  A：Frame1.Caption="框架"
  B：Frame1.Name="框架"
  C：Frame1.Text="框架"
  D：Frame1.Value="框架"

参考答案：A

7、设窗体上有一个图片框Picture1，要在程序运行期间装入当前文件夹下的图形文件File1.jpg，能实现此功能的语句是______。
  A：Call LoadPicture("File1.jpg")
  B：Picture1.Picture=LoadPicture("File1.jpg")
  C：LoadPicture("File1.jpg")
  D：Picture1.Picture="File1.jpg"

参考答案：B

8、在窗体上画一个名称为Timer1的计时器控件，要求每隔0.5秒发生一次计时器事件，则以下正确的属性设置语句是______。
  A：Timer1.Interval=50
  B：Timer1.Interval=5
  C：Timer1.Interval=0.5
  D：Timer1.Interval=500

参考答案：D

9、在窗体上画一个通用对话框，其名称为CommonDialog1，然后画一个命令按钮，并编写如下事件过程：
Private Sub Command1_Click()
    CommonDialog1.Filter="All Files(*.*)|*.*|Text Files" &_
                      "(*.txt)|*.txt|Executable Files(*.exe)|*.exe"
    CommonDialog1.FilterIndex=3
    CommonDialog1.ShowOpen
    MsgBox CommonDialog1.FileName
End Sub
程序运行后，单击命令按钮，将显示一个"打开"对话框，此时在"文件类型"框中显示的是______。
  A：Text Files(*.txt)
  B：AllFiles(*.*)
  C：Executable Files(*.exe)
  D：不确定
参考答案：C

10、在窗体上画一个名称为Command1命令按钮，然后编写如下事件过程：
Private Sub Command1_Click()
  c = "ABCD"
    For n = 1 To 4
        Print ______
    Next
End Sub
程序运行后，单击命令按钮，要求在窗体上显示如下内容

D
CD
BCD
ABCD
则在______处填入的内容为。
  A：Left(c,n)   B：Right(c,n)   C：Mid(c,n,n)   D：Mid(c,n,1) 
参考答案：B

11、在窗体上画一个名称为Label1、标题为"VisualBasic考试"的标签，两个名称分别为Command1和Command2、标题分别为"开始"和"停止"的命令按钮，然后画一个名称为Timer1的计时器控件，并把其Interval属性设置为500，如图所示。
编写如下程序：
Private Sub Form_Load()
    Timer1.Enabled=False
End Sub
Private Sub Command1_Click()
    Timer1.Enabled=True
End Sub
Private Sub Command2_Click()
    Timer1.Enabled = False
End Sub
Private Sub Timer1_Timer()
    If Label1.Left<Width Then
         Label1.Left = Label1.Left + 20
    Else
         Label1.Left=0
    End If
End Sub
程序运行后，单击"开始"按钮，标签在窗体中移动。
对于这个程序，以下叙述中错误的是______。
  A：单击"停止"按钮后再单击"开始"按钮，标签从停止的位置继续移动
  B：标签的移动方向为自右向左
  C：当标签全部移出窗体后，将从窗体的另一端出现并重新移动
  D：标签按指定的时间时隔移动

参考答案：B

12、执行下列语句
strInput=InputBox("请输入字符串","字符串对话框","字符串")
将显示输入对话框。此时如果直接单击"确定"按钮，则变量strInput的内容是______。
  A："请输入字符串"   B：空字符串  C："字符串"   D："字符串对话框" 
参考答案：C

13、假定在图片框Picture1中装入了一个图形，为了清除该图形（不删除图片框），应采用的正确方法是______。

  A：执行语句Picture1.Picture =""
  B：执行语句Picture1.Picture = LoadPicture ("")
  C：选择图片框，然后按Del键
  D：选择图片框，在属性窗口中选择Picture属性条，然后按回车键
 参考答案：B

14、在窗体上画一个命令按钮和一个文本框，名称分别为Command1和Text1，然后编写如下程序：
Private Sub Command1_Click()
a=InputBox("请输入日期（1～31）")
    t="旅游景点：" _
      & IIf ( a > 0 And a <= 10,"长城","") _
      & IIf ( a >10 And a <= 20,"故宫","") _
      & IIf ( a > 20 And a <= 31,"颐和园","")
    Text1.Text = t
End Sub                
程序运行后，如果从键盘上输入16，则在文本框显示的内容是______。
  A：旅游景点：长城颐和园  B：旅游景点：长城故宫
  C：旅游景点：颐和园  D： 旅游景点：故宫
参考答案：D

15、若变量a未事先定义而直接使用（例如：a=0），则变量a的类型是______。
  A：Variant   B：String   C：Boolean   D：Integer 
参考答案：A

16、有如下程序：：
Private Sub Form_Click()
    Dim i As Integer, sum As Integer
    sum = 0
    For i = 2 To 10
            If i Mod 2 <> 0 And i Mod 3 = 0 Then
                sum = sum + i
End If
    Next i
    Print sum
End Sub
程序运行后，单击窗体，输出结果为______。
  A：30   B：12   C：24   D：18 
参考答案：B

17、以下能从字符串"VisualBasic"中直接取出子字符串"Basic"的函数是______。
  A：String
  B：Mid

  C：Left
  D：Instr

参考答案：B

18、设窗体上有一个列表框控件List1，含有若干列表项。以下能表示当前被选中的列表项内容的是______。
  A：List1.ListIndex
  B：List1.List
  C：List1.Text
  D：List1.Index

参考答案：C

19、设a=5,b=10，则执行c = Int((b - a) * Rnd + a) + 1后，c值的范围为______。
  A：6~10
  B：6~9
  C：5~10
  D：5~9

参考答案：A

20、在窗体上有1个名为Cd1的通用对话框，为了在运行程序时打开保存文件对话框，则在程序中应使用的语句是______。
  A：Cd1.Action=2
  B：Cd1.ShowSave=True
  C：Cd1.Action=1
  D：Cd1.ShowSave=0

参考答案：A

21、下面可以正确定义2个整型变量和1个字符串变量的语句是______。
  A：Dim a As Integer,b,c As String
  B：Dim a%,b$,c As String
  C：Dim n,m As Integer,s As String
  D：Dim x%,y As Integer,z As String

参考答案：D

22、在窗体上画一个命令按钮和一个文本框，其名称分别为Command1和Text1，把文本框的Text属性设置为空白，然后编写如下事件过程：
Private Sub Command1_Click()
    a = InputBox("Enter an integer")
    b = InputBox("Enter an integer")

    Text1.Text = b + a
End Sub
程序运行后，单击命令按钮，如果在输入对话框中分别输入8和10，则文本框中显示的内容是______。
  A：出错
  B：18
  C：810
  D：108

参考答案：D

23、在窗体上画一个名称为CommonDialog1的通用对话框，一个名称为Command1的命令按钮。然后编写如下事件过程：
Private Sub Command1_Click()
    CommonDialog1.FileName =""
    CommonDialog1.Filter="All file|*.*|(*.Doc)|*.Doc|(*.Txt)|*.Txt"
    CommonDialog1.FilterIndex=2
    CommonDialog1.DialogTitle="VBTest"
    CommonDialog1.Action=1
End Sub
对于这个程序，以下叙述中错误的是______。