四川计算机vb二级考试试题及答案,全国计算机等级考试二级VB语言笔试试题及答案（2）...

(11) 以下能够触发文本框Change事件的操作是

A) 文本框失去焦点 B) 文本框获得焦点

C) 设置文本框的焦点 D) 改变文本框的内容

(12) 在窗体上有一个文本框控件，名称为TxtTime：一个计时器控件，名称为Timerl，要求每一秒钟在文本框中显示一次当前的时间。程序为：

Private Sub Timer1_ ()

TxtTime.text=Time

End Sub

在下划线上应填入的内容是

A) Enabled B) Visible C) Interval D) Timer

(13) 在窗体上画两个单选按钮，名称分别为Option1、Option2，标题分别为“宋体”和“黑体”；一个复选框，名称为Check1,标题为“粗体”；一个文本框，名称为Text1，Text属性为“改变文字字体”。要求程序运行时，“宋体”单选按钮和“粗体”复选框被选中(窗体外观如下图) ，则能够实现上述要求的语句序列是

A) Option1.value=True B) Option1.Value=True

Check1.Value=False Check1.Value=True

C) Option2.Value=False D) Option1.Value=True

Check1.Value=True Check1.Value=1

(14) 为了在按下Esc键时执行某个命令按钮的Click事件过程，需要把该命令按钮的一个属性设置为True，这个属性是

A) Value B) Default C) Cancel D) Enabled

(15) 在窗体上画一个命令按钮，名称为Command1。然后编写如下程序：

Private Sub Command1_Click()

For I=1 To 4

For J=0 To 1

Print Chr$(65+I);

Next J

Print

Next I

End Sub

程序运行后，如果单击命令按钮，则在窗体上显示的内容是

A) BB B) A C) B D) AA

CC BB CC BBB

DDDD CCC DDD CCCC

EEEEE DDDD EEEE DDDDD

(16) 图像框有一个属性，可以自动调整图形的大小，以适应图像框的尺寸，这个属性是

A) Autosize B) Stretch

C) AutoRedraw D) Appearance

(17) 在窗体上画两个名称分别为Text1、Texte2的文本框和一个名称为Command1的命令按钮，然后编写如下事件过程：

Private Sub Command1_Click()

Dim x As Integer,n As Integer

x=1

n=0

Do While x<20

x=x*3

n=n+1

Loop

Text1.Text=Str(x)

Text2.Text=Str(n)

End Sub

程序运行后，单击命令按钮，在两个文本框中显示的值分别是

A) 15和1 B) 27和3 C) 195和3 D) 600和4

(18) 在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写如下事件过程：

Private Sub Command1_Click()

Dim i As Integer,n As Integer

For I=0 To 50

i=i+3

n=n+1

If i>10 Then xit for

Next

Text1.Text=Str(n)

End Sub

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

A) 2 B) 3 D) 4 D) 5

(19) 在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写如下事件过程：

Private Sub Command1_Click()

Dim array1(10,10) As Integer

Dim i,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

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

A) 12 B) 13 C) 14 D) 15

(20) 在窗体上画一个名称为Command1的命令按钮，然后编写如下程序：

Private Sub Command1_Click()

Dim i As Integer,j As Integer

Dim a(10,10)As Integer

For i=1 To 3

For j=1 To 3

a(i,j)=(i-1)*3+j

Print a(i,j);

Next j

Print

Next j

End Sub

程序运行后，单击命令按钮，窗体上显示的是

A) 123 B) 234 C) 147 D) 123

246 345 258 456

369 456 369 789