在窗体上画一一个名称为Text1的文本框,然后画一个名称为Hscroll1的滚动条,其Min和Max属性分别为0和1 000。程序运行后,如果移动滑块,则在文本框中显示滚动条的当前值。以下能实现上述操作的程序是( )。
第1题:
在窗体上画一个名称为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
第2题:
在窗体上画一个名称为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
第3题:
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
第4题:
在名为Form1的窗体上绘制一个水平滚动条,其名称为HS1,设置滚动框Min属性为 1000,Max属性为2000,LargeChange属性为100,SmailChange属性为2;然后再绘制一个文本框,其名称为Text1,初始内容为空白。编写适当的事件过程,使程序运行后,移动滚动框,则在文本框中显示滚动框的当前位置。程序的运行情况如下图所示。
注意:
不得使用任何变量:文件必须存放在考生文件夹中,工程文件名为execise98.vbp,窗体文件名为execise98.frm。
第5题:
在窗体上画一个文本框(其名称为Text1)和一个标签(其名称为Labe11),程序运行后,如果在文本框中输入指定的信息,则立即在标签中显示相同的内容。以下可以实现上述操作的事件过程是( )。
A.
B.
C.
D.