南京工程学院vb题库7套.docx

南京工程学院vb题库7套.docx

《南京工程学院vb题库7套.docx》由会员分享，可在线阅读，更多相关《南京工程学院vb题库7套.docx（15页珍藏版）》请在冰豆网上搜索。

南京工程学院vb题库7套

南京工程学院vb题库。

。

。

。

试卷编号：

8953

所属语言：

VisualBasic

试卷方案：

09-10-2《程序设计基础—VB》模拟

试卷总分：

100分

共有题型：

6种

一、判断共5题（共计10分）

第1题（2.0分）

要使定时器控件起作用,其属性Interval不可以设置为0.

答案：

Y

第2题（2.0分）

在VB中,运算"ABCDE123A"Like"[a*a]"的结果是True.

答案：

Y

第3题（2.0分）

move方法的一般形式是:

对象名.moveA,B[,C,D],其中A指Left

C指width.

答案：

N

第4题（2.0分）

三种方式的组合框都可以接受DblClick事件.

答案：

Y

第5题（2.0分）

在VB中,计时器（Timer）定期激活Timer事件,使Timer中的

代码执行一次.

答案：

Y

二、单项选择共20题（共计40分）

第1题（2.0分）

标准工具箱中的控件（）.

A:

数目是固定不变的

B:

数目可以增加或减少

C:

包含了VisualBasic所有控件

D:

在窗体建立对象时不一定被使用

答案：

B

第2题（2.0分）

要将一个组合框设置为简单组合框（SimpleCombo）,则应将其Style

属性设置为（）.

A:

0

B:

1

C:

2

D:

3

答案：

B

第3题（2.0分）

产生[10,37]之间的随机整数的VisualBasic表达式是（）.

A:

Int（Rnd

（1）*27）+10

B:

Int（Rnd

（1）*28）+10

C:

Int（Rnd

（1）*27）+11

D:

Int（Rnd

（1）*28）+11

答案：

B

第4题（2.0分）

下列叙述错误的是:

A:

一个工程中只能有一个SubMain过程

B:

窗体的Show方法的作用是将

指定的窗体装入内存并显示该窗体

C:

窗体的Hide方法和Unload方

法作用完全相同

D:

若工程文件中有多个窗体,

可以根据需要制定一个为启动窗体

答案：

C

第5题（2.0分）

要使文本框中显示密码符有效,必须首先设置（）属性.

A:

Text

B:

MultiLine

C:

Locked

D:

Enabled

答案：

B

第6题（2.0分）

以下（）不是启动菜单编辑器的方法.

A:

单击工具栏菜单图标

B:

工具/菜单编辑器（CTRL+E）

C:

窗体上快捷菜单/菜单编辑器

D:

菜单/菜单编辑器

答案：

D

第7题（2.0分）

执行了下面的程序：

SubForm_Click（）

Fori=1To6

List1.AddItemi

Next

Fori=1To3

List1.RemoveItemi

Next

EndSub

列表框中的数据项为

A:

1,5,6

B:

2,4,6

C:

4,5,6

D:

1,3,5

答案：

D

第8题（2.0分）

下列可缩放图片的属性是（）.

A:

autosize

B:

picture

C:

stretch

D:

OleDrawMode

答案：

C

第9题（2.0分）

要定义一个变量为全局变量,应使用（）关键字.

A:

Static

B:

Public

C:

Private

D:

Sub

答案：

B

第10题（2.0分）

下列不能打开属性窗口的操作是（）.

A:

执行"视图"菜单中的"属性窗口"命令

B:

按F4键

C:

按Ctrl+T

D:

单击工具栏上的"属性窗口"按钮

答案：

C

第11题（2.0分）

InputBox函数返回值的类型是（）.

A:

整型数值

B:

字符串

C:

变体

D:

数值或字符串

答案：

B

第12题（2.0分）

表达式INT（8*SQR（36）*10^（-2）*10+0.5）/10的值是（）.

A:

0.48

B:

0.048

C:

.5

D:

.05

答案：

C

第13题（2.0分）

在窗体上画一个名称为Command1的命令按钮,然后编写如下事件过程:

PrivateSubCommand1_Click（）

StaticxAsInteger

Cls

y=y+2

x=x+2

Printx,y

EndSub

程序运行后,连续四次单击Command1按钮后,窗体上显示的是

A:

88

B:

82

C:

28

D:

22

答案：

B

第14题（2.0分）

不能正确表示条件"两个整型变量A和B之一为0,但不能同时为0"

的布尔表达式（）.

A:

A*B=0ANDA<>B

B:

（A=0ORB=0）ANDA<>B

C:

A=0ANDB<>0ORA<>0ANDB=0

D:

A*B=0AND（A=0ORB=0）

答案：

D

第15题（2.0分）

下列数据类型中,占用内存最小的是（）.

A:

Boolean

B:

Byte

C:

Integer

D:

Single

答案：

B

第16题（2.0分）

可以用作其它控件容器的控件有（）.

A:

窗体控件,列表控件,图像控件

B:

窗体控件,文本框控件,框架控件

C:

窗体控件,框架控件,图片框控件

D:

窗体控件,标签控件,图片控件

答案：

C

第17题（2.0分）

下列不能打开菜单编辑器的操作是______.

A:

按Ctrl+E

B:

单击工具栏中的"菜单编辑器"按钮

C:

执行"工具"菜单中的"菜单编辑器"命令

D:

按Shift+Alt+M

答案：

D

第18题（2.0分）

在下列表达式中,非法的是______.

A:

a=b+c

B:

a>b+c

C:

a≠b>c

D:

a

答案：

C

第19题（2.0分）

在窗体中添加两个文本框Text1和Text2,一个命令按钮Command1,编写如下事件过程:

PrivateSubCommand1_Click（）

x=0

DoWhilex<10

x=（x-2）*（x+3）

n=n+1

Loop

Text1.Text=Str（n）:

Text2.Text=Str（x）

EndSub

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

A:

1和0

B:

3和50

C:

2和24

D:

4和68

答案：

C

第20题（2.0分）

要使得标签能自动扩充以满足字体大小则可对其（）属性进行设置.

A:

alignment

B:

usemnemonic

C:

autosize

D:

tag

答案：

C

三、程序填空共1题（共计10分）

第1题（10.0分）

'-------------------------------------------------------

'【程序填空】

'-------------------------------------------------------

'以下程序段用于计算数组中各元素的乘积。

'-----------------------------------------

PrivateSubCommand1_Click（）

Dima（1To5）AsInteger,b%（2To10）,i%,t1#,t2#

Fori=1To5

a（i）=i

Nexti

Fori=2To10

b（i）=i

Nexti

t1=tim（a（））

t2=tim（b（））

Print"t1=";t1,"t2=";t2

EndSub

'**********SPACE**********

Functiontim（【?

】AsInteger）

Dimt#,i%

'**********SPACE**********

【?

】

Fori=LBound（m）ToUBound（m）

t=t*m（i）

Nexti

tim=t

EndFunction

答案：

=======（答案1）=======

m（）

=======（答案2）=======

t=1

四、程序改错共1题（共计10分）

第1题（10.0分）

'------------------------------------------------

'【程序改错】

'------------------------------------------------

'题目:

在窗体上有两个命令按钮和一个文本框，名称分别为

'cmdstart（"开始"）、cmdend（"结束"）和Text1。

'文本框Text1中的字符个数不超过200个。

程序刚开始

'运行时，"结束"按钮成灰色，单击"开始"按钮后，将

'文本框Text1.text中的字符按其ASCII码值由大到小自

'左而右重新组合，并在窗体上输出重组后的字符串，同

'时使"结束"按钮能响应而"开始"按钮不能响应。

'------------------------------------------------

OptionExplicit

PrivateSubForm_load（）

'**********FOUND**********

Cmdend.Enabled=True

EndSub

PrivateSubCmdstart_click（）

DimnAsInteger,IAsInteger,jAsInteger,pAsInteger

Dima（200）AsString*1,str1AsString,tAsString

str1=Text1.Text

n=Len（str1）

ForI=1Ton

a（I）=Mid（str1,I,1）

NextI

'**********FOUND**********

ForI=0Ton-1

p=I

Forj=I+1Ton

'**********FOUND**********

Ifa（p）

Nextj

Ifp<>IThent=a（I）:

a（I）=a（p）:

a（p）=t

NextI

ForI=1Ton

Printa（I）;

NextI

Cmdend.Enabled=True

Cmdstart.Enabled=False

EndSub

PrivateSubCmdend_click（）

End

EndSub

答案：

=======（答案1）=======

Cmdend.Enabled=False

=========或=========

Cmdend.Enabled=-1

=======（答案2）=======

ForI=1Ton-1

=========或=========

ForI=1To-1+n

=======（答案3）=======

Ifa（p）

=========或=========

Ifa（j）>a（p）Thenp=j

五、程序设计共1题（共计20分）

第1题（20.0分）

'-------------------------------------------------

'【程序设计】

'-------------------------------------------------

'题目：

（事件）单击窗体。

'（响应）我国现有人口为13亿，设年增长率为1%，

'计算多少年后增加到20亿。

并将结果输出

'在窗体上。

将结果存入变量year中。

'使用dowhile...loop语句完成程序。

'-------------------------------------------------

答案：

----------------------

dimpasdouble

dimrassingle

dimnasinteger

p=1300000000

r=0.01

dowhilep<2000000000

p=p+p*r

n=n+1

loop

print"n=",n

year=n

----------------------

六、VB窗体设计共1题（共计10分）

第1题（10.0分）

------------------------------------------------

【窗体设计】

------------------------------------------------

题目：

启动VB后，窗体上放置一个文本框，两个水平滚

动条，两个标签，调整好个控件大小至合适。

用

滚动条实现文本框背景色及文字大小的改变。

程

序运行界面如图所示

各控件属性设置如下表：

对象名称Name属性Caption属性text属性

窗体默认滚动条的应用

标签label1背景色

label2字号

文本框text1空

水平滚动条Hscroll1（Max=15Min=0LargeChange=1SmallChange=1）

Hscroll2（Max=16Min=72LargeChange=1SmallChange=1）

------------------------------------------------