内容发布更新时间 : 2024/5/21 0:08:00星期一 下面是文章的全部内容请认真阅读。

1．为了使文本框具有垂直滚动条，应将 MultiLine 属性设置为True，再将 ScrollBars 属性设置为 True 。

2．要在标签Label1上显示\，所使用的语句是 Label1.Caption = \ 。 3．确定一个控件大小的属性是 Height 和 Width 。

4．为了使标签中的标题(Caption)内容居中显示，应将Alignment属性值设置为 2 。 5．要使文本框Textl具有焦点，应执行的语句是 文本框对象名.SetFocus 。 6．在窗体上已经建立了1个文本框Text1和1个标签Label1，下面程序运行后，在文本框中显示的内容是 编程技术 ，在标签上显示的内容是 程序设计 。

Private Sub Form_Load() Show

Text1.Text = \编程技术\

End Sub

Private Sub Text1_Change() Label1.Caption = \程序设计\

End Sub

7．设在窗体上已经建立了2个文本框Text1，Text2和1个标签Label1，简单说明以下事件过程代码的作用(说明当发生什么事件时完成什么功能)。

Private Sub Text1_GotFocus() Text1.SelStart = 0

Text1.SelLength = Len(Text1.Text)

End Sub

Private Sub Text2_Change() Label1.Caption = Text1.Text

End Sub

Text2发生 Change 事件，完成 Text1的文本内容在Label1中显示 功能。 Text1发生 GotFocus 事件，完成 选中Text1中的所有文本，并将输入点置于输入框的起始位置 功能。

8．在窗体上画1个滚动条HScroll1和1个文本框Text1，要使每次单击滚动条两端箭头、单击滚动的滚动块与两端箭头之间的空白区域以及拖动滚动条的滚动块时，文本框的内容能够反映滚动条的值，请完成以下程序代码。

Private Sub HScroll1_Change() Text1.Text = HScroll1. Value

6

End Sub

Private Sub HScroll1_Scroll()

Text1.Text = HScroll1. Value End Sub

7