《计算机程序设计基础》课后练习题.docx
《《计算机程序设计基础》课后练习题.docx》由会员分享，可在线阅读，更多相关《《计算机程序设计基础》课后练习题.docx（37页珍藏版）》请在冰豆网上搜索。
《计算机程序设计基础》课后练习题
《计算机程序设计基础》课后练习题1
一．判断题
（1）事件过程由某个用户事件或系统事件触发执行，但不能被其他过程调用。
（2）若X＝2,Y＝5，则表达式Y－2>X ANDX＋2＞Y的结果为：
True。
（3）常量是指在程序运行过程中其值可以改变的那些量。
（4）VB工具箱中的所有控件都具有宽度（Width）和高度（Height）属性。
（5）定义变量：
Dimmax,minasSingle,则max和min的数据类型均为Single。
（6）如果创建的菜单项的标题是一个减号“-”，则该菜单项显示为一条分隔线。
（7）标准模块文件的扩展名是“*.VBP”。
（8）定时器控件可以响应Click事件，但不能响应DbClick事件。
（9）在默认情况下，数组下标下界的缺省值为1。
（10）在使用字体对话框时，需要对其Flags属性先进行相应设置。
二．单选题
（11）在VisualBasic中，表示鼠标单击事件的是。
A）ActivateB）DoubleClickC）ClickD）MouseDown
（12）用于设置计时器时间间隔的属性是。
A）IntervalB）NameC）LeftD）Top
（13）函数Int（10*Rnd）是在范围内的整数。
A）[1，10]B）[1，10]C）[0，9）D）[0，9]
（14）Selectcase语句结构的结尾应使用_。
A）EndB）EndCaseC）EndSubD）EndSelect
（15）改变了容器的坐标系后，该容器的属性值不会改变。
A）leftB）scaleleftC）scaletopD）scalewidth
（16）执行下列语句后，列表框中各表项顺序为
List1.Clear
Fori=1to4:
List1.AddItemi-1,0：
Nexti
A）B）C）D）
（17）输入对话框InputBox的返回值的类型是。
A）字符串B）整数C）浮点数D）长整数
（18）将焦点主动设置到指定的控件或窗体上，应采用方法。
A）SetDateB）SetFocusC）SetTextD）GetData
（19）有如下程序段：
DimIAsInteger,SAsInteger
S=1
FORI=1TO8STEP2
S=S*I
NEXTI
PRINT“S=“;S
运行结果为
A）S=9B）S=105C）S=1D）S=16
（20）利用以下_______语句，可以输出日期和时间信息。
A）PrintDateB）PrintMonthC）PrintTimeD）PrintNow
（21）一只漂亮的酒杯被摔碎了，则漂亮，酒杯，摔是_______。
A）对象，属性，事件B）对象，属性，方法
C）属性，对象，方法D）属性，对象，事件
（22）将通用对话框以“打开文件对话框”方式打开，则选以下 方法。
A）ShowOpenB）ShowColorC）ShowSaveD）ShowFont
（23）执行语句“Line（100,100）-（150,200）,vbBlue,B”,在窗体上绘制出一个矩形，那么该矩形的面积=。
A）5000B）10000C）15000D）20000
（24）如何使一个标签或按钮控件在运行时不可用_______。
A）把它的Visible属性设置成FalseB）把它的Visible属性设置成True
C）把它的Enabled属性设置成FalseD）把它的Enabled属性设置成True
（25）下列表达式的结果为"1234556789"。
A）Trim（"12345"+"56789"）B）Ltrim（"12345"）+Rtrim（"56789"）
C）Rtrim（"12345"）&（"56789"）D）Ltrim（"12345"）&Rtrim（"56789"）
（26）将图形框（PictureBox）控件的AutoSize属性设置为True后，则对于图形框而言，________。
A）图形框中的图片自动改变大小适应图形框
B）图形框自动改变大小适应其中的图形
C）如果图片的大小比图形框大，则图形框自动裁剪图象以适应图形框的大小。
D）如果图片的大小比图形框小，则图形框大小不发生变化。
（27）要获得当前驱动器应使用驱动器列表框的哪个属性。
A）Path B）Drive C）Dir D）Pattern
（28）以下关于函数过程的叙述中，正确的是________。
A）函数过程形参的类型与函数返回值的类型没有关系
B）在函数过程中，过程的返回值可以有多个
C）数组作为函数过程的参数时，既能以传值方式传递，也能以传址方式传递
D）如果不指明函数过程参数的类型，则该参数没有数据类型
（29）单击滚动条的滚动箭头时，产生的事件是__________。
A）ClickB）ScrollC）ChangeD）Move
（30）以下能返回文件长度的函数是_______。
A）BOFB）LOFC）LEND）EOF
三．程序填空题
【程序填空1】在C盘当前文件夹下已存在名为Data.txt的文件，利用文本框（Text1）输入若干英文单词。
要求每输入一个单词后，按下回车键将文本框中的单词写入文件，然后清除文本框的内容以便输入下一个单词。
当在文本框中输入的单词是“END”时，则表示结束输入（对于单词“END”不论大小写都视为结束），最后将文件关闭。
PrivateSubForm_Load（）
（31）
Text1.Text=""
EndSub
PrivateSubText1_KeyPress（KeyAsciiAsInteger）
IfKeyAscii=13Then
If（32）="END"Then
Close#
End
Else
（33）
Text1.Text=""
EndIf
EndIf
EndSub
（31）A）Open"C:
\Data.txt"ForOutputAs#１
B）Open"C:
\Data.txt"ForInput#１
C）Open"C:
\Data.txt"InputAs#１
D）Open"C:
\Data.txt"OutputAs#１
（32）A）LCase（Text1.Text）B）Text1.Text
C）Str（Text1）D）UCase（Text1.Text）
（33）A）Write#1,Text1B）Write#1,Text
C）Write#3,Text1.TextD）Write#1,Text.Text
【程序填空2】程序运行后如下图所示，Label1的Caption显示为"字体定时变大"，影响字体大小的属性每隔0.5秒增加1，数值在[8，72]之间变化。
OptionExplicit
PrivateSubForm_Load（）
Timer1.Enabled=True
（34）
Label1.Caption="字体定时变大"
EndSub
PrivateSubTimer1_Timer（）
StaticiAsInteger
Ifi<7Ori>=72Theni=7
i=i+1
（35）
EndSub
（34）A）Timer1.Interval=5/10B）Timer1.Interval=500
C）Timer1.Interval=TrueD）Timer1.Interval=False
（35）A）Label1.FontSize=iB）Label1.Font=i
C）Label1.Size=iD）Label1.FontSize=i+1
【程序填空3】已知五个数存放在数组中，用冒泡法对该数组进行递减排序。
PrivateSubCommand1_Click（）
Dima（1To5）AsInteger
Dimn%,i%，j%,t%
a
（1）=53:
a
（2）=34:
a（3）=45:
a（4）=89:
a（5）=23
Fori=1To4
Forj=5Toi+1Step-1
If（36）Then
t=a（j）
（37）
a（j-1）=t
EndIf
Nextj
Nexti
Fori=1To5
Printa（i）;
Nexti
EndSub
（36）A）a（j）a（j-1）
C）a（i）>a（j）D）a（j）>a（i）
（37）A）a（i）=a（j）B）a（j-1）=a（j）C）a（j）=a（i）D）a（j）=a（j-1）
【程序填空4】在窗体上画一个名称为Combol的组合框，画两个名称分别Label1和Label2及Caption属性分别为“城市名称”和空白的标签。
程序运行后（如下图所示），当在组合框中输入一个新的项目按回车键时（回车键的ASCII码为13），如果输入的项在组合框的列表中不存在，则自动添加到组合框的列表中，并在Label2中给出提示“已成功添加输入项；如果存在，则在Label2中给出提示“输入项已在组合框中”。
PrivateSubCombo1_KeyPress（KeyAsciiAsInteger）
If_（38）Then
Fori=0ToCombo1.ListCount-1
IfCombo1.Text=_（39）Then
Label2.Caption="输入项已在组合框中"
ExitSub
EndIf
Nexti
Label2.Caption="已成功添加输入项"
Combo1._（40）Combo1.Text
EndIf
EndSub
（38）A）KeyAscii=0B）KeyAscii=13C）KeyAscii=8D）KeyAscii=9
（39）A）Combo1.ListIndexB）Combo1.List（i）C）Combo1.AddItem（i）D）Combo1.Clear
（40）A）SelectedB）RemoveItemC）AddItemD）ListIndex
四．程序阅读题
【程序阅读1】根据以下代码，单击窗体三次，那么第一次单击后输出的a、b、c的值为_____（41）___，第二次单击后输出的a、b、c的值为_____（42）___，第三次单击后输出的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）234C）034D）032
（42）A）7129B）7159C）062D）067
（43）A）0910B）092C）171935D）102732
【程序阅读2】阅读下列程序并回答问题，在每小题提供的若干可选答案中，挑选一个正确答案。
PrivateSubForm_Click（）
Form1.Scale（-10,10）-（10,-10）
Form1.Circle（0,0）,5,,-3*3.14/2,-3.14
Form1.FillStyle=0
EndSub
（44）运行以上程序，第一次单击窗体后，Form1上的输出结果是（44），
A）B）C）D）
（45）第二次单击窗体后,Form1上的输出结果是（45）。
A）B）C）D）
【程序阅读3】阅读下列程序并回答问题，在每小题提供的若干可选答案中，挑选一个正确答案。
（↙：
表示回车）
PrivateSubForm_Load（）
Text1.Text="":
Form1.Cls
EndSub
PrivateSubText1_KeyPress（kAsInteger）
StaticsAsInteger
If（Chr（k）<"0"OrChr（k）>"9"）Andk<>13Thenk=0
Ifk=13Thens=s+Val（Text1.Text）:
Text1.Text="":
Prints;
EndSub
（46）写出运行时在Text1中依次按“1↙3↙5↙”输入后窗体上的显示结果_（46）___。
A）149B）9C）135D）5
（47）写出运行时在Text1中依次按“1↙-3↙5↙”输入后窗体上的显示结果_（47）____。
A）1-23B）149C）1-35D）3
（48）写出运行时在Text1中依次按“1↙2a↙5↙”输入后窗体上的显示结果_（48）__。
A）14348B）125C）5D）138
【程序阅读4】
PrivateSubForm_click（）
DimxAsSingle
x=Val（InputBox（"输入x"））
SelectCasex\2
Case1
Print"y=";x
Case2
Print"y=";xMod2
Case3
Print"y=";xMod3
CaseElse
Print"y=";x\2
EndSelect
EndSub
（49）当x的输入值为5时的运行结果为（49）
A）y=5B）y=2.5C）y=1D）y=0
（50）当x的输入值为5.5时的运行结果为（50）
A）y=5B）y=2.5C）y=1D）y=0
（51）当x的输入值为-7时的运行结果为（51）
A）y=-7B）y=-3C）y=1D）y=3.5
【程序阅读5】设text1.text为“abcdef”，运行时连续单击2次控件Hscroll1右侧箭头后，组合框控件中的第一项为_（52）_、第二项___（53）_。
PrivateSubForm_Load（）
HScroll1.SmallChange=1:
HScroll1.Max=5
HScroll1.Min=1:
HScroll1.Value=1
Combo1.Clear
EndSub
PrivateSubHScroll1_Change（）
Combo1.AddItemLeft（Text1.Text,HScroll1.Value）,0
EndSub
（52）A）abcB）abcdC）abD）abcde
（53）A）abB）abcdeC）abcD）abcd
【程序阅读6】阅读下列程序并回答问题，在每小题提供的若干可选答案中，挑选一个正确答案。
PrivateSubf（sAsString）
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
PrivateSubCommand1_Click（）
DimxAsString
x=InputBox（"x="）
Callf（x）
Printx
EndSub
（54）单击Command1后输入"abc"，窗体上显示结果为（54）：
A）cbaB）bcaC）abcD）acb
（55）如果将Sub过程f首句改为PrivateSubf（ByvalsAsString），单击Command1后
输入"abcd"，窗体上显示结果为：
（55）
A）abdcB）cdabC）abcdD）bcad
《计算机程序设计基础》课后练习题2
一、判断题
1．任何控件都有一个Caption属性。
2．对于事件驱动型应用程序，每次运行时的执行顺序可以不一样。
3．用以下语句定义：
Dimmax,minasSingle,则max和min的数据类型均为Single。
4．通用对话框不能真正实现文件打开、文件存储、设置颜色、字体设置、打印等操作，如果想要实现这些功能则需要编程实现。
5．用Scale方法改变了窗体坐标系后，窗体的Left、Top属性值不变。
6．在某列表框中一共有5个选项，而当选中第三项时，这时列表框的ListIndex属性为2。
7．VB中工程文件是指与该工程有关的全部文件和对象，其扩展名是.vbp；窗体文件包括窗体及其控件的正文描述，其扩展名是.frm；标准模块文件是可选的，其扩展名是.cls。
。
8．用Cls方法可以清除组合框中的所有表项。
9．Frame控件可以作为其他控件的容器。
10．VisualBasic工具箱中的所有控件都具有宽度（Width）和高度（Height）属性。
二、单选题
11.P的值为－3时，－P^2的值是________。
A、9B、–9C、6D、-6
12.以下程序段的执行结果为____________。
A=0:
B=1
Do
A=A+B
B=B+1
LoopWhileA<10
PrintA;B
A、105B、ABC、01D、1030
13.设置列表框中列表数量的属性是______。
A、List B、ListCount C、ListIndex D、Columns
14.要获得当前驱动器应使用驱动器列表框的哪个属性____。
A、Path B、Drive C、Dir D、Pattern
15.以下Case语句中错误的是________。
A、Case0To10B、CaseIs>10
C、CaseIs>10AndIs<50D、Case3,5,7,Is>10
16.执行语句s=Len（Mid（"VisualBasic",0,5））后，s的值是________。
A、VisualB、BasicC、6D、表达式有错
17.以下关于函数过程的叙述中，正确的是________。
A、函数过程形参的类型与函数返回值的类型没有关系
B、在函数过程中，过程的返回值可以有多个
C、当数组作为函数过程的参数时，既能以传值方式传递，也能以传址方式传递
D、如果不指明函数过程参数的类型，则该参数没有数据类型
18.在窗体上画一个名称为TxtA的文本框,然后编写如下的事件过程：
PrivateSubTxtＡ_KeyPress（keyasciiasinteger）
…………
EndSub
若焦点位于文本框中,则能够触发KeyPress事件的操作是________。
A、单击鼠标B、按下键盘上的“A”键
C、鼠标滑过文本框D、按下键盘上的任意键
19.执行行下面的事件过程，在窗体显示的内容是________。
PrivateSubCommand1_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后，则对于图形框而言，________。
A、图形框中的图片自动改变大小适应图形框
B、图形框自动改变大小适应其中的图形
C、如果图片的大小比图形框大，则图形框自动裁剪图象以适应图形框的大小。
D、如果图片的大小比图形框小，则图形框大小不发生变化。
21.在图形框控件picture1上坐标（100,100）和（500,500）之间画一条红色直线，写作____。
A、Line（100,100）-（500,500）vbRed
B、Line（100,100）-（500,500）RGB（0,255,0）
C、picture1.Line（100,100）-（500,500）RGB（255,0,0）
D、picture1.Line（100,100）-（500,500）Red
22.下列赋值语句中，________是错误的。
A、x=x+1B、x=x+yC、x+y=xD、x=4>6
23.单击滚动条的滚动箭头时，产生的事件是__________。
A、ClickB、ScrollC、ChangeD、Move
24.在程序运行期间可以用__________函数把图形装入窗体、图片或图象框。
A、AutosizeB、StretchC、PictureD、LoadPicture
25.在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：
PrivateSubCommand1_Click（）
DimnumAsInteger
num=1
DoUntilnum>6
Printnum;
num=num+2.4
Loop
EndSub
程序运行后，单击命令按钮，则窗体上显示的内容是__________。
A、13.45.8 B、135 C、147 D、无数据输出
26._______对象具有Clear方法。
A、窗体B、复选框C、列表框D、图片框
27.设a=16，b=7，c=1，则表达式a\3+2=bAn
升级会员 