2010计算机等级考试二级VB预测题(3)

Sub P(a,b)

...

End Sub

下面______调用该过程的格式是正确的。

A：Call P

B：Call P 10,20

C：P(10,20)

D：Call P(10,20)

参考答案：D 题分：6

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

Private Sub Command1_Click()

Static X As Integer

Static Y As Integer

Cls

Y = 1

Y = Y + 5

X = 5 + X

Print X, Y

End Sub

程序运行时，三次单击命令按钮Command1后，窗体上显示的结果为______。

A：15 15

B：15 6

C：15 16

D：5 6

参考答案：B 题分：6

11、设有以下循环结构

Do

循环体

Loop While<条件>

则以下叙述中错误的是______。

A：循环体中可以使用Exit Do语句

B："条件"可以是关系表达式、逻辑表达式或常数

C：若"条件"是一个为0的常数，则一次也不执行循环体

D：如果"条件"总是为True，则不停地执行循环体

参考答案：C 题分：6

12、在窗体上画一个名称为Command1的命令按钮，然后编写如下通用过程和命令按钮的事件过程：

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：7

B：6

C：8

D：9

参考答案：A 题分：6

VB考试四

1、某人编写了如下程序，用来求10个整数（整数从键盘输入）中的最大值：

Private Sub Command1_Click()

Dim a(10) As Integer,max As Integer

For k=1 To 10

a(k)=InputBox("输入一个整数")

Next k

max=0

For k=1 To 10

If a(k)>max Then

max=a(k)

End If

Next k

Print max

End Sub

运行程序时发现，当输入10个正数时，可以得到正确结果，但输入10个负数时结果是错误的，程序需要修改。下面的修改中可以得到正确运行结果的是______。

A：把max=a(k)改为a(k)=max

B：把If a(k)>max Then改为If a(k)<max Then

C：把第2个循环语句For k=1 To 10改为For k=2 To 10

D：把max=0改为max=a(10)

参考答案：D

2、设有语句：Open "d:\Test.txt" For Output As #1，以下叙述中错误的是______。

A：执行该语句后，就可以通过Print#语句向文件Test.txt中写入信息

B：用该语句建立的文件的文件号为1

C：该语句打开d盘根目录下一个已存在的文件Test.txt，之后就可以从文件中读取信息D：若d盘根目录下无Test.txt文件，则该语句创建此文件

参考答案：C

3、工程中有2个窗体，名称分别为Form1、Form2，Form1为启动窗体，该窗体上有命令按钮Command1。要求程序运行后单击该命令按钮时显示Form2，则按钮Click事件过程应该是______。

A：Private Sub Command1_Click()

Form2.Load

End Sub

B：Private Sub Command1_Click()

Form2.Visible

End Sub

C：Private Sub Command1_Click()

Load Form2

End Sub

D：Private Sub Command1_Click()

Form2.Show

End Sub

参考答案：D

4、在窗体上画一个名为Command1的命令按钮，然后编写如下代码：

Option Base 1

Private Sub Command1_Click()

Dim a

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

j=1

For i=4 To 1 Step -1

s=s+a(i)*j

j=j*10

Next i

Print s

End Sub

运行上面的程序，其输出结果是______。

A：12

B：1234

C：34

D：4321

参考答案：B

5、设在窗体中有一个名称为List1的列表框，其中有若干个项目（如图）。要求选中某一项后单击Command1按钮，就删除选中的项，则正确的事件过程是______。

A：Private Sub Command1_Click()

List1.Clear List1.ListIndex

End Sub

B：Private Sub Command1_Click()

List1.Clear

End Sub

C：Private Sub Command1_Click()

List1.RemoveItemList1.ListIndex

End Sub

D：Private Sub Command1_Click()

List1.RemoveItem

End Sub

参考答案：C

6、窗体上有一个名称为Frame1的框架（如图），若要把框架上显示的"Frame1"改为汉字"框架"，下面正确的语句是______。

A：Frame1.Caption="框架"

B：="框架"

C：Frame1.Text="框架"

D：Frame1.Value="框架"

参考答案：A

7、设窗体上有一个图片框Picture1，要在程序运行期间装入当前文件夹下的图形文件File1.jpg，能实现此功能的语句是______。

A：Call LoadPicture("File1.jpg")

B：Picture1.Picture=LoadPicture("File1.jpg")

C：LoadPicture("File1.jpg")

D：Picture1.Picture="File1.jpg"

参考答案：B

8、在窗体上画一个名称为Timer1的计时器控件，要求每隔0.5秒发生一次计时器事件，则以下正确的属性设置语句是______。

A：Timer1.Interval=50

B：Timer1.Interval=5

C：Timer1.Interval=0.5

D：Timer1.Interval=500

参考答案：D

9、在窗体上画一个通用对话框，其名称为CommonDialog1，然后画一个命令按钮，并编写如下事件过程：

Private Sub Command1_Click()

CommonDialog1.Filter="All Files(*.*)|*.*|Text Files" &_

"(*.txt)|*.txt|Executable Files(*.exe)|*.exe"

CommonDialog1.FilterIndex=3

CommonDialog1.ShowOpen

百度搜索“77cn”或“免费范文网”即可找到本站免费阅读全部范文。收藏本站方便下次阅读，免费范文网，提供经典小说英语学习2010计算机等级考试二级VB预测题(3)在线全文阅读。