VB语言程序设计-在线作业-3

VB语言程序设计一在线作业_3

交卷时间：2016-09-1916:12:53

一、单选题

1

（5分）

通过设置Line控件的什么属性，可以绘制虚线、点划线等多种样式的直线（）。

A.DrawStyle

B.Style

C.BorderStyle

D.FillStyle

纠错

得分：5

知识点：VB语言程序设计

展开解析

2

（5分）

在窗体上画两个单选按钮，名称分别为Optionl和Option2,标题分别为“宋体”和“黑体”；一

个复选框，名称为Check。标题为“粗体”；•个文本框，名称为Text）,Text属性为“改变文

字字体”。要求程序运行时，“宋体”单选按钮和“粗体”复选框被选中，则能够实现上述要求的语

句序列是（）o

A.Optionl.Value=TrueCheckl.Value=True

B.Optionl.Value=TrueCheckl.Value=False

C.Option2.Value=FalseCheckl.Value=True

D.Optionl.Value=TrueCheckl.Value=1

组错

得分：5

知识点：VB语言程序设计

展开解析

3

（5分）

下列可以把当前目录下的图形文件pic1.jpg装入图片框Picturel中的语句为（）。

A.Picturel.Picture=LoadPictureCpicl.jpg"）

B.Picture="picl.jpg"

C.Picture=LoadPictureCpicl.jpg"）

D.Picture.Handle="picl.jpg"

纠错

得分：5

知识点：VB语言程序设计

展开解析

4

（5分）

设a=2,b=3,c=4,d=5,下列表达式Notav=cOr4*c=bA2Andbv>a+c的值

是（）。

A.True

B.1

C.-1

D.False

组错

得分：5

知识点：VB语言程序设计

展开解析

5

(5分)

假定有以下循环结构

DoUntil条件

循环体

Loop

则正确的描述是()O

A.如果"条件"是一个为0的常数，则一次循环体也不执行

B.如果"条件"是一个不为0的常数，则至少执行一次循环体

C.不论"条件"是否为"真"，至少要执行一次循环体

D.如果"条件"是一个为0的常数，则无限次执行循环体

纠错

得分：5

知识点：VB语言程序设计

展开解析

6

(5分)

确定一个控件在窗体上的位置的属性是()o

A.Width和Height

B.Top和Left

C.Top或Left

D.Width或Height

纠错

得分：5

知识点：VB语言程序设计

展开解析

（5分）

在窗体上画两个名称分别为Labell和Label2的标签，然后编写如下事件过程:

PrivateSubForm_Click()

x=-5:s=-5

SelectCases

CaseIs>0

y=x+1

CaseIs>=0

y=x+2

CaseElse

y=x+3

EndSelect

Labell.Caption=x

Label2.Caption=y

EndSub

程序运行后，单击窗体，标签Labell和Label2中显示的内容分别是（）。

A.-5和-3

B.-5和-4

C.-5和-2

D.-5和-5

纠错

得分：5

知识点：VB语言程序设计

展开解析

8

(5分)

以下程序段的输出结果是()。

a=Sqr(3)

b=Sqr(2)

c=a>b

Printc

A.True

B.0

C.-1

D.False

纠错

得分：5

知识点：VB语言程序设计

展开解析

9

(5分)

阅读下面的程序：

FunctionF(aAsInteger)

Staticc

b=0

b=b+1

c=c+1

F=a+b+c

EndFunction

PrivateSubCommand1_Click()

DimaAsInteger

a=2

Fori=1To3

PrintF(a)

Nexti

EndSub

运行上面的程序，单击命令按钮，输出结果为()o

A.468

B.456

C.444

D.479

纠错

得分：5

知识点：VB语言程序设计

展开解析

10

(5分)

对一个磁盘上的顺序文件进行读操作，打开方式为O。

A.Random

B.Input

C.Output

D.Append

纠错

得分：5

知识点：VB语言程序设计

展开解析

11

（5分）

图像框控件有一个属性，可以自动调整图像框的大小，以适应图像的尺寸，这个属性是（）o

A.AutoSize

B.Appearance

C.AutoRedraw

D.Stretch

组错

得分：5

知识点：VB语言程序设计

展开解析

12

（5分）

为了把窗体上的某个控件变为活动的，应执行的操作是（）。

A.双击窗体

B.双击该控件

C.单击窗体的边框

D.单击该控件的内部

纠错

得分：5

知识点：VB语言程序设计

展开解析

13

(5分)

下列可作为VB的变量名的是()»

A.3*Delta

B.ABD

C.PrintChar

D.Abs

纠错

得分：5

知识点：VB语言程序设计

展开解析

14

(5分)

在显示菜单时，菜单的哪个属性为True时将用灰色显示该菜单项标题()o

A.Checked

B.Enabled

C.Visible

D.Caption

纠错

得分：5

知识点：VB语言程序设计

展开解析

15

(5分)

下列程序段的执行结果为()O

x=2:y=1

Ifx*y<1Theny=y-1Elsey=y+1

Printy-x>0

A.-1

B.False

C.True

D.1

纠错

得分：5

知识点：VB语言程序设计

展开解析

16

（5分）

对用MsgBox显示的消息框，以下叙述中错误的是（）。

A.可以有一个按钮

B.可以有任意多个按钮

C.可以有三个按钮

D.可以有两个按钮

纠错

得分：5

知识点：VB语言程序设计

展开解析

17

（5分）

阅读下面的程序：

SubsubP(b()AsInteger)

Fori=1To4

b(i)=2*i

Nexti

EndSub

PrivateSubCommand1_Click()

Dima(1To4)AsInteger

a(1)=5:a(2)=6:a(3)=7:a(4)=8

subPa()

Fori=1To4

Printa(i)

Nexti

EndSub

运行上面的程序，单击命令按钮，输出结果为（）。

A.程序出错

B.10121416

C.2468

D.5678

纠错

得分：5

知识点：VB语言程序设计

展开解析

18

(5分)

阅读下面的程序：

PrivateSubForm_Click()

DimCheck,Counter

Check=True

Counter=0

Do

DoWhileCounter<20

Counter=Counter+1

IfCounter=10Then

Check=False

ExitDo

EndIf

Loop

LoopUntilCheck=False

PrintCounter,Check

EndSub

程序运行后，单击窗体，输出结果为Oo

A.10False

B.150

C.20-1

D.10True

纠错

得分：5

知识点：VB语言程序设计

展开解析

19

(5分)

当窗体最小化时缩小为一个图标，设置这个图标的属性是()o

A.Mouseicon

B.Icon

C.Picture

D.MousePoint

组错

得分：5

知识点：VB语言程序设计

展开解析

20

(5分)

使文本框获得焦点