《计算机程序设计基础》课后练习题参考答案

《计算机程序设计基础》课后练习题1

一.判断题

(1)(错)事件过程由某个用户事件或系统事件触发执行，但不能被其他过程调用。

(2)(错)若X=2,Y=5,则表达式Y-2>XANDX+2>Y的结果为：True。

(3)(错)常量是指在程序运行过程中其值可以改变的那些量。

(4)(错，timer没有)VB工具箱中的所有控件都具有宽度(Width)和高度(Height)属

性。

(5)(错)定义变量：Dimmax,minasSingle,则max和min的数据类型均为Single。

(6)(对)如果创建的菜单项的标题是一个减号则该菜单项显示为一条分隔线。

(7)(错)标准模块文件的扩展名是VBP”。

(8)(错，都不能)定时器捽件可以响应Click事件，但不能响应DbClick事件。

(9)(错)在默认情况下，数组下标下界的缺省值为1。

(10)(对)在使用字体对话框时，需要对其Flags属性先进行相应设置。

二.单选题

(11)在VisualBasic中，表示鼠标单击事件的是C。

A)ActivateB)DoubleClickC)ClickD)MouseDown

(12)用于设置计时器时间间隔的属性是—A_______o

A)IntervalB)NameC)LeftD)Top

(13)函数Int(函*Rnd)是在D,范围内的整数。

A)[1,10]B)[1,10]0[0,9)D)[0,9]

(14)Selectcase语句结构的结尾应使用_D

A)EndB)EndCaseC)EndSubD)EndSelect

(15)改变了容器的坐标系后，该容器的A属性徜不会改变。

A)leftB)scaleleftC)scaletopD)scalewidth

(16)执行下列语句后，列表框中各表项顺序为【)

Listl.Clear

Fori=lto4:Listl.Additemi-1,0：Nexti

A)B)C)D)

0103

---

0212

0321

0430

(17)输入对话框InputBox的返回值的类型是A

A)字符串B)整数C)浮点数D)长整数

(18)将焦点主动设置到指定的控件或窗体上，应采用B方法。

A)SetDateB)SetFocusC)SetTextD)GetData

(19)有如下程序段：

DimIAsInteger,SAsInteger

S=1

FORI=1TO8STEP2

S=S*I

NEXTI

PRINT“S="；S

运行结果为B

A)S=9B)S=105C)S=1D)S=16

(20)利用以下D语句,可以输出日期和时间信息。

A)PrintDateB)PrintMonthC)PrintTimeD)PrintNow

(21)一只漂亮的酒杯被摔碎了，则漂亮，酒杯，摔是—D—。

A)对象，属性，事件B)对象，属性，方法

C)属性，对象，方法D)属性，对象，事件

(22)将通用对话框以“打开文件对话框”方式打开，则选以下A方法。

A)ShowOpenB)ShowColorC)ShowSaveD)ShowFont

(23)执行语句“Line(100,100)-(150,200),vbBlue,B”，在窗体上绘制出一个矩形,

那么该矩形的面积=A

A)5000B)10000C)15000D)20000

(24)如何使一个标签或按钮控件在运行时不可用—C―o

A)把它的Visible属性设置成FalseB)把它的Visible属性设置成True

C)把它的Enabled属性设置成FalseD)把它的Enabled属性设置成True

(25)下列C表达式的结果为“1234556789”。

A)TrimC12345356789")B)LtrimC12345")+Rtrim("56789")

C)RtrimC12345")&("56789")D)LtrimC12345")&Rtrim(*56789")

(26)将图形框(PictureBox)控件的AutoSize属性设置为True后，则对于图形框而言,

____B____o

A)图形框中的图片自动改变大小适应图形框

B)图形框自动改变大小适应其中的图形

C)如果图片的大小比图形框大，则图形框自动裁剪图象以适应图形框的大小。

D)如果图片的大小比图形框小，则图形框大小不发生变化。

(27)要获得当前驱动器应使用那动器列表框的哪个属性B。

A)PathB)DriveC)DirD)Pattern

(28)以下关于函数过程的叙述中，正确的是A

A)函数过程形参的类型与函数返回值的类型没有关系

B)在函数过程中，过程的返回值可以有多个

C)数组作为函数过程的参数时，既能以传值方式传递，也能以传址方式传递

D)如果不指明函数过程参数的类型，则该参数没有数据类型

(29)单击滚动条的滚动箭头时，产生的事件是_C-o

A)ClickB)ScrollC)ChangeD)Move

(30)以下能返回文件长度的函数是_B_o

A)BOFB)LOFC)LEND)EOF

三.程序填空题

【程序填空1］在C盘当前文件夹下已存在名为Data,txt的文件，利用文本框(Textl)

输入若干英文单词。要求每输入一个单词后，按下回车键将文本框中的单词写入文件，然

后清除文本框的内容以便输入下一个单词。当在文本框中输入的单词是“END”时，则表示

结束输入(对于单词“END”不沦大小写都视为结束)，最后将文件关闭。

PrivateSubFormLoad()

(31)A

Textl.Text=

EndSub

PrivateSubTextl_KeyPress(KeyAsciiAsInteger)

IfKeyAscii=13Then

If(32)I)="END"Then

Close#

End

Else

(33)A(注意，Textl的默认属性为text,可省略不写)

Textl.Text=

EndIf

EndIf

EndSub

(31)A)Open"C:\Data.txt"ForOutputAs#1

B)Open"C:\Data.txt"ForInput#1

C)Open"CiVData.txt"InputAs#1

D)Open"C:\Data.txt"OutputAs#1

(32)A)LCasc(Textl.Text)B)Textl.Text

C)Str(Textl)D)UCase(Text1.Text)

(33)A)Write#1,TextlB)Write#1,Text

C)Write#3,Textl.TextD)Write#l,Text.lext

【程序填空2】程序运行后如下图所示，Label1的Caplion显示为"字体定时变大”，影响字

体大小的属性每隔0.5秒增加1,数值在［8,72］之间变化。

国Forml□0®

labell

OptionExplicit

PrivateSubFormLoad()

Timerl.Enabled=True

(34)B

Labell.Caption="字体定时变大〃

EndSub

PrivateSubTimerl_Timer()

StaticiAsInteger

Ifi<7Ori>=72Theni=7

i=i+1

(35)A

EndSub

(34)A)Timerl.Interval=5/10B)Timerl.Interval=500

C)Timerl.Interval=TrueD)Timerl.Interval=False

(35)A)Labell.FontSize=iB)Labell.Font=i

C)Labell.Size=iD)Labell.FontSize=i+1

【程序填空3】己知五个数存放在数组中，用冒泡法对该数组进行递减排序(冒泡法：一旦

发现数组中两个数逆序马上交换这两个数)。

PrivateSubCommand1_Click()

Dima(lTo5)AsInteger

Dimn%,i%,j%,t%

a(l)=53:a(2)=34:a(3)=45:a(4)=89:a(5)=23

Fori=lTo4(确保第i轮循环后，a⑴位置上存放第i大的数)

Forj=5Toi+1Step-I

If(36)BThen

t=a(j)

(37)D

a(j-l)=t

EndIf

Nextj

Nexti

Fori=1To5

Printa(i);

Nexti

EndSub

(36)A)a(j)<a(j-1)B)aG)>a(j-1)

C)a(i)>a(j)D)a(j)>a(i)

(37)A)a(i)=a(j)B)a(j-l)=a(j)C)a(j)=a(i)D)a(j)=a(j-1)

【程序填空4】在窗体上画一个名称为Combol的组合框，画两个名称分别Labe"和Label2

及Caption属性分别为“城市名称”和空白的标签。程序运行后(如下图所示)，当在组

合框中输入一个新的项目按回车键时(回车键的ASCII码为13),如果输入的项在组合框

的列表中不存在，则自动添加到组合框的列表中，并在Label2中给出提示“已成功添加输

入项；如果存在，则在Label2中给出提示“输入项已在组合框中”。

福For>l13回区)

城市名称

已成功添加输入项

海

上

京

南

东

曲

川

PrivateSubCombo1_KeyPress(KeyAsciiAsInteger)

If(38)BThen

Fori=0ToCombo1.ListCount-1

IfComboI.Text=(39)BThen

Label2.Caption="输入项已在组合框中

ExitSub

EndIf

Nexti

Label2.Caption=”已成功添力口输入项”

Combo1(40)CCombo1.Text

EndIf

EndSub

(38)A)KeyAscii=0B)KeyAscii=13C)KeyAscii=8D)KeyAscii=9

(39)A)Combo1.ListindexB)Combol.List(i)C)ComboI.Addltem(i)D)Combo1.Clear

(40)A)SelectedB)RemoveitemC)AdditemD)Listindex

四.程序阅读题

【程序阅读1］根据以下代码，单击窗体三次，那么第一次单击后输出的a、b、c的值为

(41)C,第二次单击后输出的a、b、c的值为(42)D,第三次单击后输出

的a、b、c的值为一(43)/。

Privatea%,b%,c%

PrivateSubForm_Click()

DimaAsInteger

c=2

CallAA(c)

b=BB(a)

Printa,b,c

EndSub

PublicSubAA(c%)

a=c+b

c=a+c

EndSub

PublicFunctionBB(ByValb%)

b=b+1

BB=a+b

EndFunction

(41)A)254B)2340034D)032

(42)A)7129B)71590062D)067

(43)A)0910B)092C)171935D)102732

【程序阅读2】阅读下列程序并回答问题，在每小题提供的若干可选答案中，挑选一个正确

答案。

PrivateSubForm_ClickO

Forml.Scale10)-(10,-10)

Forml.Circle(0,0),5,,-3*3.14/2,-3.14

Forml.FillStyle=0

EndSub

（44）运行以上程序，第一次单击窗体后，Forml上的输出结果是（44）A

【程序阅读3］阅读下列程序并回答问题，在每小题提供的若干可选答案中，挑选一个正

确答案。（/：表示回车）

PrivateSubForm_Load()

TcxlLTcxl-'1";Founl.Cis

EndSub

PrivateSubText1_KeyPress(kAsInteger)

StaticsAsInteger

If(Chr(k)<"O"OrChr(k)>'9")Andk<>13Thenk=0

Ifk=13Thens=s+Val(Textl.Tcxt):Text1.Text=Prints;

EndSub

(46)写出运行时在Textl中依次按“1/3/5/”输入后窗体上的显示结果

A)149B)90135D)5

(47)写出运行时在Textl中依次按“1/-3/5/”输入后窗体上的显示结果(47)B—。

A)1-23B)14901-35D)3

(48)写出运行时在Textl中依次按“1/2a/5/”输入后窗体上的显示结果(48)D°

A)14348B)125C)5D)138

【程序阅读4】

PrivateSubForm_click0

DimxAsSingle

x=Vai(InpulBox("输入x"))

SelectCasex\2

Case1

Printx

Case2

Print"y="；xMod2

Case3

Print"y="；xMod3

CaseElse

Print"y=";x\2

EndSelect

EndSub

(49)当x的输入值为5时的运行结果为(49)C

A)y=5B)y=2.5C)y=lD)y=0

(50)当x的输入值为5.5时的运行结果为(50)D

A)y=5B)y=2.5C)y=lD)y=0

(51)当x的输入值为-7时的运行结果为(51)B

A)y=-7B)y=-3C)y=lD)y=3.5

【程序阅读5】设16*日.16*1;为“2血(16『'，运行时连续单击2次控件Hscrolll右侧箭头后,

组合框控件中的第一项为(52)A、第二项(53)A。

PrivateSubForm_Load()

HScroll1.SmallChange=I:HScroll1.Max=5

HScrolll.Min=1:HScroll1.Value=1

Combo1.Clear

EndSub

PrivateSubHScrolll_Change()

Combo1.AdditemLeft(Textl.Text,HScroll1.Value),0

EndSub

(52)A)abcB)abedC)abD)abede

(53)A)abB)abedeC)abcD)abed

【程序阅读6］阅读下列程序并回答问题，在每小题提供的若干可选答案中，挑选一个正

确答案。

PrivateSubf(sAsString)(解释：根据代码推测功能是：将字符串s等分为两部分，

并交换前半部与后半部的位置，如“abede"，交换后得“decab”)

DimiAsInteger,nAsInteger,cAsString

n=Len(s)

IfnMod2=1Thenc=Mid(s,n\2+1,1)

Fori=1ToLen(s)\2

c=Mid(s,Len(s)+1-i,1)+c+Mid(s,i,1)

Nexti

s=c

EndSub

PrivateSubCommandl_Click()

DimxAsSiring

x=InputBox("x=")

Callf(x)

Primx

EndSub

(54)单击Commandl后输入“abc”，窗体上显示结果为(54)A:

A)cbaB)bcaC)abcD)acb

(55)如果将Sub过程f首句改为PrivateSubf(ByvalsAsString),单击Commandl后

输入“abed”，窗体上显示结果为：(55)C

A)abdcB)edabC)abedD)bead

《计算机程序设计基础》课后练习题2

一、判断题

1.（错）任何控件都有一个Caption属性。

2.（对）对于事件驱动型应用程序，每次运行时的执行顺序可以不一样。

3.（错）用以下语句定义：Dimmax,minasSingle,则max和min的数据类型均为

Single。

4.（对）通用对话框不能真正实现文件打开、文件存储、设置颜色、字体设置、打印等

操作，如果想要实现这些功能则需要编程实现。

5.（对）用Scale方法改变了窗体坐标系后，窗体的Left、Top属性值不变。

6.（对）在某列表框中一共有5个选项，而当选中第三项时，这时列表框的Listindex

属性为2。

7.（错，标准模块文件格式为.bas）VB中工程文件是指与该工程有关的全部文件和对象,

其扩展名是.vbp；窗体文件包括窗体及其控件的正文描述，其扩展名是.frm；标准模

块文件是可选的，其扩展名是.cis。。

8.（错，Clear方法）用Cis方法可以清除组合框中的所有表项。

9.Frame控件可以作为其他控件的容器。

10.（错）VisualBasic工具箱中的所有控件都具有宽度（Width）和高度（Height）属

性。

二、单选题

11.P的值为一3时，一P'2的值是—B___o

A、9B、-9C、6D、-6

12.以下程序段的执行结果为Ao

A=0:B=1

Do

A=A+B

B=B+1

LoopWhileA<10

PrintA;B

A、105B、ABC、01D、1030

13.设置列表框中列表数量的属性是_B_o

A、ListB、ListCountC、ListindexD、Columns

14.要获得当前驱动器应使用驱动器列表框的哪个属性_B_。

A、PathDriveC、DirD^Pattern

15.以下Case语句中错误的是一C。

A、Case0To10B、CaseIs>10

C、CaseIs>10AndIs<50D、Case3,5,7,Is>10

16.执行语句s=Len(Mid("VisualBasic”,0,5))后，s的值是_I)。

A、VisualB、BasicC、6D、表达式有错

17.以下关于函数过程的叙述中，正确的是—A。

A、函数过程形参的类型与函数返回值的类型没有关系

B、在函数过程中，过程的电回值可以有多个

C、当数组作为函数过程的参数时，既能以传值方式传递，也能以传址方式传递

D、如果不指明函数过程参数的类型，则该参数没有数据类型

18.在窗体上画一个名称为TxtA的文本框,然后编写如下的事件过程；

PrivateSubTxtAKeyPress(keyasciiasinteger)

EndSub

若焦点位于文本框中，则能够触发KeyPress事件的操作是—D—。

A、单击鼠标B、按下键盘上的“A”键

C、鼠标滑过文本框D、按下键盘上的任意键

19.执行行下面的事件过程，在窗体显示的内容是—Bo

PrivateSubCommandl_Click()

DimaAsVariant

a=Array(12,23,34,45,56)

Fori=1To3

PrintTrim(a(i));

NextI

EndSub

A、122334B、233445C、122334D、233445

20.将图形框(PictureBox)控件的AutoSize属性设置为True后，则对于图形框而言,

_B____。

A、图形框中的图片自动改变大小适应图形框

B、图形框自动改变大小适应其中的图形

C、如果图片的大小比图形也大，则图形框自动裁剪图象以适应图形框的大小。

D、如果图片的大小比图形框小，则图形框大小不发生变化。

21.在图形框控件picture1上坐标(100,100)和(500,500)之间画一条红色直线，写作

_C_o

AxLine(100,100)-(500,500)vbRed

B、Line(100,100)-(500,500)RGB(0,255,0)

C、picturel.Line(100,100)-(500,500)RGB(255,0,0)

【)、picturel.Line(100,100)-(500,500)Red

22.下列赋值语句中，_C___是错误的。

A、x=x+lB、x=x+yC、x+y=xD、x=4>6

23.单击滚动条的滚动箭头时，产生的事件是—C____。

A^ClickB、ScrollC、ChangeD、Move

24.在程序运行期间可以用—D函数把图形装入窗体、图片或图象框。

A^AutosizeB、StretchC>PictureD^LoadPicture

25.在窗体上画一个名称为Commandl的命令按钮，然后编写如下事件过程；

PrivateSubCommandl_Click()

DimnumAsInteger

num=1

DoUntilnum>6

Printnum;

num=num+2.4

Loop

EndSub

程序运行后，单击命令按钮，则窗体上显示的内容是—B。

As13.45.8B、135C、147D、无数据输出

26.__C__对象具有Clear方法。

A、窗体B、复选施C、列表框D、图片框

27.设a=16,b=7,c=l,则表达式a\3+2=bAndc=91Mod3的结果A。

A、TrueB、FalseC、1D、出错信息

28.设有如下通用过程：

PublicSubFun(a0,ByVaixAsInteger)

Fori=1To5

x=x+a(i)

Next

EndSub

在窗体上画一个名称为Textl的文本框和一个名称为Commandl的命令按钮，然后编写

如下的事件过程：

PrivateSubCommand1_C1ick()

Dimarr(5)AsVariant

DimnasInteger

Fori=1To5

arr(i)=i

Next

n=10

CallFun(arr(),n)

Textl.Text=n

EndSub

程序运行后，单击命令按钮，则在文本框中显示的内容是A

A、10B、15C、25D、24

29.窗体上画一个名称为Commandl的命令按钮，然后编写如下事件过程：

PrivateSubCommand1_C1ick()

DimnumAsInteger

Fornum=1To6Step3

Printnum;

Nextnum

Printnum

EndSub

程序运行后，单击命令按钮，则窗体上显示的内容是—C。

As144B、135C、147D、无数据输出

30.以下A—方式打开的文件只能读不能写。

A^InputB、OutputC、AppendD>Random

三、程序填空

程序1.在C盘当前文件夹下建立一个名为Data.txt的顺序文件，要求用文本框输入若干

英文单词，每次按下回车键时将文本框中的内容写入文件，并清除文本框的内容，直到文

本框输入END为止，最后关闭文件。

PrivateSubForm_Load0

(31)C

Textl.Text=""

EndSub

PrivateSubTextl_KeyPress(KeyAsciiAsInteger)

IfKeyAscii=13Then

If(32)D-"END"Then

(33)B

End

Else

(34)A

Textl.Text=

EndIf

EndIf

EndSub

31.A、Open"D:\Data.txt*ForOutputAs#1

B、Open“C:\Data.txt”ForInput#1

C、Open“C:\Data.txl”ForOutputAs#1

D、Open"C:\Data.txt”OutputAs#1

32.A、LCaseText1.TextB、Textl.Text

C、Str(Textl)D、UCase(Text1.Text)

33.A、Quit#1B、Close#1

C、End#1I)、Exit#1

34.A、Write#1,TextlB、Write#1,Text

C、Write#3,Textl.TextD、Write#1,Text.Text

程序2.下面程序的作用是利用随机函数产生100个随机整数,范围在［20,120］之间(包

含20和120),打印其中为5或7的倍数的数，求出它们的总和并打印。请将下列程序补

充完整。

PrivateSubCommand1_C1ick()

SUM=O

Fori=1To100

X=Int((35)B)

If(36)DThen

SUM二SUM+X

(37)A

EndIf

Nexti

Print〃SUM=";SUM

EndSub

35.A、Int(Rnd*100+20)B、Int(Rnd*101+20)

C、Int(Rnd*101+19)D、Int(Rnd*100+21)

36.A、XMod5=0andXMod7=0

X\5=0andX\7=0

C>X\5=0OrX\7=0

D、XMod5=0OrXMod7=0

37.A、PrintX;B、PrintSUM+X;

C、PrintSUM;D、PrintSUM*X;

程序3.单击窗体后，用输入对话框输入x、n,然后按下式计算结果。要求：将计算结果

以标签控件显示，且标签控件每秒随机变换一次颜色。

s=4上+JH-----------

2!3!4!(«+1)!

OptionExplicit_

PrivateSubForm_Load()

Timerl.Interval=1000

Timerl.Enabled=True

EndSub

PrivateSubForm_Click()

DimxAsSingle,nAsInteger,iAsInteger,tAsSingle

(38)B

s=0

x=InputBox("x=")

n=InputBox(〃n=")

(39)D

fori=(40)A

t=t*x/i

s=s+t

Nexti

(41)C

EndSub

Privat.eSuhTimer1_Tinier()

Label1.BackColor=RGB(Rnd*255,Rnd*255,Rnd*255)

EndSub

38.A、StaticsAsSingleB、DimsAsSingle

C、OptionBase1D、ConstsAsSingle

39.A、t=TB、t=0C、t=2D、t1

40.A、2Ton+11TonC^2TonD、1Ton+1

41.A、Label1.Caption=xB、Label1.Caption=n

C、Label1.Caption=sD^Label1.Caption=s+x

程序4.设计一个程序，用于从文本框Textl输入课程名称，单击按钮,添加到列表框(List1)

中显示出来。

具体要求：单击“Command1”按钮，若文本框Textl.Text中不是空格串，并且列表中也没

有，则将该课程添加列表框中，然后清•除文本框Tcxtl的内容，再将焦点返回到文本框

Textl,以便再次在文本框Tcxtl输入内容，继续添加。

PrivateSubCommandl_Click()

DimIAsInteger

DimAddFlagAsBoolean

(42)A

If(43)CThen

Fori=0To(44)B

IfListl.List(i)=Textl.TextThen

AddFlag=False

ExitFor

EndIf

Nexti

IfAddFlagThenListl.AddIternTextl.Text

EndIf

Textl.Text=

(45)B

EndSub

42.A、AddFlag=-1B、AddFlag=False

C、AddFlag=1D、AddFlag=0

43.A、textl.text=B、textl.text=""

C^textl.text<>D^textl.text<>“NULL

44.A、Listl.Listindex-1B、Listl.ListCount-1

C、Listl.ListindexD、Listl.ListCount

45.A、textl.ClearB、:extl.SetFocus

C^textl.MoveD、二ext1.ReFresh

四、程序阅读

程序1.写出下列程序运行结果，单击命令按钮控件后窗体上的显示结果

PrivateSubCommandl_Click()

Dima(lTo6)AsInteger

Fori=1To6

a(i)=i*i

Nexti

Forj=1To3(解释：将后3个数挪到数组前头)

temp=a(6)

Fori=6To2Step-1

a(i)=a(i-1)

Nexti

a(l)=temp

Nextj

Fori=1To6

Printa(i);

Nexti

EndSub

、Forml，!□1X|

结果:162536149

程序2.单击窗体后，在四个PicturcBox控件中的图形分别是：(答案略)

OptionExplicit

PrivateSubFormClickO

Dimi%

Fori=0To3

Picturel(i).Scale(-10,10)-(10,-10)

Nexti

Picturel(0).Line(-10,10)-(0,0)

Picturel(0).Line-(-10,-10)

Picturel(1).Circle(0,0),5

Picturel(2).Circle(0,0),5,,0,3.14159

Picturel(3).Circle(0,0),5,,,,2

EndSub

PrivateSubFormLoad()

DimiAsInteger

Fori=0To3

Picturel(i).FillStyle=(i+1)Mod2

Picturel(i).Cis

Nexti

程序3.事先将textl.text设为为空，在获得焦点后，从键盘上依次按下以下键：

"1〃,"2〃,"3",〃4〃,"5","6","1","4〃,然后按回车键，写出输出结果。

PrivateSubTextlKeyPress(KAsInteger)

IfK<AscCO")OrK>Asc("9〃)Then

K=0

PrintTextl.Text

EndIf

EndSub

1234

123456

结果：12345614

程序4.在窗体上画一个名称为Command1的命令按钮，然后编写相应的事件过程。程序运

行后，如果单击命令按钮，则在窗体上显示的内容是

PublicFunctionf(xAsInteger)

DimyAsInteger

x=20

y=2

f=x*y

EndFunction

PrivateSubCommandlClickO

StaticxAsInteger

x=10

y=5

y=f(x)

Printx;y

EndSub

1Foi,1□Ix|

结果:2040

《计算机程序设计基础》课后练习题3

判断题

1.（错）窗体或控件的事件的名称可以由编程人员确定。

2.（错）关系运算表达式"1"+"2"="3”的运算结果为丁「肥。

3.（对）变量是指在程序运行过程中其值可•以改变的那些量，而值不能改变的是常量。

4.（对）控件的有些属性只能在运行时设置。

5.（对）数组在内存中占据一片连续的区域。

6.（错）驱动器列表框、目录列表框、文件列表框三者之间能够自动实现关联。

7.（错）当按钮的Default属性设置为True时，任何情况下按＜Enter＞键，相当于单击

该按钮。

8.（错，dim定义的也可能是模块量）在过程中用Dim和Static定义的变量都是局部

变量。

9.（对）设置数组下标下界缺省值为1的语句为oplionbase1。

10.（对）For-Next循环结构的默认步长为10

单选题

11.当建立好一个简单的应用程序后，假定该工程仅有一个窗体模块。问该工程涉及到

多少个文件要保存？B个。

A）1B）2C）3D）4

12.能够将文本框控件隐藏起来的属性是一B。

（A）Clear（B）Visible（C）Hide（D）New

13.下列符号中，哪个是VB合法的变量名？C。

A）a123B）IntegerC）X_yzD）n

14.inputBox函数返回值的类型为B。

A）数值B）字符串C）变体D）数值或字符串（视输入的数据而定）

15.表达式5+5\3*10/8Mod9的值是C.

A)4B)50

6D)7

16.如果在立即窗口中执行以下操作：

a=4<CR>（＜CR〉是回车键,

下同)

b=6<CR>

printa>b<CR>

则输出结果是C.

A)-1B)00

FalseD)True

17.当程序运行时，在窗体上单击鼠标，以下哪个事件是窗体不会接收到的C

A)MouseDownB)MouseUpC)LoadD)Click

18.在设计菜单时，如在菜单中加入一个菜单分隔项，则菜单分隔项的标题必须设置为

Bo

A)加号(+)B)减号(-)C)星号(*)D)感叹号Q)

19.SelectCase语句属于程序基本结构中的注意：本题有问题，C和D均可：

A)顺序结构B)循环结构C)分支结构D)选择结构

20.为了把焦点移到某个指定的控件，所使用的方法是一A

A)SetFocusB)VisibleC)RefreshD)GetFocus

21.设a=3,则执行x=IIf(a>5,-1,0)后，x的值为C(详见附录Hf函数定义)。

A)5B)6C)0D)

-1

22.执行下面的程序段后，x的值为A.

x=5

Fori=lTo10Step2

x=x+i\5

Nexti

A)8B)10C)

6D)12

23.在窗体上画一个命令按钮，然后编写如下事件过程：

PrivateSubCommandlClickO

Fori=1To2

x=2

Forj=iTo3

x=x+6

Nextj

Nexti

Printx

EndSub

程序运行后，单击命令按钮，输出结果是B。

A)20B)14C)

32D)38

24.在窗体上画一个命令按钮，然后编写如下事件过程：

PrevateSubCommand1_C1ick()

b=0

DoWhilebO-1

a=Val(InputBox(“请输入A的值”))

b=Val(InputBox(“请输入B的值”))

a=a+b

Loop

Printa

EndSub

程序运行后，单击命令按钮，依次在输入对话框中输入5、3、3、-1,则输出结果

为八。

A)2B)3C)

14D)15

25.将通用对话框以打开对话框打开，则选以下(」)方法。

A)ShowOpenB)ShowColorC)ShowSaveD)ShowFont

26.计时器控件能够引发的唯一事件是(C)

A.KeypressB.ClickC.TimerD.Timer1

27.用于设置计时器时间间隔的属性是A: