试题 百分网手机站

9月计算机二级考试VB复习题

时间:2020-09-09 12:50:18 试题 我要投稿

2017年9月计算机二级考试VB复习题

  2017年计算机二级考试马上就要开始了,你报考了VB科目吗?为了方便考生备考计算机二级考试VB 科目。下面是小编为大家带来的计算机二级考试VB复习题,欢迎阅读。

2017年9月计算机二级考试VB复习题

  复习题一:

  1.在窗体上画一个名称为Text1的文本框,一个名称为Command1的命令按钮,然后编写如下事件过程和通用过程:

  Private Sub Command1_Click( )

  n = Val(Text1.Text)

  If n2 = n/2 Then

  f = f1(n)

  Else

  f = f2(n)

  End If

  Print f; n

  End Sub

  Public Function f1(ByRef x)

  x=x*x

  f1=x+x

  End Function

  Public Function f2(ByVal x)

  x=x*x

  f2=x+x+x

  End Function

  程序运行后,在文本框中输入3,然后单击命令按钮,窗体上显示的是(D)(单)

  A.72 36

  B.108 36

  C.72 6

  D.27 3

  2.在窗体上画一个名称为Command1的命令按钮,然后编写如下事件过程:

  Private Sub Command1_Click( )

  c = "1234"

  For i = 1 To 4

  c1 = Trim(Str( ))

  Print c1

  Next i

  End Sub

  程序运行后,单击命令按钮,要求在窗体上显示如下内容

  1

  12

  123

  1234

  则在下划线处应填入的内容为(B)(单)

  A.Right(c1,i)

  B.Left(c1,i)

  C.Mid(c1,i,1)

  D.Mid(c1,i,i)

  3.在窗体上画一个名称为Command1的命令按钮和一个名称为Text1的文本框,然后编写如下事件过程:

  Private Sub Command1_Click( )

  n = Val(Text1.Text)

  For i = 2 To n

  For j = 2 To sqr(i)

  If i Mod j = 0 Then Exit For

  Next j

  If j >Sqr(i) Then Print i

  Next i

  End Sub

  该事件过程的功能是(C)(单)

  A.输出n以内的奇数

  B.输出n以内的偶数

  C.输出n以内的素数

  D.输出n以内能被j整除的数

  4.在窗体上画一个名称为Command1的命令按钮,然后编写如下通用过程和命令按钮的事件过程:

  Private Function f(m As Integer)

  If m Mod 2 = 0 Then

  f = m

  Else

  f = 1

  End If

  End Function

  Private Sub Command1_Click( )

  Dim i As Integer

  s = 0

  For i = 1 To 5

  s = s + f(i)

  Next

  Print s

  End Sub

  程序运行后,单击命令按钮,在窗体上显示的是(C)(单)

  A.11

  B.10

  C.9

  D.8

  5.在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮,然后编写如下事件过程:

  Private Sub Command1_Click( )

  Dim array1(10, 10) As Integer

  Dim i As Integer, j As Integer

  For i = 1 To 3

  For j = 2 To 4

  array1(i, j) = i + j

  Next j

  Next i

  Text1.Text = array1(2, 3) + array1(3, 4)

  End Sub

  程序运行后,单击命令按钮,在文本框中显示的值是(D)(单)

  A.15

  B.14

  C.13

  D.12

  6.Visual Basic应用程序中标准模块文件的扩展名是【BAS或.BAS】(注意不要写点)。

  7.在菜单编辑器中建立一个菜单,其主菜单项的名称为mnuEdit,Visible属性为False,程序运行后,如果用鼠标右键单击窗体,则弹出与mnuEdit相应的菜单。

  Private Sub Form_ 【mousedown】 (Button As Integer, Shift As Integer, X As Single, Y As Single)

  If Button=2 Then

  popupmenu mnuEdit

  End If

  End Sub

  8.在菜单编辑器中建立一个菜单,其主菜单项的名称为mnuEdit,Visible属性为False,程序运行后,如果用鼠标右键单击窗体,则弹出与mnuEdit相应的菜单。以下是实现上述功能的程序,请填空。

  Private Sub Form mousedown (Button As Integer, Shift As Integer, X As Single, Y As Single)

  If Button=2 Then

  【popupmenu】 mnuEdit

  End If

  9.为了使计时器控件Timer1每隔0.5秒触发一次Timer事件,应将Timer1控件的【Interval】属性设置为500。

  10.为了使计时器控件Timer1每隔0.5秒触发一次Timer事件,应将Timer1控件的Interval属性设置为【500】。

  复习题二:

  1.双击窗体中的对象后,VB将显示的窗口是(C)(单)

  A.工具箱

  B.项目(工程)窗口

  C.代码窗口

  D.属性窗口

  2.下述选项中,VB的程序设计方法是(B)(单)

  A.面向对象、顺序驱动

  B.面向对象、事件驱动

  C.面向过程、事件驱动

  D.面向过程、顺序驱动

  3.在VB中,要将一个窗体装载到内存进行变量初始化等预处理,但没有显示该窗体,应使用的方法或语句是(C)(单)

  A.Show

  B.Unload

  C.Load

  D.Hide

  4.文本框的默认属性是(B)(单)

  A.Caption

  B.Text

  C.Name

  D.Top

  5.标签默认属性是(A)(单)

  A.Caption

  B.Text

  C.Name

  D.Top

  6.执行以下程序段:

  a$="abbacddcba"

  For I=6 To 2 Step -2

  X=Mid(a,I,I)

  Y=Left(a,I)

  z=Right(a,I)

  z=Ucase(X&Y&z)

  Next I

  Print z

  输出结果为(B)(单)

  A.ABA

  B.BBABBA

  C.ABBABA

  D.AABAAB

  7.在窗体上画一个名称为Command1的命令按钮,然后编写如下程序:

  Option Base 1

  Private Sub Command1_Click( )

  Dim a As Variant

  a=Array(1,2,3,4,5)

  Sum=0

  For I=1 To 5

  Sum = sum+a(I)

  Next I

  x=Sum/5

  For I =1 To 5

  If a(I)>x Then Print a(I);

  Next I

  End Sub

  程序运行后,单击命令按钮,在窗体上显示的内容是(D)(单)

  A.1 2

  B.1 2 3

  C.3 4 5

  D.4 5

  8.假定一个工程由一个窗体文件Form1和两个标准模块文件Model1及Model2组成。Model1代码如下:

  Public x As Integer

  Public y As Integer

  Sub S1( )

  x =1

  S2

  End Sub

  Sub S2( )

  y=10

  Form1.Show

  End Sub

  Model2的代码如下:

  Sub Main( )

  S1

  End Sub

  其中Sub Main被设置为启动过程。程序运行后,各模块的执行顺序是(C)(单)

  A.Form1->Model1->Model2

  B.Model1->Model2->Form1

  C.Model2->Model1->Form1

  D.Model2->Form1->Model1

  9.设有如下程序段:

  a$="beijingshanghai"

  b$=Mid(a$,InStr(a$,"g")+1)

  执行上面的程序段后,变量b$的值为【shanghai】

  10.以下程序段的输出结果是【3】

  Num =0

  Do While num<=2

  num = num+1

  Loop

  Print num

  11.在窗体上画一个名称为Command1的命令按钮,然后编写如下事件过程:

  Private Sub Command1_Click( )

  Move 500,500

  End Sub

  程序运行后,单击命令按钮,执行的操作为(A)(单)

  A.命令按钮移动到距窗体左边界、上边界各500的位置

  B.窗体移动到距屏幕左边界、上边界各500的位置

  C.命令按钮向左、上方向各移动500

  D.窗体向左、上方向各移动500

  12.在窗体上有若干控件,其中有一个名称为Text1的文本框。影响Text1的Tab顺序的属性是(D)(单)

  A.TabStop

  B.Enabled

  C.Visible

  D.TabIndex

  13.在窗体上画一个名称为List1的列表框,为了对列表框中的每个项目都能进行处理,应使用的循环语句为(A)(单)

  A.For i=0 To List1.ListCount-1 ......  Next i

  B.For i=0 To ListCount-1 ...... Next i

  C.For i=1 To List1.listCount  ...... Next i

  D.For i=1 To ListCount ...... Next i

  14.以下Case语句中错误的是(C)(单)

  A.Case 0 To 10

  B.Case Is>10

  C.Case Is>10 And Is<50

  D.Case 3,5,Is>10

  15.以下关于图片框控件的说法中,错误的是(D)(单)

  A.可以通过Print方法在图片框中输出文本

  B.清空图片框控件中图形的方法之一是加载一个空图形

  C.图片框控件可以作为容器使用

  D.用图片框控件的Stretch属性可以自动调整图片框中图形的大小

  16.执行语句s=Len(Mid("VisualBasic",1,6))后,s的值是(A)(单)

  A.Visual

  B.Basic

  C.6

  D.11

  17.以下叙述中错误的是(D)(单)

  A.下拉式菜单能用菜单编辑器建立

  B.在多窗体程序中,每个窗体都可以建立自己的菜单系统

  C.能够对菜单项的Click事件编程

  D.如果把一个菜单项的Enabled属性设置为False,则该菜单项不可见

  18.在窗体上画一个命令按钮,其名称为Command1,然后编写如下事件过程:

  Private Sub Command1_Click( )

  a = "12345"

  Print Format$(a, "000.00")

  End Sub

  程序运行后,单击命令按钮,窗体上显示的是(B)(单)

  A.123.45

  B.12345.00

  C.12345

  D.00123.45

  19.以下关于函数过程的叙述中,正确的是(A)(单)

  A.函数过程形参的类型与函数返回值的类型没有关系

  B.在函数过程中,过程的返回值可以有多个

  C.当数组作为函数过程的参数时,既能以传值方式传递,也能以传址方式传递

  D.如果不指明函数过程参数的类型,则该参数不能有数据类型的参数

  20.以下关于变量作用域的叙述中,正确的'是(C)(单)

  A.用dim定义变量是静态变量

  B.静态变量必须在标准模块中声明

  C.用public定义变量是全局变量

  D.Static类型变量的作用域范围是它所在的窗体或模块文件

  21.确定一个控件在窗体上的位置的属性是(C)(单)

  A.Width和Height

  B.Width或Height

  C.Top和Left

  D.Top或Left

  22.在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮,然后编写如下事件过程:

  Private Sub Command1_Click( )

  Text1.Text = "Visual"

  Me.Text1 = "Basic"

  Text1 = "Program"

  End Sub

  程序运行后,如果单击命令按钮,则在文本框中显示的是(C)(单)

  A.Visual

  B.Basic

  C.Program

  D.出错

  23.以下关系表达式中,其值为False的是(A)(单)

  A."ABC">"AbC"

  B."the"<>"they"

  C."VISUAL"=UCase("Visual")

  D."Integer">"Int"

  24.语句Print int(5/4*65) Mod 2的输出结果是(B)(单)

  A.0

  B.1

  C.2

  D.3

  25.在窗体上画一个文本框、一个标签和一个命令按钮,其名称分别为Text1、Label1和Command1,然后编写如下两个事件过程:

  Private Sub Command1_Click( )

  strText = InputBox("请输入")

  Text1.Text = strText

  End Sub

  Private Sub Text1_Change( )

  Label1.Caption = Right(Trim(Text1.Text), 3)

  End Sub

  程序运行后,单击命令按钮,如果在输入对话框中输入abcdef,则在标签中显示的内容是(D)(单)

  A.空

  B.abcdef

  C.abc

  D.def

  26.在窗体上画一个名称为Command1的命令按钮,然后编写如下事件过程:

  Private Sub Command1_Click( )

  x = -5

  If x >0 Then

  y = x ^ 2

  Else

  y = x

  End If

  Print y

  End Sub

  程序运行后,单击命令按钮,窗体上显示的是(A)(单)

  A.-5

  B.25

  C.1

  D.-1

  27.一个工程中含有窗体Form1、Form2和标准模块Model1,如果在Form1中有语句Pubilc X As

  Integer,在Model1中有语句Pubilc Y As Integer,则以下叙述中正确的是(A)(单)

  A.变量X、Y的作用域相同

  B.Y的作用域是Model1

  C.在Form1的任何地方中可以直接使用Y

  D.在Form2中可以直接使用X和Y

  28.在窗体上画一个名称为Drive1的驱动器列表框,一个名称为Dir1的目录列表框。当改变当前驱动器时,目录列表框应该与之同步改变。设置两个控件同步的命令放在一个事件过程中,这个事件过程是(A)(单)

  A.Drive1_Change

  B.Drive1_Click

  C.Dir1_Click

  D.Dir1_KeyPress

  29.在窗体上画一个命令按钮(其NAME属性为Command1),然后编写如下代码:

  Option Base 1

  Private Sub Command1_Click( )

  Dim a

  s = 0

  a = Array(1, 2, 3, 4)

  For I = 4 To 1 Step -1

  s = s + a(I)

  Next I

  Print s

  End Sub

  运行上面的程序,单击命令按钮,其输出结果是(D)(单)

  A.4321

  B.1234

  C.34

  D.10

  30.在窗体上画一个名称为Text1的文本框,编写以下代码:

  Private Sub Text1_KeyPress(KeyAscii As Integer)

  If KeyAscii < 65  Or  KeyAscii> 90 Then

  msgBox "请输入大写字母"

  KeyAscii = 0

  End If

  End Sub

  以下能说明该事件过程正确是(A)(单)

  A.要求文本框只能接收大写字母的输入

  B.要求文本框只能接收小写字母的输入

  C.要求文本框只能接收数字的输入

  D.要求文本框只能接收65到90之间的数值的输入


【2017年9月计算机二级考试VB复习题】相关文章:

2017年9月计算机二级考试VB复习题及答案09-05

2017年9月计算机二级考试VB考试题09-28

2017年9月计算机二级考试VB基础题09-23

2017年9月计算机二级考试VB备考题09-03

2017年9月计算机二级考试VB基础备考题09-25

2017年9月计算机二级考试VB测试题09-19

2015年9月计算机二级VB考试知识点辅导:VB应用程序08-23

2017年9月计算机二级VB考试模拟练习题10-15

2017年9月计算机二级考试VB强化练习题09-25