对象100问及答案上课讲义

1、面向对象100问回答以下问题。（注意：各小题能用语句完成的，写出语句段；不能用语句完成的，写出如何在属性窗口中设置。最好能在机器上进行验证，以加深印象。）1. 将窗体Forml的标题设置为“我的程序”2. 将窗体Forml设置为固定大小3. 将窗体Forml的宽度和高度都放大一倍4. 将窗体Forml设置位于屏幕中央并充满屏幕5. 将窗体的位置向上移动 500Twips6. 如何用 Move方法完成3、4、5三题7. 设置窗体的背景色为兰色8. 在窗体Form1上用20磅字号打印“ Visual B asic ”9. 如图一所示，通过自定义窗体Form1的坐标系，将窗体Form1划分为3X 3

2、块显示区，画出“井”字线， 再在中间那各个显示区用兰色字打印“ Visual Basic ”（提示：Form1.Scale （0, 0）-（3, 3）10. 在窗体Form1的中央画个填充色为红色圆周为绿色的 半径为20毫米的圆11. 清除窗体Form1上打印的文字和绘图内容图一划线12. 窗体 Form1 上加载图片 c:windowsclouds.bmp13. 清除窗体Form1上的图片14. 将标签Label1的字体设置为红色、四号、黑体、粗体、带15. 将标签Label1的字体设置为兰色、18磅、楷体、斜体16. 设置标签Label1能自动调整大小以显示所有的内容，再将标签Label1

3、的字体放大一倍17. 将标签Label1设置为不可见18. 将标签Label1置于窗体中央（特别提示：写出语句，也可以直接通过“格式”菜单设 置）19. 将标签Label1沿右上方向移动20. 将标签设置为不可用（请问：将标签设置为不可用后，是否标签显示的信息就不能改变了？）21. 从键盘上任意输入两个数，将这两个数的加法式子显示在标签Label1中。（例如：输入的是3和6，标签Label1显示3+6=9）22.将命令按钮Comma nd设置为不可用27.将文本框Text128.将文本框Text129.将文本框Text130.将文本框Text131.将文本框Text132.将文本框Text12

4、3. 将命令按钮Comma nd设置为窗体的缺省命令按钮24. 将命令按钮Comma nd设置为窗体的“取消”按钮25. 将命令按钮Comma nd的标题设置为“退出（X）”26. 实现命令按钮Comma nd的双重性：“开始” | “停止”：“开始”启动定时器、“停止”停 止定时器。设置为输入时显示为* 最多可接受的字符数设置为 设置为带垂直滚动条 设置为不可用设置为不可编辑中的内容清空33. 实现文本框Text1只能接受数字键34. 实现自动将文本框输入任意的字母都显示为大写字母35. 在文本框Text1中输入任意内容，实现在按下回车键后，将这些内容用消息框显示出来36. 在单击命令按钮

5、Comma nd后，将文本框 Text1中的内容全选37. 将列表框List1中所有项目清除1.72.将列表框List1 将列表框List1 将列表框List1 将列表框List1 将文本框Text1中第一项删除中最后一项删除中选中的一项删除的第一项内容改变为“ Hello ”的第一项中的内容添加到列表框List1实现单击列表框List1中的项目时，文本框 Text1立即显示该列表项的内容 将列表

6、框List1设置为自动按字母排序，并观察效果将列表框List1设置为可以用鼠标单击同时选择多项利用组合列表框完成字体设置程序(字体、字型、字号、颜色)当组合框中选定列表项被删除后，组合列表框的当前文本Text属性和当前列表项下标List In dex 属性分别取什么值？复选框的Value有几个取值，分别表示什么？实现反复单击复选框的开关功能：例如“加粗”复选框，有2：标签用粗体显示；无2：标签取消粗体显示。单选钮的Value取值与复选框的 反复单击单选钮能否使单选钮的Value取值有什么不同？Value交替取True和False值在框架中添加两个单选钮并组成单选钮数组Option1(0)和Op

7、tion1(1)单选钮数组的单击事件过程什么时候发生？如何判断是由哪个按钮引起的？是不是在一个窗体界面上的所有单选钮最多只能有一个被选中？是不是因为移动框架时框架内的控件也随之一起 移动，所以框架内控件的Left和Top属性也随之改变？见图二示意。如果将框架的 Visible 属性设置为False，框架内 的控件是不是也都不可见了？这些控件的Visible属性是不是自动被设置为 False?如果将框架的 Enabled属性设置为 False，框架内 的控件是不是也都不可用了？这些控件的En abled属性是不是自动被设置为 False?如何设置滚动条的初始值，最小值，最大值？假设用滚动条模拟一

8、个成人的身高(140cm 240cm),做合理设置。设标准体重=身高-100，再用一个滚动条来反映标准体 重(改变身高时立刻显示标准体重)单击垂直滚动条的上端或下端箭头时，其Value怎样改变？将单击滚动条两端箭头时Value的改变量设为100。单击垂直滚动条的滑块和两端箭头间的空白处时，其Value怎样改变？将单击垂直滚动条的滑块和两端箭头间的空白处时Value的改变量设为100。不直接操纵使用滚动条，而是通过其他事件中对滚动条的Value属性进行赋值，会不会触发滚动条的Cha nge事件？将一个形状控件的形状设置为圆形状控件可以设置为几种形状？将形状控件的填充色设置并显示为兰色Shape控

9、件显示的图形和绘图语句画的各种图形的线条颜色、内部颜色分别由什么属性决定？写出FillStyle属性各取值的式样改变线条控件的宽度线条控件的位置是由线条控件的Left和Top属性决定的吗？将定时器的时间间隔设置为0.5秒可以设置定时器的 Width和Height属性吗？ 在窗体上添加通用对话框控件。将通用对话框控件显示为颜色对话框，运用什么方法或设置什么属性？将窗体的背景色设置为颜色对话框指定的颜色。73. 将通用对话框控件显示为字体对话框，运用什么方法或设置什么属性？在窗体上用字体对话框指定的字体、字型、字号、颜色输出"Visual Basic ”。74. 将通用对话框控件显示为打

10、开对话框，运用什么方法或设置什么属性？设置打开对话框只显示*.bmp和*.jpg的图片文件，并在窗体上加载一幅打开对话框指定的图片。75. 将通用对话框控件显示为打开对话框，运用什么方法或设置什么属性？设置打开对话框只显示*.txt 文本文件，并将文本文件中的内容显示在文本框Textl中。76. 将通用对话框控件显示为另存为对话框，运用什么方法或设置什么属性？将文本框 Text1中的内容保存到另存为对话框指定的文件中。77. 影像框或图片框的图片设置：在程序中加载图片和在属性窗口中设置78. 图片框的AutoSize属性和影像框的 Stretch属性区别79. 设置驱动器列表框的初始盘 C :

11、80. 设置目录列表框的初始目录 C : WINDOWS81. 实现改变驱动器后，目录列表框显示的目录项目自动随之调整82. 实现改变当前目录后，文件列表框显示的文件项目自动随之调整83. 设置文件列表框的文件类型*.bmp和*.jpg84. 双击文件列表框中的文件，在图片框Picture1中加载该图片文件。85. 设置文件列表框的文件类型*.txt,双击文件列表框中的文件，将文本文件中的内容显示在文本框Text1中。86. 将窗体坐标系定义为原点在窗体中央；X轴从左到右刻度为-100，+100; Y轴从下到上刻度为-50, +50；用线条画出坐标系示意图和标注。如图三示。87. 在图片框Pi

12、cture1中画一个圆心在图片框Picture1 中央，半径为图片框 Picture1的高度的一半，由红、绿、兰 三种颜色组成的饼图。88. 在VB中实际上是用一个长整数表示颜 色。写出红色、兰色、绿色各种表示方 法。(比如红色：vbRed、Qbcolor(12)、 Rgb(255,0,0)、255、&H000000FF89. 写出设置容器坐标系统的刻度单位时， ScaleMode的各个取值的对应刻度单位 分别是什么？90. 对象的 Left、Top、Width、Height 的 度量单位是由容器还是对象本身的 ScaleMode属性决定？91. 实现在图片框 Picture1上用鼠标

13、拖动时画线92. 实现在图片框Picture1上用鼠标拖动时画矩形93. 菜单的热键设计(带下划线字母94. 菜单的快捷键设计(注意：顶层菜单不允许带快捷键)95. 菜单分割条的设计96. 弹出式菜单设计图三97. 如何将data控件与指定的Access数据库文件中的表进行关联98. 如何将数据感知控件与Data控件进行绑定99. 如何调整控件的上下叠放次序？100. 什么是焦点？如何改变 <Tab>移动焦点的顺序?面向对象100问参考答案101. Form1.Captio n= "我的程序”102. 设置窗体 Form1 的 BorderStyle : 1103. Fo

14、rm1.Width = Form1.Width * 2 Form1.Height = Form1.Height * 2104. 位于屏幕中央：设置窗体 Form1 的 StartUpPosition:2 或在布局窗口调整 充满屏幕 Form1.Left = 0Form1.Top = 0 Form1.Width = Screen.WidthForm1.Height = Screen.Height105. Form1.Top = Form1.Top - 500106.3 ：Form1.Move Left, Top, Width * 2, Height * 2 4： Form1.Move 0, 0,

15、 Screen.Width, Screen.Height 5： Form1.Move Left, Top - 500107. Form1.BackColor = vbBlue 或 Form1.BackColor = RGB(0, 0, 255) 或 Form1.BackColor = &HFF0000108. Form1.FontSize = 20 Form1.Print "Visual Basic"109. Form1.Scale (0, 0)-(3, 3) '定义坐标系Form1.Line (0, 1)-(3, 1) ' 划水平线 1 Form1

16、.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 = 1Form1.ForeColor = vbBlue Form1.Print "Visual Basic"110. Form1.ScaleMode = 6 ' 设置单位为毫米 Form1.FillStyle = 0 '设置实心填充样式Form1.FillColor = vbR

17、ed '设置实心填充颜色Form1.Circle (Form1.ScaleWidth / 2 + Form1.ScaleLeft,_Form1.ScaleHeight / 2 + Form1.ScaleTop), 20, vbGreen111. form1.Cls112. Form1.Picture = LoadPicture("c:windowsclouds.bmp")113. Form1.Picture = LoadPicture("")114. 在属性窗口中设置标签 Label1 的 ForeColor (红色)和 Font( 四号、黑体、

18、粗体、带下 划线)或用代码实现Label1.ForeColor = vbRed Label1.FontSize = 14 '四号相当于 14 磅Label1.FontName = " 黑体 "Label1.FontBold = TrueLabel1.FontUnderline = True115. Label1.ForeColor = vbBlue Label1.FontSize = 18 Label1.FontName = " 楷体 _GB2312"Label1.FontItalic = True116. Label1.AutoSize = T

19、rue Label1.FontSize = Label1.FontSize + 1117. Label1.Visible = False118. Label1.Left = (Form1.ScaleWidth - Label1.Width) / 2Label1.Top = (Form1.ScaleHeight - Label1.Height) / 2119. Label1.Top = Labell.Top - 移动距离Label1.Left = Label1.Left +移动距离120. Label1.Enabled = False，将标签设置为不可用后，标签显示的信息还是可以改变121. L

20、abel1.Caption = CStr(a) & "+" & CStr(b) & "=" & CStr(a + b)122. Command1.Enabled = FalseComma nd的 Default 为 TrueComma nd的 Cancel 为 TrueComma nd的 Captio n 为：退出(&X)开始 " Then停止"开始 "123. 在属性窗口中设置标签124. 在属性窗口中设置标签125. 在属性窗口中设置标签126. If Command1.Capti

21、on = "Timer1.Enabled = TrueCommand1.Caption = "Else Timer1.Enabled = FalseCommand1.Caption = " End If127. Text1.PasswordChar = "*"128. Text1.MaxLength = 7Text1 的129. 先在属性窗口中设置文本框 Text1 的 MultiLine：True, 然后再设置文本框 ScrollBars ： 2130. Text1.Enabled=False131. Text1.Locked = True1

22、32. Text1 = ""133. Private Sub Text1_KeyPress(KeyAscii As Integer)If Chr(KeyAscii) < "0" Or Chr(KeyAscii) > "9" ThenKeyAscii = 0End IfEnd Sub134. Private Sub Text1_KeyPress(KeyAscii As Integer)If Chr(KeyAscii) >= "a" And Chr(KeyAscii) <= "z&qu

23、ot; ThenKeyAscii = KeyAscii - 32End IfEnd Sub135. Private Sub Text1_KeyPress(KeyAscii As Integer)If KeyAscii = 13 ThenMsgBox (" 你输入的内容是 " & Text1.Text)End IfEnd Sub136. Private Sub Command1_Click()Text1.SetFocusText1.SelStart = 0Text1.SelLength = Len(Text1.Text)End Sub137. For I = 0 To

24、 List1.ListCount - 1List1.RemoveItem (0)Next I138. List1.RemoveItem (0)139. List1.RemoveItem (List1.ListCount - 1)140. List1.RemoveItem List1.ListIndex141. List1.List(0) = "Hello"142. List1.AddItem Text1.Text, 0143. Text1.Text = List1.List（List1.ListIndex）144. 在属性窗口中设置列表框 List1 的 Sorted 为

25、True 。145. 在属性窗口中设置列表框 List1 的 MultiSelect为 1。146. 自己动手上机练习147. 当组合框中选定列表项被删除后， 组合列表框的当前文本 Text 属性取”和当前列表 项下标 ListIndex 属性取 -1 。148. 复选框的 Value 有 3 个取值，分别为 0（复选框内为空白，即未选中） 、1（复选框内 显示“"”）、2 （复选框内为灰色的“V”标志）。149.Private Sub Check1_Click（）If Check1.Value = 1 ThenLabel1.FontBold = TrueElseLabel1.Fon

26、tBold = FalseEnd IfEnd Sub150. 单选钮的 Value 取值为逻辑值（ True 或者 False ） , 复选框的 Value 取值为整数（ 0 或 1 或 2）151. 反复单击单选钮总是使单选钮的 Value 取 True 。152. 自己上机练习。153. 单选钮数组的单击事件过程是在单击单选钮数组中任意一个单选钮时发生，通过单选 钮数组中的 Index 属性判断是由哪个按钮引起的。154. 不是的， 可以通过框架控件将窗体界面上的所有单选钮分成若干组， 分成几组就可以有几个被选中。155. 因为移动框架时框架内的控件也随之一起移动，但框架内控件的Left和

27、Top属性不会改变。156. 是的。157. 是的158. 设置滚动条的初始值（Value）,最小值（Min），最大值（Max）。此题设计如下：HScroll1.Min = 140 HScroll1.Max = 240Private Sub HScroll1_Change（）Label1.Caption = HScroll1.Value - 100 '假设在标签上显示标准体重End Sub159. 单击垂直滚动条的上端或下端箭头时，其 Value 根据 SmallChange 的值变小或变大， VScroll1.SmallChange = 100160. 单击垂直滚动条的滑块和两端箭头

28、间的空白处时，其 Value 根据 LargeChange 的值改 变，VScroll1.LargeChange = 100161. 会。162. 设置形状控件的 Shape 属性为 3。163. 形状控件通过设置 Shape属性可以设置6种形状：0 （矩形）、1 （正方形）、2 （椭圆形）、 3（圆形）、 4（圆角矩形） 、 5（圆角正方形） 。164. Shape1.FillStyle = 0Shape1.FillColor = vbBlue165. 线条颜色由 BorderColor 决定，内部颜色由 FillColor 决定166. 书本 P169。（ 0-7）167. 通过改变线条控

29、件两个端点的坐标（X1,Y1）、（ X2,Y2 ）来改变。168. 线条控件没有Left和Top属性，线条控件的位置也是通过两个端点的坐标（X1,Y1 ）、（X2,Y2 ）来改变。169. Timer1.Interval = 500170. 不能，定时器没有 Width 和 Height 属性。171. 自己上机练习。 ( 工程部件 Microsoft CommonDialog Control 6.0 ” )172. CommonDialog1.ShowColor 或 CommonDialog1.Action = 3Form1.BackColor = CommonDialog1.Color17

30、3. CommonDialog1.ShowFont ' 或用 CommonDialog1.Action =4Form1.FontName = CommonDialog1.FontNameForm1.FontSize = CommonDialog1.FontSizeForm1.FontBold = CommonDialog1.FontBoldForm1.FontItalic = CommonDialog1.FontItalicForm1.FontStrikethru = CommonDialog1.FontStrikethruForm1.FontUnderline = CommonDia

31、log1.FontUnderlineForm1.Print "Visual Basic"174. CommonDialog1.Filter = "图形 |*.bmp| 图片 |*.jpg"CommonDialog1.ShowOpen ' 或使用 CommonDialog1.Action = 1 Form1.Picture = LoadPicture(CommonDialog1.FileName)175. CommonDialog1.Filter = " 文本文件 |*.txt|"CommonDialog1.ShowOpen &

32、#39; 或使用 CommonDialog1.Action = 1Open CommonDialog1.FileName For Input As #1Do While Not EOF(1)Line Input #1, StrTxtText1 = Text1 + StrTxt + vbCrLfLoopClose #1176. CommonDialog1.Filter = " 文本文件 |*.txt|"CommonDialog1.ShowSave ' 或使用 CommonDialog1.Action = 2Open CommonDialog1.FileName For

33、 Output As #1For i = 1 To Len(Text1)Print #1, Mid$(Text1, i, 1);Next iClose #1177. 在属性窗口中设置 Picture 属性 在程序中 Picture1.Picture = LoadPicture(FileName)178. 请大家注意区别：图片框控件的 AutoSize 属性和影像框控件的 Stretch 属性 AutoSize 属性： True|False ，当取 True 时，图片框根据图片调整自身大小 Stretch 属性： True/False (默认)False ：根据装入的图像的大小调整图像框的大小T

34、rue ：装入的图像能自动缩放适应图像框的大小179. Drive1.Drive = "c:"180. Dir1.Path = "C： WINDOWS"181. Private Sub Drive1_Change()Dir1.Path = Drive1.Drive '使 Dir1 与 Drive1 同步改变End Sub182. Private Sub Dir1_Change()File1.Path = Dir1.Path 'File1 与 Dir1 同步改变End Sub183. File1.Pattern = "*.bmp;

35、*.jpg"184. Private Sub File1_DblClick()f$ = Form1.File1.Path + "" + Form1.File1.FileName Picture1.Picture = LoadPicture(f$)End Sub185. f$ = Form1.File1.Path + "" + Open f For Input As #1Do While Not E0F(1)Li ne In put #1, StrTxtText1 = Text1 + StrTxt + vbCrLfLoopClose #1186.

36、 Form1.Scale (-100, 50)-(100,-50)Form1.DrawWidth = 3Form1.ForeColor = vbRedForm1.Line (-100, 0)-(100, 0), vbRedForm1.Line (0, 100)-(0,-100), vbRedForm1.Line (0, 50)-(-3, 47), vbRedForm1.Li ne (0, 50)-(3, 47), vbRedForm1.Line (100, 0)-(94, -3), vbRedForm1.Line (100, 0)-(94, 3), vbRedForm1.ForeColor =

37、 vbRedForm1.Fo ntSize = 12Form1.F on tBold = TrueForm1.Curre ntX = -20: Form1.Curre ntY = -3: Prin t "(0,0)"Form1.Curre ntX = 85: Form1.Curre ntY = -3: Prin t "+100"图二Form1.Curre ntX = -100: Form1.Curre ntY = -3: Prin t "-100"Form1.Curre ntX = 5: Form1.Curre ntY = 45: P

38、rin t "+50"Form1.Curre ntX = 5: Form1.Curre ntY = -45: Prin t "-50"187. pi = 3.1415926X = Picture1.ScaleWidth / 2Y = Picture1.ScaleHeight / 2Picture1.FillStyle = 0Picture1.FillColor = vbRedPicture1.Circle (X, Y), Y, , -2 * pi, -2 * pi / 3Picture1.FillColor = vbGreenPicture1.Circl

39、e (X, Y), Y, , -2 * pi / 3, -4 * pi / 3Picture1.FillColor = vbBluePicture1.Circle (X, Y), Y, , -4 * pi / 3, -6 * pi / 3188. 红色：vbRed、Qbcolor(12)、Rgb(255,0,0)、255、&H000000FF绿色：vbGreen、Qbcolor(10)、Rgb(0,255,0)、255*256、&H0000FF00兰色：vbBlue、Qbcolor(9)、Rgb(0,0,255)、255*256*256、&H00FF0000189. S

40、caleMode的取值与对应刻度：1 (缇)，2 (磅)，3 (像素)，4 (字符)，5 (英寸)，6(毫米)，7 (厘米)，0 (自定义刻度)。190. 对象的Left、Top、Width、Height的度量单位是由容器的ScaleMode属性决定。191.Private Sub Picture1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)Picture1.Curre ntX = XPicture1.Curre ntY = YEnd SubPrivate Sub Picture1_Mouse

41、Move(Button As Integer, Shift As Integer, X As Single, Y As Single)Picture1.Li ne -(X, Y)End Sub若指明按鼠标左键画线则应为：Private Sub Picture1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)If Butt on = 1 The nPicture1.CurrentX = XPicture1.CurrentY = YEnd IfEnd SubPrivate Sub Picture1_M

42、ouseup(Button As Integer, Shift As Integer, X As Single, Y As Single)If Button = 1 ThenPicture1.Line -(X, Y), , BEnd IfEnd Sub192.Private Sub Picture1_MouseDown(Button As Integer, Shift As Integer, X As Single,Y As Single)Picture1.CurrentX = XPicture1.CurrentY = YEnd SubPrivate Sub Picture1_Mouseup(

43、Button As Integer, Shift As Integer, X As Single, Y As Single)Picture1.Line -(X, Y), , BEnd Sub193. 在菜单编辑器中，输入菜单标题和”&”，再输入指定字母即可。194. 在菜单编辑器中选中需要设置快捷键的菜单项，然后在快捷键列表框中选择即可。195. 将菜单的 Caption 属性设置为” _”196. 自己上机练习 (参考书本 P211, 与一般菜单设计相同， 只是将顶层菜单设为不可见。 )197. 正确设置 Data 控件的有关属性，使得 data 控件与数据库文件关联：-Connec

44、t :数据库类型(Access )-DataBaseName：数据库文件名-RecordSouce:表名198. 正确设置数据感知控件的有关属性，使得数据感知控件与 Data 控件进行绑定-DataSource :指定 Data 控件名-DataField :指定Data控件所连接的表中的字段名199. 可以在“格式”菜单中操作。200. 焦点可以理解为当前的活动对象。通过设置控件的Tablndex属性可以改变<Tab>键移动焦点的顺序。面向对象 100 问参考答案201. Form1.Caption= “我的程序”202. 设置窗体 Form1 的 BorderStyle : 1

45、203. Form1.Width = Form1.Width * 2Form1.Height = Form1.Height * 2204. 位于屏幕中央:设置窗体 Form1 的 StartUpPosition:2 或在布局窗口调整 充满屏幕Form1.Left = 0Form1.Top = 0Form1.Width = Screen.WidthForm1.Height = Screen.Height205. Form1.Top = Form1.Top - 500206.3 : Form1.Move Left, Top, Width * 2, Height * 24: Form1.Move 0

46、, 0, Screen.Width, Screen.Height5: Form1.Move Left, Top - 500207. Form1.BackColor = vbBlue或 Form1.BackColor = RGB(0, 0, 255)或 Form1.BackColor = &HFF0000208. Form1.FontSize = 20Form1.Print "Visual Basic"209. Form1.Scale (0, 0)-(3, 3) '定义坐标系Form1.Line (0, 1)-(3, 1) '划水平线 1Form1.L

47、ine (0, 2)-(3, 2) '划水平线 2Form1.Line (1, 0)-(1, 3) '划垂直线 1Form1.Line (2, 0)-(2, 3) '划垂直线 2Form1.CurrentX = 1Form1.CurrentY = 1Form1.ForeColor = vbBlueForm1.Print "Visual Basic"210. Form1.ScaleMode = 6 ' 设置单位为毫米 Form1.FillStyle = 0 ' 设置实心填充样式 Form1.FillColor = vbRed '

48、设置实心填充颜色Form1.Circle (Form1.ScaleWidth / 2 + Form1.ScaleLeft,Form1.ScaleHeight / 2 + Form1.ScaleTop), 20, vbGreen211. form1.Cls212. Form1.Picture = LoadPicture("c:windowsclouds.bmp")213. Form1.Picture = LoadPicture("")214. 在属性窗口中设置标签 Label1 的 ForeColor (红色)和 Font( 四号、黑体、粗体、带下 划线)

49、或用代码实现Label1.ForeColor = vbRedLabel1.FontSize = 14 '四号相当于 14 磅Label1.FontName = " 黑体 "Label1.FontBold = TrueLabel1.FontUnderline = True215. Label1.ForeColor = vbBlueLabel1.FontSize = 18Label1.FontName = " 楷体 _GB2312"Label1.FontItalic = True216. Label1.AutoSize = TrueLabel1.Fo

50、ntSize = Label1.FontSize + 1217. Label1.Visible = False218. Label1.Left = (Form1.ScaleWidth - Label1.Width) / 2Label1.Top = (Form1.ScaleHeight - Label1.Height) / 2219. Label1.Top = Labell.Top- 移动距离Label1.Left = Label1.Left +移动距离220. Label1.Enabled = False，将标签设置为不可用后，标签显示的信息还是可以改变221. Label1.Caption

51、= CStr(a) & "+" & CStr(b) & "=" & CStr(a + b)222. Command1.Enabled = False223. 在属性窗口中设置标签224. 在属性窗口中设置标签225. 在属性窗口中设置标签226. If Command1.Caption = "Timer1.Enabled = TrueCommand1.Caption = "ElseTimer1.Enabled = FalseComma nd的 Default 为 TrueComma nd的 Cancel

52、 为 TrueComma nd的 Captio n 为：退出(&X) 开始 " Then停止"Command1.Caption = " 开始 "End If227. Text1.PasswordChar = "*"228. Text1.MaxLength = 7229. 先在属性窗口中设置文本框 Text1 的 MultiLine:True,ScrollBars ： 2230. Text1.Enabled=False231. Text1.Locked = True232. Text1 = ""233. Pr

53、ivate Sub Text1_KeyPress(KeyAscii As Integer)If Chr(KeyAscii) < "0" Or Chr(KeyAscii) > "9" Then KeyAscii = 0End IfEnd Sub234. Private Sub Text1_KeyPress(KeyAscii As Integer)If Chr(KeyAscii) >= "a" And Chr(KeyAscii) <= "z" Then KeyAscii = KeyAscii -

54、 32End IfEnd Sub235. Private Sub Text1_KeyPress(KeyAscii As Integer)If KeyAscii = 13 ThenMsgBox (" 你输入的内容是 " & Text1.Text)End IfEnd Sub236. Private Sub Command1_Click() Text1.SetFocus Text1.SelStart = 0Text1.SelLength = Len(Text1.Text)End Sub237. For I = 0 To List1.ListCount - 1List1.R

55、emoveItem (0)Next I238. List1.RemoveItem (0)239. List1.RemoveItem (List1.ListCount - 1)240. List1.RemoveItem List1.ListIndex241. List1.List(0) = "Hello"242. List1.AddItem Text1.Text, 0243. Text1.Text = List1.List(List1.ListIndex)244. 在属性窗口中设置列表框 List1 的 Sorted 为 True 。245. 在属性窗口中设置列表框 List

56、1 的 MultiSelect 为 1。246. 自己动手上机练习247. 当组合框中选定列表项被删除后， 组合列表框的当前文本 项下标 ListIndex 属性取 -1 。248. 复选框的 Value 有 3 个取值，分别为 0(复选框内为空白， 显示“v)、2 (复选框内为灰色的“”标志)。249.Private Sub Check1_Click()If Check1.Value = 1 Then然后再设置文本框 Text1 的Text 属性取”和当前列表即未选中) 、 1(复选框内Label1.FontBold = True ElseLabel1.FontBold = FalseEnd

57、 IfEnd Sub250. 单选钮的 Value 取值为逻辑值（ True 或者 False ） , 复选框的 Value 取值为整数（ 0 或 1 或 2 ）251. 反复单击单选钮总是使单选钮的 Value 取 True 。252. 自己上机练习。253. 单选钮数组的单击事件过程是在单击单选钮数组中任意一个单选钮时发生，通过单选 钮数组中的 Index 属性判断是由哪个按钮引起的。254. 不是的， 可以通过框架控件将窗体界面上的所有单 选钮分成若干组， 分成几组就可 以有几个被选中。255. 因为移动框架时框架内的控件也随之一起移动，但 框架内控件的 Left 和 Top 属性不 会

58、改变。256. 是的。257. 是的258. 设置滚动条的初始值（ Value ）,最小值 （Min） ，最大值 （Max） 。此题设计如下： HScroll1.Min = 140HScroll1.Max = 240Private Sub HScroll1_Change（） Label1.Caption = HScroll1.Value - 100 ' 假设在标签上显示标准体重End Sub259. 单击垂直滚动条的上端或下端箭头时，其 Value 根据 SmallChange 的值变小或变大， VScroll1.SmallChange = 100260. 单击垂直滚动条的滑块和两端箭头间的空白处时，其 Value 根据 LargeChange 的值改 变，VScroll1.LargeChange = 100261. 会。262. 设置形状控件的 Shape 属性为 3。263. 形状控件通过设置 Shape属性可以设置6种形状：