我要投稿 投诉建议

计算机二级VB考试题

时间:2022-07-16 00:11:44 计算机等级 我要投稿

计算机二级VB考试题

  Visual Basic(简称VB)是Microsoft公司开发的一种通用的基于对象的程序设计语言,接下来CN人才网小编为大家带来的是计算机二级VB考试题,欢迎大家阅读借鉴。

计算机二级VB考试题

  【计算机二级VB考试题一】

  1.在窗体上建立一个名称为Command1的命令按钮,一个名称为Text1的文本框,以及四个单选按钮:第一个名称为option1用来设置文本框的字体为"宋体",

  第二个名称为option2用来设置文本框的字体为"黑体",第三个名称为option3用来设置文本框的字体大小为8号,第四个名称为option4用来设置文本框的字体大小为12号。

  程序如下:(程序运行刚开始时,四个单选按钮都没有选中)

  Private Sub Command1_Click( )

  Text1.FontName = Iif(Option1.Value, "宋体", "黑体")

  Text1.FontSize = Iif(Option3.Value, 8, 12)

  End Sub

  当程序运行时,先单击单选按钮option2,然后单击命令按钮command1,则文本框text1的变化效果是(B) (单)

  A.字体设置为宋体

  B.字体设置为黑体

  C.字体大小设置为8号

  D.字体大小设置为12号

  2.在窗体上建立一个名称为Command1的命令按钮,一个名称为Text1的文本框,以及四个单选按钮:第一个名称为option1用来设置文本框的字体为"宋体",

  第二个名称为option2用来设置文本框的字体为"黑体",第三个名称为option3用来设置文本框的字体大小为8号,第四个名称为option4用来设置文本框的字体大小为12号。

  程序如下:(程序运行刚开始时,四个单选按钮都没有选中)

  Private Sub Command1_Click( )

  Text1.FontName = Iif(Option1.Value, "宋体", "黑体")

  Text1.FontSize = Iif(Option3.Value, 8, 12)

  End Sub

  当程序运行时,先单击单选按钮option3,然后单击命令按钮command1,则文本框text1的变化效果是(C) (单)

  A.字体设置为宋体

  B.字体设置为黑体

  C.字体大小设置为8号

  D.字体大小设置为12号

  3.在窗体上建立一个名称为Command1的命令按钮,一个名称为Text1的文本框,以及四个单选按钮:第一个名称为option1用来设置文本框的字体为"宋体",

  第二个名称为option2用来设置文本框的字体为"黑体",第三个名称为option3用来设置文本框的字体大小为8号,第四个名称为option4用来设置文本框的字体大小为12号。

  程序如下:(程序运行刚开始时,四个单选按钮都没有选中)

  Private Sub Command1_Click( )

  Text1.FontName = Iif(Option1.Value, "宋体", "黑体")

  Text1.FontSize = Iif(Option3.Value, 8, 12)

  End Sub

  当程序运行时,先单击单选按钮option1,然后单击命令按钮command1,则文本框text1的变化效果是(A) (单)

  A.字体设置为宋体

  B.字体设置为黑体

  C.字体大小设置为8号

  D.字体大小设置为12号

  4.在窗体上建立一个名称为Command1的命令按钮,一个名称为Text1的文本框,以及四个单选按钮:第一个名称为option1用来设置文本框的字体为"宋体",

  第二个名称为option2用来设置文本框的字体为"黑体",第三个名称为option3用来设置文本框的字体大小为8号,第四个名称为option4用来设置文本框的字体大小为12号。

  程序如下:(程序运行刚开始时,四个单选按钮都没有选中)

  Private Sub Command1_Click( )

  Text1.FontName = Iif(Option1.Value, "宋体", "黑体")

  Text1.FontSize = Iif(Option3.Value, 8, 12)

  End Sub

  当程序运行时,先单击单选按钮option4,然后单击命令按钮command1,则文本框text1的变化效果是(D) (单)

  A.字体设置为宋体

  B.字体设置为黑体

  C.字体大小设置为8号

  D.字体大小设置为12号

  5.在窗体中建立了一个名称为lstBooks的列表框,一个名称为txtItem的文本框,四个名称分别为cmdAdd、cmdDelete、cmdModify、cmdModify_Ok的命令按钮。

  如下程序:

  Sub Form_Load( )

  lstBooks.AddItem "计算机文化基础"

  lstBooks.AddItem "VB程序设计教程"

  lstBooks.AddItem "操作系统"

  End Sub

  Sub cmdAdd_Click( )

  lstBooks.AddItem txtItem

  txtItem = ""

  End Sub

  对该程序说法不正确的是(D) (单)

  A.窗体启动时,在列表框中有三个列表项目,依次为:计算机文化基础、VB程序设计教程、操作系统

  B.单击cmdAdd命令按钮后,把文本框中的信息添加到列表框中

  C.在列表框中添加列表项目的方法为additem方法

  D.以上说法都不正确

  6.在窗体中建立了一个名称为LSTBOOKS的列表框,一个名称为txtItem的文本框,四个名称分别为cmdAdd、cmdDelete、cmdModify、cmdModify_Ok的命令按钮。如下程序的功能是将修改后的项目送回列表框,替换原项目,实现修改:

  Sub cmdModify_Ok_Click( )

  LSTBOOKS.List【Lstbooks.lstindex】 = txtItem

  txtItem = ""

  End Sub

  7.对以下程序说法不正确的是(C) (单)

  Private Sub Combo1_LostFocus( )

  flag = False

  For i = 0 To Combo1.ListCount - 1

  If Combo1.List(i) = Combo1.Text Then

  flag = True

  Exit For

  End If

  Next i

  If Not flag Then

  Combo1.AddItem Combo1.Text

  End If

  End Sub

  A.当焦点离开组合框时组合框的LostFocus事件被触发

  B.添加到组合框的新项目不能永久保存,下次运行该程序中看不到上次保存的项目,利用该事件过程能够将输入的新内容添加到组合框中,下次运行该程序中能够看到上次保存的项目

  C.逻辑变量flag=true时,表示组合框的`项目中有该输入新项目

  D.逻辑变量flag=false时,表示组合框的项目中有该输入新项目

  8.窗体中有两个检查框名称分别为check1和check2,一个命令按钮名称为command1,一个列表框名称为list1,两个单选按钮名称分别为option1和option2。如下程序:

  Private Sub Command1_Click( )

  If Check1.Value = 1 Then

  List1.AddItem "品牌:松下"

  List1.AddItem "数量:3台"

  End If

  If Check2.Value = 1 Then

  If Option1.Value = True Then

  List1.AddItem "操作系统:Windows 2000"

  Else

  List1.AddItem "操作系统:Windows 98"

  End If

  End If

  End Sub

  当窗体启动后,先选中检查框check1,然后单击命令按钮command1,运行效果为(A) (单)

  A.列表框List1中的列表项目分别为:品牌:松下数量:3台

  B.列表框List1中的列表项目分别为:操作系统:Windows 2000 操作系统:Windows 98

  C.没有任何显示

  D.以上都不正确

  *9.窗体中有两个检查框名称分别为check1和check2,一个命令按钮名称为command1,一个列表框名称为list1,两个单选按钮名称分别为option1和option2。如下程序:

  Private Sub Command1_Click( )

  If Check1.Value = 1 Then

  List1.AddItem "品牌:松下"

  List1.AddItem "数量:3台"

  End If

  If Check2.Value = 1 Then

  If Option1.Value = True Then

  List1.AddItem "操作系统:Windows 2000"

  Else

  List1.AddItem "操作系统:Windows 98"

  End If

  End If

  End Sub

  当窗体启动后,先选中检查框check2(其中单选按钮option1被选中),然后单击命令按钮command1,运行效果为(B)(单)

  A.列表框List1中的列表项目分别为:品牌:松下数量:3台

  B.列表框List1中的列表项目分别为:操作系统:Windows 2000 操作系统:Windows 98

  C.列表框List1中的列表项目为:操作系统:Windows 2000

  D.以上都不正确

  53430.窗体中有两个检查框名称分别为check1和check2,一个命令按钮名称为command1,一个列表框名称为list1,两个单选按钮名称分别为option1和option2。如下程序:

  Private Sub Command1_Click( )

  If Check1.Value = 1 Then

  List1.AddItem "品牌:松下"

  List1.AddItem "数量:3台"

  End If

  If Check2.Value = 1 Then

  If Option1.Value = True Then

  List1.AddItem "操作系统:Windows 2000"

  Else

  List1.AddItem "操作系统:Windows 98"

  End If

  End If

  End Sub

  当窗体启动后,先选中检查框check2(其中单选按钮option2被选中),然后单击命令按钮command1,运行效果为(B)(单)

  A.列表框List1中的列表项目分别为:品牌:松下数量:3台

  B.列表框List1中的列表项目为:操作系统:Windows 98

  C.列表框List1中的列表项目为:操作系统:Windows 2000

  11 .传值:形参得到的是实参的值,形参值的改变不会影响实参的值。在定义形参前加关键字Byval。√

  12.以下利用SUB关键字定义的子过程Rate,其调用格式不正确的是(B) (单)

  A.call Rate(12,56)

  B.Rate(12,56)

  C.Rate 12,56

  D.以上A和C正确

  13.如下程序运行后显示结果为(B) (单)

  Public Temp As integer

  Sub Form_Load( )

  Dim Temp As Integer

  Temp=10

  Form1.Temp=20

  Print Form1.Temp;"和";Temp

  End Sub

  A.10和20

  B.20和10

  C.10和10

  D.20和20

  14.以下对静态变量说法不正确的是(D) (单)

  A.定义格式为:Static 变量名 [AS 类型]

  B.在子过程名/函数名前加Static,表示该过程/函数体内局部变量全部都是静态变量

  C.静态变量必须在过程体内定义

  D.静态变量可以在窗体的"通用声明部"定义

  15 .过程在自身定义的内部调用自己本身的结构称为递归。√

  16.如下程序功能是求n的阶层:

  Function fac(n As Integer) As Integer

  If n = 1 Then

  fac = 1

  Else

  fac = n * fac(n - 1)

  End If

  End Function

  Sub Command1_Click( )

  n=val(inputbox("请输入数值"))

  Print "fac(n)=";fac(n)

  End Sub

  以下说法不正确的是(D) (单)

  A.若fac函数中If n = 1 Then fac = 1没有,仅有语句:fac = n * fac(n - 1) ,程序运行将会出错

  B.若输入的n<=0 ,程序运行将会出错

  C.若n=4,则输出结果为:fac(n)=24

  D.以上说法都不正确

  17.利用递归求最大公约数的程序为:

  Public Function gcd(m As Integer, n As Integer) As Integer

  If (m Mod n) = 0 Then

  gcd =【n】

  Else

  gcd = gcd(n, m Mod n)

  End If

  End Function

  Private Sub Form_Click( )

  Print gcd(10, 4)

  End Sub

  18 .以下程序的作用是单击Check1检查框将使得Text1文本框的字体在"加粗"和"常规"之间进行切换。√

  Private Sub Check1_Click( )

  Text1.FontBold = Not Text1.FontBold

  End Sub

  *19 .以下程序的作用是单击Check1检查框将使得Text1文本框的字体在"加粗"和"常规"之间进行切换。√

  Private Sub Check1_Click( )

  Text1.FontItalic = Not Text1.FontItalic

  End Sub

  *20 .以下程序的作用是单击Check1检查框将使得Text1文本框的字体在"加粗"和"常规"之间进行切换。√

  Private Sub Check1_Click( )

  Text1.FontUnderline = Not Text1.FontUnderline

  End Sub

  【计算机二级VB考试题二】

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

  Private Sub Command1_Click( )

  n = Val(Text1.Text)

  If n\2 = 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】。

  【计算机二级VB考试题三】

  1.窗体中有一个名称为txtSpeed的文本框,一个名称为hsbSpeed的滚动条。

  以下程序:

  Private Sub hsbSpeed_Change( )

  txtSpee

  D.Text = hsbSpee

  D.Value

  End Sub

  当单击滚动条hsbSpeed右端的箭头时,以下说法不正确的是(B) (单)

  A.此时会触发change事件

  B.此时不会触发change事件

  C.在文本框中显示了滚动条滑块所在位置的值

  D.此时不会触发scroll事件

  2.利用窗体中的滚动条HScroll1改变窗体的背景色,可以这样编写代码:

  Private Sub HScroll1_Change( )

  R= HScroll1.Value

  form1.BackColor = RGB(R,int(Rnd*256),int(Rnd*256))

  End Sub

  以下说法不正确的是(C) (单)

  A.窗体的背景色是一个随机的颜色

  B.RGB函数取得到的颜色有256*256*256种

  C.表达式int(Rnd*256)取得随机数的范围为0-256之间的整数

  D.表达式int(Rnd*256)取得随机数的范围为0-255之间的整数

  3.窗体中有一个名称为Slider1的可选择性刻度滑块控件,一个名称为text1的文本框,如下程序:

  Private Sub Slider1_change( )

  Text1.FontSize =【Slider1.value】

  End Sub

  当拖动滑块时,以上程序实现用Slider控件设置文本框中的字体大小的功能。

  4.窗体中有一个名称为Slider1的可选择性刻度滑块控件,一个名称为text1的文本框,如下程序:

  Private Sub Slider1_change( )

  Text1.【Fontsize】 = slider1.value

  End Sub

  当拖动滑块时,以上程序实现用Slider控件设置文本框中的字体大小的功能。

  5.窗体中有一个名称为Slider1的可选择性刻度滑块控件,要设置它的如下属性值,可以编写程序(A) (单)

  (1)Slider控件的滑块处于最小位置时值为8

  (2)Slider控件的滑块处于最大位置时值为72

  (3)单击Slider控件两端箭头时,滑块的增量值为2

  (4)单击Slider控件的空白处时,滑块的增量值为8

  A.Slider1.Min = 8:

  Slider1.Max = 72:

  Slider1.SmallChange =2:

  Slider1.LargeChange = 8

  B.Slider1.Min = 2:

  Slider1.Max = 8:

  Slider1.SmallChange = 72:

  Slider1.LargeChange = 8

  C.Slider1.Min = 8:

  Slider1.Max = 72:

  Slider1.SmallChange = 8:

  Slider1.LargeChange = 2

  D.Slider1.Min = 72:

  Slider1.Max = 8:

  Slider1.SmallChange = 2:

  Slider1.LargeChange = 8

  6.在窗体中有一个名称为timer1的时钟控件,三个名称分别为image1、image2 和 image3的图像框,编写如下程序:

  Sub Form_Load( )

  Image1.Picture=LoadPicture(App.Path+"\butterfly.bmp")

  Image2.Picture=LoadPicture(App.Path+"\butterfly2.bmp")

  Image3.Picture=LoadPicture(App.Path+"\butterfly.bmp")

  End Sub

  Sub timer1_Timer( )

  Static PickBmp As Boolean

  Image1.Move Image1.Left + 20, Image1.Top - 5

  If PickBmp = False Then

  Image1.Picture = Image2.Picture

  PickBmp = True

  Else

  Image1.Picture = Image3.Picture

  PickBmp = False

  End If

  End Sub

  以下说法不正确的是(C) (单)

  A.此程序的功能是把image1图像框显示图形在butterfly.bmp和butterfly2.bmp文件之间进行切换

  B.PickBmp变量是逻辑变量,作用是表示图形的状态

  C.App.Path表示绝对路径

  D.要使得timer控件起作用,必须使得它的Enabled属性设置为true,interval属性设置为介于0-64767之间的数值,但不能等于0

  7.在窗体中有一个名称为timer1的时钟控件,三个名称分别为image1、image2 和 image3的图像框,编写如下程序:

  Sub Form_Load( )

  Image1.Picture=LoadPicture(App.Path+"\butterfly.bmp")

  Image2.Picture=LoadPicture(App.Path+"\butterfly2.bmp")

  Image3.Picture=LoadPicture(App.Path+"\butterfly.bmp")

  End Sub

  Sub timer1_Timer( )

  Static PickBmp As Boolean

  Image1.Move Image1.Left + 20, Image1.Top - 5

  If PickBmp = False Then

  Image1.Picture = Image2.Picture

  PickBmp = True

  Else

  Image1.Picture = Image3.Picture

  PickBmp = False

  End If

  End Sub

  以下说法不正确的是(B) (单)

  A.此程序的功能是把image1图像框显示图形在butterfly.bmp和butterfly2.bmp文件之间进行切换

  B.也可以将timer1控件的timer事件改写为change事件

  C.App.Path表示相对路径

  D.要使得timer控件起作用,必须使得它的Enabled属性设置为true,interval属性设置为介于0-64767之间的`数值,但不能等于0

  8 .在ProgressBar进度条控件中,它的Value属性决定该控件被填充多少。√

  9 .UpDown控件通常与伙伴控件"捆绑"在一起使用。√

  10 .Animation控件可以用来显示有声音的AVI视频文件 ×。

  11.对Animation控件所使用的方法描述不正确的是(B) (单)

  A.Open方法用于打开文件

  B.Play方法用于播放动画,格式为: Animation1.play AVI动画文件路径

  C.Stop方法用于停止播放

  D.Close方法用于关闭文件

  12.下面的事件不属于鼠标器事件的是(D) (单)

  A.MouseDown事件

  B.MouseUp事件

  C.MouseMove事件

  D.Move事件

  13.下面的事件不属于键盘事件的是(D) (单)

  A.KeyPress事件

  B.KeyDown事件

  C.KeyUp事件

  D.KeyMove事件

  14.在窗体中有一个名称为command1的命令按钮,一个名称为text1的文本框,一个名称为commondialog1的通用对话框,编写如下程序:

  Sub command1_Click( )

  CommonDialog1.Action = 3

  text1.ForeColor = CommonDialog1.Color

  End Sub

  当单击命令按钮时,对程序的运行说法正确的是(B) (单)

  A.打开一个颜色对话框

  B.打开一个字体对话框

  C.把文本框的背景颜色设置为对话框选择的字体颜色

  D.把文本框的背景颜色设置为对话框中选择的颜色

  15.当单击命令按钮时,对以下程序说法不正确的是(D) (单)

  Sub command1_Click( )

  CommonDialog1.Action = 5

  For i = 1 To CommonDialog1.Copies

  Printer.Print text1.Text

  Next i

  Printer.EndDoc

  End Sub

  A.此文件的功能是打印文本框text1中的内容

  B.语句Printer.EndDoc表示结束文挡打印

  C.打开的打印对话框

  D.以上说法都不正确

  16.当单击命令按钮时,对以下程序说法不正确的是(C) (单)

  Sub command1_Click( )

  CommonDialog1.FileName = "default.txt"

  CommonDialog1.DefaultExt = "Txt"

  CommonDialog1.Action = 2

  End Sub

  A.设置缺省文件名为default.txt

  B.设置缺省扩展名为Txt

  C.显示的是文件"打开"对话框

  D.显示的是"另存为"对话框

  17.在窗体中建立了三个名称分别为EditCut、EditCopy和EditPaste的命令按钮,一个名称为text1的文本框。

  如下程序:

  Private Sub EditCopy_Click( )

  st = Text1.SelText '将选中的内容存放到st变量中

  End Sub

  Private Sub EditCut_Click( )

  st = Text1.SelText '

  Text1.SelText = ""

  End Sub

  Private Sub EditPaste_Click( )

  Text1.Text = Left(Text1, Text1.SelStart) + st + Mid(Text1, Text1.SelStart

  + 1)

  End Sub

  对以上程序说法不正确的是(D) (单)

  A.语句st = Text1.SelText的作用是:将text1文本框中选择的内容存放到st变量中

  B.语句Text1.SelText = "" 的作用是:将text1文本框中选择的内容清除

  C.单击EditCut命令按钮实现了text1文本框中选择的内容清除

  D.单击Editcopy命令按钮实现了text1文本框中所有内容的粘贴

  18.对以下程序说法不正确的是(D) (单)

  Private Sub FileOpen_Click( )

  CommonDialog1.InitDir = "C:\"

  CommonDialog1.Filter = "文本文件 | *.Txt"

  CommonDialog1.ShowOpen

  End Sub

  A.显示"文件"打开对话框

  B.打开的对话框的初始目录为C盘根目录

  C.打开的对话框的文件类型为文本文件

  D.以上说法都不正确

  19.双精度型数据的类型符为(A) (单)

  A.#

  B.*

  C.&

  D.@

  20.整型数据的类型符为(B) (单)

  A.#

  B.%

  C.&

  D.@

【计算机二级VB考试题】相关文章:

计算机二级VB考试题精选及答案07-21

计算机二级VB考试题及答案07-20

计算机等级考试二级VB考试题及答案07-21

计算机二级VB语言程序设计考试题及答案07-21

二级VB语言程序设计考试题及答案07-21

计算机二级VB强化试题及答案07-20

计算机二级VB考点:报表制作07-20

计算机二级VB考试重点知识08-15

计算机二级VB考试练习及答案07-21

计算机二级考试VB选择题试题08-09