计算机二级考试VB练习题及答案

为了使广大考生在备战计算机等级考试时，更快的掌握相应知识点，下面是小编搜索整理的计算机二级考试VB练习题及答案，供参考练习，预祝考生们考出自己理想的成绩!

计算机二级考试VB练习题及答案

1.以下程序是求最大公约数和最小公倍数的程序，在【】处填写合适的关系运算符。

Private Sub Form_Click( )

Dim m1, n1, m, n, r As Integer

n1 = InputBox("输入自然数n", "输入数")

m1 = InputBox("输入自然数m", "输入数")

n = n1

m = m1

If m<n p="" then<="">

t = m: m = n: n = t

End If

r = m Mod n

Do While r 【<>】 0

m = n

n = r

r = m Mod n

Loop

Print "最大公约数=", n

Print "最小公倍数= ", m1 * n1 / n

End Sub

2.下面是求100以内素数的程序。

Private Sub Command1_Click( )

Dim i As Integer, m As Integer, tag As Boolean

For m = 2 To 100

tag = True

For i = 2 To m - 1

If m Mod 【i】 = 0 Then tag = False

Next i

If tag Then Print m

Next m

End Sub

3.下面是求100以内素数的程序，下面说法正确的是(A)(单)

Private Sub Command1_Click( )

Dim i As Integer, m As Integer, tag As Boolean

For m = 2 To 100

tag = True

For i = 2 To m - 1

If m Mod i = 0 Then tag = False

Next i

If tag=true Then Print m

Next m

End Sub

A.tag为true时，表示m是素数

B.tag为false时，表示m是素数

C.语句m Mod i = 0，说明m是素数

D.以上说法都不正确

4.百元买百鸡问题： 假定小鸡每只5角,公鸡每只2元，母鸡每只3元。现在有100元钱要求买100只鸡，以下程序列出了所有可能的购鸡方案。

Private Sub Command2_Click( )

Dim x%, y%, z%

For x = 0 To 33

For y = 0 To 50

If 3 * x + 2 * y + 0.5 * (100 - x - y) = 100 Then

Picture2.Print x, y, 【100-x-y,10-y-x】

End If

Next y

Next x

End Sub

5.百元买百鸡问题： 假定小鸡每只5角,公鸡每只2元，母鸡每只3元。现在有100元钱要求买100只鸡，以下程序列出了所有可能的购鸡方案。

Private Sub Command1_Click( )

Dim x%, y%, z%

For x = 0 To 33

For y = 0 To 50

For z = 0 To 100

If 3 * x + 2 * y + 0.5 * z = 100 And 【x+y+z=100】 Then

Picture1.Print x, y, z

End If

Next z

Next y

Next x

End Sub

6.随机产生10个100～200之间的数，求它们的最大值程序如下：

Private Sub Command1_Click( )

Max = 100

For i = 1 To 10

x = Int(Rnd * 101 + 100)

Print x;

If x > Max Then 【】

Next i

Print

Print "最大值="; Max

End Sub

在此程序中，其中【】处应该填写的是(C)(单)

A.Max = 100

B.Max =200

C.Max = x

D.Max = 0

7.随机产生10个100～200之间的数，求它们的最大值程序如下：

Private Sub Command1_Click( )

Max = 100

For i = 1 To 10

x = int【RND*101+100或100+RND*101或RND()*101+100或100+RND()*101】

Print x;

If x > Max Then Max=x

Next i

Print

Print "最大值="; Max

End Sub

8.随机产生10个100～200之间的数，求它们的最大值程序如下：

Private Sub Command1_Click( )

Max = 100

For I = 1 To 10

x =Int(Rnd * 101 + 100)

Print x;

If 【】 Then Max=x

Next I

Print

Print "最大值="; Max

End Sub

在【】处应该填写的是：(A)(单)

A.x > Max

B.x<max< p="">

C.x = Max

D.以上都不正确

9.以下是求1～100之间5或7的倍数的和，如下程序段：

Sum = 0

For i = 1 To 100

If i Mod 5 = 0 Or i Mod 7 = 0 Then

【】

End If

Next i

Print Sum

其中【】处书写正确的是(B)(单)

A.Sum = i

B.Sum = Sum + i

C.Sum = Sum + 5+7

D.以上都不正确

10.以下是求1～100的5或7的倍数的和程序段：

Sum = 0

For i = 1 To 100

If i Mod 5 = 0 Or i 【mod】 7=0 Then

Sum = Sum + i

End If

Next i

Print Sum

11.以下叙述中错误的是(B)(单)

A.Visual Basic 是事件驱动型可视化编程工具

B.Visual Basic应用程序不具有明显的开始和结束语句

C.Visual Basic工具箱中的所有控件都具有宽度(Width)和高度(Height)属性

D.Visual Basic中控件的某些属性只能在运行时设置

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

A.在工程资源管理器窗口中只能包含一个工程文件及属于该工程的其他文件

B.以.BAS为扩展名的.文件是标准模块文件

C.窗体文件包含该窗体及其控件的属性

D.一个工程中可以含有多个标准模块文件

13.以下叙述中错误的是(B)(单)

A.双击鼠标可以触发DblClick事件

B.在编程过程中，窗体或控件的事件的名称可以由编程人员自由确定

C.移动鼠标时，会触发MouseMove事件

D.控件的名称可以由编程人员设定

14.以下不属于Visual Basic系统的文件类型是(B)(单)

A..frm

B..bat

C..vbg

D..vbp

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

A.打开一个工程文件时，系统自动装入与该工程有关的窗体、标准模块等文件

B.保存Visual Basic程序时，应分别保存窗体文件及工程文件

C.Visual Basic应用程序只能以解释方式执行

D.事件可以由用户引发

16.以下声明语句中错误的是(B)(单)

A.Const var1=123

B.Dim var2 = 'ABC'

C.Public a,b as integer

D.Static a as single

17.设窗体上有一个列表框控件List1，且其中含有若干列表项。则以下能表示当前被选中的列表项内容的是(D)(单)

A.List1.List

B.List1.ListIndex

C.List1.Index

D.List1.Text

18.程序运行后，在窗体上单击鼠标，此时窗体不会接收到的事件是(C)(单)

A.MouseDown

B.MouseUp

C.Load

D.Click

19.设a=10，b=5，c=1，执行语句Print a >b > c后，窗体上显示的是(B)(单)

A.True

B.False

C.1

D.出错信息

20.如果要改变窗体的标题，则需要设置窗体的(A)属性(单)

A.Caption

B.Name

C.BackColor

D.BorderStyle

【计算机二级考试VB练习题及答案】