4月二级VB笔试试题_二级vb真题笔试

4月二级VB笔试试题由刀豆文库小编整理，希望给你工作、学习、生活带来方便，猜你可能喜欢“二级vb真题笔试”。

无忧考网

www.daodoc.command1的命令按钮，然后编写一个事件过程。程序运行以后，如果在文本框中输入一个字符，则把命令按钮的标题设置为“计算机等级考试”。以下能实现上述操作的事件过程是：

A)Private Sub Text1_Change()

Command1.Caption=”计算机等级考试”

End Sub

B)Private Sub Command1_Click()

Caption=”计算机等级考试”

End Sub

C)Private Sub Form1_Click()

Text1.Caption=”计算机等级考试”

End Sub

D)Private Sub Command1_Click()

Text1.Text=”计算机等级考试”

End Sub

(12)设a=5,b=4,c=3,d=2，下列表达式的值是 3>2*b Or a=c And bc Or c>d

A)1

B)True

C)False

D)2

(13)设a=”MicrosoftVisualBasic”, 则以下使变量b的值为”VisualBasic”的语句是

A)b=Left(a,10)

B)b=Mid(a,10)

C)b=Right(a,10)

D)b=Mid(a,11,10)

(14)假定有如下的窗体事件过程：

Private Sub Form_Click()

a$ = “Microsoft Visual Basic”

b$ = Right(a$, 5)

c = Mid(a$, 1, 9)

MsgBox a$, 34, b$, c$, 5

End Sub

程序运行后单击窗体，则在弹出的信息框中的标题栏中显示的信息是：

A)Microsoft Visual

B)Microsoft

C)Basic

D)5

无忧考网

www.daodoc.command1)右移200，应使用的语句是

A)Command1.Move-200

B)Command1.Move 200

C)Command1.Left= Command1.Left+200

D)Command1.Left= Command1.Left-200

(17)在窗体上画一个文本框，然后编写如下事件过程：

Private Sub Form_Click()

x = InputBox(“请输入一个整数”)

Print x + Text1.Text

End Sub

程序运行时，在文本框中输入456，然后单击窗体，在输入对话框中输入123，单击“确定”按钮后，在窗体上显示的内容是：

A)12

3B)456

C)579

D)123456

（18）在窗体上画一个文本框和一个计时器控件，名称分别为Text1和Timer1,在属性窗口中把计时器的Interval属性设置为1000，Enabled属性设置为False,程序运行后，如果单击命令按钮，则每隔一秒钟在文本框中显示一次当前的时间。以下是实现上述操作的程序：

Private Sub Command1_Click()

Timer1._________

End Sub Private Sub Timer1_Timer()Text1.Text = Time End Sub 在______处应填入的内容是

A)Enabled=True

B)Enabled=False

C)Visible=True

D)Visible=False

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

A)选择图片框，然后按Del键

B)执行语句Picture1.Picture=LoadPicture(“”)

C)执行语句Picture1.Picture=””

D)选择图片框，在属性窗口中选择Picture属性，然后按回车键

（20）在窗体上画一个List1的列表框，一个名称为Label1的标签，列表框中显示若干个项目，当单击列表框中的某个项目时，在标签中显示被选中的项目的名称，下列能正确实现上述操作的程序是

A)Private Sub List1_Click()

Label1.Caption = List1.ListIndex

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.Text

End Sub

（21）在窗体上画一个命令按钮，名称为Command1，然后编写如下事件过程：

Private Sub Command1_Click()

无忧考网

www.daodoc.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,1)

D)Mid(c,n,n)

(23)执行以下程序段

Dim x As Integer, i As Integer

x=0

For i = 20 To 1 Step-2

x = x + i 5

Next I

后，x的值为

A)16

B)17

C)18

D)19

（24）在Visual Basic工程中，可以作为启动对象的程序是

A)任何窗体或标准模块

B)任何窗体或过程

C)Sub Main过程或其他任何模块

D)Sub Main过程或任何窗体

无忧考网

www.daodoc.command1的命令按钮数组，则以下说法中错误的是

A)数组中每个命令按钮的名称(名称属性)均为Command1 B)数组中每个命令按钮的标题(Caption属性)都一样 C)数组中所有命令按钮可以使用同一个时间过程

D)用名称Command1(下标)可以访问数组中的每个命令按钮

(26)把窗体的KeyPreview属性设置为True,然后编写如下事件过程:

Private Sub Form_KeyPre(KeyAscii As Integer)

Dim ch As String

ch = Chr(KeyAscii)

KeyAscii = Asc(UCase(ch))

Print Chr(KeyAscii + 2)

End Sub

程序运行后,按键盘上的”A”键,则在窗体上显示的内容是

A)A

B)B

C)C

D)D

(27)在窗体上画一个命令按钮和一个文本框,名称分别为Command1和Text1,然后编写如下程序:

Private Sub Command1_Click()

a = InputBox(“请输入日期(1~31)”)

t = “旅游景点:” _

& IIf(a > 0 And a

& IIf(a > 10 And a

& IIf(a > 20 And a

Text1.Text = t

End Sub

程序运行后,如果从键盘输入16,则在文本框中显示的内容是:

A)旅游景点：长城故宫

B)旅游景点：长城颐和园

C)旅游景点：颐和园

D)旅游景点：故宫

(28)在窗体上画一个名称为Label1的标签,然后编写如下事件过程:

Private Sub Form_Click()

Dim arr(10, 10)As Integer

Dim i As Integer, j As Integer

For i = 2 To 4

For j = 2 To 4

arr(i, j)= i * j

Next j

Next i

Label1.Caption = Str(arr(2, 2)+ arr(3, 3))

End Sub

程序运行后,单击窗体,在标签中显示的内容是

无忧考网

www.daodoc.comamnd1的命令按钮,然后编写如下通用过程和命令按钮的事件过程:

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)6

B)7

C)8

D)9

(30)阅读程序:

Option Base 1

Dim arr()As Integer

Private Sub Form_Click()

Dim i As Integer, j As Integer

ReDim arr(3, 2)

For i = 1 To 3

For j = 1 To 2

arr(i, j)= i * 2 + j

Next j

Next i

ReDim Preserve arr(3, 4)

For j = 3 To 4

arr(3, j)= j + 9

Next j

Print arr(3, 2)+ arr(3, 4)

无忧考网

www.daodoc.command1的命令按钮,然后编写如下程序:

Option Base 1

Private Sub Command1_Click()

Dim c As Integer, d As Integer

d = 0

c = 6

x = Array(2, 4, 6, 8, 10, 12)

For i = 1 To 6

If x(i)> c Then

d = d + x(i)

c = x(i)

Else

d = d1

Loop While n > 0

Print s

End Sub

以上程序的功能是【10】,程序运行后,单击窗体,输出结果为【11】

(10)设有如下程序:

Option Base 1

Private Sub Command1_Click()

Dim arr1

Dim Min As Integer, i As Integer

arr1 = Array(12, 435, 76,-24, 78, 54, 866, 43)

Min = 【12】

For i = 2 To 8

If arr1(i)

Next i

Print “最小值是:”;Min

End Sub

以上程序的功能是用Array函数建立一个含有8个元素的数组,然后查找并输出该数组中的最小值,请填空

(11)在名称为Form1的窗体上画一个文本框,其名称为Text1,在属性窗口中把文本框的MultiLine属性设置为True,然后编写如下事件过程:

Private Sub Form_Click()

Open “d:testsmtext1.txt” For Input As #1

Do While Not 【14】

Line Input #1, aspect$

whole$ = whole$ + aspect$ + Chr(13)+ Chr(10)

Loop

Text1.Text = whole$

Close #1

Open “d:testsmtext2.txt” For Output As #1

Print #1, 【15】

Close #1

End Sub

上述程序的功能是,把磁盘文件smtext1.txt 的内容读到内存并在文本框中显示出来,然后

无忧考网

www.51test.net 把该文本框中的内容存入磁盘文件smtext2.txt.请填空

以下答案仅供参考

选择题：

1---5DBDCA

6---10 CBDDC

11--15 ABBCD

16--20 CDABD

21--25 ABCDB

26--30 CDBBA

31--35 CDDDA

填空题：

【1】19

【2】 对象

【3】

程序调试

【4】 关系

【5】 算法

【6】12345.68

【7】VB程序设计

【8】 VB Programming

【9】 10

【10】 求1-8的和

【11】36

【12】 arr1(1)

【13】min=arr1(i)

【14】 EOF(1)

【15】text1.text(或whole$)12