niusouti.com

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

题目

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

相似考题

1.在窗体上画一个名称为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 Hscroll1_Change（）Text1.Text=Hscroll1.CaptionEnd SubD．Private Sub Hscroll1_Click（）Text1.Text=Hscroll1.CaptionEnd Sub

2.在窗体上画一个名称为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．Private Sub HScroll1_Change() Text1. Text=HScroll1. Caption End SubD．Private Sub HScroll1_Click() Text1. Text=HScroll1. Caption End Sub

3.在名为Form1的窗体上绘制一个文本框(名称为Text1)和一个水平滚动条(名称为 HSl)。在属性窗口中对滚动条设置如下属性：Min 500Max 2000LargeChange 50SmallChange 20编写适当的事件过程，使程序运行后，若移动滚动条上的滚动框，则可扩大或缩小文本框的高度，并使得文本框的宽度始终是其高度的1.2倍。运行后的窗体如下图所示。注意：要求程序中不得使用任何变量；文件必须存放在考生文件夹中，工程文件名为execise58.vbp，窗体文件名为execise58.frm。

4.请根据以下各小题的要求设计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。

参考答案和解析
正确答案：A
A)    【解析】本题考查滚动条的事件和属性。滚动条上滑块的位置决定了其Value属性的值，当滑块的位置发生改变时，
将触发滚动条的Change事件。日此，要想在移动滑块时，在文本框中显示滚动条的当前值，可通过在滚动条的Change事件中将滚动条的Value属性值赋值给文本框的Text属性来实现。
更多“ 在窗体上画一一个名称为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


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

  • 第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


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

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

    注意：

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


    正确答案：

  • 第5题：

    在窗体上画一个文本框(其名称为Text1)和一个标签(其名称为Labe11)，程序运行后，如果在文本框中输入指定的信息，则立即在标签中显示相同的内容。以下可以实现上述操作的事件过程是( )。

    A．

    B．

    C．

    D．


    正确答案：B

相关内容