itgle.com

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

题目

在窗体上画一个名称为Text1的文本框，然后画一个名称为HScroll1的滚动条，其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

相似考题

1.创建名称为Form1的窗体，在该窗体上画一个文本框，名称为Text1，文本框中初始内容为Visual Basic。在文本框的右边画一个垂直滚动条，名称为VScrolll。滚动条的高度为 3000，宽度为375。在图片框的下方画一个命令按钮，名称为Command1，标题为“清除”。文本框的宽度为2000，高度为600，如图3所示。编写一个事件过程，使程序运行后，单击“清除”按钮，文本框中的文字被清除。程序中不得使用任何变量。注意：存盘时必须存放在考生文件夹下，工程文件名为ylcl.vbp，窗体文件名为ylcl.frm。

2.设有如下通用过程：在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写如 下事件过程：End Sub 程序运行后，单击命令按钮，则在文本框中显示的内容是（ ）。A. 30B. 25C. 20D. 15

3.请根据以下各小题的要求设计Visaul Basic应用程序(包括界面和代码)。1．在窗体(名称为Form1)上画1个列表框(名称为L1)和1个水平滚动条(名称为HS1，Min属性为0，Max属性为100，SmallChange属性为2，LargeChange属性为10)，编写适当的事件过程。程序运行后，如果把滚动框移到某个位置，然后单击窗体，则在列表框中显示“滚动条的当前值是：xx”，如图1—1所示，其中xx是滚动框所在的位置。存盘时，工程文件名为sjt1.vbp，窗体文件名为sjt1.frm。2．在名称为Form1的窗体上画一个文体框，其名称为Text1，然后通过属性窗口设置窗体和文本框的属性，实现如下功能：1)在文本框中可以显示多行文本2)在文本框中显示垂直滚动条3)文本框中显示的初始信息为“程序设计”4)在文本框中显示的字体为三号规则黑体5)窗体的标题为“设置文本框属性”。完成设置后的窗体如图1—2所示。要求：不编写任何代码。注意：存盘时必须存放在考生文件夹下，工程文件名为sjt2.vbp，窗体文件名为sjt2.frm。

4.在窗体上画一一个名称为Text1的文本框，然后画一个名称为Hscroll1的滚动条，其Min和Max属性分别为0和1 000。程序运行后，如果移动滑块，则在文本框中显示滚动条的当前值。以下能实现上述操作的程序是（ ）。

参考答案和解析
正确答案：A
更多“在窗体上画一个名称为Text1的文本框,然后画一个名称为HScroll1的滚动条,其Min和Max属性分 ”相关问题

  • 第1题：

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

    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


    正确答案：A
    解析：移动HScrollBar(水平滚动条)和VScrollBar(垂直滚动条)滚动框部分或通过代码改变Value属性的设置时，将激括Chang事件。其Value属性(默认值为0)是一个整数，它对应于滚动框在滚动条中的位置。当滚动框位置在最小值时，它将移动到滚动条的最左端位置(水平滚动条)或顶端位置(垂直滚动条)。当滚动框在最大值时，它将移动到滚动条的最右端或底端位置。

  • 第2题：

    在窗体上画一个名称为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


    正确答案：A
    解析：题目中移动滚动框将触发滚动框的Change属性，所以选项 B)和选项D)可以先排除，另外滚动条的当前值可以用Value属性来表示，如果在文本框中显示滚动条的当前值语句应为：Text1．Text=Hscrolll. Value。所以排除选项C)，正确答案为选项A)。

  • 第3题：

    在窗体上画一个名称为Label1的标签,然后画一个名称为HScroll1的滚动条,其Min和Max属性分别为0和100.程序运行后,如果移动滚动框,则在标签中显示滚动条的当前值.以下能实现上述操作的程序段是()

    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


    正确答案：A

  • 第4题：

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

    Min 500

    Max 2000

    LargeChange 50

    SmallChange 20

    编写适当的事件过程，使程序运行后，若移动滚动条上的滚动框，则可扩大或缩小文本框的高度，并使得文本框的宽度始终是其高度的1.2倍。运行后的窗体如下图所示。

    注意：

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


    正确答案：

  • 第5题：

    在窗体上画一个名称为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


    正确答案：Change 50或(Max/2)或((Max-Min)/2
    Change , 50或(Max/2)或((Max-Min)/2

相关内容