对象100问及答案.doc

Visual Basic程序设计习题集 - 面向对象100问面向对象100问回答以下问题。（注意：各小题能用语句完成的，写出语句段；不能用语句完成的，写出如何在属性窗口中设置。最好能在机器上进行验证，以加深印象。）1. 将窗体Form1的标题设置为“我的程序”2. 将窗体Form1设置为固定大小 3. 将窗体Form1的宽度和高度都放大一倍 4. 将窗体Form1设置位于屏幕中央并充满屏幕5. 将窗体的位置向上移动500Twips6. 如何用Move方法完成3、4、5三题7. 设置窗体的背景色为兰色8. 在窗体Form1上用20磅字号打印“Visual Basic” 9. 如图一所示，通过自定义窗体Form1的坐标系，将窗体Form1划分为33块显示区，画出“井”字线，再在中间那各个显示区用兰色字打印“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的字体放大一倍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. 如何设置滚动条的初始值，最小值，最大值？假设用滚动条模拟一个成人的身高（140cm240cm）,做合理设置。设标准体重=身高-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. 将通用对话框控件显示为字体对话框，运用什么方法或设置什么属性？在窗体上用字体对话框指定的字体、字型、字号、颜色输出“Visual Basic”。74. 将通用对话框控件显示为打开对话框，运用什么方法或设置什么属性？设置打开对话框只显示*.bmp和*.jpg的图片文件，并在窗体上加载一幅打开对话框指定的图片。75. 将通用对话框控件显示为打开对话框，运用什么方法或设置什么属性？设置打开对话框只显示*.txt文本文件，并将文本文件中的内容显示在文本框Text1中。76. 将通用对话框控件显示为另存为对话框，运用什么方法或设置什么属性？将文本框Text1中的内容保存到另存为对话框指定的文件中。77. 影像框或图片框的图片设置：在程序中加载图片和在属性窗口中设置78. 图片框的AutoSize属性和影像框的Stretch属性区别79. 设置驱动器列表框的初始盘 C：80. 设置目录列表框的初始目录 C：WINDOWS81. 实现改变驱动器后，目录列表框显示的目录项目自动随之调整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：1103. Form1.Width = Form1.Width * 2Form1.Height = Form1.Height * 2104. 位于屏幕中央：设置窗体Form1的StartUpPosition:2或在布局窗口调整充满屏幕Form1.Left = 0Form1.Top = 0Form1.Width = Screen.WidthForm1.Height = Screen.Height105. Form1.Top = Form1.Top - 500106. 3：Form1.Move Left, Top, Width * 2, Height * 24：Form1.Move 0, 0, Screen.Width, Screen.Height5：Form1.Move Left, Top - 500107. Form1.BackColor = vbBlue或Form1.BackColor = RGB(0, 0, 255)或Form1.BackColor = &HFF0000108. Form1.FontSize = 20Form1.Print Visual Basic109. Form1.Scale (0, 0)-(3, 3) 定义坐标系Form1.Line (0, 1)-(3, 1) 划水平线1Form1.Line (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 Basic110. Form1.ScaleMode = 6 设置单位为毫米Form1.FillStyle = 0 设置实心填充样式Form1.FillColor = vbRed 设置实心填充颜色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(四号、黑体、粗体、带下划线)或用代码实现Label1.ForeColor = vbRedLabel1.FontSize = 14 四号相当于14磅Label1.FontName = 黑体Label1.FontBold = TrueLabel1.FontUnderline = True115. Label1.ForeColor = vbBlueLabel1.FontSize = 18Label1.FontName = 楷体_GB2312Label1.FontItalic = True116. Label1.AutoSize = TrueLabel1.FontSize = Label1.FontSize + 1117. Label1.Visible = False118. Label1.Left = (Form1.ScaleWidth - Label1.Width) / 2Label1.Top = (Form1.ScaleHeight - Label1.Height) / 2119. 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 = False123. 在属性窗口中设置标签Command1的Default为True124. 在属性窗口中设置标签Command1的Cancel为True125. 在属性窗口中设置标签Command1的Caption为:退出（&X）126. If Command1.Caption = 开始 Then Timer1.Enabled = True Command1.Caption = 停止Else Timer1.Enabled = False Command1.Caption = 开始End If127. Text1.PasswordChar = *128. Text1.MaxLength = 7129. 先在属性窗口中设置文本框Text1的MultiLine:True, 然后再设置文本框Text1的ScrollBars：2130. Text1.Enabled=False131. Text1.Locked = True132. Text1 = 133. Private Sub Text1_KeyPress(KeyAscii As Integer) If Chr(KeyAscii) 9 Then KeyAscii = 0 End IfEnd Sub134. Private Sub Text1_KeyPress(KeyAscii As Integer) If Chr(KeyAscii) = a And Chr(KeyAscii) = z Then KeyAscii = KeyAscii - 32 End IfEnd Sub135. Private Sub Text1_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then MsgBox (你输入的内容是 & Text1.Text) End IfEnd Sub136. Private Sub Command1_Click() Text1.SetFocus Text1.SelStart = 0 Text1.SelLength = Len(Text1.Text)End Sub137. For I = 0 To List1.ListCount - 1 List1.RemoveItem (0) Next I138. List1.RemoveItem (0)139. List1.RemoveItem (List1.ListCount - 1)140. List1.RemoveItem List1.ListIndex141. List1.List(0) = Hello142. List1.AddItem Text1.Text, 0143. 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.Private Sub Check1_Click() If Check1.Value = 1 Then Label1.FontBold = True Else Label1.FontBold = False End IfEnd Sub150. 单选钮的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 = 140HScroll1.Max = 240Private Sub HScroll1_Change() Label1.Caption = HScroll1.Value - 100 假设在标签上显示标准体重End Sub159. 单击垂直滚动条的上端或下端箭头时，其Value根据SmallChange的值变小或变大，VScroll1.SmallChange = 100160. 单击垂直滚动条的滑块和两端箭头间的空白处时，其Value根据LargeChange的值改变，VScroll1.LargeChange = 100161. 会。162. 设置形状控件的Shape属性为3。163. 形状控件通过设置Shape属性可以设置6种形状：0（矩形）、1（正方形）、2（椭圆形）、3（圆形）、4（圆角矩形）、5（圆角正方形）。164. Shape1.FillStyle = 0 Shape1.FillColor = vbBlue165. 线条颜色由BorderColor决定，内部颜色由FillColor决定166. 书本P169。（0-7）167. 通过改变线条控件两个端点的坐标（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 = 3 Form1.BackColor = CommonDialog1.Color173. 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 Visual Basic174. CommonDialog1.Filter = 图形|*.bmp|图片|*.jpg CommonDialog1.ShowOpen 或使用 CommonDialog1.Action = 1 Form1.Picture = LoadPicture(CommonDialog1.FileName)175. CommonDialog1.Filter = 文本文件|*.txt| CommonDialog1.ShowOpen 或使用 CommonDialog1.Action = 1 Open CommonDialog1.FileName For Input As #1 Do While Not EOF(1) Line Input #1, StrTxt Text1 = Text1 + StrTxt + vbCrLf Loop Close #1 176. CommonDialog1.Filter = 文本文件|*.txt| CommonDialog1.ShowSave 或使用CommonDialog1.Action = 2 Open CommonDialog1.FileName For Output As #1 For i = 1 To Len(Text1) Print #1, Mid$(Text1, i, 1); Next i Close #1177. 在属性窗口中设置Picture属性 在程序中Picture1.Picture = LoadPicture(FileName)178. 请大家注意区别：图片框控件的AutoSize属性和影像框控件的Stretch属性 AutoSize属性：True|False，当取True时，图片框根据图片调整自身大小Stretch属性：True/False（默认）False：根据装入的图像的大小调整图像框的大小True：装入的图像能自动缩放适应图像框的大小179. Drive1.Drive = c:180. Dir1.Path = C：WINDOWS181. 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;*.jpg184. Private Sub File1_DblClick()f$ = Form1.File1.Path + + Form1.File1.FileName Picture1.Picture = LoadPicture(f$) End Sub185. f$ = Form1.File1.Path + + Form1.File1.FileNameOpen f For Input As #1 Do While Not EOF(1) Line Input #1, StrTxt Text1 = Text1 + StrTxt + vbCrLf Loop Close #1 186. Form1.Scale (-100, 50)-(100, -50) Form1.DrawWidth = 3 Form1.ForeColor = vbRed Form1.Line (-100, 0)-(100, 0), vbRed Form1.Line (0, 100)-(0, -100), vbRed Form1.Line (0, 50)-(-3, 47), vbRed Form1.Line (0, 50)-(3, 47), vbRed Form1.Line (100, 0)-(94, -3), vbRed Form1.Line (100, 0)-(94, 3), vbRed Form1.ForeColor = vbRed Form1.FontSize = 12 Form1.FontBold = True图三 Form1.CurrentX = -20: Form1.CurrentY = -3: Print (0,0) Form1.CurrentX = 85: Form1.CurrentY = -3: Print +100 Form1.CurrentX = -100: Form1.CurrentY = -3: Print -100 Form1.CurrentX = 5: Form1.CurrentY = 45: Print +50 Form1.CurrentX = 5: Form1.CurrentY = -45: Print -50187. pi = 3.1415926X = Picture1.ScaleWidth / 2Y = Picture1.ScaleHeight / 2Picture1.FillStyle = 0Picture1.FillColor = vbRedPicture1.Circle (X, Y), Y, , -2 * pi, -2 * pi / 3Picture1.FillColor = vbGreenPicture1.Circle (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. ScaleMode的取值与对应刻度：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.CurrentX = X Picture1.CurrentY = YEnd SubPrivate Sub Picture1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) Picture1.Line -(X, Y)End Sub若指明按鼠标左键画线则应为：Private Sub Picture1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) If Button = 1 Then Picture1.CurrentX = X Picture1.CurrentY = Y End IfEnd SubPrivate Sub Picture1_Mouseup(Button As Integer, Shift As Integer, X As Single, Y As Single) If Button = 1 Then Picture1.Line -(X, Y), , B End IfEnd Sub192. Private Sub Picture1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) Picture1.CurrentX = X Picture1.CurrentY = YEnd SubPrivate Sub Picture1_Mouseup(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控件与数据库文件关联：Connect：数据库类型（Access）DataBaseName：数据库文件名RecordSouce：表名198. 正确设置数据感知控件的有关属性，使得数据感知控件与Data控件进行绑定 DataSource：指定Data控件名DataField：指定Data控件所连接的表中的字段名199. 可以在“格式”菜单中操作。200. 焦点可以理解为当前的活动对象。通过设置控件的TabIndex属性可以改变键移动焦点的顺序。面向对象100问参考答案201. Form1.Caption=“我的程序”202. 设置窗体Form1的BorderStyle：1203. 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, 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 Basic209. Form1.Scale (0, 0)-(3, 3) 定义坐标系Form1.Line (0, 1)-(3, 1) 划水平线1Form1.Line (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 Basic210. Form1.ScaleMode = 6 设置单位为毫米Form1.FillStyle = 0 设置实心填充样式Form1.FillColor = vbRed 设置实心填充颜色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(四号、黑体、粗体、带下划线)或用代码实现Label1.ForeColor = vbRedLabel1.FontSize = 14 四号相当于14磅Label1.FontName = 黑体Label1.FontBold = TrueLabel1.FontUnderline = True215. Label1.ForeColor = vbBlueLabel1.FontSize = 18Label1.FontName = 楷体_GB2312Label1.FontItalic = True216. Label1.AutoSize = TrueLabel1.FontSize = Label1.FontSize + 1217. Label1.Visible = False218. Label1.Left = (Form1.ScaleWidth - Label1.Width) / 2Label1.Top = (Form1.ScaleHeight - Label1.Height) / 2219. Label1.Top = Label1.Top 移动距离Label1.Left = Label1.Left + 移动距离220. Label1.Enabled = False，将标签设置为不可用后，标签显示的信息还是可以改变221. Label1.Caption = CStr(a) & + & CStr(b) & = & CStr(a + b)222. Command1.Enabled = False223. 在属性窗口中设置标签Command1的Default为True224. 在属性窗口中设置标签Command1的Cancel为True225. 在属性窗口中设置标签Command1的Caption为:退出（&X）226. If Command1.Caption = 开始 Then Timer1.Enabled = True Command1.Caption = 停止Else Timer1.Enabled = False Command1.Caption = 开始End If227. Text1.PasswordChar = *228. Text1.MaxLength = 7229. 先在属性窗口中设置文本框Text1的MultiLine:True, 然后再设置文本框Text1的ScrollBars：2230. Text1.Enabled=False231. Text1.Locked = True232. Text1 = 233. Private Sub Text1_KeyPress(KeyAscii As Integer) If Chr(KeyAscii) 9 Then KeyAscii = 0 End IfEnd Sub234. Private Sub Text1_KeyPress(KeyAscii As Integer) If Chr(KeyAscii) = a And Chr(KeyAscii) = z Then KeyAscii = KeyAscii - 32 End IfEnd Sub235. Private Sub Text1_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then MsgBox (你输入的内容是 & Text1.Text) End IfEnd Sub236. Private Sub Command1_Click() Text1.SetFocus Text1.SelStart = 0 Text1.SelLength = Len(Text1.Text)End Sub237. For I = 0 To List1.ListCount - 1 List1.RemoveItem (0) Next I238. List1.RemoveItem (0)239. List1.RemoveItem (List1.ListCount - 1)240. List1.RemoveItem List1.ListIndex241. List1.List(0) = Hello242. List1.AddItem Text1.Text, 0243. Text1.Text = List1.List(List1.ListIndex)244. 在属性窗口中设置列表框List1的Sorted为True。245. 在属性窗口中设置列表框List1的MultiSelect为1。246. 自己动手上机练习247. 当组合框中选定列表项被删除后，组合列表框的当前文本Text属性取”和当前列表项下标ListIndex属性取-1。248. 复选框的Value有3个取值，分别为0（复选框内为空白，即未选中）、1（复选框内显示“”）、2（复选框内为灰色的“”标志）。249.Private Sub Check1_Click() If Check1.Value = 1 Then Label1.FontBold = True Else Label1.FontBold = False End IfEnd Sub250. 单选钮的Value取值为逻辑值（True或者False）, 复选框的Value取值为整数（0或1或2）251. 反复单击单选钮总是使单选钮的Value取True。252. 自己上机练习。253. 单选钮数组的单击事件过程是在单击单选钮数组中任意一个单选钮时发生，通过单选钮数组中的Index属性判断是由哪个按钮引起的。254. 不是的，可以通过框架控件将窗体界面上的所有单 选钮分成若干组，分成几组就可以有几个被选中。255. 因为移动框架时框架内的控件也随之一起移动，但 框架内控件的Left和Top属性不会改变。256. 是的。257. 是的258. 设置滚动条的初始值（Value）,最小值(Min)，最大值(Max)。此题设计如下： HScroll1.Min = 140HScroll1.Max = 240Private Sub HScroll1_C