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

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

一.判断题

（1）（错）事件过程由某个用户事件或系统事件触发执行，但不能被

其他过程调用。

（2）（错）若X=2,Y=5，则表达式Y-2>XANDX+2>Y的结

果为：True。

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

（4）（错Zirner没有）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。

A)IntervalB)NameC)LeftD)Top

(13)函数Int(10*Rnd)是在D范围内的整数4)[1­

10]B)[1•10]Q[0，9)D)[0«9]

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

A)EndB)EndCaseC)EndSubD)

EndSelect

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

变。A)leftB)scaleleftC)scaletopD)

scalewidth

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

Listl.Clear

Fori=lto4:Listl.Addltemi-1,0:Nexti

A)B)C)D)

^0103

0212-

o321

o43o

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

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

D)长整数

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

方法。

A)SetDateB)SetFocusC)SetText

D)GetData

(19)有如下程序段：DimIAsInteger,SAsInteger

S=1

FORI=1TO8STEP2

S=S*I

NEXTI

PRINT"S=";S

运行结果为BA)S=9B)S=105

C)S=1D)S=16

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

A)PrintDateB)PrintMonthC)PrintTimeD)

PrintNow

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

对象,属性，事件B)对象•属性，方法C)

属性，对象，方法D)属性•对象,事件

(22)将通用对话框以〃打开文件对话框〃方式打开，则选以

下A方法。

A)ShowOpenB)ShowColorC)ShowSaveD)

ShowFont

A)PathB)DriveC)DirD)Pattern

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

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

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

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

传址方式传递

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

(29)单击滚动条的滚动箭头时•产生的事件是C—。

A)ClickB)ScrollC)ChangeD)Move

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

A)BOFB)LOFC)LEND)EOF

三.程序填空题

【程序填空1】在C盘当前文件夹下已存在名为Data.txt的文件,

利用文本框(Textl)输入若干英文单词。要求每输入一个单词后­

按下回车键将文本框中的单词写入文件.然后清除文本框的内容以

便输入下一个单词。当在文本框中输入的单词是〃END〃时，则表

示结束输入(对于单词〃END〃不论大小写都视为结束)，最后将文

件关闭。

PrivateSubForm_Load()

(31)A

Textl.Text="

EndSub

PrivateSubTextl_KeyPress(KeyAsciiAsInteger)

IfKeyAscii=13Then

If(32)D="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"C:\Data.txt"InputAs#1D)Open"C:\Data.txt"

OutputAs#1

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

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

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

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

【程序填空2】程序运行后如下图所示，Labell的Caption显示为"

字体定时变大“，影响字体大小的属性每隔0.5秒增加1，数值在［8•

72］之间变化。

OptionExplicit

PrivateSubForm_Load()

Timerl.Enabled=True

(34)B

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

EndSub

PrivateSubTimerl_Timer()

StaticiAsInteger

Ifi<70ri>=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=iC)

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

【程序填空3】已知五个数存放在数组中，用冒泡法对该数组进行递

减排序(冒泡法：一旦发现数组中两个数逆序马上交换这两个数)。

PrivateSubCommandl_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)位置上存放第i大的数)

Forj=5Toi+1Step-1

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)a(j)>a(j-1)

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

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

=a(j-1)

【程序填空4］在窗体上画一个名称为Combol的组合框，画两个

名称分别Labell和Label2及Caption属性分别为〃城市名称〃和

空白的标签。程序运行后(如下图所示)，当在组合框中输入一个

新的项目按回车键时(回车键的ASCII码为13)，如果输入的项在

组合框的列表中不存在，则自动添加到组合框的列表中，并在Label2

中给出提示〃已成功添加输入项；如果存在，则在Label2中给出提

示〃输入项已在组合框中〃。

PrivateSubCombol_KeyPress(KeyAsciiAsInteger)

If(38)BThen

Fori=0ToCombol.ListCount-1

IfCombol.Text=(39)BThen

Label2.Caption二”输入项已在组合框中”

ExitSub

EndIf

Nexti

Label2.Caption二”已成功添加输入项”

Combol..(40)CCombol.Text

EndIf

EndSub

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

D)KeyAscii=9

(39)A)Combol.ListindexB)Combol.List(i)C)

Combol.Addltem(i)D)Combol.Clear

(40)A)SelectedB)RemoveItemC)AddItemD)

Listindex

四.程序阅读题

【程序阅读1】根据以下代码•单击窗体三次，则第一次单击后输出

的a、b、c的值为(41)C_，第二次单击后输出的a、b、c的

值为(42)D_•第三次单击后输出的a、b、c的值为(43)

_A_。

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)234C)034

D)032

(42)A)7129B)7159C)062

D)067

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

D)102732

疆星阅震好心铲。并回答问题•在每小题提供的若干可选

PrivateSubFormClickO

:orml.Scale(口Q10)-10)

Forml.Circle(0,0]5挈3.14/2,-3.14

Forml.FillStyle=0'

EncSub7

(44)运行以上程序•第一次单击窗体后•Forml上的输出结果是

(44)A，

A)B)C)

D)

(45)第二次单击窗体后,Forml上的输出结果是(45)B

A)B)C)

D)

［程序阅读3】阅读下列程序并回答问题，在每小题提供的若干可选

答案中，挑选一个正确答案。(/:表示回车)

PrivateSubForm_Load()

Textl.Text="":Forml.CIs

EndSub

PrivateSubTextl_KeyPress(kAsInteger)

StaticsAsInteger

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

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

EndSub

(46)写出运行时在Textl中依次按〃1/3/5/〃输入后窗体上

的显不结果_ea_A_°

A)149B)9C)135D)5

(47)写出运行时在Textl中依次按-3/5/〃输入后窗体

上的显不结果_(47)_B°

A)1-23BT1T9C)1-35D)3

(48)写出运行时在Textl中依次按2a/5/〃输入后窗体

上的显不结果_(48)D二°

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

【程序阅读4】

PrivateSubForm_click()

DimxAsSingle

x=Val(InputBox("输入x"))

SelectCasex\2

Case1

Printny=";x

Case2

Print"y=";xMod2

Case3

Print"y="；xMod3

CaseElse

Printny=";x\2

EndSelect

EndSub

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

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

(50)当x的输入值为5.5时的运行结果为(50)DA)y=5

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

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

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

【程序阅读5】设textl.text为匕bcdef"，运行时连续单击2次控件

Hscrolll右侧箭头后，组合框控件中的第一项为一座LA、第二项

一(53)A。

PrivateSubForm_Load()

HScroIll.SmallChange=1:HScroIll.Max=5

HScroIll.Min=1:HScroIll.Value=1

Combol.Clear

EndSub

PrivateSubHScrolll_Change()

Combol.AddltemLeft(Textl.Text,HScroIll.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(szLen(s)+1-iz1)+c+Mid-1)

Nexti

s=c

EndSub

PrivateSubCommandl_Click()

DimxAsString

x=InputBox("x=")

Callf(x)

Printx

EndSub

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

A)cbaB)bcaC)abcD)

acb

(55)如果将Sub过程f首句改为PrivateSubf(ByvalsAsString)，

单击Commandl后

输入匕bed”，窗体上显示结果为:(55)C

A)abdcB)cdabC)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.（错<lear方法）用Cis方法可以清除组合框中的所有表项。

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

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

和高度（Height）属性。

二、单选题

11.P的值为・3时，・PM的值是_B。

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

12.以下程序段的执行结果为A。A=0:B=lDo

A=A+BB=B+lLoopWhileA<10PrintA;BA'

105B、ABC、01D'1030

13.设置列表框中列表数量的属性是_B—。

A、ListB、ListCountC、ListindexD、Columns

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

A、PathB、DriveC、DirDPattern

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

A'Case0To10B<aseIs>10C'CaseIs>10

、

AndIs<50DCase3,5,7zIs>10

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

—D。

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

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

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

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

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

以传址方式传递

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

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

过程：

PrivateSubTxtA_KeyPress(keyasciiasinteger).........

EndSub

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

—D—。A、单击鼠标B、按下键盘上的〃A〃键

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

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

PrivateSubCommandl_Click()DimaAsVarianta

=Array(12,23z34z45,56)Fori=1To3Print

Trim(a(i));NextlEndSubA、122334B、233445

C、122334D、233445

20.将图形框(PictureBox)控件的AutoSize属性设置为True

后，则对于图形框而言，B。

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

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

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

图形框的大小。

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

21.在图形框控件picturel上坐标Q00,100)和(500,500)之间画

一条红色直线，写作_C_。A'Line(100,100)-(500,500)

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

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

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函数把图形装入窗体、图

片或图象框°AAutosizeB'StretchCPictureD、

LoadPicture

25.在窗体上画一个名称为Commandl的命令按钮,然后编写

如下事件过程：

PrivateSubCommandl_ClickODimnumAsIntegemum二

lDoUntilnum>6Printnum;num=num+2.4LoopEnd

Sub

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

A、13.45.8B、135C、147

D、无数据输出

26._C—对象具有Clear方法。

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

片框

27.设a=16，b=7，c=l，则表达式a\3+2=bAndc=91

Mod3的结果A°

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

28.设有如下通用过程：

PublicSubFun(a()zByVaixAsInteger)

Fori=1To5

x=x+a(i)

Next

EndSub

在窗体上画一个名称为Textl的文本框和一个名称为

Commandl的命令按钮•然后编写如下的事件过程：

PrivateSubCommandl_Click()

Dimarr(5)AsVariantDimnasInteger

Fori=1To5

arr(i)=i

Next

n=10

CallFun(arr()zn)

Textl.Text=n

EndSub

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

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

29.窗体上画一个名称为Commandl的命令按钮，然后编写如

下事件过程：

PrivateSubCommandl_Click()DimnumAsIntegerFor

num=1To6Step3Printnum;Nextnum

PrintnumEndSub

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

A'144B、135C、147D、

无数据输出

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

A'InputB、OutputC、AppendD、Random

三、程序填空

程序1•在C盘当前文件夹下建立一个名为Data.txt的顺序文件，

要求用文本框输入若干英文单词，每次按下回车键时将文本框中的

内容写入文件，并清除文本框的内容，直到文本框输入END为止•

最后关闭文件。

PrivateSubForm_Load()

(31)C

Textl.Text=""

EndSub

PrivateSubTextl_KeyPress(KeyAsciiAsInteger)

IfKeyAscii=13Then

If(32)D="END"Then

(33)B

End

Else

(34)A

Textl.Text二,M,

EndIf

EndIf

EndSub

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

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

C、Open"C:\Data.txt"ForOutputAs#1

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

32.A、LCaseTextl.TextB、Textl.Text

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

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

C、End#lD、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的倍数的数，

求出它们的总和并打印。请将下列程序补充完整。

PrivateSubCommandl_Click()

SUM=0

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

B、X\5=0andX\7=0

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

D、XMod5=0OrXMod7=0

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

CPrintSUM;D、PrintSUM*X;

程序3•单击窗体后，用输入对话框输入x、n，然后按下式计算结

果。要求：将计算结果以标签控件显示，目标签控件每秒随机变换

一次颜色。

r_XX2X3X1'

\——H---FF.....H-------

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=InputBoxC'n=1')

(39)D

fori=(40)A

t=t*x/i

s=s+t

Nexti

(41)C

EndSub

PrivateSubTimerl_Timer()

Labell.BackColor=RGB(Rnd*255,Rnd*255,Rnd*

255)

EndSub

38.A、StaticsAsSingleB、DimsAsSingle

C、OptionBase1D、ConstsAsSingle

39.A't=-1B、t=0C、t=2D、t=l

40.A、2Ton+1B4TonC、2TonD4Ton+1

41.A、Labell.Caption二xB、Labell.Caption二n

C、Labell.Caption=sD、Labell.Caption=s+x

程序4•设计一个程序•用于从文本框Textl输入课程名称，单击按

钮，添加到列表框(Listl)中显示出来。

具体要求：单击"Commandl"按钮，若文本框Textl.Text中不是

空格串，并且列表中也没有，则将该课程添加列表框中，然后清除

文本框Textl的内容•再将焦点返回到文本框Textl•以便再次在文

本框Textl输入内容，继续添加。

PrivateSubCommandl_Click()

DimIAsInteger

DimAddFlagAsBoolean

(42)A

If(43)CThen

Fori=OTo(44)B

IfListl.List(i)=Textl.TextThen

AddFlag=False

ExitFor

EndIf

Nexti

IfAddFlagThenListl.AddltemTextl.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.Listlndex-IB、Listl.ListCount-1

C、Listl.ListlndexD、Listl.ListCount

45.A、textl.ClearB、textl.SetFocus

C、textl.MoveD、textl.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二IQ凶

结果：162536149

程序2•单击窗体后,在四个PictureBox控件中的图形分别是：(答

案略)

OptionExplicit

PrivateSubForm_Click()

Dimi%

Fori=0To3

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

Nexti

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

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

Picturel⑴.Circle。0),5

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

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

EndSub

PrivateSubForm_Load()

DimiAsInteger

Fori=0To3

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

Picturel(i).CIs

Nexti

EndSub

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

按下以下键:然后按

回车键，写出输出结果。

PrivateSubTextl_KeyPress(KAsInteger)

IfK<AscC'O")OrK>Asc("9")Then

K=0

PrintTextl.Text

EndIf

EndSub

1234

123456

结果：345614

程序4•在窗体上画一个名称为Command1的命令按钮，然后编写

相应的事件过程。程序运行后•如果单击命令按钮，则在窗体上显

K的内容是

PublicFunctionf(xAsInteger)

DimyAsInteger

x=20

y=2

f=x*y

EndFunction

PrivateSubCommandl_Click()

StaticxAsInteger

x=10

y=5

y二f(x)

Printx;y

EndSub

BBMI1□1x|

结果：工°_______《计算机程序设计基础》课后练习题3

--判断题

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

2.（错）关系运算表达式“1“+”2“二”3”的运算结果为True，

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

而值不能改变的是常量。

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

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

6.（错）驱幻器列表框、目录列表框、文件列表框三者之间能

够自动实现关联。

7.（错）当按钮的Default属性设置为True时，任何情况下按

<Enter>键，相当于单击该按钮。

8.（错dim定义的也可能是模块量底过程中用Dim和Static

定义的变量都是局部变量。

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

1。

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

二•单选题

11•当建立好一个简单的应用程序后，假定该工程仅有一个窗体模

块。问该工程涉及到多少个文件要保存？B个。

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

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

(A)Clear(B)Visible(C)Hide(D)New

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

A)a123B)IntegerC)X_yzD)n

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

A)数值B)字符串C)变体D)数值或字符串(视输入的

数据而定)

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

A)4B)5C)6D)7

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

a=4<CR>(<CR>是回车键•下同)

b=6<CR>

printa>b<CR>

则输出结果是C。

A)-lB)0C)FalseD)True

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

收到的C。

A)MouseDownB)MouseUpC)LoadD)Click

18.在设计菜单归如在菜单中加入一个菜单分隔项，则菜单分隔项的

标题必须设置为B。

A)加号(+)8)减号(-)C)复号(*)D)感叹号⑴

19.SelectCase语句属于程序基本结构中的注意：本题有问题,

C和D均可:

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

选择结构

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

A)SetFocusB)VisibleC)RefreshD)GetFocus

21.设a=3，则执行x=Hf(a>5,-L0)后，x的值为C(详见附录

nf函数定义)。

A)5B)6C)0D)-l

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

x=5

Fori=lTo10Step2

x=x+i\5

Nexti

A)8B)10C)6D)12

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

PrivateSubCommandl_Click()

Fori=1To2

x=2

Forj=iTo3

x=x+6

Nextj

Nexti

Printx

EndSub

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

A)20B)14C)32D)38

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

PrevateSubCommandl_ClickO

b=0

DoWhileb<>-1

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

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

a=a+b

Loop

Printa

EndSub

程序运行后，单击命令按钮，依次在输入对话框中输入5、3、3、

-1，则输出结果为A。

A)2B)3C)14D)15

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

A)ShowOpenB)ShowColorC)ShowSave

D)ShowFont

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

A•KeypressB-ClickC-TimerD•Timerl

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

A'IntervalB、NameC、LeftD、Top

28.在窗体上画两个文本框(其Name属性分别为Textl和Text2)和

一个命令按钮(其Name属性为Commandl)•然后编写如下事

件过程：

PrivateSubCommandl_Click()

x=0

DoWhilex<40

x=(x+2)*(x+3)

n=n+l

Loop

Textl.Text=Str(n)

Text2.Text=Str(x)

EndSub

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

B

A)1和0B)2和72C)3和50D)4和168

29.用下面语句定义的数组的元素个数是D。

DimA(-2To6)AsInteger

A)6B)7C)8D)9

30.循环语句ForI=-3To20Step4执行的次数为

C。

A)4B)5C)6D)8

31.函数Int(10*Rnd)是在(D)范围内的整数。

A・[0，1]B•[1•10]C•[1•9]D-[0•9]

32.利用下面哪个函数可访问文件大小。(A)

A)LOFB)LOCC)EOFD)BOF

33.假定有如下的Sub过程：

SubS(xAsSingle,yAsSingle)

t=x

x=t/y

y=tMody

EndSub

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

PrivateSubCommandl_Click()

DimaAsSingle

DimbAsSingle

a=2

b=4

Sa,b

Printazb

EndSub

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

A)24B)10C)0.52D)0.50

34.阅读程序：

FunctionF(aAsInteger)

Staticc

b=0

b=b+1

c=c+l

f=a+b+c

EndFunction

PrivateSubCommandl_Click()

DimaAsInteger

a=2

Fori=1To2

PrintF(a)

Nexti

EndSub

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

A)4B)4C)4D)4

4567

35.阅读程序：

PrivateSubCommandlClickQ

s=InputBox("输入字符串”)

Fori=Len(s)To1Step-1

PrintMid(sjl);

Nexti

EndSub

运行上面的程序，单击命令按钮，输入〃ABCD〃，输出结果

为B。

A)ABCDB)DCBAC)AAAAD)DDDD

36.在程序运行期间，如果拖动滚动条上的滚动块，则触发的滚动条

事件是C。

A)MoveB)ChangeC)ScrollD)GetFocus

37.设窗体上有一个列表框控件Listl，且其中含有若干列表项。则以

下能表示当前被选中的列表项内容的是D

A)Listl.ListB)Listl.ListIndexQListl.Index

D)Listl.List(Listl.Listlndex)

38为了暂时关闭计时器，应把该计时器的某个属性设置为False•

这个属性是C。

A)VisibleB)TimerC)EnabledD)Interval

39.对窗体编写如下事件过程：

PrivateSubForm_MouseDown(ButtonAsInteger,_

ShiftAsInteger,XAsSingle,YAsSingle)

IfButton=2Then

Print"AAAAA"

EndIf

EndSub

PrivateSubForm_Mousellp(ButtonAsInteger,_

ShiftAsInteger,XAsSingl