网站首页 语言 会计 电脑 医学 资格证 职场 文艺体育 范文

全国计算机二级Visual Basic单选题及答案

栏目: 计算机二级 / 发布于: / 人气:2.25W

试题的练习能够帮助考生们加深对知识点的理解和巩固,以下是本站小编搜索整理的一份全国计算机二级Visual Basic单选题及答案,供参考练习,预祝考生们考出自己理想的成绩!想了解更多相关信息请持续关注我们应届毕业生考试网!

全国计算机二级Visual Basic单选题及答案

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

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

为true时,表示m是素数

为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

t 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

t 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)(单)

= 100

=200

= x

= 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

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)(单)

= i

= Sum + i

= 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)(单)

al Basic 是事件驱动型可视化编程工具

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

al Basic应用程序只能以解释方式执行

D.事件可以由用户引发

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

t var1=123

var2 = 'ABC'

ic a,b as integer

ic a as single

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

Index

x

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

eDown

eUp

k

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

e

C.1

D.出错信息

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

ion

Color

erStyle