（ 7 ） 设窗体上有一个名称为 HScroIII 的水平滚动条 ， 要求当滚动块移动位置后 ， 能够在窗体上输出移动的距离 （ 即新位置与原位置的刻度值之差 ， 向右移动为正数 ， 向左移动为负数 ） 。 下面是可实现此功能的程序，请填写。Dim [7] As IntegerPrivate Sub Form_Load()pos=HScroIII.ValueEnd SubPrivate Sub HScroIII_Change()Print [8] -pospos=HScroIII.ValueEnd Sub

题目

（ 7 ） 设窗体上有一个名称为 HScroIII 的水平滚动条 ， 要求当滚动块移动位置后 ， 能够在窗体上输出移动的距离 （ 即新位置与原位置的刻度值之差 ， 向右移动为正数 ， 向左移动为负数 ） 。 下面是可实现此功能的程序，请填写。

Dim [7] As Integer

Private Sub Form_Load()

pos=HScroIII.Value

End Sub

Private Sub HScroIII_Change()

Print [8] -pos

pos=HScroIII.Value

End Sub

相似考题

1.设窗体上有1个滚动条,要求单击滚动条右端的◢按钮一次,滚动条移动一定的刻度值,决定此刻度的属性是（ ）。A．MaxB．MinC．SmallChangeD）LargeChang

2.设窗体上有一个滚动条，要求单击滚动条右端的按钮一次，滚动块移动一定的刻度值，决定此刻度值属性的是A ） MaxB ） MinC ） SmallChangeD ） LargeChang

3.窗体上有一个名称为HScroll 1的滚动条，程序运行后，当单击滚动条两端的箭头时，立即在窗体上显示滚动框的位置(即刻度值)。下面能够实现上述操作的事件过程是( )。A． Private Sub HScroll 1_Change() Print HScroll1.Value End SubB．Private Sub HScroll 1_Change() Print HScroll1.SmallChange End SubC．Private Sub HScroll1 Scroll() Print HScroll1.Value End SubD．Private Sub HScroll1_Scroll() Print HScroll1.SmallChange End Sub

4.设窗体上有一个滚动条，要求单击滚动条右端的(图片)按钮一次，滚动块移动一定的刻度值，决定此刻度值的属性是______。A．MaxB．MinC．SmallChangeD．LargeChange

更多“( 7 ) 设窗体上有一个名称为 HScroIII 的水平滚动条 , 要求当滚动块移动位置后 , 能够在窗体上输 ”相关问题

  • 第1题：

    设窗体上有一个名称为HSl的水平滚动条，如果执行了语句：

    HSI．Value=(HSl．Max—HSI．Min)／2+HSl．Min则：

    A．滚动块处于最左端

    B．滚动块处于最右端

    C．滚动块处于中间位置

    D．滚动块可能处于任何位置，具体位置取决于Max、Min属性的值


    正确答案：C
    解析：本题中语句的设置效果是将滚动条的Value值设为当前滚动条刻度个数的1／2再加上Min值，此值正好为滚动条的中间位置，而Value值用来设置滚动块的位置，故答案为C。

  • 第2题：

    在名为Form1的窗体上绘制一个垂直滚动条(名称为VS1)和一个水平滚动条(名称

    为HS1)。在属性窗口中对两个滚动条设置如下属性：

    Min 2000

    Max 8000

    LargeChange 500

    SmallChange 50

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

    注意：

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


    正确答案：

  • 第3题：

    （15）设窗体上有一个名称为HS1的水平滚动条，如果执行了语句：

    HS 1．Value=(HS 1．Max-HS l .Min）／2＋HS1．Min则：

    A）滚动块处于最左端

    B）滚动块处于最右端

    C) 滚动块处于中间位置

    D) 滚动块可能处于任何位置，具体位置取决于Max、Min属性的值


    正确答案：C

  • 第4题：

    设窗体有上一个名称为HScroll1的水平滚动条，要求当滚动块移动位置后，能够在窗体上输出移动的距离(即新位置与原位置的刻度值之差，向右移动为正数，向左移动为负数)。下面是可实现此功能的程序，请填空。 Dim 【7】 AsInteger Private Sub Form_Load Pos＝HScrol1．Value End Sub Private Sub HScroll1_Change Print 【8】 - pos Pos＝HScrolll．Value End Sub


    正确答案：
    6;4

  • 第5题：

    设窗体上有一个名称为HSI的水平滚动条，如果执行了语句：HS1．Value=(HS1．Max·HS1．Min)2+HS1．Min，则（ ）。

    A.滚动块处于最左端

    B.滚动块处于最右端

    C.滚动块处于中间位置

    D.滚动块可能处于任何位置。具体位置取决于Max、Min属性的值


    正确答案：C
    C。【解析】根据表达式，则滚动条处于中间位置，Value值表示滚动条当前所处位置在Max和Min值之间。

相关内容