考试首页 | 考试用书 | 培训课程 | 模拟考场 | 考试论坛  
全国  |             |          |          |          |          |         
  当前位置:计算机等级 > 二级考试 > Visual Basic > VB模拟试题 > 文章内容
  

计算机二级VB语言程序设计考试题及答案(2)

中华IT学院   【 】  [ 2017年5月23日 ]

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

  1.设有如下程序段:

  x=2

  For c=1 To 4 Step 2

  x=x+c

  Next c

  运行以上程序后,x的值是(A)(单)

  A.6

  B.7

  C.8

  D.9

  2.以下叙述中错误的是(A)(单)

  A.在KeyPress事件过程中不能识别键盘键的按下与释放

  B.在KeyPress事件过程中不能识别回车键

  C.在KeyDown和KeyUp事件过程中,从键盘输入的字母"A"和字母"a"对应的KeyCode视作相同的字母

  D.在KeyDown和KeyUp事件过程中,从大键盘上输入的"1"和从右侧小键盘上输入的"1"被视作不同的字符

  3.执行如下两条语句,窗体上显示的是(C)(单)

  A=9.8596

  Print Format(a,"000.00")

  A.0,009.86

  B.9.86

  C.009.86

  D.0,009.86

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

  Private Sub Command1_Click( )

  CommonDialog1.FileName =""

  CommonDialog1.Filter="All file|*.*|(*.Doc)|*.Doc|(*.Txt)|*.Txt"

  CommonDialog1.FilterIndex=1

  CommonDialog1.DialogTitle="VBTest"

  CommonDialog1.Action=1

  End Sub

  对于这个程序,以下叙述中错误的是(D)(单)

  A.该对话框被设置为"打开"对话框

  B.在该对话框中指定的文件名为空

  C.该对话框的标题为VBTest

  D.在该对话框中指定的默认文件类型为文本文件(*.Txt)

  5.设一个工程由两个窗体组成,其名称分别为Form1和Form2,在Form1上有一个名称为Command1的命令按钮。窗体Form1的程序代码如下:

  Private Sub Command1_Click( )

  Dim a As Integer

  a=10

  Call g(Form2,a)

  End Sub

  Private Sub g(f As Form,x As Integer)

  y=Iif(x>10,100,-100)

  f.Show

  f.Caption=y

  End Sub

  运行以上程序,正确的结果是(B)(单)

  A.Form1的Caption属性值为100

  B.Form2的Caption属性值为-100

  C.Form1的Caption属性值为-100

  D.Form2的Caption属性值为100

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

  Private Sub Command1_Click( )

  Dim x As Integer

  Static y As Integer

  x=10

  y=5

  Call f1(x,y)

  Print x,y

  End Sub

  Private Sub f1(ByRef x1 As Integer, y1 As Integer)

  x1=x1+2

  y1=y1+2

  End Sub

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

  A.10 5

  B.12 5

  C.10 7

  D.12 7

  7.Option Base 1

  Private Sub Command1_Click( )

  Dim a(10) As Integer

  Dim n As Integer

  n=3

  If n<10 Then

  Call GetArray(a,n)

  End If

  End Sub

  Private Sub GetArray(b( ) As Integer,n As Integer)

  Dim c(10) As Integer

  j=0

  For t=1 To n

  b(t)=Rnd*100

  If b(t)/2=b(t)\2 Then

  j=j+1

  c(j)=b(t)

  End If

  Next t

  Print j

  End Sub

  以下叙述中错误的是(C)(单)

  A.数组b中的数范围为0-100

  B.c数组下标的下界从1开始

  C.GetArray过程的参数n是按值传送的

  D.语句If b(t)/2=b(t)\2 Then 是判断数组b中元素的值是否为整数

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

  Option Base 1

  Private Sub Command1_Click( )

  Dim a

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

  For c=1 To Ubound(a)

  a(c) = a(c)+c-1

  Next c

  Print a(3)

  End Sub

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

  A.4

  B.5

  C.6

  D.7

  9.阅读程序:

  Option Base 1

  Private Sub Form_Click( )

  Dim arr

  Dim Sum%

  Sum = 0

  arr = Array(1, 3, 5, 7, 9)

  For t = 1 To 5

  Sum = Sum + arr(t)

  Next t

  Print Sum

  End Sub

  程序运行后,单击窗体,输入结果为(B)(单)

  A.5

  B.9

  C.25

  D.15

  10.在窗体上画一个名称为File1的文件列表框,并编写如下程序:

  Private Sub File1_DblClick( )

  x=Shell(File1.FileName,1)

  End Sub

  以下关于该程序的叙述中,错误的是(A)(单)

  A.x没有实际作用,因此可以将该语句写为:Call Shell(File1,FileName,1)

  B.双击文件列表框中的文件,将触发该事件过程

  C.要执行的文件的名字通过File1.FileName指定

  D.File1中显示的是当前驱动器、当前目录下的文件

首页 1 2 3 尾页
分享到:
本文纠错】【告诉好友】【打印此文】【返回顶部
将考试网添加到收藏夹 | 每次上网自动访问考试网 | 复制本页地址,传给QQ/MSN上的好友 | 申请链接 | 意见留言 TOP
关于本站  网站声明  广告服务  联系方式  站内导航  考试论坛
Copyright © 2006-2017 中华考试网(Examw.com) All Rights Reserved  营业执照