在窗体上画一个名称为Text1的文本框．然后画一个名称为HScroll1的滚动条，其Min和Max属性分别为0和100。程序运行后，如果移动滚动框，则在文本框中显示滚动条的当前值，如图16-6所示。 以下能实现上述操作的程序段是______。A．Private Sub HScroll1_Change() Text1.Text=HScroll1. Value End SubB．Private Sub HScroll1_Click() Text1. Text=HScroll1. Value End SubC．

在窗体上画一个名称为Text1的文体框，然后画一个名称为HScrolll的滚动条，其Min和Max属性分别为0和100。程序运行后，如果移动滚动框，则在文本框中显示滚动条的当前值，如图所示。

以下能实现上述操作的程序段是

A．Private Sub Hscroll1_Change( ) Text1．Text=Hscroll1．Value End Sub

B．Private Sub Hscroll1_Click( ) Text1．Text=Hscroll1．Value End Sub

C．Private Sub Hscroll1_Change( ) Text1．Text=Hscroll1．Caption End Sub

D．Private Sub Hscroll1_Click( ) Text1．Text=Hscroll1．Caption End Sub

在名为Form1的窗体上绘制一个水平滚动条，其名称为HS1，设置滚动框Min属性为 1000，Max属性为2000，LargeChange属性为100，SmailChange属性为2；然后再绘制一个文本框，其名称为Text1，初始内容为空白。编写适当的事件过程，使程序运行后，移动滚动框，则在文本框中显示滚动框的当前位置。程序的运行情况如下图所示。

注意：

不得使用任何变量：文件必须存放在考生文件夹中，工程文件名为execise98.vbp，窗体文件名为execise98.frm。

A、PrivateSubHScroll_Change()Label1.Caption=HScroll1.ValueEndSub

B、PrivateSubHScroll_Click()Label1.Caption=HScroll1.ValueEndSub

C、PrivateSubHScroll_Change()Label1.Text=HScroll.CaptionEndSub

D、PrivateSubHScroll_Click()Label1.Text=HScroll.CaptionEndSub

在名为Form1的窗体上绘制一个文本框(名称为Text1，Text属性为“京”，Font属性为“宋体”)和一个水平滚动条(名称为HS1)。在属性窗口中对滚动条设置如下属性：

Min 10

Max 100

LargeChange 5

SmallChange 2

编写适当的事件过程，使程序运行后，若移动滚动条上的滚动框，则可扩大或缩小文本框中的“京”字。运行后的窗体如下图所示。

注意：

程序中不得使用任何变量；文件必须存放在考生文件夹中，工程文件名为 execise90.vbp，窗体文件名为execise90.frm。

在窗体上画一个名称为Text1的文本框和名称为HScrolll的水平滚动条(Max属性为 10，Min属性为0)，然后画两个标题分别为“慢”和“快”的标签。程序运行后，移动滚动块，如果滚动块位于滚动条的正中间位置，则在文本框中显示“适中”；如果滚动块位于滚动条的正中间位置的左侧，则在文本框中显示“慢”；如果滚动块位于滚动条的正中间位置的右侧，则在文本框中显示“快”，如下图所示。请填空。

Private Sub HScolll ______()

If (HScrolll.Value = 50) Then

Textl.Text="适中"

Else

If HScrolll.Value ______Then

Text1.Text = "慢"

Else

Text1.Text = "快"

End If

End If

End Sub