《计算机程序设计基础》课后练习题课件.docx
- 文档编号:12542714
- 上传时间:2023-06-06
- 格式:DOCX
- 页数:45
- 大小:179.10KB
《计算机程序设计基础》课后练习题课件.docx
《《计算机程序设计基础》课后练习题课件.docx》由会员分享,可在线阅读,更多相关《《计算机程序设计基础》课后练习题课件.docx(45页珍藏版)》请在冰点文库上搜索。
《计算机程序设计基础》课后练习题课件
《计算机程序设计基础》课后练习题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#1
B)Open"C:
\Data.txt"ForInput#1
C)Open"C:
\Data.txt"InputAs#1
D)Open"C:
\Data.txt"OutputAs#1
(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的文本框,然后编写如下的事件过程:
PrivateSubTxtA_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=b
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 计算机程序设计基础 计算机 程序设计 基础 课后 练习题 课件