《计算机程序设计基础》课后练习题参考答案Word下载.docx
- 文档编号:16118435
- 上传时间:2022-11-20
- 格式:DOCX
- 页数:28
- 大小:221.02KB
《计算机程序设计基础》课后练习题参考答案Word下载.docx
《《计算机程序设计基础》课后练习题参考答案Word下载.docx》由会员分享,可在线阅读,更多相关《《计算机程序设计基础》课后练习题参考答案Word下载.docx(28页珍藏版)》请在冰豆网上搜索。
(12)用于设置计时器时间间隔的属性是A。
A)IntervalB)NameC)LeftD)Top
(13)函数Int(10*Rnd)是在D范围内的整数。
A)[1,10]B)[1,10]C)[0,9)D)[0,9]
(14)Selectcase语句结构的结尾应使用D。
A)EndB)EndCaseC)EndSubD)EndSelect
(15)改变了容器的坐标系后,该容器的A属性值不会改变。
A)leftB)scaleleftC)scaletopD)scalewidth
(16)执行下列语句后,列表框中各表项顺序为D
List1.Clear
Fori=1to4:
List1.AddItemi-1,0:
Nexti
A)B)C)D)
(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____。
A)把它的Visible属性设置成FalseB)把它的Visible属性设置成True
C)把它的Enabled属性设置成FalseD)把它的Enabled属性设置成True
(25)下列C表达式的结果为"
1234556789"
。
A)Trim("
12345"
+"
56789"
)B)Ltrim("
)+Rtrim("
)
C)Rtrim("
)&
("
56789"
)D)Ltrim("
Rtrim("
(26)将图形框(PictureBox)控件的AutoSize属性设置为True后,则对于图形框而言,____B____。
A)图形框中的图片自动改变大小适应图形框
B)图形框自动改变大小适应其中的图形
C)如果图片的大小比图形框大,则图形框自动裁剪图象以适应图形框的大小。
D)如果图片的大小比图形框小,则图形框大小不发生变化。
(27)要获得当前驱动器应使用驱动器列表框的哪个属性B。
A)Path B)Drive C)Dir D)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的文件,利用文本框(Text1)输入若干英文单词。
要求每输入一个单词后,按下回车键将文本框中的单词写入文件,然后清除文本框的内容以便输入下一个单词。
当在文本框中输入的单词是“END”时,则表示结束输入(对于单词“END”不论大小写都视为结束),最后将文件关闭。
PrivateSubForm_Load()
(31)A
Text1.Text="
"
EndSub
PrivateSubText1_KeyPress(KeyAsciiAsInteger)
IfKeyAscii=13Then
If(32)D="
END"
Then
Close#
End
Else
(33)A(注意,Text1的默认属性为text,可省略不写)
Text1.Text="
EndIf
(31)A)Open"
C:
\Data.txt"
ForOutputAs#1
B)Open"
ForInput#1
C)Open"
InputAs#1
D)Open"
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
Timer1.Enabled=True
(34)B
Label1.Caption="
PrivateSubTimer1_Timer()
StaticiAsInteger
Ifi<
7Ori>
=72Theni=7
i=i+1
(35)A
(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(确保第i轮循环后,a(i)位置上存放第i大的数)
Forj=5Toi+1Step-1
If(36)BThen
t=a(j)
(37)D
a(j-1)=t
EndIf
Nextj
Fori=1To5
Printa(i);
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)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)BThen
Fori=0ToCombo1.ListCount-1
IfCombo1.Text=_(39)BThen
Label2.Caption="
输入项已在组合框中"
ExitSub
已成功添加输入项"
Combo1._(40)CCombo1.Text
(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)_C__,第二次单击后输出的a、b、c的值为_____(42)__D_,第三次单击后输出的a、b、c的值为_____
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 计算机程序设计基础 计算机 程序设计 基础 课后 练习题 参考答案
![提示](https://static.bdocx.com/images/bang_tan.gif)