VB语言程序设计在线作业3Word格式.docx

VB语言程序设计在线作业3Word格式.docx

《VB语言程序设计在线作业3Word格式.docx》由会员分享，可在线阅读，更多相关《VB语言程序设计在线作业3Word格式.docx（8页珍藏版）》请在冰豆网上搜索。

∙D. 

BorderStyle

是否存疑

2.

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

一个复选框，名称为Check1，标题为“粗体”；

一个文本框，名称为Text1，Text属性为“改变文字字体”。

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

C 

Option1.Value=True 

Check1.Value=False

Option1.Value=TrueCheck1.Value=True

Option1.Value=TrueCheck1.Value=1

Option2.Value=FalseCheck1.Value=True

3.

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

A 

Picture1.Picture=LoadPicture（"

pic1.jpg"

Picture.Handle="

Picture=LoadPicture（"

Picture="

4.

设a=2，b=3，c=4，d=5，下列表达式Nota<

=cOr4*c=b^2Andb<

>

a+c的值是（ 

1

True

-1

False

5.

假定有以下循环结构

DoUntil 

条件

循环体

Loop

则正确的描述是（ 

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

不论“条件”是否为“真”，至少要执行一次循环体

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

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

6.

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

Width和Height

Width或Height

Top或Left

Top和Left

7.

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

PrivateSubForm_Click（）

x=-5:

s=-5

SelectCases

CaseIs>

0

y=x+1

=0

y=x+2

CaseElse

y=x+3

EndSelect

Label1.Caption=x

Label2.Caption=y

EndSub

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

-5和-4

-5和-3

-5和-5

-5和-2

8.

以下程序段的输出结果是（ 

B 

a=Sqr（3）

b=Sqr

（2）

c=a>

b

Printc

9.

阅读下面的程序：

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

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

468

444

456

479

10.

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

Random

Output

Input

Append

11.

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

Stretch

Appearance

AutoRedraw

AutoSize

12.

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

单击窗体的边框

双击窗体

双击该控件

单击该控件的内部

13.

下列可作为VB的变量名的是（ 

3*Delta

AB∏

PrintChar

Abs

14.

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

Visible

Enabled

Checked

Caption

15.

下列程序段的执行结果为（ 

x=2:

y=1

Ifx*y<

1Theny=y-1Elsey=y+1

Printy-x>

16.

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

可以有两个按钮

可以有任意多个按钮

可以有一个按钮

可以有三个按钮

17.

SubsubP（b（）AsInteger）

Fori=1To4

b（i）=2*i

Dima（1To4）AsInteger

a

（1）=5:

a

（2）=6:

a（3）=7:

a（4）=8

subPa（）

Printa（i）

程序出错

5678

10 

121416

2 

468

18.

DimCheck,Counter

Check=True

Counter=0

Do

DoWhileCounter<

20

Counter=Counter+1

IfCounter=10Then

Check=False

ExitDo

EndIf

LoopUntilCheck=False

PrintCounter,Check

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

15 

True

False

20 

-1

19.

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

MousePoint

Picture

Icon

MouseIcon

20.

使文本框获得焦点的方法是（ 

SetFocus

LostFocus

GotFocus

Change