招生考试网
学历| 高考 美术高考 考研 自考 成考 专升本 中考 会考 外语| 四六级 职称英语 商务英语 公共英语 日语能力 翻译资格 JTEST
资格| 公务员 报关员 银行从业 司法 导游 教师资格 报关 财会| 会计证 经济师 会计职称 注册会计 税务师 资产评估 审计师
工程| 一建 二建 造价师 造价员 咨询师 监理师 安全师 医学| 卫生资格 执业医师 执业药师 执业护士 | 教案 论文 文档
IT类| 计算机等级 计算机软考 职称计算机 高校计算机 推荐-国家公务员 事业单位招聘 军校国防生 自主招生 艺术特长生 招飞
 3773考试网 - 计算机等级考试 - 考试辅导 - 计算机二级 - 正文

2014计算机二级VB考试试题及答案2-1

来源:2exam.com 2014-7-30 18:18:14

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中显示的是当前驱动器、当前目录下的文件

  • 上一个文章:
  • 网站版权与免责声明
    ①由于各方面情况的不断调整与变化,本网所提供的相关信息请以权威部门公布的正式信息为准.
    ②本网转载的文/图等稿件出于非商业性目的,如转载稿涉及版权及个人隐私等问题,请在两周内邮件fjksw@163.com联系.


    | 关于我们 | 联系我们 | 版权申明 | 网站导航 |
    琼ICP备12003406号