对象100问及答案.docx
- 文档编号:15958840
- 上传时间:2023-07-09
- 格式:DOCX
- 页数:31
- 大小:52.44KB
对象100问及答案.docx
《对象100问及答案.docx》由会员分享,可在线阅读,更多相关《对象100问及答案.docx(31页珍藏版)》请在冰点文库上搜索。
对象100问及答案
面向对象100问
回答以下问题。
(注意:
各小题能用语句完成的,写出语句段;不能用语句完成的,写出如何在属性窗口中设置。
最好能在机器上进行验证,以加深印象。
)
1.将窗体Form1的标题设置为“我的程序”
2.将窗体Form1设置为固定大小
3.将窗体Form1的宽度和高度都放大一倍
4.将窗体Form1设置位于屏幕中央并充满屏幕
5.将窗体的位置向上移动500Twips
6.如何用Move方法完成3、4、5三题
7.设置窗体的背景色为兰色
8.
在窗体Form1上用20磅字号打印“VisualBasic”
9.如图一所示,通过自定义窗体Form1的坐标系,将窗体Form1划分为3×3块显示区,画出“井”字线,再在中间那各个显示区用兰色字打印“VisualBasic”(提示:
Form1.Scale(0,0)-(3,3))
10.在窗体Form1的中央画个填充色为红色圆周为绿色的半径为20毫米的圆
11.清除窗体Form1上打印的文字和绘图内容
12.
图一
窗体Form1上加载图片c:
windows\clouds.bmp
13.清除窗体Form1上的图片
14.将标签Label1的字体设置为红色、四号、黑体、粗体、带下划线
15.将标签Label1的字体设置为兰色、18磅、楷体、斜体
16.设置标签Label1能自动调整大小以显示所有的内容,再将标签Label1的字体放大一倍
17.将标签Label1设置为不可见
18.将标签Label1置于窗体中央(特别提示:
写出语句,也可以直接通过“格式”菜单设置)
19.将标签Label1沿右上方向移动
20.将标签设置为不可用(请问:
将标签设置为不可用后,是否标签显示的信息就不能改变了?
)
21.从键盘上任意输入两个数,将这两个数的加法式子显示在标签Label1中。
(例如:
输入的是3和6,标签Label1显示3+6=9)
22.将命令按钮Command1设置为不可用
23.将命令按钮Command1设置为窗体的缺省命令按钮
24.将命令按钮Command1设置为窗体的“取消”按钮
25.将命令按钮Command1的标题设置为“退出(X)”
26.实现命令按钮Command1的双重性:
“开始”|“停止”:
“开始”启动定时器、“停止”停止定时器。
27.将文本框Text1设置为输入时显示为*
28.将文本框Text1最多可接受的字符数设置为7个
29.将文本框Text1设置为带垂直滚动条
30.将文本框Text1设置为不可用
31.将文本框Text1设置为不可编辑
32.将文本框Text1中的内容清空
33.实现文本框Text1只能接受数字键
34.实现自动将文本框输入任意的字母都显示为大写字母
35.在文本框Text1中输入任意内容,实现在按下回车键后,将这些内容用消息框显示出来
36.在单击命令按钮Command1后,将文本框Text1中的内容全选
37.将列表框List1中所有项目清除
38.将列表框List1中第一项删除
39.将列表框List1中最后一项删除
40.将列表框List1中选中的一项删除
41.将列表框List1的第一项内容改变为“Hello”
42.将文本框Text1中的内容添加到列表框List1的第一项
43.实现单击列表框List1中的项目时,文本框Text1立即显示该列表项的内容
44.将列表框List1设置为自动按字母排序,并观察效果
45.将列表框List1设置为可以用鼠标单击同时选择多项
46.利用组合列表框完成字体设置程序(字体、字型、字号、颜色)
47.当组合框中选定列表项被删除后,组合列表框的当前文本Text属性和当前列表项下标ListIndex属性分别取什么值?
48.复选框的Value有几个取值,分别表示什么?
49.实现反复单击复选框的开关功能:
例如“加粗”复选框,有√:
标签用粗体显示;无√:
标签取消粗体显示。
50.单选钮的Value取值与复选框的Value取值有什么不同?
51.反复单击单选钮能否使单选钮的Value交替取True和False值
52.在框架中添加两个单选钮并组成单选钮数组Option1(0)和Option1
(1)
53.单选钮数组的单击事件过程什么时候发生?
如何判断是由哪个按钮引起的?
54.
是不是在一个窗体界面上的所有单选钮最多只能有一个被选中?
55.是不是因为移动框架时框架内的控件也随之一起移动,所以框架内控件的Left和Top属性也随之改变?
见图二示意。
56.如果将框架的Visible属性设置为False,框架内的控件是不是也都不可见了?
这些控件的Visible属性是不是自动被设置为False?
57.
图二
如果将框架的Enabled属性设置为False,框架内的控件是不是也都不可用了?
这些控件的Enabled属性是不是自动被设置为False?
58.如何设置滚动条的初始值,最小值,最大值?
假设用滚动条模拟一个成人的身高(140cm—240cm),做合理设置。
设标准体重=身高-100,再用一个滚动条来反映标准体重(改变身高时立刻显示标准体重)
59.单击垂直滚动条的上端或下端箭头时,其Value怎样改变?
将单击滚动条两端箭头时Value的改变量设为100。
60.单击垂直滚动条的滑块和两端箭头间的空白处时,其Value怎样改变?
将单击垂直滚动条的滑块和两端箭头间的空白处时Value的改变量设为100。
61.不直接操纵使用滚动条,而是通过其他事件中对滚动条的Value属性进行赋值,会不会触发滚动条的Change事件?
62.将一个形状控件的形状设置为圆
63.形状控件可以设置为几种形状?
64.将形状控件的填充色设置并显示为兰色
65.Shape控件显示的图形和绘图语句画的各种图形的线条颜色、内部颜色分别由什么属性决定?
66.写出FillStyle属性各取值的式样
67.改变线条控件的宽度
68.线条控件的位置是由线条控件的Left和Top属性决定的吗?
69.将定时器的时间间隔设置为0.5秒
70.可以设置定时器的Width和Height属性吗?
71.在窗体上添加通用对话框控件。
72.将通用对话框控件显示为颜色对话框,运用什么方法或设置什么属性?
将窗体的背景色设置为颜色对话框指定的颜色。
73.将通用对话框控件显示为字体对话框,运用什么方法或设置什么属性?
在窗体上用字体对话框指定的字体、字型、字号、颜色输出“VisualBasic”。
74.将通用对话框控件显示为打开对话框,运用什么方法或设置什么属性?
设置打开对话框只显示*.bmp和*.jpg的图片文件,并在窗体上加载一幅打开对话框指定的图片。
75.将通用对话框控件显示为打开对话框,运用什么方法或设置什么属性?
设置打开对话框只显示*.txt文本文件,并将文本文件中的内容显示在文本框Text1中。
76.将通用对话框控件显示为另存为对话框,运用什么方法或设置什么属性?
将文本框Text1中的内容保存到另存为对话框指定的文件中。
77.影像框或图片框的图片设置:
在程序中加载图片和在属性窗口中设置
78.图片框的AutoSize属性和影像框的Stretch属性区别
79.设置驱动器列表框的初始盘C:
80.设置目录列表框的初始目录C:
\WINDOWS
81.实现改变驱动器后,目录列表框显示的目录项目自动随之调整
82.实现改变当前目录后,文件列表框显示的文件项目自动随之调整
83.设置文件列表框的文件类型*.bmp和*.jpg
84.双击文件列表框中的文件,在图片框Picture1中加载该图片文件。
85.设置文件列表框的文件类型*.txt,双击文件列表框中的文件,将文本文件中的内容显示在文本框Text1中。
86.将窗体坐标系定义为原点在窗体中央;X轴从左到右刻度为-100,+100;Y轴从下到上刻度为-50,+50;用线条画出坐标系示意图和标注。
如图三示。
87.
在图片框Picture1中画一个圆心在图片框Picture1中央,半径为图片框Picture1的高度的一半,由红、绿、兰三种颜色组成的饼图。
88.在VB中实际上是用一个长整数表示颜色。
写出红色、兰色、绿色各种表示方法。
(比如红色:
vbRed、Qbcolor(12)、Rgb(255,0,0)、255、&H000000FF)
89.写出设置容器坐标系统的刻度单位时,ScaleMode的各个取值的对应刻度单位分别是什么?
90.对象的Left、Top、Width、Height的度量单位是由容器还是对象本身的ScaleMode属性决定?
91.实现在图片框Picture1上用鼠标拖动时画线
92.实现在图片框Picture1上用鼠标拖动时画矩形
93.菜单的热键设计(带下划线字母)
94.
图三
菜单的快捷键设计(注意:
顶层菜单不允许带快捷键)
95.菜单分割条的设计
96.弹出式菜单设计
97.如何将data控件与指定的Access数据库文件中的表进行关联
98.如何将数据感知控件与Data控件进行绑定
99.如何调整控件的上下叠放次序?
100.什么是焦点?
如何改变
面向对象100问参考答案
101.Form1.Caption=“我的程序”
102.设置窗体Form1的BorderStyle:
1
103.Form1.Width=Form1.Width*2
Form1.Height=Form1.Height*2
104.位于屏幕中央:
设置窗体Form1的StartUpPosition:
2或在布局窗口调整
充满屏幕
Form1.Left=0
Form1.Top=0
Form1.Width=Screen.Width
Form1.Height=Screen.Height
105.Form1.Top=Form1.Top-500
106.3:
Form1.MoveLeft,Top,Width*2,Height*2
4:
Form1.Move0,0,Screen.Width,Screen.Height
5:
Form1.MoveLeft,Top-500
107.Form1.BackColor=vbBlue
或Form1.BackColor=RGB(0,0,255)
或Form1.BackColor=&HFF0000
108.Form1.FontSize=20
Form1.Print"VisualBasic"
109.Form1.Scale(0,0)-(3,3)'定义坐标系
Form1.Line(0,1)-(3,1)'划水平线1
Form1.Line(0,2)-(3,2)'划水平线2
Form1.Line(1,0)-(1,3)'划垂直线1
Form1.Line(2,0)-(2,3)'划垂直线2
Form1.CurrentX=1
Form1.CurrentY=1
Form1.ForeColor=vbBlue
Form1.Print"VisualBasic"
110.Form1.ScaleMode=6'设置单位为毫米
Form1.FillStyle=0'设置实心填充样式
Form1.FillColor=vbRed'设置实心填充颜色
Form1.Circle(Form1.ScaleWidth/2+Form1.ScaleLeft,_
Form1.ScaleHeight/2+Form1.ScaleTop),20,vbGreen
111.form1.Cls
112.Form1.Picture=LoadPicture("c:
windows\clouds.bmp")
113.Form1.Picture=LoadPicture("")
114.在属性窗口中设置标签Label1的ForeColor(红色)和Font(四号、黑体、粗体、带下划线)
或用代码实现
Label1.ForeColor=vbRed
Label1.FontSize=14'四号相当于14磅
Label1.FontName="黑体"
Label1.FontBold=True
Label1.FontUnderline=True
115.Label1.ForeColor=vbBlue
Label1.FontSize=18
Label1.FontName="楷体"
Label1.FontItalic=True
116.Label1.AutoSize=True
Label1.FontSize=Label1.FontSize+1
117.Label1.Visible=False
118.Label1.Left=(Form1.ScaleWidth-Label1.Width)/2
Label1.Top=(Form1.ScaleHeight-Label1.Height)/2
119.Label1.Top=Label1.Top–移动距离
Label1.Left=Label1.Left+移动距离
120.Label1.Enabled=False,将标签设置为不可用后,标签显示的信息还是可以改变
121.Label1.Caption=CStr(a)&"+"&CStr(b)&"="&CStr(a+b)
122.Command1.Enabled=False
123.在属性窗口中设置标签Command1的Default为True
124.在属性窗口中设置标签Command1的Cancel为True
125.在属性窗口中设置标签Command1的Caption为:
退出(&X)
126.IfCommand1.Caption="开始"Then
Timer1.Enabled=True
Command1.Caption="停止"
Else
Timer1.Enabled=False
Command1.Caption="开始"
EndIf
127.Text1.PasswordChar="*"
128.Text1.MaxLength=7
129.先在属性窗口中设置文本框Text1的MultiLine:
True,然后再设置文本框Text1的ScrollBars:
2
130.Text1.Enabled=False
131.Text1.Locked=True
132.Text1=""
133.PrivateSubText1_KeyPress(KeyAsciiAsInteger)
IfChr(KeyAscii)<"0"OrChr(KeyAscii)>"9"Then
KeyAscii=0
EndIf
EndSub
134.PrivateSubText1_KeyPress(KeyAsciiAsInteger)
IfChr(KeyAscii)>="a"AndChr(KeyAscii)<="z"Then
KeyAscii=KeyAscii-32
EndIf
EndSub
135.PrivateSubText1_KeyPress(KeyAsciiAsInteger)
IfKeyAscii=13Then
MsgBox("你输入的内容是"&Text1.Text)
EndIf
EndSub
136.PrivateSubCommand1_Click()
Text1.SetFocus
Text1.SelStart=0
Text1.SelLength=Len(Text1.Text)
EndSub
137.ForI=0ToList1.ListCount-1
List1.RemoveItem(0)
NextI
138.List1.RemoveItem(0)
139.List1.RemoveItem(List1.ListCount-1)
140.List1.RemoveItemList1.ListIndex
141.List1.List(0)="Hello"
142.List1.AddItemText1.Text,0
143.Text1.Text=List1.List(List1.ListIndex)
144.在属性窗口中设置列表框List1的Sorted为True。
145.在属性窗口中设置列表框List1的MultiSelect为1。
146.自己动手上机练习
147.当组合框中选定列表项被删除后,组合列表框的当前文本Text属性取””和当前列表项下标ListIndex属性取-1。
148.复选框的Value有3个取值,分别为0(复选框内为空白,即未选中)、1(复选框内显示“√”)、2(复选框内为灰色的“√”标志)。
149.
PrivateSubCheck1_Click()
IfCheck1.Value=1Then
Label1.FontBold=True
Else
Label1.FontBold=False
EndIf
EndSub
150.单选钮的Value取值为逻辑值(True或者False),复选框的Value取值为整数(0或1或2)
151.反复单击单选钮总是使单选钮的Value取True。
152.自己上机练习。
153.单选钮数组的单击事件过程是在单击单选钮数组中任意一个单选钮时发生,通过单选钮数组中的Index属性判断是由哪个按钮引起的。
154.不是的,可以通过框架控件将窗体界面上的所有单选钮分成若干组,分成几组就可以有几个被选中。
155.因为移动框架时框架内的控件也随之一起移动,但框架内控件的Left和Top属性不会改变。
156.是的。
157.是的
158.设置滚动条的初始值(Value),最小值(Min),最大值(Max)。
此题设计如下:
HScroll1.Min=140
HScroll1.Max=240
PrivateSubHScroll1_Change()
Label1.Caption=HScroll1.Value-100'假设在标签上显示标准体重
EndSub
159.单击垂直滚动条的上端或下端箭头时,其Value根据SmallChange的值变小或变大,VScroll1.SmallChange=100
160.单击垂直滚动条的滑块和两端箭头间的空白处时,其Value根据LargeChange的值改变,
VScroll1.LargeChange=100
161.会。
162.设置形状控件的Shape属性为3。
163.形状控件通过设置Shape属性可以设置6种形状:
0(矩形)、1(正方形)、2(椭圆形)、3(圆形)、4(圆角矩形)、5(圆角正方形)。
164.Shape1.FillStyle=0
Shape1.FillColor=vbBlue
165.线条颜色由BorderColor决定,内部颜色由FillColor决定
166.书本P169。
(0-7)
167.通过改变线条控件两个端点的坐标(X1,Y1)、(X2,Y2)来改变。
168.线条控件没有Left和Top属性,线条控件的位置也是通过两个端点的坐标(X1,Y1)、(X2,Y2)来改变。
169.Timer1.Interval=500
170.不能,定时器没有Width和Height属性。
171.自己上机练习。
([工程]-[部件]-"MicrosoftCommonDialogControl6.0”)
172.CommonDialog1.ShowColor或CommonDialog1.Action=3
Form1.BackColor=CommonDialog1.Color
173.CommonDialog1.ShowFont'或用CommonDialog1.Action=4
Form1.FontName=CommonDialog1.FontName
Form1.FontSize=CommonDialog1.FontSize
Form1.FontBold=CommonDialog1.FontBold
Form1.FontItalic=CommonDialog1.FontItalic
Form1.FontStrikethru=CommonDialog1.FontStrikethru
Form1.FontUnderline=CommonDialog1.FontUnderline
Form1.Print"VisualBasic"
174.CommonDialog1.Filter="图形|*.bmp|图片|*.jpg"
CommonDialog1.ShowOpen'或使用CommonDialog1.Action=1
Form1.Picture=LoadPicture(CommonDialog1.FileName)
175.CommonDialog1.Filter="文本文件|*.txt|"
CommonDialog1.ShowOpen'或使用CommonDialog1.Action=1
OpenCommonDialog1.FileNameForInputAs#1
DoWhileNotEOF
(1)
LineInput#1,StrTxt
Text1=Text1+StrTxt+vbCrLf
Loop
Close#1
176.CommonDialog1.Filter="文本文件|*.txt|"
CommonDialog1.ShowSave'或使用CommonDialog1.Action=2
OpenCommonDialog1.FileNameForOutputAs#1
Fori=1ToLen(Text1)
Print#1,Mid$(Text1,i,1);
Nexti
Close#1
177.在属性窗口中设置Picture属性
在程序中Picture1.Picture=LoadPicture(FileName)
178.请大家注意区别:
图片框控件的AutoSize属性和影像框控件的Stretch属性
AutoSize属性:
True|False,当取True时,图片框根据图片调整自身大小
Stret
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 对象 100 问及 答案